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



(byte-code "\300\301!\210\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\316\305\317\320\321$\207" [require eieio-base defalias ede-sourcecode-p eieio-make-class-predicate ede-sourcecode ede-sourcecode--eieio-childp eieio-make-child-predicate ede-sourcecode-child-p make-obsolete "use (cl-typep ... \\='ede-sourcecode) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-instance-inheritor) ((name :initarg :name :type string :documentation "The name of this type of source code.\nSuch as \"C\" or \"Emacs Lisp\"") (sourcepattern :initarg :sourcepattern :initform ".*" :type string :documentation "Emacs regexp matching sourcecode this target accepts.") (auxsourcepattern :initarg :auxsourcepattern :initform nil :type (or null string) :documentation "Emacs regexp matching auxiliary source code this target accepts.\nAux source are source code files needed for compilation, which are not compiled\nthemselves.") (enable-subdirectories :initarg :enable-subdirectories :initform nil :type boolean :documentation "Non nil if this sourcecode type uses subdirectories.\nIf sourcecode always lives near the target creating it, this should be nil.\nIf sourcecode can, or typically lives in a subdirectory of the owning\ntarget, set this to t.") (garbagepattern :initarg :garbagepattern :initform nil :type list :documentation "Shell file regexp matching files considered as garbage.\nThis is a list of items added to an `rm' command when executing a `clean'\ntype directive.")) (:documentation "Description of some type of source code.\nObjects will use sourcecode objects to define the types of source\nthat they are willing to use.")] 6)
#@71 Create a new object of class type `ede-sourcecode'.

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

(fn WHOLE &rest SLOTS)
(defalias 'ede-sourcecode--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 (#$ . 2105)])
#@39 The master list of all EDE compilers.
(defvar ede-sourcecode-list nil (#$ . 2337))
(byte-code "\300\301\302\303\304\305%\210\300\306\304\307\304\310%\210\300\311\304\312\304\313%\210\300\314\304\315\304\316%\210\300\317\304\320\304\321%\210\300\322\304\323\304\324%\210\300\325\304\326\304\327%\210\300\330\304\331\304\332%\207" [cl-generic-define-method initialize-instance (:after) ((this ede-sourcecode) &rest _fields) nil #[385 "\211\203\301\302\"\301@\302\"\230\204\211A\262
\202
\211\203!\211\240\207B\211\207" [ede-sourcecode-list eieio-oref name] 7 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"] ede-want-file-p ((this ede-sourcecode) filename) #[514 "\300\"\206\301\"\207" [ede-want-file-source-p ede-want-file-auxiliary-p] 5 "Return non-nil if sourcecode definition THIS will take FILENAME.\n\n(fn THIS FILENAME)"] ede-want-file-source-p ((this ede-sourcecode) filename) #[514 "\301\302\303\304\"\")\207" [case-fold-search nil string-match eieio-oref sourcepattern] 6 "Return non-nil if THIS will take FILENAME as an auxiliary.\n\n(fn THIS FILENAME)"] ede-want-file-auxiliary-p ((this ede-sourcecode) filename) #[514 "\301\302\303\"\205\304\303\"\205\305\304\303\"\")\207" [case-fold-search nil slot-boundp auxsourcepattern eieio-oref string-match] 6 "Return non-nil if THIS will take FILENAME as an auxiliary.\n\n(fn THIS FILENAME)"] ede-want-any-source-files-p ((this ede-sourcecode) filenames) #[514 "\300\211\204
\203\301\211A\262\242\"\262
\202
\207" [nil ede-want-file-source-p] 7 "Return non-nil if THIS will accept any source files in FILENAMES.\n\n(fn THIS FILENAMES)"] ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames) #[514 "\300\211\204
\203\301\211A\262\242\"\262
\202
\207" [nil ede-want-file-auxiliary-p] 7 "Return non-nil if THIS will accept any aux files in FILENAMES.\n\n(fn THIS FILENAMES)"] ede-want-any-files-p ((this ede-sourcecode) filenames) #[514 "\300\211\204
\203\301\211A\262\242\"\262
\202
\207" [nil ede-want-file-p] 7 "Return non-nil if THIS will accept any files in FILENAMES.\n\n(fn THIS FILENAMES)"] ede-buffer-header-file ((this ede-sourcecode) filename) #[514 "\300
!\301\302!!\303\304\"\211\205\305\306\307!P#\207" [file-name-directory file-name-sans-extension file-name-nondirectory eieio-oref auxsourcepattern directory-files t regexp-quote] 10 "Return a list of file names of header files for THIS with FILENAME.\nUsed to guess header files, but uses the auxsource regular expression.\n\n(fn THIS FILENAME)"]] 6)
#@32 Scheme source code definition.
(defvar ede-source-scheme (ede-sourcecode :name "Scheme" :sourcepattern "\\.scm$") (#$ . 4941))
(provide 'ede/source)