;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/base.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\304\305\306\307\310$\210\304\311\312\313\314$\210\304\315\316\317\320$\207" [require eieio eieio-speedbar ede/auto eieio-defclass ede-target (eieio-speedbar-directory-button) ((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)) ("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.") ede-project-placeholder (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 "File name where this project is stored.") (rootproject :initform nil :type (or null ede-project-placeholder-child) :documentation "Pointer to our root project.")) ("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.") ede-project (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)) ("Top level EDE project specification.\nAll specific project types must derive from this project." :method-invocation-order :depth-first)] 5)
#@54 For the project in which OBJ resides, execute FORMS.
(defalias 'ede-with-projectfile '(macro . #[(obj &rest forms) "\302\303\304\305\306\307BB\310DFD\311B\312\313	\314\"BBBD\207" [obj forms save-window-excursion let* pf if obj-of-class-p (ede-target) ede-target-parent ((dbka (get-file-buffer (oref pf file)))) (if (not dbka) (find-file (oref pf file)) (switch-to-buffer dbka)) append ((if (not dbka) (kill-buffer (current-buffer))))] 7 (#$ . 7632)]))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [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." :group ede :type file] 8)
#@44 List of project files EDE has seen before.
(defvar ede-project-cache-files nil (#$ . 8414))
#@57 Save a cache of EDE objects that Emacs has seen before.
(defalias 'ede-save-cache #[nil "	\305\306\307\310\217+\207" [ede-projects ede-project-cache-files recentf-exclude c p ((lambda (f) t)) nil (byte-code "\304\305\"q\210\306 \210\307c\210	\2035	@\203.\310	!\203.\311	@\312\"\313\n!\203-\314\n\315\261\210)	A\211\204\203G\316@\315\261\210A\211\2049\317c\210\320\321\322\217\210\323p!\207" [ede-project-placeholder-cache-file p f c 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" nil (save-buffer 0) ((error (message "File %s could not be saved." ede-project-placeholder-cache-file))) kill-buffer] 4) ((error (message "File %s could not be read." ede-project-placeholder-cache-file)))] 3 (#$ . 8512) nil])
#@33 Load the cache of EDE projects.
(defalias 'ede-load-cache #[nil "\212\301\211\302\303\217\210\205\304!*\207" [cachebuffer nil (byte-code "\306\307\"\211q\210eb\210\310p!\311\n\203'\312\313@\314\"
\"A\211\204
\203>\315
@!\2037
@\fB
A\211\204+\f\237+\311\207" [ede-project-placeholder-cache-file cachebuffer ede-projects p new c find-file-noselect t read nil delete eieio-oref file file-exists-p ede-project-cache-files] 5) ((error)) kill-buffer] 4 (#$ . 9393)])
(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\315\316$\210\300\317\302\317\320\"\"\210\304\317\305\315\321$\210\300\313\302\313\322\"\"\210\304\313\305\306\323$\210\300\324\302\324\325\"\"\210\304\324\305\306\326$\210\300\324\302\324\325\"\"\210\304\324\305\315\327$\207" [eieio--defalias ede-subproject-relative-path eieio--defgeneric-init-form #1="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." eieio--defmethod nil ede-project #[(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 #1#] ede-subproject-p #2="Return non-nil if PROJ is a sub project." #[(proj) "\301!\207" [proj ede-parent-project] 2 #2#] ede-name #3="Return the name of THIS target." ede-target #[(this) "\301\302\"\207" [this eieio-oref name] 3 #3#] ede-target-name #4="Return the name of THIS target, suitable for make or debug style commands." #[(this) "\301\302\"\207" [this eieio-oref name] 3 #4#] #5="Return a short-name for THIS project file.\nDo this by extracting the lowest directory name." #[(this) "\301\302\"\207" [this eieio-oref name] 3 #5#] ede-description #6="Return a description suitable for the minibuffer about THIS." #[(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 #6#] #[(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."]] 5)
#@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 (#$ . 11791)])
(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-buffer-header-file eieio--defgeneric-init-form #1="Return nil, projects don't have header files." eieio--defmethod nil ede-project #[(this buffer) "\300\207" [nil] 1 #1#] #2="There are no default header files in EDE.\nDo a quick check to see if there is a Header tag in this buffer." ede-target #[(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 #2#]] 5)
#@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 (#$ . 12780)])
(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\314\"\"\210\304\313\305\306\315$\210\300\313\302\313\314\"\"\210\304\313\305\311\316$\207" [eieio--defalias ede-buffer-documentation-files eieio--defgeneric-init-form #1="Return all documentation in project THIS based on BUFFER." eieio--defmethod nil ede-project #[(this buffer) "\301!\207" [this ede-documentation] 2 #1#] #2="Check for some documentation files for THIS.\nAlso do a quick check to see if there is a Documentation tag in this BUFFER." ede-target #[(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 #2#] ede-documentation #3="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) "\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 #3#] #[(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."]] 5)
#@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 (#$ . 14521)])
(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\311\"\"\210\304\314\305\312\315$\210\300\316\302\316\317\"\"\210\304\316\305\312\320$\207" [eieio--defalias ede-html-documentation eieio--defgeneric-init-form #1="Return a list of HTML files provided by project THIS." eieio--defmethod nil ede-project #[(this) "\300\207" [#1#] 1 #1#] ede-want-file-p #2="Return non-nil if THIS target wants FILE." ede-target #[(this file) "\303!\211\203\304	@\n\"\204	A\211\204	)\207" [this src file ede-target-sourcecode ede-want-file-p] 4 #2#] ede-want-file-source-p #[(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 #3="Return the sourcecode objects which THIS permits." #[(this) "\303\304\"\305\211<\203\n\203\n@J	B\nA\211\202	*\207" [this rs sc eieio-oref sourcetype nil] 4 #3#]] 5)
#@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 (#$ . 15742) 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 (#$ . 16062) 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 (#$ . 16395) 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) "\206$	\206\n\303 \211\203\304\n!\206#\305\n!\203\"\305\n!\202\n)\207" [ede-object-root-project subproj cp ede-current-project ede-project-root ede-parent-project] 3 (#$ . 16721)])
(provide 'ede/base)