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



(byte-code "\300\301!\210\300\302!\207" [require ede semantic/db] 2)
#@53 Get the root directory for DIR.

(fn &optional DIR)
(defalias 'ede-emacs-project-root #[256 "\300\207" [nil] 2 (#$ . 153)])
#@103 Find the Emacs version for the Emacs src in DIR.
Return a tuple of ( EMACSNAME . VERSION ).

(fn DIR)
(defalias 'ede-emacs-version #[257 "\301\302!\303\304rq\210\305 \210\306!\307\303!\204\307\310\211\262!\203/\311!\210eb\210\312\313!\210\314\315!\262
\316
)B\207" [default-directory get-buffer-create " *emacs-query*" "configure.ac" "" erase-buffer file-name-as-directory file-exists-p "configure.in" insert-file-contents re-search-forward "AC_INIT(\\(?:GNU \\)?[eE]macs,\\s-*\\([0-9.]+\\)\\s-*[,)]" match-string 1 "Emacs"] 7 (#$ . 284)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-project-p eieio-make-class-predicate ede-emacs-project ede-emacs-project--eieio-childp eieio-make-child-predicate ede-emacs-project-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project) nil (:documentation "Project Type for the Emacs source code." :method-invocation-order :depth-first)] 6)
#@74 Create a new object of class type `ede-emacs-project'.

(fn &rest SLOTS)
(defalias 'ede-emacs-project #[128 "\300\301\302#\207" [apply make-instance ede-emacs-project] 5 (#$ . 1394)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-project compiler-macro ede-emacs-project--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-emacs-project--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1706)])
#@212 Return an Emacs Project object if there is a match.
Return nil if there isn't one.
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project.

(fn DIR &optional ROOTPROJ)
(defalias 'ede-emacs-load #[513 "\300!\301
@\302@\303A\304\305\n!\306\307\310
\"&	\207" [ede-emacs-version ede-emacs-project :name :version :directory file-name-as-directory :file expand-file-name "src/emacs.c"] 15 (#$ . 1942)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320&\321\"\210\322\323\324\325!\"\210\322\326\327\325!\"\210\322\330\326\"\210\331\330\332\333#\210\334\325\335\326#\336\325\337\316\340$\207" [ede-add-project-autoload make-instance ede-project-autoload :name "EMACS ROOT" :file ede/emacs :proj-file "src/emacs.c" :load-type ede-emacs-load :class-sym ede-emacs-project :new-p nil :safe-p t unique defalias ede-emacs-target-c-p eieio-make-class-predicate ede-emacs-target-c ede-emacs-target-c--eieio-childp eieio-make-child-predicate ede-emacs-target-c-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-c) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) (:documentation "EDE Emacs Project target for C code.\nAll directories need at least one target.")] 17)
#@75 Create a new object of class type `ede-emacs-target-c'.

(fn &rest SLOTS)
(defalias 'ede-emacs-target-c #[128 "\300\301\302#\207" [apply make-instance ede-emacs-target-c] 5 (#$ . 3235)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-c compiler-macro ede-emacs-target-c--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-emacs-target-c--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3552)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-target-el-p eieio-make-class-predicate ede-emacs-target-el ede-emacs-target-el--eieio-childp eieio-make-child-predicate ede-emacs-target-el-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-el) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Emacs Lisp code.\nAll directories need at least one target.")] 6)
#@76 Create a new object of class type `ede-emacs-target-el'.

(fn &rest SLOTS)
(defalias 'ede-emacs-target-el #[128 "\300\301\302#\207" [apply make-instance ede-emacs-target-el] 5 (#$ . 4364)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-el compiler-macro ede-emacs-target-el--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-emacs-target-el--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4686)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-target-misc-p eieio-make-class-predicate ede-emacs-target-misc ede-emacs-target-misc--eieio-childp eieio-make-child-predicate ede-emacs-target-misc-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-misc) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Misc files.\nAll directories need at least one target.")] 6)
#@78 Create a new object of class type `ede-emacs-target-misc'.

(fn &rest SLOTS)
(defalias 'ede-emacs-target-misc #[128 "\300\301\302#\207" [apply make-instance ede-emacs-target-misc] 5 (#$ . 5504)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-misc compiler-macro ede-emacs-target-misc--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-emacs-target-misc--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5836)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\207" [cl-generic-define-method initialize-instance nil ((this ede-emacs-project) &rest _fields) t #[642 " \210\300\301\"?\205\302\303\304#\207" [slot-boundp targets eieio-oset :targets nil] 7 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"] ede-project-root-directory ((this ede-emacs-project) &optional _file) #[513 "\300\301\302\303\"!!\207" [ede-up-directory file-name-directory eieio-oref file] 7 "Return the root for THIS Emacs project with file.\n\n(fn THIS &optional FILE)"] ede-project-root ((this ede-emacs-project)) #[257 "\207" #1=[] 2 "Return my root.\n\n(fn THIS)"] ede-find-subproject-for-directory ((proj ede-emacs-project) _dir) #[514 "
\207" #1# 3 "Return PROJ, for handling all subdirs below DIR.\n\n(fn PROJ DIR)"]] 6)
#@93 Find a target that is a CLASS and is in DIR in the list of TARGETS.

(fn CLASS DIR TARGETS)
(defalias 'ede-emacs-find-matching-target #[771 "\300
\211\203#\211@\301
\"\203\302
\303\"\230\203\211\262
A\266\202\202\210\207" [nil object-of-class-p eieio-oref path] 9 (#$ . 6961)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ede-find-target nil ((proj ede-emacs-project) buffer) #[514 "\301\302!!\211\204
\303\202$\304\305\"\203\306\202$\304\307\"\203#\310\202$\303\311\312\"\313#\211\204K\314\315\316\317!!\320\321\322&\262
\323\324#\210\207" [default-directory file-name-extension buffer-file-name ede-emacs-target-misc string-match "c\\|h" ede-emacs-target-c "elc?" ede-emacs-target-el eieio-oref targets ede-emacs-find-matching-target make-instance :name file-name-nondirectory directory-file-name :path :source nil object-add-to-list :targets] 15 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory.\n\n(fn PROJ BUFFER)"] ede-preprocessor-map ((this ede-emacs-target-c)) #[257 "\300\301!\210\302
!\303
!\304\305\306\"!\304\305\307\"!\310\203.\311!\203%\312!\210\313\310\314\315\"\"\262

\203E\311!\203<\312!\210\313
\314\315\"\"\262
\207" [require semantic/db ede-target-parent ede-project-root semanticdb-file-table-object ede-expand-filename "lisp.h" "config.h" nil semanticdb-needs-refresh-p semanticdb-refresh-table append eieio-oref lexical-table] 11 "Get the pre-processor map for Emacs C code.\nAll files need the macros from lisp.h!\n\n(fn THIS)"]] 6)
#@67 Find NAME is BASE directory sublist of DIRS.

(fn NAME BASE DIRS)
(defalias 'ede-emacs-find-in-directories #[771 "\300
\203_\211\204_
@\301
\"\301\"\302!\203V\302
!\203&\211\262\202V\303\304\"\300
\211\203K\211@\305
!\203D\306\307\"\204D\211B\262
A\266\202\202,\210\310	#\262\266A\262\266\202
\207" [nil expand-file-name file-exists-p directory-files t file-directory-p string-match "\\.$" ede-emacs-find-in-directories] 14 (#$ . 8579)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312!\207" [cl-generic-define-method ede-expand-filename-impl nil ((proj ede-emacs-project) name) t #[771 "\300
!\301!\302
!\204\303\2023\304\305\"\203\306\2023\304\307\"\203'\310\2023\304\311\"\2032\312\2023\303\211\204; \207\313#\207" [file-name-extension ede-project-root ede-project-root-directory nil string-match "h\\|c" ("src" "lib-src" "lwlib") "elc?" ("lisp") "texi" ("doc") ede-emacs-find-in-directories] 11 "Within this project PROJ, find the file NAME.\nKnows about how the Emacs source tree is organized.\n\n(fn CL--CNM PROJ NAME)"] project-rescan ((this ede-emacs-project)) #[257 "\300\301!!\302\303@#\210\302\304A#\207" [ede-emacs-version ede-project-root-directory eieio-oset name version] 6 "Rescan this Emacs project from the sources.\n\n(fn THIS)"] provide ede/emacs] 6)