WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/ede
Viewing File: /usr/share/emacs/24.3/lisp/cedet/ede/proj-elisp.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:38 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/proj-elisp.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\"\210\307\310\311\312\313$\210\314\315\316\315\317\"\"\210\320\315\321\310\322$\210\314\323\316\323\324\"\"\210\320\323\325\310\326$\207" [require ede/proj ede/pmake ede/pconf autoload semantic-ede-proj-target-grammar "semantic/ede-grammar" eieio-defclass ede-proj-target-elisp (ede-proj-target-makefile) ((menu :initform nil) (keybindings :initform nil) (phony :initform t) (sourcetype :initform '(ede-source-emacs)) (availablecompilers :initform '(ede-emacs-compiler ede-xemacs-compiler)) (aux-packages :initarg :aux-packages :initform nil :type list :custom (repeat string) :documentation "Additional packages needed.\nThere should only be one toplevel package per auxiliary tool needed.\nThese packages location is found, and added to the compile time\nload path.") (pre-load-packages :initarg :pre-load-packages :initform nil :type list :custom (repeat string) :documentation "Additional packages to pre-load.\nEach package name will be loaded with `require'.\nEach package's directory should also appear in :aux-packages via a package name.")) ("This target consists of a group of lisp files.\nA lisp target may be one general program with many separate lisp files in it.") eieio--defalias ede-proj-makefile-insert-rules eieio--defgeneric-init-form #1="Insert rules needed by THIS target.\nThis inserts the PRELOADS target-local variable." eieio--defmethod :after #[(this) "\302\303\"\211\203\304\305\302\306\"\307\310	\311##c\210)\312c\207" [this preloads eieio-oref pre-load-packages format "%s: PRELOADS=%s\n" name mapconcat identity " " "\n"] 8 #1#] ede-proj-makefile-dependencies #2="Return a string representing the dependencies for THIS.\nSome compilers only use the first element in the dependencies, others\nhave a list of intermediates (object files), and others don't care.\nThis allows customization of how these elements appear.\nFor Emacs Lisp, return addsuffix command on source files." nil #[(this) "\301\302\303!\"\207" [this format "$(addsuffix c, $(%s))" ede-proj-makefile-sourcevar] 4 #2#]] 5)
#@36 Emacs Lisp source code definition.
(defvar ede-source-emacs (ede-sourcecode "ede-emacs-source" :name "Emacs Lisp" :sourcepattern "\\.el$" :garbagepattern '("*.elc")) (#$ . 2653))
#@30 Compile Emacs Lisp programs.
(defvar ede-emacs-compiler (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\306\315&C\316\317\320\321\322\323&
\207" [ede-compiler "ede-emacs-compiler" :name "emacs" :variables (("EMACS" . "emacs") ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'") ("require" . "$(foreach r,$(1),(require (quote $(r))))")) :rules ede-makefile-rule "elisp-inference-rule" :target "%.elc" :dependencies "%.el" ("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) --eval '(progn $(call require, $(PRELOADS)))' -f batch-byte-compile $^") :autoconf ("AM_PATH_LISPDIR") :sourcetype (ede-source-emacs) :objectextention ".elc"] 15) (#$ . 2838))
#@42 Compile Emacs Lisp programs with XEmacs.
(defvar ede-xemacs-compiler (clone ede-emacs-compiler "ede-xemacs-compiler" :name "xemacs" :variables '(("EMACS" . "xemacs"))) (#$ . 3535))
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias ede-buffer-mine eieio--defgeneric-init-form #1="Return t if object THIS lays claim to the file in BUFFER.\nLays claim to all .elc files that match .el files in this target." eieio--defmethod nil ede-proj-target-elisp #[(this buffer) "\303\304\305!\"\203\306\305!!\307P\211\310\n\311\"\235)\207\312 \207" [buffer fname this string-match "\\.elc$" buffer-file-name file-name-sans-extension ".el" eieio-oref auxsource call-next-method] 5 #1#]] 5)
#@53 Convert a list of PACKAGES, to a list of load path.
(defalias 'ede-proj-elisp-packages-to-loadpath #[(packages) "\306\211\n\2039\307\n@!\211\204\310\311\n@\"\210\312!\313!\306\314\315\f\"\203*
\206/\f	B\nA+\202	*\207" [ldir paths packages fnd rel full nil locate-library error "Cannot find package %s" file-name-directory file-relative-name string-match "^\\.\\./\\.\\./\\.\\./\\.\\./\\.\\."] 3 (#$ . 4255)])
(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$\207" [eieio--defalias project-compile-target eieio--defgeneric-init-form #1="Compile all sources in a Lisp target OBJ.\nBonus: Return a cons cell: (COMPILED . UPTODATE)." eieio--defmethod nil ede-proj-target-elisp #[(obj) "\305!\306	\307\"\310\211\311\312\306\313\"\"\210\314\315\316!\"\210\f,B\207" [obj proj dir comp utd ede-target-parent eieio-oref directory 0 mapc #[(src) "\306	\"\307\n!\310P\f\311W\2030\312!\203\313\n\"\203'
T\314\n!\202GT\211\202G\315\n\316\317#\320=\203A
T\211\202GT\211*\207" [src dir fsrc elc emacs-major-version comp expand-file-name file-name-sans-extension ".elc" 24 file-exists-p file-newer-than-file-p byte-compile-file byte-recompile-file nil 0 t utd] 4] source message "All Emacs Lisp sources are up to date in %s" object-name] 6 #1#] ede-update-version-in-source #2="In a Lisp file, updated a version string for THIS to VERSION.\nThere are standards in Elisp files specifying how the version string\nis found, such as a `-version' variable, or the standard header." #[(this version) "\305\306\"\205O\307\306\"\205O\307\306\"\310\211\203Gr\311\312\n@\"!q\210eb\210\313\314\315\310\313#\203?\313\316\224\316\225|\210\316\224b\210\fc\210*\nA\211\204	?\205N\317 *\207" [this match vs case-fold-search version slot-boundp versionsource eieio-oref nil find-file-noselect ede-expand-filename t re-search-forward "-version\\s-+\"\\([^\"]+\\)\"" 1 call-next-method] 5 #2#] ede-proj-makefile-sourcevar #3="Return the variable name for THIS's sources." #[(this) "\303 \203\304\207\305	\302\"\306\307\n\"\203\310\311\312\313\n$\202\n*\314P\207" [this obj name ede-proj-automake-p ("lisp_LISP" . share) eieio-oref string-match "\\." replace-match "_" nil t "_LISP"] 5 #3#]] 5)
#@65 Insert a sequence of ITEMS into the Makefile LOADPATH variable.
(defalias 'ede-proj-makefile-insert-loadpath-items #[(items) "\205v\304\305\212db\210\306\307	\310Q\311\304#)\203?\312\225b\210\313 \210i\314W\2037h\315U\204:h\316U\204:\317c\210\202:\320c\210\311\202D	\321\261\210\212\306\310!)\203k\212\306\322\323@!\324Q\304#)\204d\317@\261\210A\211\204N)\n\203s\325c\210db*\207" [items v addcr begin t "LOADPATH" re-search-backward "^" "\\s-*=" nil 0 ede-pmake-end-of-variable 40 61 32 " " "\\\n   " "=" "\\s-" regexp-quote "[ \n	\\]" "\n"] 5 (#$ . 6614)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias ede-proj-makefile-insert-variables eieio--defgeneric-init-form #1="Insert variables needed by target THIS." eieio--defmethod :AFTER ede-proj-target-elisp #[(this) "\302\303\"\205
\304\302\303\"!\305	!)\207" [this newitems eieio-oref aux-packages ede-proj-elisp-packages-to-loadpath ede-proj-makefile-insert-loadpath-items] 4 #1#]] 5)
#@56 Add path PATH into the file if it isn't already there.
(defalias 'ede-proj-elisp-add-path #[(path) "eb\210\301\302\303!P\304\305#?\205%\301\306\304\305#\203\"\304\210\307\310\311\261\207\312\313!\207" [path re-search-forward "(cons \\\"" regexp-quote nil t "(cons nil" "\n" "   echo \"(setq load-path (cons \\\"" "\\\" load-path))\" >> script" error "Don't know how to update load path"] 4 (#$ . 7624)])
(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\315\316\317$\210\300\320\302\320\321\"\"\210\304\320\305\314\322$\207" [eieio--defalias ede-proj-tweak-autoconf eieio--defgeneric-init-form #1="Tweak the configure file (current buffer) to accommodate THIS." eieio--defmethod nil ede-proj-target-elisp #[(this) "\304 \210\305\306\307#\310\211\203\311\n!\204\312\313!\202[\212\314\n!\2036\315\n\211\316P\"\210\317\n\316P\n\"\210\320\n\316P!\210\321\n\322\"q\210\323\324!\210\325\326\327\"!\211\203W\323@!\210A\211\204K)\330 )*\207" [this enable-local-variables ec paths call-next-method ede-expand-filename "elisp-comp" newfile nil file-exists-p message "No elisp-comp file.  There may be compile errors?  Rerun a second time." file-symlink-p rename-file ".tmp" copy-file delete-file find-file-noselect t ede-proj-elisp-add-path ".." ede-proj-elisp-packages-to-loadpath eieio-oref aux-packages save-buffer] 5 #1#] ede-proj-flush-autoconf #2="Flush the configure file (current buffer) to accommodate THIS." #[(this) "\304\305\306#\307\211\205:\310\n!\205:r\311\n\312\"q\210eb\210\313\314\307\312#\2059\315\316!\211\317\230\2045\320 \320\321!|\210)\202)*\207" [this enable-local-variables ec path ede-expand-filename "elisp-comp" newfile nil file-exists-p find-file-noselect t re-search-forward "(cons \\([^ ]+\\) load-path)" match-string 1 "nil" point-at-bol 2] 5 #2#] eieio-defclass ede-proj-target-elisp-autoloads (ede-proj-target-elisp) ((availablecompilers :initform '(ede-emacs-cedet-autogen-compiler)) (phony :initform t) (rules :initform nil) (autoload-file :initarg :autoload-file :initform "loaddefs.el" :type string :custom string :documentation "The file that autoload definitions are placed in.\nThere should be one load defs file for a given package.  The load defs are created\nfor all Emacs Lisp sources that exist in the directory of the created target.") (autoload-dirs :initarg :autoload-dirs :initform nil :type list :custom (repeat string) :documentation "The directories to scan for autoload definitions.\nIf nil defaults to the current directory.")) ("Target that builds an autoload file.\nFiles do not need to be added to this target.") ede-buffer-mine #3="Return t if object THIS lays claim to the file in BUFFER.\nLays claim to all .elc files that match .el files in this target." #[(this buffer) "\302\303\304\305\"!\306P\307	!\"\203\310\207\311 \207" [this buffer string-match regexp-quote eieio-oref autoload-file "$" buffer-file-name t call-next-method] 5 #3#]] 5)
#@26 Build an autoloads file.
(defvar ede-emacs-cedet-autogen-compiler (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\312\314\315\310\316&C\317\320&\207" [ede-compiler "ede-emacs-autogen-compiler" :name "emacs" :variables (("EMACS" . "emacs") ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'") ("require" . "$(foreach r,$(1),(require (quote $(r))))")) :commands ("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) --eval '(setq generated-autoload-file \"$(abspath $(LOADDEFS))\")' -f batch-update-autoloads $(abspath $(LOADDIRS))") :rules ede-makefile-rule "clean-autoloads" :target :phony t ("rm -f $(LOADDEFS)") :sourcetype (ede-source-emacs)] 17) (#$ . 10637))
(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\300\316\302\316\317\"\"\210\304\316\305\306\320$\210\300\321\302\321\322\"\"\210\304\321\323\306\324$\210\300\325\302\325\326\"\"\210\304\325\305\306\327$\210\300\330\302\330\331\"\"\210\304\330\305\306\332$\210\300\333\302\333\334\"\"\210\304\333\305\306\335$\210\300\336\302\336\337\"\"\210\304\336\305\306\340$\210\300\341\302\341\342\"\"\210\304\341\305\306\343$\210\300\344\302\344\345\"\"\210\304\344\305\306\346$\210\347\350!\207" [eieio--defalias ede-proj-compilers eieio--defgeneric-init-form #1="List of compilers being used by OBJ.\nIf the `compiler' slot is empty, get the car of the compilers list." eieio--defmethod nil ede-proj-target-elisp-autoloads #[(obj) "\303\304\"\211\203	<\203\305\306	\"\202*	JC\202*\305\306\303\307\"\"\211@C)	)\207" [obj comp avail eieio-oref compiler mapcar symbol-value availablecompilers] 6 #1#] ede-proj-makefile-insert-source-variables #2="Insert the source variables needed by THIS.\nOptional argument MORESOURCE is a list of additional sources to add to the\nsources variable." #[(this &optional moresource) "\300\207" [nil] 1 #2#] ede-proj-makefile-sourcevar #3="Return the variable name for THIS's sources." #[(this) "\300\207" [nil] 1 #3#] ede-proj-makefile-dependencies #4="Return a string representing the dependencies for THIS.\nAlways return an empty string for an autoloads generator." #[(this) "\300\207" [""] 1 #4#] ede-proj-makefile-insert-variables #5="Insert variables needed by target THIS." :AFTER #[(this) "\303\304\212db\210\305\306\307Q\310\303#)\203;\311\225b\210\312 \210i\313W\2033h\314U\2046h\315U\2046\316c\210\2026\317c\210\310\202@\320\261\210\321\n\322\"c\210	\203M\323c\210db\210*\303\324\212db\210\305\306\307Q\310\303#)\203\214\311\225b\210\312 \210i\313W\203\204h\314U\204\207h\315U\204\207\316c\210\202\207\317c\210\310\202\221\320\261\210\325\326\321\n\327\"\206\233\330\316#c\210	\203\246\323c\210db*\207" [v addcr this t "LOADDEFS" re-search-backward "^" "\\s-*=" nil 0 ede-pmake-end-of-variable 40 61 32 " " "\\\n   " "=" eieio-oref autoload-file "\n" "LOADDIRS" mapconcat identity autoload-dirs (".")] 5 #5#] project-compile-target #6="Create or update the autoload target." #[(obj) "\302\303!\210\304\305\"\306\307\310\311\"\310\312\"#)\207" [obj default-directory require cedet-autogen ede-expand-filename "." apply cedet-update-autoloads eieio-oref autoload-file autoload-dirs] 6 #6#] ede-update-version-in-source #7="In a Lisp file, updated a version string for THIS to VERSION.\nThere are standards in Elisp files specifying how the version string\nis found, such as a `-version' variable, or the standard header." #[(this version) "\300\207" [nil] 1 #7#] ede-proj-makefile-insert-dist-dependencies #8="Insert any symbols that the DIST rule should depend on.\nEmacs Lisp autoload files ship the generated .el files.\nArgument THIS is the target which needs to insert an info file." #[(this) "\301\302!\261\207" [this " " ede-proj-makefile-target-name] 3 #8#] ede-proj-makefile-insert-dist-filepatterns #9="Insert any symbols that the DIST rule should distribute.\nEmacs Lisp autoload files ship the generated .el files.\nArgument THIS is the target which needs to insert an info file." #[(this) "\301\302\303\"\261\207" [this " " eieio-oref autoload-file] 4 #9#] ede-proj-tweak-autoconf #10="Tweak the configure file (current buffer) to accommodate THIS." #[(this) "\300\301!\207" [error "Autoloads not supported in autoconf yet"] 2 #10#] ede-proj-flush-autoconf #11="Flush the configure file (current buffer) to accommodate THIS." #[(this) "\300\207" [nil] 1 #11#] provide ede/proj-elisp] 5)
F1l3 Manager
