| Server IP : 217.160.0.212 / Your IP : 216.73.216.71 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/ede/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\207" [require ede/proj-comp ede/make] 2)
#@41 Target class for a group of lisp files.
(autoload 'ede-proj-target-aux "ede/proj-aux" '(#$ . 160) nil nil)
#@41 Target class for a group of lisp files.
(autoload 'ede-proj-target-elisp "ede/proj-elisp" '(#$ . 273) nil nil)
#@45 Target class for generating autoload files.
(autoload 'ede-proj-target-elisp-autoloads "ede/proj-elisp" '(#$ . 390) nil nil)
#@41 Target class for a group of lisp files.
(autoload 'ede-proj-target-scheme "ede/proj-scheme" '(#$ . 521) nil nil)
#@66 Target class for a group of miscellaneous w/ a special makefile.
(autoload 'ede-proj-target-makefile-miscelaneous "ede/proj-misc" '(#$ . 640) nil nil)
#@38 Target class for building a program.
(autoload 'ede-proj-target-makefile-program "ede/proj-prog" '(#$ . 797) nil nil)
#@54 Target class for building an archive of object code.
(autoload 'ede-proj-target-makefile-archive "ede/proj-archive" '(#$ . 921) nil nil)
#@44 Target class for building a shared object.
(autoload 'ede-proj-target-makefile-shared-object "ede/proj-shared" '(#$ . 1064) nil nil)
#@30 Target class for info files.
(autoload 'ede-proj-target-makefile-info "ede/proj-info" '(#$ . 1203) nil nil)
(byte-code "\300\301\302\303\304$\210\300\305\306\307\304$\210\300\310\311\307\312$\210\300\313\314\315\304$\210\300\316\317\320\321$\210\300\322\323\324\325$\210\300\326\327\330\331$\210\300\332\333\334\335$\210\300\336\337\340\341$\210\300\342\343\344\345$\210\346\347\350\351!\"\210\346\352\353\351!\"\210\346\354\352\"\210\355\354\356\357#\210\360\351\361\352#\362\351\363\364\365$\207" [eieio-defclass-autoload ede-proj-target-aux (ede-proj-target) "ede/proj-aux" "Target class for a group of lisp files." ede-proj-target-elisp (ede-proj-target-makefile) "ede/proj-elisp" ede-proj-target-elisp-autoloads (ede-proj-target-elisp) "Target class for generating autoload files." ede-proj-target-scheme (ede-proj-target) "ede/proj-scheme" ede-proj-target-makefile-miscelaneous (ede-proj-target-makefile) "ede/proj-misc" "Target class for a group of miscellaneous w/ a special makefile." ede-proj-target-makefile-program (ede-proj-target-makefile-objectcode) "ede/proj-prog" "Target class for building a program." ede-proj-target-makefile-archive (ede-proj-target-makefile-objectcode) "ede/proj-archive" "Target class for building an archive of object code." ede-proj-target-makefile-shared-object (ede-proj-target-makefile-program) "ede/proj-shared" "Target class for building a shared object." ede-proj-target-makefile-info (ede-proj-target-makefile) "ede/proj-info" "Target class for info files." semantic-ede-proj-target-grammar (ede-proj-target-elisp) "semantic/ede-grammar" "Target classfor Semantic grammar files." defalias ede-proj-target-p eieio-make-class-predicate ede-proj-target ede-proj-target--eieio-childp eieio-make-child-predicate ede-proj-target-child-p make-obsolete "use (cl-typep ... \\='ede-proj-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) ((auxsource :initarg :auxsource :initform nil :type list :custom (repeat (string :tag "File")) :label "Auxiliary Source Files" :group (default source) :documentation "Auxiliary source files included in this target.\nEach of these is considered equivalent to a source file, but it is not\ndistributed, and each should have a corresponding rule to build it.") (dirty :initform nil :type boolean :documentation "Non-nil when generated files needs updating.") (compiler :initarg :compiler :initform nil :type (or null symbol) :custom (choice (const :tag "None" nil) (symbol :tag "Custom Compiler Symbol") :slotofchoices availablecompilers) :label "Compiler for building sources" :group make :documentation "The compiler to be used to compile this object.\nThis should be a symbol, which contains the object defining the compiler.\nThis enables save/restore to do so by name, permitting the sharing\nof these compiler resources, and global customization thereof.") (linker :initarg :linker :initform nil :type (or null symbol) :custom (choice (const :tag "None" nil) (symbol :tag "Custom Linker Symbol") :slotofchoices availablelinkers) :label "Linker for combining intermediate object files." :group make :documentation "The linker to be used to link compiled sources for this object.\nThis should be a symbol, which contains the object defining the linker.\nThis enables save/restore to do so by name, permitting the sharing\nof these linker resources, and global customization thereof.") (phony :allocation :class :initform nil :type boolean :documentation "A phony target is one where the build target does not relate to a file.\nSuch targets are always built, but make knows how to deal with them..") (availablecompilers :allocation :class :initform nil :type (or null list) :documentation "A list of `ede-compiler' objects.\nThese are the compilers the user can choose from when setting the\n`compiler' slot.") (availablelinkers :allocation :class :initform nil :type (or null list) :documentation "A list of `ede-linker' objects.\nThese are the linkers the user can choose from when setting the\n`linker' slot.")) (:documentation "Abstract class for ede-proj targets.")] 6)
#@72 Create a new object of class type `ede-proj-target'.
(fn &rest SLOTS)
(defalias 'ede-proj-target #[128 "\300\301\302#\207" [apply make-instance ede-proj-target] 5 (#$ . 5311)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-target compiler-macro ede-proj-target--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'ede-proj-target--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5613)])
(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-proj-target-makefile-p eieio-make-class-predicate ede-proj-target-makefile ede-proj-target-makefile--eieio-childp eieio-make-child-predicate ede-proj-target-makefile-child-p make-obsolete "use (cl-typep ... \\='ede-proj-target-makefile) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-proj-target) ((makefile :initarg :makefile :initform "Makefile" :type string :custom string :label "Parent Makefile" :group make :documentation "File name of generated Makefile.") (partofall :initarg :partofall :initform t :type boolean :custom boolean :label "Part of all: target" :group make :documentation "Non-nil means the rule created is part of the all: target.\nSetting this to nil creates the rule to build this item, but does not\ninclude it in the all: rule.") (configuration-variables :initarg :configuration-variables :initform nil :type list :custom (repeat (cons (string :tag "Configuration") (repeat (cons (string :tag "Name") (string :tag "Value"))))) :label "Environment Variables for configurations" :group make :documentation "Makefile variables appended to use in different configurations.\nThese variables are used in the makefile when a configuration becomes active.\nTarget variables are always renamed such as foo_CFLAGS, then included into\ncommands where the variable would usually appear.") (rules :initarg :rules :initform nil :type (list-of ede-makefile-rule) :custom (repeat (object :objecttype ede-makefile-rule)) :label "Additional Rules" :group (make) :documentation "Arbitrary rules and dependencies needed to make this target.\nIt is safe to leave this blank.")) (:documentation "Abstract class for Makefile based targets.")] 6)
#@81 Create a new object of class type `ede-proj-target-makefile'.
(fn &rest SLOTS)
(defalias 'ede-proj-target-makefile #[128 "\300\301\302#\207" [apply make-instance ede-proj-target-makefile] 5 (#$ . 7688)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-target-makefile compiler-macro ede-proj-target-makefile--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'ede-proj-target-makefile--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 8035)])
#@69 Alist of names to class types for available project target classes.
(defvar ede-proj-target-alist '(("program" . ede-proj-target-makefile-program) ("archive" . ede-proj-target-makefile-archive) ("sharedobject" . ede-proj-target-makefile-shared-object) ("emacs lisp" . ede-proj-target-elisp) ("emacs lisp autoloads" . ede-proj-target-elisp-autoloads) ("info" . ede-proj-target-makefile-info) ("auxiliary" . ede-proj-target-aux) ("scheme" . ede-proj-target-scheme) ("miscellaneous" . ede-proj-target-makefile-miscelaneous)) (#$ . 8277))
#@127 Register a new target class with NAME and class symbol CLASS.
This enables the creation of your target type.
(fn NAME CLASS)
(defalias 'ede-proj-register-target #[514 "\301\"\211\203\f \211\241\207BB\211\207" [ede-proj-target-alist assoc] 5 (#$ . 8819)])
(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-proj-project-p eieio-make-class-predicate ede-proj-project ede-proj-project--eieio-childp eieio-make-child-predicate ede-proj-project-child-p make-obsolete "use (cl-typep ... \\='ede-proj-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-persistent ede-project eieio-named) ((extension :initform ".ede") (file-header-line :initform ";; EDE Project Files are auto generated: Do Not Edit") (makefile-type :initarg :makefile-type :initform 'Makefile :type symbol :custom (choice (const Makefile) (const Makefile\.am)) :documentation "The type of Makefile to generate.\nCan be one of 'Makefile, 'Makefile.in, or 'Makefile.am.\nIf this value is NOT 'Makefile, then that overrides the :makefile slot\nin targets.") (variables :initarg :variables :initform nil :type list :custom (repeat (cons (string :tag "Name") (string :tag "Value"))) :group (settings) :documentation "Variables to set in this Makefile.") (configuration-variables :initarg :configuration-variables :initform '("debug" (("DEBUG" . "1"))) :type list :custom (repeat (cons (string :tag "Configuration") (repeat (cons (string :tag "Name") (string :tag "Value"))))) :group (settings) :documentation "Makefile variables to use in different configurations.\nThese variables are used in the makefile when a configuration becomes active.") (inference-rules :initarg :inference-rules :initform nil :custom (repeat (object :objecttype ede-makefile-rule)) :documentation "Inference rules to add to the makefile.") (include-file :initarg :include-file :initform nil :custom (repeat (string :tag "Include File")) :documentation "Additional files to include.\nThese files can contain additional rules, variables, and customizations.") (automatic-dependencies :initarg :automatic-dependencies :initform t :type boolean :custom boolean :group (default settings) :documentation "Non-nil to do implement automatic dependencies in the Makefile.") (menu :initform '(["Regenerate Makefiles" ede-proj-regenerate t] ["Upload Distribution" ede-upload-distribution t])) (metasubproject :initarg :metasubproject :initform nil :type boolean :custom boolean :group (default settings) :documentation "Non-nil if this is a metasubproject.\nUsually, a subproject is determined by a parent project. If multiple top level\nprojects are grouped into a large project not maintained by EDE, then you need\nto set this to non-nil. The only effect is that the `dist' rule will then avoid\nmaking a tar file.")) (:documentation "The EDE-PROJ project definition class.")] 6)
#@73 Create a new object of class type `ede-proj-project'.
(fn &rest SLOTS)
(defalias 'ede-proj-project #[128 "\300\301\302#\207" [apply make-instance ede-proj-project] 5 (#$ . 11789)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-project compiler-macro ede-proj-project--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'ede-proj-project--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 12097)])
#@258 Load a project file from PROJECT directory.
If optional ROOTPROJ is provided then ROOTPROJ is the root project
for the tree being read in. If ROOTPROJ is nil, then assume that
the PROJECT being read in is the root project.
(fn PROJECT &optional ROOTPROJ)
(defalias 'ede-proj-load #[513 "\212\300\301P\302\"\303\304\305\304$\306\302\"\204 \307\310!\210\311\312#\210\311\313#\210\211\203\\ \314\315@\"!\316!\203U \317\315\301\"!\203U \311\320\321\206L \"\322\320\"B#\210A\266\202\202% \266\202)\207" [eieio-persistent-read "Project.ede" ede-proj-project directory-files nil "[^.].*" object-of-class-p error "Corrupt project file" eieio-oset directory rootproject file-name-as-directory expand-file-name file-directory-p file-exists-p subproj ede-proj-load eieio-oref] 12 (#$ . 12333)])
#@65 Write out object PROJECT into its file.
(fn &optional PROJECT)
(defalias 'ede-proj-save #[256 "\211C\212\211\242\204
\211\300 \240\210\301\242\302\"\303\304#\216\305\242\306\"\210\307\242!)\262)\207" [ede-current-project eieio-oref directory make-closure #[0 "\302\300\242\303\301#\207" [V0 V1 eieio-oset directory] 4] slot-makeunbound :directory eieio-persistent-save] 7 (#$ . 13149)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\300\305\302\311\307\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\316\302\321\307\322%\207" [cl-generic-define-method ede-commit-local-variables nil ((proj ede-proj-project)) #[257 "\300!\207" [ede-proj-save] 3 "Commit change to local variables in PROJ.\n\n(fn PROJ)"] eieio-done-customizing ((proj ede-proj-project)) t #[514 " \210\300!\207" [ede-proj-save] 4 "Call this when a user finishes customizing this object.\nArgument PROJ is the project to save.\n\n(fn CL--CNM PROJ)"] ((_target ede-proj-target)) #[514 " \210\300\301 !\207" [ede-proj-save ede-current-project] 4 "Call this when a user finishes customizing this object.\nArgument TARGET is the project we are completing customization on.\n\n(fn CL--CNM TARGET)"] ede-commit-project ((proj ede-proj-project)) #[257 "\300!\207" [ede-proj-save] 3 "Commit any change to PROJ to its file.\n\n(fn PROJ)"] ede-buffer-mine ((this ede-proj-project) buffer) #[514 "\300\301!\"\302\303\304\"!\230\2061 \305!\230\2061 \306\307\"\2061 \306\310\"\2061 \306\311\"\2061 \211\312\235\207" [ede-convert-path buffer-file-name file-name-nondirectory eieio-oref file ede-proj-dist-makefile string-match "Makefile\\(\\.\\(in\\|am\\)\\)?$" "config\\(ure\\.\\(in\\|ac\\)\\|\\.status\\)?$" "config.h\\(\\.in\\)?" ("AUTHORS" "NEWS" "COPYING" "INSTALL" "README")] 7 "Return t if object THIS lays claim to the file in BUFFER.\n\n(fn THIS BUFFER)"] ((this ede-proj-target) buffer) #[771 " \206
\300\301\302\"#\207" [ede-target-buffer-in-sourcelist eieio-oref auxsource] 9 "Return t if object THIS lays claim to the file in BUFFER.\n\n(fn CL--CNM THIS BUFFER)"]] 6)
#@42 History when querying for a target type.
(defvar ede-proj-target-history nil (#$ . 15262))
(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\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\210\300\335\302\336\302\337%\210\300\335\302\340\302\341%\210\300\342\302\343\302\344%\210\300\345\302\346\302\347%\210\300\350\302\351\302\352%\210\300\353\302\354\302\355%\210\300\356\302\357\302\360%\210\300\361\302\362\302\363%\207" [cl-generic-define-method project-new-target nil ((this ede-proj-project) &optional name type autoadd) #[1025 "\206 \303\304\305\"\206 \306\307\310\311\310\312&\310\313 \2058 \203* ;\203* \314\230\2023 \315\316\317\320 #!\2058 \313 \321\"A\211\204F \322\323\"\210\211\324\325\326 \"\327\205\\ \330 !C&\262\203i \331 \210\332 \333\311$\210\334 !\207" [ede-proj-target-alist default-directory ede-object read-string "Name: " #1="" completing-read "Type: " nil t (ede-proj-target-history . 1) buffer-file-name "y" y-or-n-p format "Add %s to %s? " buffer-name assoc error "Unknown target type %s for EDE Project" :name :path ede-convert-path :source file-name-nondirectory ede-apply-object-keymap object-add-to-list targets ede-proj-save] 18 "Create a new target in THIS based on the current buffer.\n\n(fn THIS &optional NAME TYPE AUTOADD)"] project-new-target-custom ((this ede-proj-project)) #[257 "\302\303\304\"\305\306\307\310\307\311&\312\"A\313\314\315 \"\316\307&\207" [ede-proj-target-alist default-directory read-string "Name: " #1# completing-read "Type: " nil t (ede-proj-target-history . 1) assoc :name :path ede-convert-path :source] 11 "Create a new target in THIS for custom.\n\n(fn THIS)"] project-delete-target ((this ede-proj-target)) #[257 "\302 \303\304\"\211\2030 \303\305\"\306@!\211\203'