;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:03 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/auto.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$\210\307\310\311\310\312\"\"\210\313\310\304\303\314$\210\307\315\311\315\316\"\"\210\313\315\304\303\317$\210\302\320\304\321\322$\207" [require eieio eieio-defclass ede-project-autoload-dirmatch nil ((fromconfig :initarg :fromconfig :initform nil :documentation "A config file within which the match pattern lives.") (configregex :initarg :configregex :initform nil :documentation "A regexp to identify the dirmatch pattern.") (configregexidx :initarg :configregexidx :initform nil :documentation "An index into the match-data of `configregex'.") (configdatastash :initform nil :documentation "Save discovered match string.")) ("Support complex matches for projects that live in named directories.\nFor most cases, a simple string is sufficient.  If, however, a project\nlocation is varied dependent on other complex criteria, this class\ncan be used to define that match without loading the specific project\ninto memory.") eieio--defalias ede-dirmatch-installed eieio--defgeneric-init-form #1="Return non-nil if the tool DIRMATCH might match is installed on the system." eieio--defmethod #[(dirmatch) "\302\303\"\211;\203\304	!\202\305\306!)\207" [dirmatch fc eieio-oref fromconfig file-exists-p error "Unknown dirmatch type."] 4 #1#] ede-do-dirmatch #2="Does DIRMATCH match the filename FILE." #[(dirmatch file) "\306\307\"\211;\203a\310	!\205d\306\311\"\211\204Rr\312	!\313\314	!)\211q\210\212eb\210\315\306\316\"\313\317#\203B\320\306\321\"\206@\322!)\204K\323
!\210+\324\311\n#\210\n\205]\325\326\n!\")\202d\327\330!)\207" [dirmatch fc matchstring buff find-file-hook readbuff eieio-oref fromconfig file-exists-p configdatastash get-file-buffer nil find-file-noselect re-search-forward configregex t match-string configregexidx 0 kill-buffer eieio-oset string-match regexp-quote error "Unknown dirmatch object match style." file] 5 #2#] ede-project-autoload ((name :initarg :name :documentation "Name of this project type") (file :initarg :file :documentation "The lisp file belonging to this class.") (proj-file :initarg :proj-file :documentation "Name of a project file of this type.") (proj-root-dirmatch :initarg :proj-root-dirmatch :initform "" :type (or string ede-project-autoload-dirmatch) :documentation "To avoid loading a project, check if the directory matches this.\nFor projects that use directory name matches, a function would load that project.\nSpecifying this matcher will allow EDE to check without loading the project.") (proj-root :initarg :proj-root :type function :documentation "A function symbol to call for the project root.\nThis function takes no arguments, and returns the current directories\nroot, if available.  Leave blank to use the EDE directory walking\nroutine instead.") (initializers :initarg :initializers :initform nil :documentation "Initializers passed to the project object.\nThese are used so there can be multiple types of projects\nassociated with a single object class, based on the initializers used.") (load-type :initarg :load-type :documentation "Fn symbol used to load this project file.") (class-sym :initarg :class-sym :documentation "Symbol representing the project class to use.") (generic-p :initform nil :documentation "Generic projects are added to the project list at the end.\nThe add routine will set this to non-nil so that future non-generic placement will\nbe successful.") (new-p :initarg :new-p :initform t :documentation "Non-nil if this is an option when a user creates a project.") (safe-p :initarg :safe-p :initform t :documentation "Non-nil if the project load files are \"safe\".\nAn unsafe project is one that loads project variables via Emacs\nLisp code.  A safe project is one that loads project variables by\nscanning files without loading Lisp code from them.")) ("Class representing minimal knowledge set to run preliminary EDE functions.\nWhen more advanced functionality is needed from a project type, that projects\ntype is required and the load function used.")] 5)
#@72 List of vectors defining how to determine what type of projects exist.
(defvar ede-project-class-files (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315&
\300\316\302\317\304\305\306\307\320\321\310\311\312\313\314\315&\300\322\302\322\304\323\306\324\310\325\312\326\327\315\314\330&E\207" [ede-project-autoload "edeproject-makefile" :name "Make" :file ede/proj :proj-file "Project.ede" :load-type ede-proj-load :class-sym ede-proj-project :safe-p nil "edeproject-automake" "Automake" :initializers (:makefile-type Makefile\.am) "automake" ede/project-am "Makefile.am" project-am-load project-am-makefile :new-p t] 18) (#$ . 4590))
(put 'ede-project-class-files 'risky-local-variable t)
#@378 Add PROJAUTO, an EDE autoload definition to `ede-project-class-files'.
Optional argument FLAG indicates how this autoload should be
added.  Possible values are:
  'generic - A generic project type.  Keep this at the very end.
  'unique - A unique project type for a specific project.  Keep at the very
            front of the list so more generic projects don't get priority.
(defalias 'ede-add-project-autoload #[(projauto &optional flag) "\306	!\211\203\306@!\n\230\204A\211\204\n\203$	\240\202{\f\2036\f\307=\2036	B\211\202{\f\203P\f\310=\203P\311	\312\313#\210\314	C\"\211\202{\315
\203k\316
@\312\"\204k

A\211\204Y\204t\317\320!\210	
B\241**\207" [ede-project-class-files projauto projname projlist flag next object-name-string unique generic eieio-oset generic-p t append nil eieio-oref error "ede-project-class-files not initialized" prev] 5 (#$ . 5306)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias ede-project-root eieio--defgeneric-init-form #1="If a project knows its root, return it here.\nAllows for one-project-object-for-a-tree type systems." eieio--defmethod nil ede-project-autoload #[(this) "\300\207" [nil] 1 #1#]] 5)
#@147 Return non-nil if FILE matches DIRMATCH.
DIRMATCH could be nil (no match), a string (regexp match),
or an `ede-project-autoload-dirmatch' object.
(defalias 'ede-project-dirmatch-p #[(file dirmatch) ";\203\n\302	\"\207\303!\203\304	\"\207\305\306!\207" [dirmatch file string-match ede-project-autoload-dirmatch-p ede-do-dirmatch error "Unknown project directory match type."] 3 (#$ . 6532)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\210\316\317!\207" [eieio--defalias ede-project-root-directory eieio--defgeneric-init-form #1="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.  If there is no FILE, use\nthe current buffer." eieio--defmethod nil ede-project-autoload #[(this &optional file) "\204	\306\n\307\"\205T\310\n\311\"\310\n\312\"\313\f\205S\314
!\203.\315
!\204.\316\202K\317\310\n\300\"!\204K
;\203B
\320\230\204K\321
\"\204K\316\205S\316\322\323\217+\207" [file default-directory this callfcn rootfcn dirmatch slot-boundp :proj-root eieio-oref proj-root-dirmatch proj-root t ede-project-autoload-dirmatch-p ede-dirmatch-installed nil featurep #2="" ede-project-dirmatch-p (funcall rootfcn file) ((error (funcall rootfcn)))] 4 #1#] ede-dir-to-projectfile #3="Return a full file name of project THIS found in DIR.\nReturn nil if the project file does not exist." #[(this dir) "\306!\307\n	\"\310\n\311\"\310\n\312\"\f;\203#\313\f\206	\"\202N\f9\205N\314\f!\205N\315\310\n\316\"!\205N
;\203C
\317\230?\205N\205N\f\206M	!\211\205]\320!\205]-\207" [dir d this root pf dm file-name-as-directory ede-project-root-directory eieio-oref proj-file proj-root-dirmatch expand-file-name fboundp featurep file #2# file-exists-p f] 5 #3#] ede-auto-load-project #4="Load in the project associated with THIS project autoload description.\nTHIS project description should be valid for DIR, where the project will\nbe loaded." #[(this dir) "\303\304\"\204\305	!\204\306\307!\210\303\310\"	!\211\204 \306\311!\210\312\n!)\207" [this dir o eieio-oref :safe-p ede-directory-safe-p error "Attempt to load an unsafe project (bug elsewhere in EDE)" load-type "Project type error: :load-type failed to create a project" ede-add-project-to-global-list] 4 #4#] provide ede/auto] 5)