Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/proj-elisp.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\304\305\306\"\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\324\325\326$\207" [require ede/proj ede/pmake ede/pconf autoload semantic-ede-proj-target-grammar "semantic/ede-grammar" defalias ede-proj-target-elisp-p eieio-make-class-predicate ede-proj-target-elisp ede-proj-target-elisp--eieio-childp eieio-make-child-predicate ede-proj-target-elisp-child-p make-obsolete "use (cl-typep ... \\='ede-proj-target-elisp) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "This target consists of a group of lisp files.\nA lisp target may be one general program with many separate lisp files in it.")] 6)
#@60 Create a new object of class type `ede-proj-target-elisp'.
(defalias 'ede-proj-target-elisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-proj-target-elisp] 4 (#$ . 1945)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-target-elisp compiler-macro ede-proj-target-elisp--anon-cmacro] 4)
(defalias 'ede-proj-target-elisp--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\304\305%\210\300\306\304\307\304\310%\207" [cl-generic-define-method ede-proj-makefile-insert-rules (:after) ((this ede-proj-target-elisp)) nil #[(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 "Insert rules needed by THIS target.\nThis inserts the PRELOADS target-local variable."] ede-proj-makefile-dependencies ((this ede-proj-target-elisp)) #[(this) "\301\302\303!\"\207" [this format "$(addsuffix c, $(%s))" ede-proj-makefile-sourcevar] 4 "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."]] 6)
#@36 Emacs Lisp source code definition.
(defvar ede-source-emacs (ede-sourcecode :name "Emacs Lisp" :sourcepattern "\\.el$" :garbagepattern '("*.elc")) (#$ . 3430))
#@30 Compile Emacs Lisp programs.
(defvar ede-emacs-compiler (byte-code "\300\301\302\303\304\305\306\307\310\311\312\305\313&C\314\315\316\317\320\321&\f\207" [ede-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 :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"] 13) (#$ . 3596))
#@42 Compile Emacs Lisp programs with XEmacs.
(defvar ede-xemacs-compiler (clone ede-emacs-compiler :name "xemacs" :variables '(("EMACS" . "xemacs"))) (#$ . 4242))
(cl-generic-define-method 'ede-buffer-mine nil '((this ede-proj-target-elisp) buffer) t #[(#1=#:cl--cnm this buffer) "\304\305\306!\"\203 \307\306!!\310P\211\311\n\312\"\235)\207 \207" [buffer fname this #1# string-match "\\.elc$" buffer-file-name file-name-sans-extension ".el" eieio-oref auxsource] 5 "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."])
#@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 (#$ . 4844)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\300\311\302\312\302\313%\207" [cl-generic-define-method project-compile-target nil ((obj 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" eieio-object-name] 6 "Compile all sources in a Lisp target OBJ.\nBonus: Return a cons cell: (COMPILED . UPTODATE)."] ede-update-version-in-source ((this ede-proj-target-elisp) version) t #[(#1=#:cl--cnm this version) "\306\307\"\205J \310\307\"\205J \310\307\"\311\211\203G r\312\313\n@\"!q\210eb\210\314\315\316\311\314#\203? \314\317\224\317\225|\210\317\224b\210\fc\210*\nA\211\204
*\207" [this match vs case-fold-search version #1# slot-boundp versionsource eieio-oref nil find-file-noselect ede-expand-filename t re-search-forward "-version\\s-+\"\\([^\"]+\\)\"" 1] 5 "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."] ede-proj-makefile-sourcevar ((this ede-proj-target-elisp)) #[(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 "Return the variable name for THIS's sources."]] 6)
#@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\2037 h\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\210A\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 (#$ . 7149)])
(cl-generic-define-method 'ede-proj-makefile-insert-variables '(:after) '((this ede-proj-target-elisp)) nil #[(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 "Insert variables needed by target THIS."])
#@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 (#$ . 8064)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312\313\314!\"\210\311\315\316\314!\"\210\311\317\315\"\210\320\317\321\322#\210\323\314\324\315#\325\314\326\327\330$\207" [cl-generic-define-method ede-proj-tweak-autoconf nil ((this ede-proj-target-elisp)) t #[(#1=#:cl--cnm this) " \210\305 \306\307#\310\211\203 \311 !\204 \312\313!\202^ \212\314 !\2036 \315 \211\316P\"\210\317 \316P \"\210\320 \316P!\210\321 \322\"q\210\323\324!\210\325\326 \327\"!\211 \203W \323\f@!\210\fA\211\204K )\330 \210\331 )*\207" [#1# this enable-local-variables ec paths 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 kill-buffer] 5 "Tweak the configure file (current buffer) to accommodate THIS."] ede-proj-flush-autoconf ((this ede-proj-target-elisp)) #[(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 "Flush the configure file (current buffer) to accommodate THIS."] defalias ede-proj-target-elisp-autoloads-p eieio-make-class-predicate ede-proj-target-elisp-autoloads ede-proj-target-elisp-autoloads--eieio-childp eieio-make-child-predicate ede-proj-target-elisp-autoloads-child-p make-obsolete "use (cl-typep ... \\='ede-proj-target-elisp-autoloads) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "Target that builds an autoload file.\nFiles do not need to be added to this target.")] 6)
#@70 Create a new object of class type `ede-proj-target-elisp-autoloads'.
(defalias 'ede-proj-target-elisp-autoloads #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-proj-target-elisp-autoloads] 4 (#$ . 11083)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-target-elisp-autoloads compiler-macro ede-proj-target-elisp-autoloads--anon-cmacro] 4)
(defalias 'ede-proj-target-elisp-autoloads--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])
(cl-generic-define-method 'ede-buffer-mine nil '((this ede-proj-target-elisp-autoloads) buffer) t #[(#1=#:cl--cnm this buffer) "\303\304\305\306\"!\307P\310 !\"\203 \311\207\n \207" [this buffer #1# string-match regexp-quote eieio-oref autoload-file "$" buffer-file-name t] 5 "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."])
#@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\314\307\315&C\316\317&\n\207" [ede-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 :target "clean-autoloads" :phony t ("rm -f $(LOADDEFS)") :sourcetype (ede-source-emacs)] 15) (#$ . 12103))
(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\316\317\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\302\332%\210\300\333\302\334\302\335%\210\300\336\302\337\302\340%\210\300\341\302\342\302\343%\210\344\345!\207" [cl-generic-define-method ede-proj-compilers nil ((obj 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 "List of compilers being used by OBJ.\nIf the `compiler' slot is empty, get the car of the compilers list."] ede-proj-makefile-insert-source-variables ((this ede-proj-target-elisp-autoloads) &optional moresource) #[(this &optional moresource) "\300\207" [nil] 1 "Insert the source variables needed by THIS.\nOptional argument MORESOURCE is a list of additional sources to add to the\nsources variable."] ede-proj-makefile-sourcevar ((this ede-proj-target-elisp-autoloads)) #[(this) "\300\207" [nil] 1 "Return the variable name for THIS's sources."] ede-proj-makefile-dependencies ((this ede-proj-target-elisp-autoloads)) #[(this) "\300\207" [""] 1 "Return a string representing the dependencies for THIS.\nAlways return an empty string for an autoloads generator."] ede-proj-makefile-insert-variables (:after) ((this ede-proj-target-elisp-autoloads)) #[(this) "\303\304\212db\210\305\306\307Q\310\303#)\203; \311\225b\210\312 \210i\313W\2033 h\314U\2046 h\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\204 h\314U\204\207 h\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 "Insert variables needed by target THIS."] project-compile-target ((obj ede-proj-target-elisp-autoloads)) #[(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 "Create or update the autoload target."] ede-update-version-in-source ((this ede-proj-target-elisp-autoloads) version) #[(this version) "\300\207" [nil] 1 "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."] ede-proj-makefile-insert-dist-dependencies ((this ede-proj-target-elisp-autoloads)) #[(this) "\301\302!\261\207" [this " " ede-proj-makefile-target-name] 3 "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."] ede-proj-makefile-insert-dist-filepatterns ((this ede-proj-target-elisp-autoloads)) #[(this) "\301\302\303\"\261\207" [this " " eieio-oref autoload-file] 4 "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."] ede-proj-tweak-autoconf ((this ede-proj-target-elisp-autoloads)) #[(this) "\300\301!\207" [error "Autoloads not supported in autoconf yet"] 2 "Tweak the configure file (current buffer) to accommodate THIS."] ede-proj-flush-autoconf ((this ede-proj-target-elisp-autoloads)) #[(this) "\300\207" [nil] 1 "Flush the configure file (current buffer) to accommodate THIS."] provide ede/proj-elisp] 6)
Mini Shell