Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/source.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)
#@53 Create a new object of class type `ede-sourcecode'.
(defalias 'ede-sourcecode #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-sourcecode] 4 (#$ . 2132)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-sourcecode compiler-macro ede-sourcecode--anon-cmacro] 4)
(defalias 'ede-sourcecode--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
#@39 The master list of all EDE compilers.
(defvar ede-sourcecode-list nil (#$ . 2642))
(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 #[(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 "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) #[(this filename) "\302 \"\206 \303 \"\207" [this filename ede-want-file-source-p ede-want-file-auxiliary-p] 3 "Return non-nil if sourcecode definition THIS will take FILENAME."] ede-want-file-source-p ((this ede-sourcecode) filename) #[(this filename) "\303\304\305 \306\"\n\")\207" [case-fold-search this filename nil string-match eieio-oref sourcepattern] 4 "Return non-nil if THIS will take FILENAME as an auxiliary ."] ede-want-file-auxiliary-p ((this ede-sourcecode) filename) #[(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 ((this ede-sourcecode) filenames) #[(this filenames) "\303 \203 \304\n \211A\242\"\211\203 )\207" [found filenames this nil ede-want-file-source-p] 5 "Return non-nil if THIS will accept any source files in FILENAMES."] ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames) #[(this filenames) "\303 \203 \304\n \211A\242\"\211\203 )\207" [found filenames this nil ede-want-file-auxiliary-p] 5 "Return non-nil if THIS will accept any aux files in FILENAMES."] ede-want-any-files-p ((this ede-sourcecode) filenames) #[(this filenames) "\303 \203 \304\n \211A\242\"\211\203 )\207" [found filenames this nil ede-want-file-p] 5 "Return non-nil if THIS will accept any files in FILENAMES."] ede-buffer-header-file ((this ede-sourcecode) filename) #[(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 "Return a list of file names of header files for THIS with FILENAME.\nUsed to guess header files, but uses the auxsource regular expression."]] 6)
#@32 Scheme source code definition.
(defvar ede-source-scheme (ede-sourcecode :name "Scheme" :sourcepattern "\\.scm$") (#$ . 5303))
(provide 'ede/source)
Mini Shell