Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/ede/files.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ede)
#@51 Set to t to simulate systems w/out inode support.
(defvar ede--disable-inode nil (#$ . 423))
#@159 Find FILE in project.  FILE can be specified without a directory.
There is no completion at the prompt.  FILE is searched for within
the current EDE project.
(defalias 'ede-find-file #[(file) "\303 \304	\"\211\204\305\306	\307!#\210\310\n!*\207" [proj file fname ede-current-project ede-expand-filename error "Could not find %s in %s" ede-project-root-directory find-file] 6 (#$ . 523) "sFile: "])
#@53 Flush the file locate hash for the current project.
(defalias 'ede-flush-project-hash #[nil "\301\302!\210\303\304 !\211\205\305!)\207" [loc require ede/locate ede-get-locator-object ede-current-project ede-locate-flush-hash] 3 (#$ . 933) nil])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ede-project-root nil ((this ede-project-placeholder)) #[(this) "\301\302\"\207" [this eieio-oref rootproject] 3 "If a project knows its root, return it here.\nAllows for one-project-object-for-a-tree type systems."] ede-project-root-directory ((this ede-project-placeholder) &optional file) #[(this &optional file) "\302!\206\303\304\305\306\"!!)\207" [this root ede-project-root file-name-directory expand-file-name eieio-oref file] 5 "If a project knows its root, return it here.\nAllows for one-project-object-for-a-tree type systems.\nOptional FILE is the file to test.  It is ignored in preference\nof the anchor file for the project."]] 6)
#@39 A hash of directory names and inodes.
(defvar ede-inode-directory-hash (make-hash-table :test 'equal) (#$ . 1939))
#@56 Add to the EDE project hash DIR associated with INODE.
(defalias 'ede--put-inode-dir-hash #[(dir inode) "\303\304!\205
\304	\n#\210	\207" [dir inode ede-inode-directory-hash fboundp puthash] 4 (#$ . 2060)])
#@53 Get the EDE project hash DIR associated with INODE.
(defalias 'ede--get-inode-dir-hash #[(dir) "\302\303!\205\n\303	\"\207" [dir ede-inode-directory-hash fboundp gethash] 3 (#$ . 2275)])
#@41 Return the inode for the directory DIR.
(defalias 'ede--inode-for-dir #[(dir) "\304\305!!\211\206#\n\203\306\307\"\202#\310!\306\311
8\262
\"))\207" [dir hashnode ede--disable-inode fattr ede--get-inode-dir-hash expand-file-name ede--put-inode-dir-hash 0 file-attributes 10] 6 (#$ . 2470)])
(cl-generic-define-method 'ede--project-inode nil '((proj ede-project-placeholder)) nil #[(proj) "\301\302\"\203\f\303\302\"\207\304\302\305\303\306\"!#\207" [proj slot-boundp dirinode eieio-oref eieio-oset ede--inode-for-dir directory] 7 "Get the inode of the directory project PROJ is in."])
#@93 Return an already open toplevel project that is managing INODE.
Does not check subprojects.
(defalias 'ede--inode-get-toplevel-open-project #[(inode) "\247\203\304U\203:\2051	\305\211\203/\n\204/\306@!\232\203(@A\211\204\n*\207" [inode ede-projects found all 0 nil ede--project-inode] 4 (#$ . 3077)])
#@170 Return an already open project that is managing DIR.
Optional ROOTRETURN specifies a symbol to set to the root project.
If DIR is the root project, then it is the same.
(defalias 'ede-directory-get-open-project #[(dir &optional rootreturn) "\306!\307\310!!\311	!\312
\204\204\313\n!\203(L\210\203J
\203<\n\310\314\315\"!\230?\202B	\316!\232?\203J\317\n\"\f,\207" [dir inode ft proj ans ede--disable-inode ede--inode-for-dir file-name-as-directory expand-file-name ede--inode-get-toplevel-open-project nil ede-directory-get-toplevel-open-project eieio-oref directory ede--project-inode ede-find-subproject-for-directory rootreturn] 5 (#$ . 3406)])
#@128 Return an already open toplevel project that is managing DIR.
If optional EXACT is non-nil, only return exact matches for DIR.
(defalias 'ede-directory-get-toplevel-open-project #[(dir &optional exact) "\306\307!!	\310\211\f\203\277\204\277\307\311\f@\312\"!\211
\230\203)\f@\202\267\204V\313\314\315!P
\"\203V\n\204D\f@\202\267\311\n\312\"GGW\203\267\f@\202\267\204~\316\f@!\317!\320\321\"?\205t\232*\203~\f@\202\267\204\267\322
!\322!\313\314\315!P\"*\203\267\n\204\246\f@\202\267\307\311\n\312\"!GGW\203\267\f@)\fA\211\204\206\304\n,\207" [dir ede-projects shortans ans all ft file-name-as-directory expand-file-name nil eieio-oref directory string-match "^" regexp-quote ede--project-inode ede--inode-for-dir eql 0 file-truename pd exact ede--disable-inode inode pin ptd ftn] 5 (#$ . 4089)])
(cl-generic-define-method 'ede-find-subproject-for-directory nil '((proj ede-project-placeholder) dir) nil #[(proj dir) "\203\306\307	!\310\f\311\"\210*\207\306\312	!\310\f\313\"\210*\207" [ede--disable-inode dir fulldir ans proj inode nil file-truename ede-map-subprojects #[(SP) "?\205	\304\305\n\306\"!\230\203\n\211\207\307\n\"\207" [ans fulldir SP dir file-truename eieio-oref directory ede-find-subproject-for-directory] 5] ede--inode-for-dir #[(SP) "?\205\304	!\n\232\203	\211\207\305	\"\211\207" [ans SP inode dir ede--project-inode ede-find-subproject-for-directory] 3]] 3 "Find a subproject of PROJ that corresponds to DIR."])
#@55 A hash of directory names and associated EDE objects.
(defvar ede-project-directory-hash (make-hash-table :test 'equal) (#$ . 5623))
#@137 Flush the project directory hash.
Do this only when developing new projects that are incorrectly putting
'nomatch tokens into the hash.
(defalias 'ede-flush-directory-hash #[nil "\303\304\305\"\306	!\211\205\307\n!)\207" [ede-project-directory-hash ede-object loc make-hash-table :test equal ede-get-locator-object ede-locate-flush-hash] 4 (#$ . 5763) nil])
#@100 Reset the directory hash for DIR.
Do this whenever a new project is created, as opposed to loaded.
(defalias 'ede-project-directory-remove-hash #[(dir) "\303!\304\305!\205\305\306!	\"\210\307\310!P\311\312	\")\207" [dir ede-project-directory-hash match expand-file-name fboundp remhash file-name-as-directory "^" regexp-quote maphash #[(K O) "\303	\"\205\304	\n\"\207" [match K ede-project-directory-hash string-match remhash] 3]] 3 (#$ . 6132)])
#@73 If there is an already loaded project for DIR, return it from the hash.
(defalias 'ede--directory-project-from-hash #[(dir) "\302\303!\205\304!\303	\305#\207" [dir ede-project-directory-hash fboundp gethash expand-file-name nil] 4 (#$ . 6595)])
#@55 Add to the EDE project hash DIR associated with DESC.
(defalias 'ede--directory-project-add-description-to-hash #[(dir desc) "\303\304!\205\305!\304	\n#\210	\207" [dir desc ede-project-directory-hash fboundp puthash expand-file-name] 4 (#$ . 6851)])
#@394 Return a project description object if DIR is in a project.
Optional argument FORCE means to ignore a hash-hit of `nomatch'.
This depends on an up to date `ede-project-class-files' variable.
Any directory that contains the file .ede-ignore will always
return nil.

Consider using `ede-directory-project-cons' instead if the next
question you want to ask is where the root of found project is.
(defalias 'ede-directory-project-p #[(dir &optional force) "\303	\"\211A)\207" [dir force detect ede-directory-project-cons] 4 (#$ . 7113)])
#@158 Return a project CONS (ROOTDIR . AUTOLOAD) for DIR.
If there is no project in DIR, return nil.
Optional FORCE means to ignore the hash of known directories.
(defalias 'ede-directory-project-cons #[(dir &optional force) "\306\307\310\"!?\205L\307!\311	!\211\312=\203 \204 \313\202K\n\203.\n\312=\204.\n\202K\314	!\211A\211\203@\315\316
\317\"!\210\320	\f\206G\312\"\210\f**\207" [dir dirtest match force detect autoloader file-exists-p expand-file-name ".ede-ignore" ede--directory-project-from-hash nomatch nil ede-detect-directory-for-project require eieio-oref file ede--directory-project-add-description-to-hash] 5 (#$ . 7656)])
#@102 Starting with DIR, find the toplevel project directory.
If DIR is not part of a project, return nil.
(defalias 'ede-toplevel-project #[(dir) "\304	\n\230\203\203\305\306\"\2020\307	!\211\203\"\305\306\"\2020\310	!\211\203/@\2020\304)\207" [ans dir default-directory ede-object-root-project nil eieio-oref directory ede-directory-get-toplevel-open-project ede-detect-directory-for-project] 3 (#$ . 8311)])
(byte-code "\300\301\302\"\210\303\304\305\306\305\307%\210\303\304\305\310\305\311%\207" [defalias ede-toplevel-project-or-nil ede-toplevel-project cl-generic-define-method ede-convert-path nil ((this ede-project) path) #[(this path) "\306!\307	!\310\311!\n\"\203\312\n\313\225\"\2027\314!\314\n!\310\311
!\f\"\2032\312\f\313\225\"\2026\315\316\n\"**\207" [this path fp pp fptf pptf ede-project-root-directory expand-file-name string-match regexp-quote substring 0 file-truename error "Cannot convert relativize path %s"] 3 "Convert path in a standard way for a given project.\nDefault to making it project relative.\nArgument THIS is the project to convert PATH to."] ((this ede-target) path &optional project) #[(this path &optional project) "\206\306	!\211\2032\307\n\"\310	\303\"\206\311\312\313\314\f!P
\"\203-\315
\fG\"\202.
*\2026\316\317	\")\207" [project this proj path lp p ede-target-parent ede-convert-path eieio-oref "" string-match "^" regexp-quote substring error "Parentless target %s"] 5 "Convert path in a standard way for a given project.\nDefault to making it project relative.\nArgument THIS is the project to convert PATH to.\nOptional PROJECT is the project that THIS belongs to.  Associating\na target to a project is expensive, so using this can speed things up."]] 6)
#@111 Get the locator object for project PROJ.
Get it from the toplevel project.  If it doesn't have one, make one.
(defalias 'ede-get-locator-object #[(proj) "\302!\211\205\303	\304\"\204\305	!\210\306	\304\")\207" [proj top ede-toplevel slot-boundp locate-obj ede-enable-locate-on-project eieio-oref] 4 (#$ . 10059)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\301\302\316\302\317%\207" [cl-generic-define-method ede-expand-filename nil ((this ede-project) filename &optional force) #[(this filename &optional force) "\306\307!\210\310!\311	\n\"\312\203\313=\204\202L\313=\203*
\314=\203L\315\n\"\211\203A\316	\n#\210\202K
\204K\316	\n\313#\210)
\203`\f\204`\317!\320\n\")\f+\207" [this loc filename ha ans force require ede/locate ede-get-locator-object ede-locate-file-in-hash nil nomatch newfile ede-expand-filename-impl ede-locate-add-file-to-hash ede-project-root-directory expand-file-name calc dir] 5 "Return a fully qualified file name based on project THIS.\nFILENAME should be just a filename which occurs in a directory controlled\nby this project.\nOptional argument FORCE forces the default filename to be provided even if it\ndoesn't exist.\nIf FORCE equals `newfile', then the cache is ignored and a new file in THIS\nis returned."] ede-expand-filename-impl ((this ede-project) filename &optional force) #[(this filename &optional force) "\306!\307!\310\311\"\312\313
\"\206\314
\"\211\204)\315\316!\210\317\f
\"@	,\207" [this found proj path loc filename ede-get-locator-object ede-project-root-directory eieio-oref subproj nil ede-expand-filename-local ede-expand-filename-impl-via-subproj require ede/locate ede-locate-file-in-project] 6 "Return a fully qualified file name based on project THIS.\nFILENAME should be just a filename which occurs in a directory controlled\nby this project.\nOptional argument FORCE forces the default filename to be provided even if it\ndoesn't exist."] ede-expand-filename-local ((this ede-project) filename) #[(this filename) "\303!\304\305\n	\"!\203\305\n	\"\202%\304\305\306\nP	\"!\205%\305\306\nP	\")\207" [this path filename ede-project-root-directory file-exists-p expand-file-name "include/"] 4 "Expand filename locally to project THIS with filesystem tests."] ede-expand-filename-impl-via-subproj ((this ede-project) filename) #[(this filename) "\305!C\306	\204(\n\203(\n@\307\nA\310\311\"\"\205#\312\f\")\202	*\207" [this found proj thisproj filename ede-toplevel nil append eieio-oref subproj ede-expand-filename-local] 5 "Return a fully qualified file name based on project THIS.\nFILENAME should be just a filename which occurs in a directory controlled\nby this project."] ((this ede-target) filename &optional force) #[(this filename &optional force) "\303\304!	\n#\207" [this filename force ede-expand-filename ede-target-parent] 4 "Return a fully qualified file name based on target THIS.\nFILENAME should be a filename which occurs in a directory in which THIS works.\nOptional argument FORCE forces the default filename to be provided even if it\ndoesn't exist."]] 6)
#@87 Return a dir that is up one directory.
Argument DIR is the directory to trim upwards.
(defalias 'ede-up-directory #[(dir) "\303!\304	!\n\230?\205\n*\207" [dir fad fnd directory-file-name file-name-directory] 2 (#$ . 13265)])
(provide 'ede/files)