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



(byte-code "\300\301!\210\300\302!\207" [require eieio ede] 2)
#@51 Set to t to simulate systems w/out inode support.
(defvar ede--disable-inode nil (#$ . 147))
#@170 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.

(fn FILE)
(defalias 'ede-find-file #[257 "\300 \301
\"\211\204\302\303\304!#\210\305
!\207" [ede-current-project ede-expand-filename error "Could not find %s in %s" ede-project-root-directory find-file] 8 (#$ . 247) "sFile: "])
#@53 Flush the file locate hash for the current project.
(defalias 'ede-flush-project-hash #[0 "\300\301!\210\302\303 !\211\205\304
!\207" [require ede/locate ede-get-locator-object ede-current-project ede-locate-flush-hash] 3 (#$ . 645) 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)) #[257 "\300
\301\"\207" [eieio-oref rootproject] 4 "If a project knows its root, return it here.\nAllows for one-project-object-for-a-tree type systems.\n\n(fn THIS)"] ede-project-root-directory ((this ede-project-placeholder) &optional _file) #[513 "\300\301\302\303\"!!\207" [file-name-directory expand-file-name eieio-oref file] 7 "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.\n\n(fn THIS &optional FILE)"]] 6)
#@39 A hash of directory names and inodes.
(defvar ede-inode-directory-hash (make-hash-table :test 'equal) (#$ . 1617))
#@72 Add to the EDE project hash DIR associated with INODE.

(fn DIR INODE)
(defalias 'ede--put-inode-dir-hash #[514 "\301#\210\207" [ede-inode-directory-hash puthash] 6 (#$ . 1738)])
#@63 Get the EDE project hash DIR associated with INODE.

(fn DIR)
(defalias 'ede--get-inode-dir-hash #[257 "\301
\"\207" [ede-inode-directory-hash gethash] 4 (#$ . 1926)])
#@51 Return the inode for the directory DIR.

(fn DIR)
(defalias 'ede--inode-for-dir #[257 "\301\302!!\211\206 \203\303\304\"\207\305!\303\306
8\262
\"\262
\207" [ede--disable-inode ede--get-inode-dir-hash expand-file-name ede--put-inode-dir-hash 0 file-attributes 10] 8 (#$ . 2101)])
(cl-generic-define-method 'ede--project-inode nil '((proj ede-project-placeholder)) nil #[257 "\300
\301\"\203\f\302
\301\"\207\303
\301\304\302\305\"!#\207" [slot-boundp dirinode eieio-oref eieio-oset ede--inode-for-dir directory] 8 "Get the inode of the directory project PROJ is in.\n\n(fn PROJ)"])
#@105 Return an already open toplevel project that is managing INODE.
Does not check subprojects.

(fn INODE)
(defalias 'ede--inode-get-toplevel-open-project #[257 "\211\247\203\211\301U\203\211:\2050\302
\203.\211\204.\303@!\232\203'
@\262

A\262\202\262
\207" [ede-projects 0 nil ede--project-inode] 6 (#$ . 2701)])
#@203 Return an already open project that is managing DIR.
Optional ROOTRETURN specifies a `gv-ref' to set to the root project.
If DIR is the root project, then it is the same.

(fn DIR &optional ROOTRETURN)
(defalias 'ede-directory-get-open-project #[513 "\301!\302\303!!\304!\305\204
\204\306!\262
\262
\20319\203,L\210\2021A!\210
\203T\203E\303\307\310\"!\230?\202K\311!\232?\203T\312\"\262
\207" [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] 11 (#$ . 3034)])
#@154 Return an already open toplevel project that is managing DIR.
If optional EXACT is non-nil, only return exact matches for DIR.

(fn DIR &optional EXACT)
(defalias 'ede-directory-get-toplevel-open-project #[513 "\302\303!!\304\211\203\261
\204\261\303\305@\306\"!\211\230\203%@\262\210\202\252\204S\307\310\311!P\"\203S
\204@@\266\202\202\252\305\306\"G
GW\203O@\262\210\202\252	\204v\312@!\313!
\314=?\205i

\232\266\202\203v@\262\210\202\252\204\251\315!\315!\307\310\311!P\"\266\202\203\251
\204\230@\266\202\202\252\303\305\306\"!G
GW\203\251@\262\210A\262\202
\206\266\211\207" [ede-projects ede--disable-inode file-name-as-directory expand-file-name nil eieio-oref directory string-match "^" regexp-quote ede--project-inode ede--inode-for-dir 0 file-truename] 13 (#$ . 3717)])
(cl-generic-define-method 'ede-find-subproject-for-directory nil '((proj ede-project-placeholder) dir) nil #[514 "\203\301C\302!\303\304\305$\"\210
\242\207\301C\306!\303\304\307$\"\210
\242\207" [ede--disable-inode nil file-truename ede-map-subprojects make-closure #[257 "\301\242?\205\302\303\304\305\"!\230\203\301
\240\207\306
\300\"\207" [V0 V1 V2 file-truename eieio-oref directory ede-find-subproject-for-directory] 6 "\n\n(fn SP)"] ede--inode-for-dir #[257 "\301\242?\205\303
!\302\232\203\301
\240\207\301\304\300\"\240\207" [V0 V1 V2 ede--project-inode ede-find-subproject-for-directory] 5 "\n\n(fn SP)"]] 11 "Find a subproject of PROJ that corresponds to DIR.\n\n(fn PROJ DIR)"])
#@55 A hash of directory names and associated EDE objects.
(defvar ede-project-directory-hash (make-hash-table :test 'equal) (#$ . 5279))
#@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 #[0 "\302\303\304\"\305	!\211\205\306
!\207" [ede-project-directory-hash ede-object make-hash-table :test equal ede-get-locator-object ede-locate-flush-hash] 3 (#$ . 5419) nil])
#@110 Reset the directory hash for DIR.
Do this whenever a new project is created, as opposed to loaded.

(fn DIR)
(defalias 'ede-project-directory-remove-hash #[257 "\301
!\262
\302\303!\"\210\304\305!P\306\307\310\"\"\207" [ede-project-directory-hash expand-file-name remhash file-name-as-directory "^" regexp-quote maphash make-closure #[514 "\302\300\"\205\303	\"\207" [V0 ede-project-directory-hash string-match remhash] 5 "\n\n(fn K O)"]] 6 (#$ . 5779)])
#@83 If there is an already loaded project for DIR, return it from the hash.

(fn DIR)
(defalias 'ede--directory-project-from-hash #[257 "\301
!\262
\302
\303#\207" [ede-project-directory-hash expand-file-name gethash nil] 5 (#$ . 6249)])
#@70 Add to the EDE project hash DIR associated with DESC.

(fn DIR DESC)
(defalias 'ede--directory-project-add-description-to-hash #[514 "\301!\262\302#\210\207" [ede-project-directory-hash expand-file-name puthash] 6 (#$ . 6490)])
#@420 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.

(fn DIR &optional FORCE)
(defalias 'ede-directory-project-p #[513 "\300\"\211A\207" [ede-directory-project-cons] 5 (#$ . 6730)])
#@184 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.

(fn DIR &optional FORCE)
(defalias 'ede-directory-project-cons #[513 "\300\301\302\"!?\205E\301!\303
!\211\304=\203\204\266\305\207\211\203)\211\304=\204)\207\306!\211A\211\2039\307\310\311\"!\210\312\206@\304\"\210
\266\204\207" [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] 10 (#$ . 7262)])
#@112 Starting with DIR, find the toplevel project directory.
If DIR is not part of a project, return nil.

(fn DIR)
(defalias 'ede-toplevel-project #[257 "\302
\230\203	\203\303	\304\"\207\305!\211\262\203\303
\304\"\207\306!\211\262\203*\211@\207\302\207" [default-directory ede-object-root-project nil eieio-oref directory ede-directory-get-toplevel-open-project ede-detect-directory-for-project] 5 (#$ . 7887)])
(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) #[514 "\300!\301!\302\303!\"\203\211\304\225\305O\207\306!\306!\302\303!\"\203*\211\304\225\305O\207\307\310\"\207" [ede-project-root-directory expand-file-name string-match regexp-quote 0 nil file-truename error "Cannot convert relativize path %s"] 9 "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.\n\n(fn THIS PATH)"] ((this ede-target) path &optional project) #[770 "\211\206\300!\211\203*\301
\"\302\303\"\206\304\305\306\307!P\"\203(

G\310O\207
\207\311\312\"\207" [ede-target-parent ede-convert-path eieio-oref path "" string-match "^" regexp-quote nil error "Parentless target %s"] 10 "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.\n\n(fn THIS PATH &optional PROJECT)"]] 6)
#@122 Get the locator object for project PROJ.
Get it from the toplevel project.  If it doesn't have one, make one.

(fn PROJ)
(defalias 'ede-get-locator-object #[257 "\300
!\211\205\301
\302\"\204\303
!\210\304
\302\"\207" [ede-toplevel slot-boundp locate-obj ede-enable-locate-on-project eieio-oref] 5 (#$ . 9574)])
(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) #[770 "\300\301!\210\302!\303
\"\304
\203
\305=\204
\262
\202J
\305=\203(\306=\203J\307\"\211\203>\310#\210\262
\202J\204I\310\305#\210\210\203]\211\204]\311!\312\"\266\202\207" [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] 11 "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.\n\n(fn THIS FILENAME &optional FORCE)"] ede-expand-filename-impl ((this ede-project) filename &optional _force) #[770 "\300!\301\302\"\206\303\"\262
\211\204 \304\305!\210\306\"@\262
\207" [ede-get-locator-object nil ede-expand-filename-local ede-expand-filename-impl-via-subproj require ede/locate ede-locate-file-in-project] 8 "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.\n\n(fn THIS FILENAME &optional FORCE)"] ede-expand-filename-local ((this ede-project) filename) #[514 "\300!\301\302\"!\203\302\"\207\301\302\303P\"!\205\"\302\303P\"\207" [ede-project-root-directory file-exists-p expand-file-name "include/"] 7 "Expand filename locally to project THIS with filesystem tests.\n\n(fn THIS FILENAME)"] ede-expand-filename-impl-via-subproj ((this ede-project) filename) #[514 "\300!C\301\211\204&
\203&
@\302A\303\304\"\"\262\211\205!\305
\"\266\202\202\207" [ede-toplevel nil append eieio-oref subproj ede-expand-filename-local] 10 "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.\n\n(fn THIS FILENAME)"] ((this ede-target) filename &optional force) #[770 "\300\301!#\207" [ede-expand-filename ede-target-parent] 7 "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.\n\n(fn THIS FILENAME &optional FORCE)"]] 6)
#@97 Return a dir that is up one directory.
Argument DIR is the directory to trim upwards.

(fn DIR)
(defalias 'ede-up-directory #[257 "\300
!\301
!
\230?\205\211\207" [directory-file-name file-name-directory] 5 (#$ . 12625)])
(provide 'ede/files)