Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/base.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\300\302!\210\300\303!\210\300\304!\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\210\325\326\327\330\327\331%\210\325\326\327\332\327\333%\210\325\334\327\335\327\336%\210\325\337\327\340\327\341%\210\325\337\327\342\327\343%\210\325\344\327\345\327\346%\210\325\347\327\350\327\351%\210\325\347\327\352\327\353%\210\325\354\327\355\327\356%\207" [require eieio cl-generic eieio-speedbar ede/auto defalias ede-target-p eieio-make-class-predicate ede-target ede-target--eieio-childp eieio-make-child-predicate ede-target-child-p make-obsolete "use (cl-typep ... \\='ede-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar-directory-button eieio-named) ((buttonface :initform speedbar-file-face) (name :initarg :name :type string :custom string :label "Name" :group (default name) :documentation "Name of this target.") (path :initarg :path :type string :documentation "The path to the sources of this target.\nRelative to the path of the project it belongs to.") (source :initarg :source :initform nil :type list :custom (repeat (string :tag "File")) :label "Source Files" :group (default source) :documentation "Source files in this target.") (versionsource :initarg :versionsource :initform nil :type list :custom (repeat (string :tag "File")) :label "Source Files with Version String" :group (source) :documentation "Source files with a version string in them.\nThese files are checked for a version string whenever the EDE version\nof the master project is changed. When strings are found, the version\npreviously there is updated.") (sourcetype :allocation :class :type list :documentation "A list of `ede-sourcecode' objects this class will handle.\nThis is used to match target objects with the compilers they can use, and\nwhich files this object is interested in." :accessor ede-object-sourcecode) (keybindings :allocation :class :initform (("D" . ede-debug-target)) :documentation "Keybindings specialized to this type of target." :accessor ede-object-keybindings) (menu :allocation :class :initform (["Debug target" ede-debug-target (ede-buffer-belongs-to-target-p)] ["Run target" ede-run-target (ede-buffer-belongs-to-target-p)]) :documentation "Menu specialized to this type of target." :accessor ede-object-menu)) (:documentation "A target is a structure that describes a file set that produces something.\nTargets, as with `Make', is an entity that will manage a file set\nand knows how to compile or otherwise transform those files into some\nother desired outcome.") cl-generic-define-method ede-object-menu nil ((this (subclass ede-target))) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp menu eieio-oref-default] 3 "Retrieve the class slot `menu' from a class `ede-target'.\nThis method is obsolete."] ((this ede-target)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp menu eieio-oref] 3 "Retrieve the slot `menu' from an object of class `ede-target'."] \(setf\ ede-object-menu\) (value (this ede-target)) #[(value this) "\302\303 #\207" [this value eieio-oset menu] 4] ede-object-keybindings ((this (subclass ede-target))) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp keybindings eieio-oref-default] 3 "Retrieve the class slot `keybindings' from a class `ede-target'.\nThis method is obsolete."] ((this ede-target)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp keybindings eieio-oref] 3 "Retrieve the slot `keybindings' from an object of class `ede-target'."] \(setf\ ede-object-keybindings\) (value (this ede-target)) #[(value this) "\302\303 #\207" [this value eieio-oset keybindings] 4] ede-object-sourcecode ((this (subclass ede-target))) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp sourcetype eieio-oref-default] 3 "Retrieve the class slot `sourcetype' from a class `ede-target'.\nThis method is obsolete."] ((this ede-target)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp sourcetype eieio-oref] 3 "Retrieve the slot `sourcetype' from an object of class `ede-target'."] \(setf\ ede-object-sourcecode\) (value (this ede-target)) #[(value this) "\302\303 #\207" [this value eieio-oset sourcetype] 4]] 7)
#@49 Create a new object of class type `ede-target'.
(defalias 'ede-target #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-target] 4 (#$ . 4696)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-target compiler-macro ede-target--anon-cmacro] 4)
(defalias 'ede-target--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])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-project-placeholder-p eieio-make-class-predicate ede-project-placeholder ede-project-placeholder--eieio-childp eieio-make-child-predicate ede-project-placeholder-child-p make-obsolete "use (cl-typep ... \\='ede-project-placeholder) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar-directory-button) ((name :initarg :name :initform "Untitled" :type string :custom string :label "Name" :group (default name) :documentation "The name used when generating distribution files.") (version :initarg :version :initform "1.0" :type string :custom string :label "Version" :group (default name) :documentation "The version number used when distributing files.") (directory :type string :initarg :directory :documentation "Directory this project is associated with.") (dirinode :documentation "The inode id for :directory.") (file :type string :initarg :file :documentation "The File uniquely tagging this project instance.\nFor some project types, this will be the file that stores the project configuration.\nIn other projects types, this file is merely a unique identifier to this type of project.") (rootproject :initform nil :type (or null ede-project-placeholder-child) :documentation "Pointer to our root project.")) (:documentation "Placeholder object for projects not loaded into memory.\nProjects placeholders will be stored in a user specific location\nand querying them will cause the actual project to get loaded.")] 6)
#@62 Create a new object of class type `ede-project-placeholder'.
(defalias 'ede-project-placeholder #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-project-placeholder] 4 (#$ . 6805)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-project-placeholder compiler-macro ede-project-placeholder--anon-cmacro] 4)
(defalias 'ede-project-placeholder--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])
(byte-code "\300\301!\204\f \302\303\304\305#\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\210\326\327\330\331\330\332%\210\326\327\330\333\330\334%\210\326\335\330\336\330\337%\210\326\340\330\341\330\342%\210\326\340\330\343\330\344%\210\326\345\330\346\330\347%\207" [fboundp ede-target-list-p put ede-target-list cl-deftype-handler #[nil "\300\207" [(list-of ede-target)] 1] defalias ede-project-p eieio-make-class-predicate ede-project ede-project--eieio-childp eieio-make-child-predicate ede-project-child-p make-obsolete "use (cl-typep ... \\='ede-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project-placeholder) ((subproj :initform nil :type list :documentation "Sub projects controlled by this project.\nFor Automake based projects, each directory is treated as a project.") (targets :initarg :targets :type ede-target-list :custom (repeat (object :objectcreatefcn ede-new-target-custom)) :label "Local Targets" :group (targets) :documentation "List of top level targets in this project.") (locate-obj :type (or null ede-locate-base-child) :documentation "A locate object to use as a backup to `ede-expand-filename'.") (tool-cache :initarg :tool-cache :type list :custom (repeat object) :label "Tool: " :group tools :documentation "List of tool cache configurations in this project.\nThis allows any tool to create, manage, and persist project-specific settings.") (mailinglist :initarg :mailinglist :initform #1="" :type string :custom string :label "Mailing List Address" :group name :documentation "An email address where users might send email for help.") (web-site-url :initarg :web-site-url :initform #1# :type string :custom string :label "Web Site URL" :group name :documentation "URL to this projects web site.\nThis is a URL to be sent to a web site for documentation.") (web-site-directory :initarg :web-site-directory :initform #1# :custom string :label "Web Page Directory" :group name :documentation "A directory where web pages can be found by Emacs.\nFor remote locations use a path compatible with ange-ftp or EFS.\nYou can also use TRAMP for use with rcp & scp.") (web-site-file :initarg :web-site-file :initform #1# :custom string :label "Web Page File" :group name :documentation "A file which contains the home page for this project.\nThis file can be relative to slot `web-site-directory'.\nThis can be a local file, use ange-ftp, EFS, or TRAMP.") (ftp-site :initarg :ftp-site :initform #1# :type string :custom string :label "FTP site" :group name :documentation "FTP site where this project's distribution can be found.\nThis FTP site should be in Emacs form, as needed by `ange-ftp', but can\nalso be of a form used by TRAMP for use with scp, or rcp.") (ftp-upload-site :initarg :ftp-upload-site :initform #1# :type string :custom string :label "FTP Upload site" :group name :documentation "FTP Site to upload new distributions to.\nThis FTP site should be in Emacs form as needed by `ange-ftp'.\nIf this slot is nil, then use `ftp-site' instead.") (configurations :initarg :configurations :initform ("debug" "release") :type list :custom (repeat string) :label "Configuration Options" :group (settings) :documentation "List of available configuration types.\nIndividual target/project types can form associations between a configuration,\nand target specific elements such as build variables.") (configuration-default :initarg :configuration-default :initform "debug" :custom string :label "Current Configuration" :group (settings) :documentation "The default configuration.") (local-variables :initarg :local-variables :initform nil :custom (repeat (cons (sexp :tag "Variable") (sexp :tag "Value"))) :label "Project Local Variables" :group (settings) :documentation "Project local variables") (keybindings :allocation :class :initform (("D" . ede-debug-target) ("R" . ede-run-target)) :documentation "Keybindings specialized to this type of target." :accessor ede-object-keybindings) (menu :allocation :class :initform (["Update Version" ede-update-version ede-object] ["Version Control Status" ede-vc-project-directory ede-object] ["Edit Project Homepage" ede-edit-web-page (and ede-object (oref (ede-toplevel) web-site-file))] ["Browse Project URL" ede-web-browse-home (and ede-object (not (string= #1# (oref (ede-toplevel) web-site-url))))] "--" ["Rescan Project Files" ede-rescan-toplevel t] ["Edit Projectfile" ede-edit-file-target (ede-buffer-belongs-to-project-p)]) :documentation "Menu specialized to this type of target." :accessor ede-object-menu)) (:documentation "Top level EDE project specification.\nAll specific project types must derive from this project." :method-invocation-order :depth-first) cl-generic-define-method ede-object-menu nil ((this (subclass ede-project))) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp menu eieio-oref-default] 3 "Retrieve the class slot `menu' from a class `ede-project'.\nThis method is obsolete."] ((this ede-project)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp menu eieio-oref] 3 "Retrieve the slot `menu' from an object of class `ede-project'."] \(setf\ ede-object-menu\) (value (this ede-project)) #[(value this) "\302\303 #\207" [this value eieio-oset menu] 4] ede-object-keybindings ((this (subclass ede-project))) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp keybindings eieio-oref-default] 3 "Retrieve the class slot `keybindings' from a class `ede-project'.\nThis method is obsolete."] ((this ede-project)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp keybindings eieio-oref] 3 "Retrieve the slot `keybindings' from an object of class `ede-project'."] \(setf\ ede-object-keybindings\) (value (this ede-project)) #[(value this) "\302\303 #\207" [this value eieio-oset keybindings] 4]] 7)
#@50 Create a new object of class type `ede-project'.
(defalias 'ede-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-project] 4 (#$ . 13255)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-project compiler-macro ede-project--anon-cmacro] 4)
(defalias 'ede-project--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])
#@54 For the project in which OBJ resides, execute FORMS.
(defalias 'ede-with-projectfile '(macro . #[(obj &rest forms) "9\204\n \302\303\"\210\304\305\306\307\310BB\311DFD\312B\313\314\315 \316\"BBE\207" [obj forms message "Beware! ede-with-projectfile's first arg is copied: %S" let* pf if obj-of-class-p ('ede-target) ede-target-parent ((dbka (get-file-buffer (oref pf file)))) with-current-buffer (if (not dbka) (find-file-noselect (oref pf file)) dbka) append ((if (not dbka) (kill-buffer (current-buffer))))] 7 (#$ . 13748)]))
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313&\207" [function-put ede-with-projectfile lisp-indent-function 1 custom-declare-variable ede-project-placeholder-cache-file (locate-user-emacs-file "ede-projects.el" ".projects.ede") "File containing the list of projects EDE has viewed.\nIf set to nil, then the cache is not saved." :group ede :type file] 9)
#@44 List of project files EDE has seen before.
(defvar ede-project-cache-files nil (#$ . 14658))
#@57 Save a cache of EDE objects that Emacs has seen before.
(defalias 'ede-save-cache #[nil "\205y \n\306 \3071s \310\311\"q\210\312 \210\313c\210
\203F
@\203? \314
!\203? \315
@\316\" \317!\203> \320\321\261\210)
A\211\204 \f\203X \322\f@\321\261\210\fA\211\204J \323c\210\3241f \325\326!0\202k \210\327\330\"\210\331p!0\202x \210\327\332\"+\207" [ede-project-placeholder-cache-file ede-projects ede-project-cache-files recentf-exclude c p ((lambda (f) t)) (error) find-file-noselect t erase-buffer ";; EDE project cache file.\n;; This contains a list of projects you have visited.\n(" ede-project-p eieio-oref file file-exists-p "\n \"" "\"" "\n \"" "\n)\n" (error) save-buffer 0 message "File %s could not be saved." kill-buffer "File %s could not be read." f] 4 (#$ . 14757) nil])
#@33 Load the cache of EDE projects.
(defalias 'ede-load-cache #[nil "\212\306\307!\3101Z rq\210\311 \210\312 !\203 \313 !\210eb\210\314p!\315\n \2039 \316\317 @\320\"
\" A\211\204)
\203P \312
@!\203I
@\fB
A\211\204= \f\237\211,0\202^ \210\202_ \210\205f \321!*\207" [cachebuffer ede-project-placeholder-cache-file ede-projects p new c get-buffer-create "*ede cache*" (error) erase-buffer file-exists-p insert-file-contents read nil delete eieio-oref file kill-buffer ede-project-cache-files] 5 (#$ . 15563)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\310\302\316\302\317%\210\300\320\302\321\302\322%\210\300\320\302\323\302\324%\207" [cl-generic-define-method ede-subproject-relative-path nil ((proj ede-project) &optional parent-in) #[(proj &optional parent-in) "\206 \304 !\305\306 \307\"!\n\203% \n =\204% \310 \305\306\n\307\"!\"\202& \311*\207" [parent-in proj parent dir ede-parent-project file-name-directory eieio-oref file file-relative-name ""] 6 "Get a path name for PROJ which is relative to the parent project.\nIf PARENT is specified, then be relative to the PARENT project.\nSpecifying PARENT is useful for sub-sub projects relative to the root project."] ede-subproject-p ((proj ede-project)) #[(proj) "\301!\207" [proj ede-parent-project] 2 "Return non-nil if PROJ is a sub project."] ede-name ((this ede-target)) #[(this) "\301\302\"\207" [this eieio-oref name] 3 "Return the name of THIS target."] ede-target-name ((this ede-target)) #[(this) "\301\302\"\207" [this eieio-oref name] 3 "Return the name of THIS target, suitable for make or debug style commands."] ((this ede-project)) #[(this) "\301\302\"\207" [this eieio-oref name] 3 "Return a short-name for THIS project file.\nDo this by extracting the lowest directory name."] ede-description ((this ede-project)) #[(this) "\301\302\303!\304\305\"G\304\306\"G$\207" [this format "Project %s: %d subprojects, %d targets." ede-name eieio-oref subproj targets] 7 "Return a description suitable for the minibuffer about THIS."] ((this ede-target)) #[(this) "\301\302\303!\304\305\"G#\207" [this format "Target %s: with %d source files." ede-name eieio-oref source] 6 "Return a description suitable for the minibuffer about THIS."]] 6)
#@110 Return the header file for the current buffer.
Not all buffers need headers, so return nil if no applicable.
(defalias 'ede-header-file #[nil "\205 \301p\"\207" [ede-object ede-buffer-header-file] 3 (#$ . 17891)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\207" [cl-generic-define-method ede-buffer-header-file nil ((this ede-project) buffer) #[(this buffer) "\300\207" [nil] 1 "Return nil, projects don't have header files."] ((this ede-target) buffer) #[(this buffer) "rq\210\304\305\306\307#\203 \310\311\224\311\225\"\2023 \312 !\306\211\2031 \n\2041 \313 @\314 \" A\211\204 \n*)\207" [buffer this found src re-search-forward "::Header:: \\([a-zA-Z0-9.]+\\)" nil t buffer-substring-no-properties 1 ede-target-sourcecode ede-buffer-header-file buffer-file-name] 5 "There are no default header files in EDE.\nDo a quick check to see if there is a Header tag in this buffer."]] 6)
#@196 Return the documentation files for the current buffer.
Not all buffers need documentations, so return nil if no applicable.
Some projects may have multiple documentation files, so return a list.
(defalias 'ede-documentation-files #[nil "\205 \301p\"\207" [ede-object ede-buffer-documentation-files] 3 (#$ . 18814)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\207" [cl-generic-define-method ede-buffer-documentation-files nil ((this ede-project) buffer) #[(this buffer) "\301!\207" [this ede-documentation] 2 "Return all documentation in project THIS based on BUFFER."] ((this ede-target) buffer) #[(this buffer) "rq\210\302\303\304\305#\203 \306\307\224\307\225\"\202 \310 \311 p\"))\207" [buffer cp re-search-forward "::Documentation:: \\([a-zA-Z0-9.]+\\)" nil t buffer-substring-no-properties 1 ede-toplevel ede-buffer-documentation-files] 4 "Check for some documentation files for THIS.\nAlso do a quick check to see if there is a Documentation tag in this BUFFER."] ede-documentation ((this ede-project)) #[(this) "\304\305\"\304\306\"\307\211\203 \310\311 @! \" A\211\204 \n\2032 \310\311\n@! \"\nA\211\204# +\207" [this found proj targ eieio-oref targets subproj nil append ede-documentation] 5 "Return a list of files that provide documentation.\nDocumentation is not for object THIS, but is provided by THIS for other\nfiles in the project."] ((this ede-target)) #[(this) "\300\207" [nil] 1 "Return a list of files that provide documentation.\nDocumentation is not for object THIS, but is provided by THIS for other\nfiles in the project."]] 6)
#@73 Return a list of HTML documentation files associated with this project.
(defalias 'ede-html-documentation-files #[nil "\300\301 !\207" [ede-html-documentation ede-toplevel] 2 (#$ . 20475)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\207" [cl-generic-define-method ede-html-documentation nil ((this ede-project)) #[(this) "\300\207" ["Return a list of HTML files provided by project THIS."] 1] ede-want-file-p ((this ede-target) file) #[(this file) "\303!\211\203 \304 @\n\"\204 A\211\204 )\207" [this src file ede-target-sourcecode ede-want-file-p] 4 "Return non-nil if THIS target wants FILE."] ede-want-file-source-p ((this ede-target) file) #[(this file) "\303!\211\203 \304 @\n\"\204 A\211\204 )\207" [this src file ede-target-sourcecode ede-want-file-source-p] 4 "Return non-nil if THIS target wants FILE."] ede-target-sourcecode ((this ede-target)) #[(this) "\303\304\"\305\211<\203 \n\203 \n@J B\nA\211\202 *\207" [this rs sc eieio-oref sourcetype nil] 4 "Return the sourcecode objects which THIS permits."]] 6)
#@82 Run adebug against the current EDE project.
Display the results as a debug list.
(defalias 'ede-adebug-project #[nil "\300\301!\210\302 \205 \303\304!\210\305\302 \306\"\207" [require data-debug ede-current-project data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 21607) nil])
#@89 Run adebug against the current EDE parent project.
Display the results as a debug list.
(defalias 'ede-adebug-project-parent #[nil "\300\301!\210\302 \205 \303\304!\210\305\302 \306\"\207" [require data-debug ede-parent-project data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 21927) nil])
#@89 Run adebug against the current EDE parent project.
Display the results as a debug list.
(defalias 'ede-adebug-project-root #[nil "\300\301!\210\302 \205 \303\304!\210\305\302 \306\"\207" [require data-debug ede-toplevel data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 22260) nil])
#@161 Return the ede project which is the root of the current project.
Optional argument SUBPROJ indicates a subproject to start from
instead of the current project.
(defalias 'ede-toplevel #[(&optional subproj) "\204 \206( \206 \303 \211\203 \304\n!\206' \305\n!\203& \305\n!\202 \n)\207" [subproj ede-object-root-project cp ede-current-project ede-project-root ede-parent-project] 3 (#$ . 22586)])
#@196 Fills :directory or :file slots if they're missing in project THIS.
The other slot will be used to calculate values.
PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc.
(defalias 'ede-normalize-file/directory #[(this project-file-name) "\302\303\"\203 \304\305\"\204( \302\306\"\203( \304\307\"\203( \310\305\311 \304\307\"\"#\210\302\306\"\2037 \304\307\"?\205O \302\303\"\205O \304\305\"\205O \310\307\312\304\305\"!#\207" [this project-file-name slot-boundp :file eieio-oref file :directory directory eieio-oset expand-file-name file-name-directory] 8 (#$ . 22996)])
(provide 'ede/base)
Mini Shell