| Current Path : /usr/share/emacs/24.3/lisp/cedet/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/cedet/ede.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:02 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312#\207" [require cedet eieio eieio-speedbar ede/source ede/base ede/auto load "ede/loaddefs" nil nomessage] 4)
#@35 Current version of the Emacs EDE.
(defconst ede-version "1.2" (#$ . 768))
#@45 Display the current running version of EDE.
(defalias 'ede-version #[nil "\301\302\"\207" [ede-version message "EDE %s"] 3 (#$ . 848) nil])
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301\313\314&\210\307\315\316\317\304\301\313\320&\210\307\321\302\322\304\301\313\323\324\325\326\327& \207" [custom-declare-group ede nil "Emacs Development Environment." :group tools extensions custom-declare-variable ede-auto-add-method 'ask "Whether a new source file should be automatically added to a target.\nWhenever a new file is encountered in a directory controlled by a\nproject file, all targets are queried to see if it should be added.\nIf the value is 'always, then the new file is added to the first\ntarget encountered. If the value is 'multi-ask, then if more than one\ntarget wants the file, the user is asked. If only one target wants\nthe file, then it is automatically added to that target. If the\nvalue is 'ask, then the user is always asked, unless there is no\ntarget willing to take the file. 'never means never perform the check." :type (choice (const always) (const multi-ask) (const ask) (const never)) ede-debug-program-function 'gdb "Default Emacs command used to debug a target." sexp ede-project-directories "Directories in which EDE may search for project files.\nIf the value is t, EDE may search in any directory.\n\nIf the value is a function, EDE calls that function with one\nargument, the directory name; the function should return t iff\nEDE should look for project files in the directory.\n\nOtherwise, the value should be a list of fully-expanded directory\nnames. EDE searches for project files only in those directories.\nIf you invoke the commands \\[ede] or \\[ede-new] on a directory\nthat is not listed, Emacs will offer to add it to the list.\n\nAny other value disables searching for EDE project files." (choice (const :tag "Any directory" t) (repeat :tag "List of directories" (directory)) (function :tag "Predicate")) :version "23.4" :risky t] 12)
#@300 Return non-nil if DIR is a safe directory to load projects from.
Projects that do not load a project definition as Emacs Lisp code
are safe, and can be loaded automatically. Other project types,
such as those created with Project.ede files, are safe only if
specified by `ede-project-directories'.
(defalias 'ede-directory-safe-p #[(dir) "\302\303!! \304=\206 \305 !\203 !\206 <\205 \235\207" [dir ede-project-directories directory-file-name expand-file-name t functionp] 3 (#$ . 2877)])
#@58 A list of all active projects currently loaded in Emacs.
(defvar ede-projects nil (#$ . 3383))
#@140 The current buffer's current root project.
If a file is under a project, this specifies the project that is at
the root of a project tree.
(defvar ede-object-root-project nil (#$ . 3485))
(make-variable-buffer-local 'ede-object-root-project)
#@144 The current buffer's current project at that level.
If a file is under a project, this specifies the project that contains the
current target.
(defvar ede-object-project nil (#$ . 3734))
(make-variable-buffer-local 'ede-object-project)
#@108 The current buffer's target object.
This object's class determines how to compile and debug from a buffer.
(defvar ede-object nil (#$ . 3977))
(make-variable-buffer-local 'ede-object)
#@115 The currently user-selected project or target.
If `ede-object' is nil, then commands will operate on this object.
(defvar ede-selected-object nil (#$ . 4168))
#@152 Non nil when constructing a project hierarchy.
If the project is being constructed from an autoload, then the
value is the autoload object being used.
(defvar ede-constructing nil (#$ . 4334))
#@132 Non nil means scan down a tree, otherwise rescans are top level only.
Do not set this to non-nil globally. It is used internally.
(defvar ede-deep-rescan nil (#$ . 4534))
#@63 Using PROMPT, choose a single object from the current buffer.
(defalias 'ede-singular-object #[(prompt) "<\203\n \302 \"\207\207" [ede-object prompt ede-choose-object] 3 (#$ . 4712)])
#@130 Using PROMPT, ask the user which OBJECT to use based on the name field.
Argument LIST-O-O is the list of objects to choose from.
(defalias 'ede-choose-object #[(prompt list-o-o) "\304\305\"\306\n \307\310$\311 \"\211A*\207" [list-o-o al prompt ans object-assoc-list name completing-read nil t assoc] 6 (#$ . 4906)])
#@36 Keymap used in project minor mode.
(defvar ede-minor-mode-map (byte-code "\302 \302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303 \334#\210 *\207" [pmap map make-sparse-keymap define-key "e" ede-edit-file-target "a" ede-add-file "d" ede-remove-file "t" ede-new-target "g" ede-rescan-toplevel "s" ede-speedbar "f" ede-find-file "C" ede-compile-project "c" ede-compile-target "" ede-compile-selected "D" ede-debug-target "R" ede-run-target "."] 4) (#$ . 5233))
#@35 Keymap used in `global-ede-mode'.
(defvar global-ede-mode-map (byte-code "\302 \303\304\305 B#\210)\207" [map cedet-menu-map make-sparse-keymap define-key [menu-bar cedet-menu] "Development"] 5) (#$ . 5878))
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\207" [cedet-menu-map define-key [ede-find-file] (menu-item "Find File in Project..." ede-find-file :enable ede-object :visible global-ede-mode) [ede-speedbar] (menu-item "View Project Tree" ede-speedbar :enable ede-object :visible global-ede-mode) [ede] (menu-item "Load Project" ede :visible global-ede-mode) [ede-new] (menu-item "Create Project" ede-new :enable (not ede-object) :visible global-ede-mode) [ede-target-options] (menu-item "Target Options" ede-target-options :filter ede-target-forms-menu :visible global-ede-mode) [ede-project-options] (menu-item "Project Options" ede-project-options :filter ede-project-forms-menu :visible global-ede-mode) [ede-build-forms-menu] (menu-item "Build Project" ede-build-forms-menu :filter ede-build-forms-menu :enable ede-object :visible global-ede-mode)] 4)
#@63 Return non-nil if this buffer belongs to at least one target.
(defalias 'ede-buffer-belongs-to-target-p #[nil "\211:\203\n @ \205 \303 \n\")\207" [ede-object obj ede-target obj-of-class-p] 4 (#$ . 7038)])
#@64 Return non-nil if this buffer belongs to at least one project.
(defalias 'ede-buffer-belongs-to-project-p #[nil "?\206 :?\205 \303 \n\"\207" [ede-object ede-object-project ede-project obj-of-class-p] 3 (#$ . 7254)])
#@68 Return non-nil if some member of `ede-object' is a child of CLASS.
(defalias 'ede-menu-obj-of-class-p #[(class) "<\203 \302\303\304\305\"B!\207\306 \"\207" [ede-object class eval or mapcar #[(o) "\302 \"\207" [o class obj-of-class-p] 3] obj-of-class-p] 5 (#$ . 7480)])
#@115 Create a sub menu for building different parts of an EDE system.
Argument MENU-DEF is the menu definition to use.
(defalias 'ede-build-forms-menu #[(menu-def) "\306\307\310\311 \312\211\211\211\211 \211 \205\213 \313
\303\"\205 \314
\303\"<\203+ \202. C\315\f\316
\317\"\" \203Y \320!\203Y \203Y \315\f\316 @\317\"\" @ A\211\204F \203\206 @=\204 \316 @\312\"\315\f\nG\321U\203w \n\202} \322 @!\nB\" A\211\204] \315\f\323C\".\"!\207" [tskip ede-obj targitems targets newmenu obj easy-menu-filter-return easy-menu-create-menu "Build Forms" ede-current-project nil slot-boundp eieio-oref append ede-menu-items-build t ede-menu-obj-of-class-p 1 ede-name ["Make distribution" ede-make-dist t] ede-object ede-target] 10 (#$ . 7761)])
#@72 Create a target MENU-DEF based on the object belonging to this buffer.
(defalias 'ede-target-forms-menu #[(menu-def) "\303\304\305\206 \306\307\n\205, \n<\204\" \310\n\311\"\203\" \310\n\311\"\202, \n<\205, \310\n@\311\"\")\"!\207" [ede-selected-object ede-object obj easy-menu-filter-return easy-menu-create-menu "Target Forms" append (["Add File" ede-add-file (and (ede-current-project) (oref (ede-current-project) targets))] ["Remove File" ede-remove-file (ede-buffer-belongs-to-project-p)] "-") eieio-oref menu] 8 (#$ . 8523)])
#@72 Create a target MENU-DEF based on the object belonging to this buffer.
(defalias 'ede-project-forms-menu #[(menu-def) "\303\304\305\306 \211\205
\307!\310\311\312\313\217+\"!\207" [obj class menu easy-menu-filter-return easy-menu-create-menu "Project Forms" ede-current-project object-class nil err (byte-code "\203$ \302\301\"\203$ \303 \304\301\"\"\305!@\211<\203 @\211\204 \303\306 \"\207" [class menu slot-exists-p append eieio-oref class-parents (["Add Target" ede-new-target (ede-current-project)] ["Remove Target" ede-delete-target ede-object] ("Default configuration" :filter ede-configuration-forms-menu) "-")] 6) ((error (message "Err found: %S" err) menu))] 7 (#$ . 9065)])
#@254 Create a submenu for selecting the default configuration for this project.
The current default is in the current object's CONFIGURATION-DEFAULT slot.
All possible configurations are in CONFIGURATIONS.
Argument MENU-DEF specifies the menu being created.
(defalias 'ede-configuration-forms-menu #[(menu-def) "\306\307\310\311 \211\205 \312\313\"\205 \312\314\"\315 \315 \211 \203<
@\316\f\317\fD\320\321\322\f\n\230& B
A\211\204\" * \237,\"!\207" [obj conf cdef menu C --dolist-tail-- easy-menu-filter-return easy-menu-create-menu "Configurations" ede-current-project eieio-oref configurations configuration-default nil vector ede-project-configurations-set :style toggle :selected] 12 (#$ . 9772)])
#@170 Set the current project's current configuration to NEWCONFIG.
This function is designed to be used by `ede-configuration-forms-menu'
but can also be used interactively.
(defalias 'ede-project-configurations-set #[(newconfig) "\301\302 \303#\210\304\305\306\302 !#\207" [newconfig eieio-oset ede-current-project configuration-default message "%s will now build in %s mode." object-name] 4 (#$ . 10491) (list (let* ((proj (ede-current-project)) (configs (eieio-oref proj 'configurations))) (completing-read "New configuration: " configs nil t (eieio-oref proj 'configuration-default))))])
#@124 Create a menu of the project, and targets that can be customized.
Argument MENU-DEF is the definition of the current menu.
(defalias 'ede-customize-forms-menu #[(menu-def) "\302\303\304\305 \306\205- \205 \307\310\"\205 \311\310\"\312\313\314!P\315!B\316D\317\320 \"\"*\"!\207" [obj targ easy-menu-filter-return easy-menu-create-menu "Customize Project" ede-current-project nil slot-boundp targets eieio-oref append "Project " ede-name eieio-customize-object-group ["Reorder Targets" ede-project-sort-targets t] mapcar #[(o) "\301\302!P\303!B\207" [o "Target " ede-name eieio-customize-object-group] 3]] 8 (#$ . 11087)])
#@149 Add target specific keybindings into the local map.
Optional argument DEFAULT indicates if this should be set to the default
version of the keymap.
(defalias 'ede-apply-object-keymap #[(&optional default) "\206 \n \305\306\307\217*\207" [ede-object ede-selected-object ede-object-project proj object nil (byte-code "\303!\n=\204 \304 \303\n!\" \205( \305\306 @@P @A\"\210 A\211\204 \307)\207" [object keys proj ede-object-keybindings append local-set-key "." nil] 5) ((error))] 3 (#$ . 11728)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\310\"\"\210\304\301\305\311\312$\207" [eieio--defalias ede-menu-items-build eieio--defgeneric-init-form #1="Return a list of menu items for building project OBJ.\nIf optional argument CURRENT is non-nil, return sub-menu code." eieio--defmethod nil ede-project #[(obj &optional current) "\203 \302C\207\303\304\305 !P\306 DD!C\207" [current obj ["Build Current Project" ede-compile-project t] vector "Build Project " ede-name project-compile-project] 4 #1#] #2="Return a list of menu items for building target OBJ.\nIf optional argument CURRENT is non-nil, return sub-menu code." ede-target #[(obj &optional current) "\203 \302C\207\303\304\305 !P\306 D\307#C\207" [current obj ["Build Current Target" ede-compile-target t] vector "Build Target " ede-name project-compile-target t] 4 #2#]] 5)
#@24 EDE commands for dired
(autoload 'ede-dired-minor-mode "ede/dired" '(#$ . 13119) t)
#@68 Apply options to the current buffer for the active project/target.
(defalias 'ede-apply-target-options #[nil "\300 \210\301 \210\302 \207" [ede-apply-project-local-variables ede-apply-object-keymap ede-apply-preprocessor-map] 1 (#$ . 13209)])
#@87 Turn on EDE minor mode in the current buffer if needed.
To be used in hook functions.
(defalias 'ede-turn-on-hook #[nil "\302 ;\203 ;\204 \303=\204 \304=\205 \305\306!\207" [default-directory major-mode buffer-file-name dired-mode vc-dired-mode ede-minor-mode 1] 2 (#$ . 13458)])
#@97 Non-nil if Ede minor mode is enabled.
Use the command `ede-minor-mode' to change this variable.
(defvar ede-minor-mode nil (#$ . 13751))
(make-variable-buffer-local 'ede-minor-mode)
#@383 Toggle EDE (Emacs Development Environment) minor mode.
With a prefix argument ARG, enable EDE minor mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
EDE minor mode if ARG is omitted or nil.
If this file is contained, or could be contained in an EDE
controlled project, then this mode is activated automatically
provided `global-ede-mode' is enabled.
(defalias 'ede-minor-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V \311=\204 \312=\203/ \313\n\203) \314\202* \315!\210\202A \n\203A \f\204= \316 \210\202A \302\315!\210\317\320\n\203K \321\202L \322\"\210\323\324!\203m \305 \203` \305 \232\203m \325\326\n\203j \327\202k \330\"\210)\331 \210\n\207" [#1=#:last-message arg ede-minor-mode major-mode ede-constructing current-message toggle prefix-numeric-value 0 dired-mode vc-dired-mode ede-dired-minor-mode 1 -1 ede-initialize-state-current-buffer run-hooks ede-minor-mode-hook ede-minor-mode-on-hook ede-minor-mode-off-hook called-interactively-p any message "Ede minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 13940) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [ede-minor-mode-map add-minor-mode ede-minor-mode nil boundp] 6)
#@85 Initialize the current buffer's state for EDE.
Sets buffer local variables for EDE.
(defalias 'ede-initialize-state-current-buffer #[nil "\306\307 \300\"\306\n\204 \204 \310 \311\"\211\205Z \n\2049 \2039 \312 \313\"\2044 \314 ! \315\f!)\2039 \316 \300\"\n\205Z \317p\320\"\206J \321!
\204X \203X \322 \210\323 +\207" [ROOT default-directory proj projauto top ede-object nil ede-directory-get-open-project ede-directory-project-p t eieio-oref safe-p ede-toplevel-project ede-directory-safe-p ede-load-project-file ede-buffer-object ede-object-project ede-project-root ede-auto-add-to-target ede-apply-target-options ede-object-root-project] 3 (#$ . 15197)])
#@45 Reset all the buffers due to change in EDE.
(defalias 'ede-reset-all-buffers #[nil "\304 \211\205% \305@!\203 r@q\210\306\211\306\307 \210)A\211\204 \306)\207" [b ede-object ede-object-project ede-object-root-project buffer-list buffer-file-name nil ede-initialize-state-current-buffer] 3 (#$ . 15877) nil])
#@266 Non-nil if Global-Ede mode is enabled.
See the command `global-ede-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-ede-mode'.
(custom-declare-variable 'global-ede-mode nil '(#$ . 16202) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'ede :type 'boolean)
#@312 Toggle global EDE (Emacs Development Environment) mode.
With a prefix argument ARG, enable global EDE mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
This global minor mode enables `ede-minor-mode' in all buffers in
an EDE controlled project.
(defalias 'global-ede-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203I \203\" \311\f\312\313#\210\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\314\323\324\"\210\314\325\324\"\210\314\326\327\"\210\330 \210\331 \210\202s \311\f\332\333#\210\334\315\316\"\210\334\317\320\"\210\334\321\322\"\210\334\323\324\"\210\334\325\324\"\210\334\326\327\"\210\327 \210\331 \210\335\336\n\203} \337\202~ \340\"\210\341\342!\203\243 \343\302!\210\305 \203\226 \305 \232\203\243 \344\345\n\203\240 \346\202\241 \347\"\210)\350 \210\n\207" [#1=#:last-message arg global-ede-mode semantic-mode cedet-menu-map current-message toggle prefix-numeric-value 0 define-key [cedet-menu-separator] ("--") add-hook semanticdb-project-predicate-functions ede-directory-project-p semanticdb-project-root-functions ede-toplevel-project-or-nil ecb-source-path-functions ede-ecb-project-paths find-file-hook ede-turn-on-hook dired-mode-hook kill-emacs-hook ede-save-cache ede-load-cache ede-reset-all-buffers [cedet-menu-separator] nil remove-hook run-hooks global-ede-mode-hook global-ede-mode-on-hook global-ede-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Ede mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 16629) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-ede-mode-map add-minor-mode global-ede-mode nil boundp] 6)
#@58 List of file name patters that EDE will never ask about.
(defvar ede-ignored-file-alist '("\\.cvsignore$" "\\.#" "~$") (#$ . 18374))
#@28 Should we ignore FILENAME?
(defalias 'ede-ignore-file #[(filename) "\304\n\204 \203 \305 @ \"\203 \306 A\202 \n*\207" [ede-ignored-file-alist F any filename nil string-match t] 3 (#$ . 18513)])
#@171 Look for a target that wants to own the current file.
Follow the preference set with `ede-auto-add-method' and get the list
of objects with the `ede-want-file-p' method.
(defalias 'ede-auto-add-to-target #[nil "\203\n \306\307\310 \"\210 \311=\206 \312\313 !?\205\265 \314\211\315\316 \317\"\211\203; \320 @\313 \"\2034 @\nB A\211\204& \n\205\264 \321=\204R \322=\203\231 \323\nGW\203\231 \324\325\326\f!?\205\\ \327\330\331\n\"# \332 %\333\334\335\313 \"
\314\332$ &\336&
\"&\314\337\340\217\203\207 \341&A!\202\225 &A\342=\203\224 \343 \202\225 \314+\202\264 \344=\204\254 \322=\203\263 \nG\323U\203\263 \341\n@!\202\264 \314*\207" [ede-object ede-auto-add-method desires wants default-directory al error "ede-object already defined for %s" buffer-name never ede-ignore-file buffer-file-name nil eieio-oref ede-current-project targets ede-want-file-p ask multi-ask 1 append (("none") ("new target" . new)) ede-directory-project-p (("create subproject" . project)) object-assoc-list name t completing-read format "Add %s to target: " assoc (byte-code "A\211\302H\303=\205 \304\305\306\217)\207" [ans tobj 0 object nil (byte-code " H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error)) ede-add-file new ede-new-target always case-fold-search ans] 7 (#$ . 18724)])
#@120 Start up EDE for directory DIR.
If DIR has an existing project file, load it.
Otherwise, create a new project for DIR.
(defalias 'ede #[(dir) "\302!\204 \303\304\"\210\305!\203 \303\306\"\210\307!\2032 \310!\210\311!\203) \312 \207\313!\314\315!)\207\303\316\"\207" [dir default-directory file-directory-p error "%s is not a directory" ede-directory-get-open-project "%s already has an open project associated with it" ede-check-project-directory ede-load-project-file ede-current-project ede-reset-all-buffers expand-file-name call-interactively ede-new "%s is not an allowed project directory in `ede-project-directories'"] 3 (#$ . 20064) (let* ((top (ede-toplevel-project default-directory)) (promptdflt (or top default-directory))) (list (read-directory-name "Project directory: " promptdflt promptdflt t)))])
#@238 Check if DIR should be in `ede-project-directories'.
If it is not, try asking the user if it should be added; if so,
add it and save `ede-project-directories' via Customize.
Return nil iff DIR should not be in `ede-project-directories'.
(defalias 'ede-check-project-directory #[(dir) "\305\306!! \307=\206A \310 !\203 !\206A <\205A \235\206A \311\312\313\"!\205A B\n\2048 \203@ \314 \315\301 \"\210)\307\207" [dir ede-project-directories custom-file user-init-file coding-system-for-read directory-file-name expand-file-name t functionp y-or-n-p format "`%s' is not listed in `ede-project-directories'.\nAdd it to the list of allowed project directories? " nil customize-save-variable] 4 (#$ . 20897)])
#@112 Create a new project starting from project type TYPE.
Optional argument NAME is the name to give this project.
(defalias 'ede-new #[(type &optional name) "\306\307!\210\310!\204 \311\312\"\210\313!\204 \311\314\"\210\315!\204% \311\316\"\210\315!\210\317 \320\n#\321 \322\"\321 \323\" \324!\210\306
!\210\325\321 \326\"\327\206O \330\331!\332\333\f;\203] \334\f!\202l \335\f!\203h \f \202l \311\336\f\"\337\340& * +\321 \341\" ,\342+\321+\327\"\"\210,\203\236 \343+,@,A@#\210,AA\211,\204\210 \344 \211 -\203\262 \345-+\"\210\346-!\210)\346+!\210+\347!\210\350.\351\352!\207" [default-directory type ede-project-class-files obj pf f require ede/custom file-exists-p error "Cannot create project in non-existent directory %s" file-writable-p "No write permissions for %s" ede-check-project-directory "%s is not an allowed project directory in `ede-project-directories'" object-assoc name eieio-oref file proj-file ede-project-directory-remove-hash make-instance class-sym :name read-string "Name: " :directory :file expand-file-name fboundp "Unknown file name specifier %S" :targets nil initializers object-set-name-string eieio-oset ede-parent-project ede-add-subproject ede-commit-project ede-load-project-file t message "Project created and saved. You may now create targets." nobj inits pp ede-minor-mode] 11 (#$ . 21620) (list (completing-read "Project Type: " (object-assoc-list 'name (let* ((l ede-project-class-files) (cp (ede-current-project)) (cs (if cp (progn (object-class cp)))) (r nil)) (while l (if cs (if (eq (eieio-oref (car l) ':class-sym) cs) (setq r (cons (car l) r))) (if (eieio-oref (car l) 'new-p) (setq r (cons (car l) r)))) (setq l (cdr l))) (if (not r) (progn (if cs (error "No valid interactive sub project types for %s" cs) (error "EDE error: Can't fin project types to create")))) r)) nil t))])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias ede-add-subproject eieio--defgeneric-init-form #1="Add into PROJ-A, the subproject PROJ-B." eieio--defmethod nil ede-project #[(proj-a proj-b) "\302\303 \304\303\"B#\207" [proj-a proj-b eieio-oset subproj eieio-oref] 7 #1#]] 5)
#@112 Invoke method SYM on the current buffer's project object.
ARGS are additional arguments to pass to method SYM.
(defalias 'ede-invoke-method #[(sym &rest args) "\204
\303\304\305 !\306 #\210\307 \310\311!\n#\207" [ede-object sym args error "Cannot invoke %s for %s" symbol-name buffer-name apply ede-singular-object "Target: "] 4 (#$ . 23793)])
#@27 Rescan all project files.
(defalias 'ede-rescan-toplevel #[nil "\303!\204\n \304\305!\207\306!\307\310\311\n!!\210\312 *\207" [default-directory ede-deep-rescan toppath ede-directory-get-open-project error "Attempt to rescan a project that isn't open" ede-toplevel-project t project-rescan ede-load-project-file ede-reset-all-buffers] 3 (#$ . 24145) nil])
#@259 Create a new target specific to this type of project file.
Different projects accept different arguments ARGS.
Typically you can specify NAME, target TYPE, and AUTOADD, where AUTOADD is
a string "y" or "n", which answers the y/n question done interactively.
(defalias 'ede-new-target #[(&rest args) "\303\304\305 #\210 \205 \306 !?\205 \307\310p!\311 \207" [args buffer-file-name ede-object apply project-new-target ede-current-project file-directory-p nil ede-buffer-object ede-apply-target-options] 4 (#$ . 24512) nil])
#@60 Create a new target specific to this type of project file.
(defalias 'ede-new-target-custom #[nil "\300\301 !\207" [project-new-target-custom ede-current-project] 2 (#$ . 25045) nil])
#@41 Delete TARGET from the current project.
(defalias 'ede-delete-target #[(target) "\303!\304!\210\212 \203 @q\210\305\306p! A\211\204
)\307 )\207" [target condemned ede-object ede-target-buffers project-delete-target nil ede-buffer-object ede-apply-target-options] 3 (#$ . 25235) (list (let ((ede-object (ede-current-project))) (ede-invoke-method 'project-interactive-select-target "Target: ")))])
#@60 Add the current buffer to a TARGET in the current project.
(defalias 'ede-add-file #[(target) ";\203 \304 \305\306\307 \310\"\"\311\n\"A*\204 \312\313\"\210\314\315 \"\210\316\317 \210 \204: \312\320\321\315 !\322!#\210\323 \207" [target proj ob ede-object ede-current-project object-assoc-list name eieio-oref targets assoc error "Could not find specified target %S" project-add-file buffer-file-name nil ede-initialize-state-current-buffer "Can't add %s to target %s: Wrong file type" file-name-nondirectory object-name ede-apply-target-options] 5 (#$ . 25646) (list (let ((ede-object (ede-current-project))) (ede-invoke-method 'project-interactive-select-target "Target: ")))])
#@109 Remove the current file from targets.
Optional argument FORCE forces the file to be removed without asking.
(defalias 'ede-remove-file #[(&optional force) "\204\n \303\304\305 \"\210<\203 \306\202 C\211\203: \204, \307\310\311\312\n@!\"!\2033 \313\n@\314 \"\210\nA\211\204 \306\315p!\316 )\207" [ede-object force eo error "Cannot invoke remove-file for %s" buffer-name nil y-or-n-p format "Remove from %s? " ede-name project-remove-file buffer-file-name ede-buffer-object ede-apply-target-options] 6 (#$ . 26346) "P"])
#@66 Enter the project file to hand edit the current buffer's target.
(defalias 'ede-edit-file-target #[nil "\300\301!\207" [ede-invoke-method project-edit-file-target] 2 (#$ . 26884) nil])
#@30 Compile the current project.
(defalias 'ede-compile-project #[nil "\302 \303!\203 \303!\202 \304\305!*\207" [cp ede-object ede-current-project ede-parent-project ede-invoke-method project-compile-project] 2 (#$ . 27075) nil])
#@47 Compile some TARGET from the current project.
(defalias 'ede-compile-selected #[(target) "\301!\207" [target project-compile-target] 2 (#$ . 27315) (list (project-interactive-select-target (ede-current-project) "Target to Build: "))])
#@49 Compile the current buffer's associated target.
(defalias 'ede-compile-target #[nil "\300\301!\207" [ede-invoke-method project-compile-target] 2 (#$ . 27557) nil])
#@47 Debug the current buffer's associated target.
(defalias 'ede-debug-target #[nil "\300\301!\207" [ede-invoke-method project-debug-target] 2 (#$ . 27727) nil])
#@45 Run the current buffer's associated target.
(defalias 'ede-run-target #[nil "\300\301!\207" [ede-invoke-method project-run-target] 2 (#$ . 27891) nil])
#@49 Create a distribution from the current project.
(defalias 'ede-make-dist #[nil "\301 \302\303!)\207" [ede-object ede-toplevel ede-invoke-method project-make-dist] 2 (#$ . 28049) nil])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\310\"\"\210\304\301\305\311\312$\210\300\313\302\313\303\"\"\210\304\313\305\306\314$\210\300\313\302\313\315\"\"\210\304\313\305\316\317$\210\300\320\302\320\321\"\"\210\304\320\305\316\322$\210\300\323\302\323\324\"\"\210\304\323\305\316\325$\210\300\326\302\326\327\"\"\210\304\326\305\311\330$\210\300\331\302\331\327\"\"\210\304\331\305\311\332$\210\300\333\302\333\334\"\"\210\304\333\305\316\335$\210\300\336\302\336\337\"\"\210\304\336\305\311\340$\210\300\341\302\341\342\"\"\210\304\341\305\316\343$\210\300\344\302\344\345\"\"\210\304\344\305\316\346$\210\300\347\302\347\350\"\"\210\304\347\305\316\351$\210\300\352\302\352\353\"\"\210\304\352\305\311\354$\210\300\355\302\355\356\"\"\210\304\355\305\311\357$\210\300\360\302\360\361\"\"\210\304\360\305\311\362$\207" [eieio--defalias project-interactive-select-target eieio--defgeneric-init-form #1="Make sure placeholder THIS is replaced with the real thing, and pass through." eieio--defmethod nil ede-project-placeholder #[(this prompt) "\302 \"\207" [this prompt project-interactive-select-target] 3 #1#] #2="Interactively query for a target that exists in project THIS.\nArgument PROMPT is the prompt to use when querying the user for a target." ede-project #[(this prompt) "\303\304\305\306\"\"\307\310\n \311\312$ \"A)\207" [this ob prompt object-assoc-list name eieio-oref targets assoc completing-read nil t] 6 #2#] project-add-file #[(this file) "\302 \"\207" [this file project-add-file] 3 "Make sure placeholder THIS is replaced with the real thing, and pass through."] #3="Add the current buffer into project project target OT.\nArgument FILE is the file to add." ede-target #[(ot file) "\301\302\303!\"\207" [ot error "add-file not supported by %s" object-name] 4 #3#] project-remove-file #4="Remove the current buffer from project target OT.\nArgument FNND is an argument." #[(ot fnnd) "\301\302\303!\"\207" [ot error "remove-file not supported by %s" object-name] 4 #4#] project-edit-file-target #5="Edit the target OT associated with this file." #[(ot) "\300\301\302 \303\"!\207" [find-file eieio-oref ede-current-project file] 4 #5#] project-new-target #6="Create a new target. It is up to the project PROJ to get the name." #[(proj &rest args) "\301\302\303!\"\207" [proj error "new-target not supported by %s" object-name] 4 #6#] project-new-target-custom #[(proj) "\301\302\303!\"\207" [proj error "New-target-custom not supported by %s" object-name] 4 "Create a new target. It is up to the project PROJ to get the name."] project-delete-target #7="Delete the current target OT from its parent project." #[(ot) "\301\302\303!\"\207" [ot error "add-file not supported by %s" object-name] 4 #7#] project-compile-project #8="Compile the entire current project OBJ.\nArgument COMMAND is the command to use when compiling." #[(obj &optional command) "\301\302\303!\"\207" [obj error "compile-project not supported by %s" object-name] 4 #8#] project-compile-target #9="Compile the current target OBJ.\nArgument COMMAND is the command to use for compiling the target." #[(obj &optional command) "\301\302\303!\"\207" [obj error "compile-target not supported by %s" object-name] 4 #9#] project-debug-target #10="Run the current project target OBJ in a debugger." #[(obj) "\301\302\303!\"\207" [obj error "debug-target not supported by %s" object-name] 4 #10#] project-run-target #11="Run the current project target OBJ." #[(obj) "\301\302\303!\"\207" [obj error "run-target not supported by %s" object-name] 4 #11#] project-make-dist #12="Build a distribution for the project based on THIS project." #[(this) "\301\302\303!\"\207" [this error "Make-dist not supported by %s" object-name] 4 #12#] project-dist-files #13="Return a list of files that constitute a distribution of THIS project." #[(this) "\301\302\303!\"\207" [this error "Dist-files is not supported by %s" object-name] 4 #13#] project-rescan #14="Rescan the EDE project THIS." #[(this) "\301\302\303!\"\207" [this error "Rescanning a project is not supported by %s" object-name] 4 #14#]] 5)
#@99 Return a list of all paths for all active EDE projects.
This functions is meant for use with ECB.
(defalias 'ede-ecb-project-paths #[nil "\303\211\203 \304\305\n@\306\"! B\nA\211\204 *\207" [ede-projects d p nil file-name-directory eieio-oref file] 5 (#$ . 32372)])
#@92 Add the project PROJ to the master list of projects.
On success, return the added project.
(defalias 'ede-add-project-to-global-list #[(proj) "\204 \302\303!\210\304\305\306\217\204 \302\307!\210\310 \"\204 \302\311!\210\312\313\"\210\207" [proj ede-project-placeholder error "No project created to add to master list" nil (byte-code "\211\302H\303=\205 \304\305\306\217)\207" [proj tobj 0 object nil (byte-code " H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error)) "Attempt to add non-object to master project list" obj-of-class-p "Attempt to add a non-project to the ede projects list" add-to-list ede-projects] 3 (#$ . 32652)])
#@119 Project file independent way to read a project in from DIR.
Optional ROOTRETURN will return the root project for DIR.
(defalias 'ede-load-project-file #[(dir &optional rootreturn) "\306!\210\307\310!!\311\n!\312\211 \204= \n\211 \2030 \311!\2040 \313!\211\204 \2059 \314!)\202\324 \203F \312\202\324 \315\n!\311\f\316\"\317\320 \f\"\301#\211\204f \321 \f\")\203p
L\210\312\211
C \320 \310\n!\" \203\271 \204\271 \312 @\203\254 \322 @\301\"\230\203\244 @ \322 @\323\" \324 A \" )\202\201 \204\306 \325\326 \"\210\202\321 \327\322 \301\" \" *-\207" [dir file path pfc toppath o ede-project-directory-remove-hash file-name-as-directory expand-file-name ede-directory-project-p nil ede-up-directory ede-load-project-file ede-toplevel-project t object-assoc ede-dir-to-projectfile ede-auto-load-project eieio-oref subproj append message "No project for %s, but passes project-p test" delete p ede-constructing ede-projects rootreturn found tocheck newbits ede-project-cache-files] 5 (#$ . 33352)])
#@159 Return the project belonging to the parent directory.
Return nil if there is no previous directory.
Optional argument OBJ is an object to find the parent of.
(defalias 'ede-parent-project #[(&optional obj) "\206 \203 \306!\202 \211 \205 \n\205 \f\n=?\205T \203, \307\310\"\202-
\311
!\211 \205S \f\206A \312!\211 \203N \313\f\"\206R \314!)**\207" [obj ede-object-project proj ede-object-root-project root default-directory ede-project-root eieio-oref directory ede-up-directory ede-directory-get-toplevel-open-project ede-find-subproject-for-directory ede-directory-get-open-project thisdir updir] 4 (#$ . 34417)])
#@96 Return the current project file.
If optional DIR is provided, get the project for DIR instead.
(defalias 'ede-current-project #[(&optional dir) "\305 \203\f \n\230\203 \203 \204! \206 \n \306\f!))\207" [ans dir default-directory ede-object-project ldir nil ede-directory-get-open-project] 2 (#$ . 35062)])
#@209 Return the target object for BUFFER.
This function clears cached values and recalculates.
Optional PROJSYM is a symbol, which will be set to the project
that contains the target that becomes buffer's object.
(defalias 'ede-buffer-object #[(&optional buffer projsym) "\212\204 pq\210\306\307 \211\310 ! \203 \311 \" \2049 \f=\2049 \312 !\211\203 \311 \"\211\203\" G\313U\203C @
\203[
9\203[ \203W
L\210\202[
\nL\210+ )\207" [buffer ede-object localpo po top projsym nil ede-current-project ede-toplevel ede-find-target ede-parent-project 1] 4 (#$ . 35387)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias ede-target-in-project-p eieio--defgeneric-init-form #1="Is PROJ the parent of TARGET?\nIf TARGET belongs to a subproject, return that project file." eieio--defmethod nil ede-project #[(proj target) "\304\305\"\203 \306\305\">\203 \207\306\307\"\310\211\203. \n\204. \311 @ \" A\211\204 \n*\207" [proj target ans s slot-boundp targets eieio-oref subproj nil ede-target-in-project-p] 5 #1#]] 5)
#@151 Return the project which is the parent of TARGET.
It is recommended you track the project a different way as this function
could become slow in time.
(defalias 'ede-target-parent #[(target) "\206 \305 \204 \n\203 \306\n@\f\"\nA\202 *\207" [ede-object-project ede-projects projs ans target nil ede-target-in-project-p] 3 (#$ . 36464)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\312\313$\210\300\314\302\314\315\"\"\210\304\314\305\306\316$\210\300\314\302\314\315\"\"\210\304\314\305\312\317$\207" [eieio--defalias ede-find-target eieio--defgeneric-init-form #1="Fetch the target in PROJ belonging to BUFFER or nil." eieio--defmethod nil ede-project #[(proj buffer) "rq\210 \203 \n\205B \n=\205B \202B \306 \"\203! \202B \307 \305\"\310 \211 \203@ \306
@\"\2039
@\fB
A\211\204, \f*)\207" [buffer ede-object ede-object-project proj f targets ede-buffer-mine eieio-oref nil] 4 #1#] ede-target-buffer-in-sourcelist #2="Return non-nil if object THIS is in BUFFER to a SOURCE list.\nHandles complex path issues." ede-target #[(this buffer source) "\303\304 !\"\n\235\207" [this buffer source ede-convert-path buffer-file-name] 4 #2#] ede-buffer-mine #3="Return non-nil if object THIS lays claim to the file in BUFFER." #[(this buffer) "\300\207" [nil] 1 #3#] #[(this buffer) "\300\301\302\217\207" [nil (byte-code "\302 \303\304\"#\207" [this buffer ede-target-buffer-in-sourcelist eieio-oref source] 6) ((error))] 3 "Return non-nil if object THIS lays claim to the file in BUFFER."]] 5)
#@126 Return a list of all active buffers controlled by PROJECT.
This includes buffers controlled by a specific target of PROJECT.
(defalias 'ede-project-buffers #[(project) "\304 \305\211\203' r @q\210\n\203 \306 @\"\203 @B) A\211\204 *\207" [pl bl ede-object project buffer-list nil ede-find-target] 4 (#$ . 38041)])
#@57 Return a list of buffers that are controlled by TARGET.
(defalias 'ede-target-buffers #[(target) "\304 \305\211\203, r @q\210\n<\203 \n>\202 \n =\203$ @B) A\211\204 *\207" [pl bl ede-object target buffer-list nil] 3 (#$ . 38371)])
#@59 Return a list of all buffers controlled by an EDE object.
(defalias 'ede-buffers #[nil "\303 \304\211\203 r @q\210\n\203 @B) A\211\204 *\207" [pl bl ede-object buffer-list nil] 3 (#$ . 38619)])
#@48 Execute PROC on all buffers controlled by EDE.
(defalias 'ede-map-buffers #[(proc) "\301\302 \"\207" [proc mapcar ede-buffers] 3 (#$ . 38829)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\303\"\"\210\304\310\305\311\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\210\300\316\302\316\317\"\"\210\304\316\305\306\320$\210\300\321\302\321\322\"\"\210\304\321\305\306\323$\210\300\324\302\324\325\"\"\210\304\324\305\306\326$\210\300\327\302\327\330\"\"\210\304\327\305\306\331$\210\300\327\302\327\330\"\"\210\304\327\305\311\332$\210\300\333\302\333\334\"\"\210\304\333\305\306\335$\207" [eieio--defalias ede-map-project-buffers eieio--defgeneric-init-form #1="For THIS, execute PROC on all buffers belonging to THIS." eieio--defmethod nil ede-project #[(this proc) "\302\303 !\"\207" [proc this mapcar ede-project-buffers] 4 #1#] ede-map-target-buffers ede-target #[(this proc) "\302\303 !\"\207" [proc this mapcar ede-target-buffers] 4 "For THIS, execute PROC on all buffers belonging to THIS."] ede-map-subprojects #2="For object THIS, execute PROC on all direct subprojects.\nThis function does not apply PROC to sub-sub projects.\nSee also `ede-map-all-subprojects'." #[(this proc) "\302\303 \304\"\"\207" [proc this mapcar eieio-oref subproj] 5 #2#] ede-map-all-subprojects #3="For object THIS, execute PROC on THIS and all subprojects.\nThis function also applies PROC to sub-sub projects.\nSee also `ede-map-subprojects'." #[(this allproc) "\302\303 !C\304 \305\"#\207" [allproc this apply append ede-map-subprojects #[(sp) "\302 \"\207" [sp allproc ede-map-all-subprojects] 3]] 6 #3#] ede-map-targets #4="For object THIS, execute PROC on all targets." #[(this proc) "\302\303 \304\"\"\207" [proc this mapcar eieio-oref targets] 5 #4#] ede-map-any-target-p #5="For project THIS, map PROC to all targets and return if any non-nil.\nReturn the first non-nil value returned by PROC." #[(this proc) "\302\303\304 \"B!\207" [this proc eval or ede-map-targets] 5 #5#] ede-system-include-path #6="Get the system include path used by project THIS." #[(this) "\300\207" [nil] 1 #6#] #[(this) "\300\207" [nil] 1 "Get the system include path used by project THIS."] ede-source-paths #7="Get the base to all source trees in the current project for MODE.\nFor example, <root>/src for sources of c/c++, Java, etc,\nand <root>/doc for doc sources." #[(this mode) "\300\207" [nil] 1 #7#]] 5)
#@52 Apply preprocessor tables onto the current buffer.
(defalias 'ede-apply-preprocessor-map #[nil "\2053 \304\301!\2053 \2053 \305\n:\203 \n@\202 \n!\211\203& \306 !\n:\2052 \307\310\311\n@!\"*\207" [ede-object semantic-lex-spp-macro-symbol-obarray objs map boundp ede-preprocessor-map semantic-lex-make-spp-table message "Choosing preprocessor syms for project %s" object-name] 5 (#$ . 41274)])
(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\310\302\310\311\"\"\210\304\310\305\313\314$\210\300\315\302\315\316\"\"\210\304\315\305\306\317$\207" [eieio--defalias ede-system-include-path eieio--defgeneric-init-form #1="Get the system include path used by project THIS." eieio--defmethod nil ede-project #[(this) "\300\207" [nil] 1 #1#] ede-preprocessor-map #2="Get the pre-processor map for project THIS." #[(this) "\300\207" [nil] 1 #2#] ede-target #[(this) "\300\207" [nil] 1 "Get the pre-processor map for project THIS."] ede-java-classpath #3="Return the classpath for this project." #[(this) "\300\207" [nil] 1 #3#]] 5)
#@171 Set the project local VARIABLE to VALUE.
If VARIABLE is not project local, just use set. Optional argument PROJ
is the project to use, instead of `ede-current-project'.
(defalias 'ede-set #[(variable value &optional proj) "\206 \305 \306\307 \n\"\210\310 \f\n#\210\311\n!\210\312\313!\210\f*\207" [proj a p variable value ede-toplevel nil ede-make-project-local-variable ede-set-project-local-variable ede-commit-local-variables ede-map-buffers ede-apply-project-local-variables] 4 (#$ . 42387) "sVariable: \nxExpression: "])
#@54 Apply project local variables to the current buffer.
(defalias 'ede-apply-project-local-variables #[(&optional buffer) "r\206 pq\210\301 \302 =\204 \303\302 !\210\301 \205 \303\301 !)\207" [buffer ede-current-project ede-toplevel ede-set-project-variables] 2 (#$ . 42924)])
#@41 Make VARIABLE project-local to PROJECT.
(defalias 'ede-make-project-local-variable #[(variable &optional project) "\204 \302 \303 \304\305\"\"?\205 \306\305 C\304\305\"B#\207" [project variable ede-toplevel assoc eieio-oref local-variables eieio-oset] 7 (#$ . 43208)])
#@193 Set VARIABLE to VALUE for PROJECT.
If PROJ isn't specified, use the current project.
This function only assigns the value within the project structure.
It does not apply the value to buffers.
(defalias 'ede-set-project-local-variable #[(variable value &optional project) "\204 \304 \305 \306\307\"\"\211\204 \310\311!\210\n \241)\207" [project variable va value ede-toplevel assoc eieio-oref local-variables error "Cannot set project variable until it is added with `ede-make-project-local-variable'"] 6 (#$ . 43491)])
(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\313\314!\210\315\316!\210\317\320!\2032 \321 \210\2027 \322\323\321\"\210\305\207" [eieio--defalias ede-set-project-variables eieio--defgeneric-init-form #1="Set variables local to PROJECT in BUFFER." eieio--defmethod nil ede-project #[(project &optional buffer) "\204 prq\210\304 \305\"\306\211\205+ @\307\n@!\210\n@\nAL\210 A\211\204 \306+\207" [buffer project v --dolist-tail-- eieio-oref local-variables nil make-local-variable] 4 #1#] ede-commit-local-variables #2="Commit change to local variables in PROJ." #[(proj) "\300\207" [nil] 1 #2#] provide ede require ede/files featurep speedbar ede-speedbar-file-setup add-hook speedbar-load-hook] 5)