;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/source.el
;;; in Emacs version 24.3.1
;;; 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.

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


(byte-code "\300\301!\210\302\303\304\305\306$\207" [require eieio-base eieio-defclass ede-sourcecode (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.")) ("Description of some type of source code.\nObjects will use sourcecode objects to define the types of source\nthat they are willing to use.")] 5)
#@39 The master list of all EDE compilers.
(defvar ede-sourcecode-list nil (#$ . 1916))
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\312\306\313$\210\300\314\302\314\315\"\"\210\304\314\312\306\316$\210\300\317\302\317\315\"\"\210\304\317\312\306\320$\210\300\321\302\321\322\"\"\210\304\321\312\306\323$\210\300\324\302\324\325\"\"\210\304\324\312\306\326$\210\300\327\302\327\330\"\"\210\304\327\312\306\331$\210\300\332\302\332\333\"\"\210\304\332\312\306\334$\207" [eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Make sure that all ede compiler objects are cached in\n`ede-compiler-list'." eieio--defmethod :AFTER ede-sourcecode #[(this &rest fields) "\211\203\303\n\304\"\303	@\304\"\230\204	A\211\204	\203$	\n\240\202)\nB\211)\207" [ede-sourcecode-list lst this eieio-oref name] 5 #1#] ede-want-file-p #2="Return non-nil if sourcecode definition THIS will take FILENAME." nil #[(this filename) "\302	\"\206\303	\"\207" [this filename ede-want-file-source-p ede-want-file-auxiliary-p] 3 #2#] ede-want-file-source-p #3="Return non-nil if THIS will take FILENAME as an auxiliary ." #[(this filename) "\303\304\305	\306\"\n\")\207" [case-fold-search this filename nil string-match eieio-oref sourcepattern] 4 #3#] ede-want-file-auxiliary-p #[(this filename) "\303\304	\305\"\205\306	\305\"\205\307\306	\305\"\n\")\207" [case-fold-search this filename nil slot-boundp auxsourcepattern eieio-oref string-match] 4 "Return non-nil if THIS will take FILENAME as an auxiliary ."] ede-want-any-source-files-p #4="Return non-nil if THIS will accept any source files in FILENAMES." #[(this filenames) "\303	\203\304\n	\211A@\"\211\203)\207" [found filenames this nil ede-want-file-source-p] 5 #4#] ede-want-any-auxiliary-files-p #5="Return non-nil if THIS will accept any aux files in FILENAMES." #[(this filenames) "\303	\203\304\n	\211A@\"\211\203)\207" [found filenames this nil ede-want-file-auxiliary-p] 5 #5#] ede-want-any-files-p #6="Return non-nil if THIS will accept any files in FILENAMES." #[(this filenames) "\303	\203\304\n	\211A@\"\211\203)\207" [found filenames this nil ede-want-file-p] 5 #6#] ede-buffer-header-file #7="Return a list of file names of header files for THIS with FILENAME.\nUsed to guess header files, but uses the auxsource regular expression." #[(this filename) "\305!\306\307!!\310	\311\"\n\205\312\f\313\314!\nP#+\207" [filename this ae ts dn file-name-directory file-name-sans-extension file-name-nondirectory eieio-oref auxsourcepattern directory-files t regexp-quote] 5 #7#]] 5)
#@32 Scheme source code definition.
(defvar ede-source-scheme (ede-sourcecode "ede-source-scheme" :name "Scheme" :sourcepattern "\\.scm$") (#$ . 4561))
(provide 'ede/source)