| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 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!\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$\207" [require eieio-opt ede/config ede/shell semantic/db defalias ede-generic-config-p eieio-make-class-predicate ede-generic-config ede-generic-config--eieio-childp eieio-make-child-predicate ede-generic-config-child-p make-obsolete "use (cl-typep ... \\='ede-generic-config) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-extra-config ede-extra-config-build ede-extra-config-program ede-extra-config-c) ((file-header-line :initform ";; EDE Generic Project Configuration")) (:documentation "User Configuration object for a generic project.")] 6) #@75 Create a new object of class type `ede-generic-config'. (fn &rest SLOTS) (defalias 'ede-generic-config #[128 "\300\301\302#\207" [apply make-instance ede-generic-config] 5 (#$ . 857)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-config compiler-macro ede-generic-config--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-config--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 (#$ . 1173)]) #@213 Return a Generic Project object if there is a match. Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project. (fn DIR &optional ROOTPROJ) (defalias 'ede-generic-load #[513 "\211\204 \301\302!\210\303\304\"\305\303\304\"!\306\307\310!!\311\312\313\314\n!\315\316\303\317\" \"& \207" [ede-constructing error "Cannot load generic project without the autoload instance" eieio-oref class-sym symbol-name :name file-name-nondirectory directory-file-name :version "1.0" :directory file-name-as-directory :file expand-file-name proj-file] 16 (#$ . 1410)]) (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-generic-target-p eieio-make-class-predicate ede-generic-target ede-generic-target--eieio-childp eieio-make-child-predicate ede-generic-target-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target-with-config ede-target-with-config-build ede-target-with-config-program) ((shortname :initform #1="" :type string :allocation :class :documentation "Something prepended to the target name.") (extension :initform #1# :type string :allocation :class :documentation "Regular expression representing the extension used for this target.\nsubclasses of this base target will override the default value.")) (:documentation "Baseclass for all targets belonging to the generic ede system." :abstract t)] 6) #@76 You cannot create a new object of type `ede-generic-target'. (fn &rest _) (defalias 'ede-generic-target #[128 "\300\301!\207" [error "Class ede-generic-target is abstract"] 3 (#$ . 3000)]) (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-generic-project-p eieio-make-class-predicate ede-generic-project ede-generic-project--eieio-childp eieio-make-child-predicate ede-generic-project-child-p make-obsolete "use (cl-typep ... \\='ede-generic-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project-with-config ede-project-with-config-build ede-project-with-config-program ede-project-with-config-c ede-project-with-config-java) ((config-class :initform 'ede-generic-config) (config-file-basename :initform "EDEConfig.el") (buildfile :initform "" :type string :allocation :class :documentation "The file name that identifies a project of this type.\nThe class allocated value is replace by different sub classes.")) (:documentation "The baseclass for all generic EDE project types." :abstract t)] 6) #@77 You cannot create a new object of type `ede-generic-project'. (fn &rest _) (defalias 'ede-generic-project #[128 "\300\301!\207" [error "Class ede-generic-project is abstract"] 3 (#$ . 4157)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\314\315\316\317!\"\210\314\320\321\317!\"\210\314\322\320\"\210\323\322\324\325#\210\326\317\327\320#\330\317\331\332\333$\207" [cl-generic-define-method initialize-instance nil ((this ede-generic-project) &rest _fields) t #[642 " \210\300\301\"?\205 \302\303\304#\207" [slot-boundp targets eieio-oset :targets nil] 7 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"] ede-project-root ((this ede-generic-project)) #[257 "\207" #1=[] 2 "Return my root.\n\n(fn THIS)"] ede-find-subproject-for-directory ((proj ede-generic-project) _dir) #[514 "\207" #1# 3 "Return PROJ, for handling all subdirs below DIR.\n\n(fn PROJ DIR)"] defalias ede-generic-target-c-cpp-p eieio-make-class-predicate ede-generic-target-c-cpp ede-generic-target-c-cpp--eieio-childp eieio-make-child-predicate ede-generic-target-c-cpp-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-c-cpp) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target ede-target-with-config-c) ((shortname :initform "C/C++") (extension :initform "\\([ch]\\(pp\\|xx\\|\\+\\+\\)?\\|cc\\|hh\\|CC?\\)")) (:documentation "EDE Generic Project target for C and C++ code.\nAll directories need at least one target.")] 6) #@81 Create a new object of class type `ede-generic-target-c-cpp'. (fn &rest SLOTS) (defalias 'ede-generic-target-c-cpp #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-c-cpp] 5 (#$ . 5695)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-c-cpp compiler-macro ede-generic-target-c-cpp--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-c-cpp--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 (#$ . 6042)]) (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-generic-target-el-p eieio-make-class-predicate ede-generic-target-el ede-generic-target-el--eieio-childp eieio-make-child-predicate ede-generic-target-el-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-el) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target) ((shortname :initform "ELisp") (extension :initform "el")) (:documentation "EDE Generic Project target for Emacs Lisp code.\nAll directories need at least one target.")] 6) #@78 Create a new object of class type `ede-generic-target-el'. (fn &rest SLOTS) (defalias 'ede-generic-target-el #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-el] 5 (#$ . 6935)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-el compiler-macro ede-generic-target-el--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-el--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 (#$ . 7267)]) (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-generic-target-fortran-p eieio-make-class-predicate ede-generic-target-fortran ede-generic-target-fortran--eieio-childp eieio-make-child-predicate ede-generic-target-fortran-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-fortran) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target) ((shortname :initform "Fortran") (extension :initform "[fF]9[05]\\|[fF]\\|for")) (:documentation "EDE Generic Project target for Fortran code.\nAll directories need at least one target.")] 6) #@83 Create a new object of class type `ede-generic-target-fortran'. (fn &rest SLOTS) (defalias 'ede-generic-target-fortran #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-fortran] 5 (#$ . 8201)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-fortran compiler-macro ede-generic-target-fortran--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-fortran--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 (#$ . 8558)]) (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-generic-target-texi-p eieio-make-class-predicate ede-generic-target-texi ede-generic-target-texi--eieio-childp eieio-make-child-predicate ede-generic-target-texi-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-texi) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target) ((shortname :initform "Texinfo") (extension :initform "texi")) (:documentation "EDE Generic Project target for texinfo code.\nAll directories need at least one target.")] 6) #@80 Create a new object of class type `ede-generic-target-texi'. (fn &rest SLOTS) (defalias 'ede-generic-target-texi #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-texi] 5 (#$ . 9464)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-texi compiler-macro ede-generic-target-texi--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-texi--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 (#$ . 9806)]) (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-generic-target-java-p eieio-make-class-predicate ede-generic-target-java ede-generic-target-java--eieio-childp eieio-make-child-predicate ede-generic-target-java-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-java) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target ede-target-with-config-java) ((shortname :initform "Java") (extension :initform "java")) (:documentation "EDE Generic Project target for texinfo code.\nAll directories need at least one target.")] 6) #@80 Create a new object of class type `ede-generic-target-java'. (fn &rest SLOTS) (defalias 'ede-generic-target-java #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-java] 5 (#$ . 10734)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-java compiler-macro ede-generic-target-java--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-java--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 (#$ . 11077)]) (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-generic-target-misc-p eieio-make-class-predicate ede-generic-target-misc ede-generic-target-misc--eieio-childp eieio-make-child-predicate ede-generic-target-misc-child-p make-obsolete "use (cl-typep ... \\='ede-generic-target-misc) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-target) ((shortname :initform "Misc") (extension :initform "")) (:documentation "EDE Generic Project target for Misc files.\nAll directories need at least one target.")] 6) #@80 Create a new object of class type `ede-generic-target-misc'. (fn &rest SLOTS) (defalias 'ede-generic-target-misc #[128 "\300\301\302#\207" [apply make-instance ede-generic-target-misc] 5 (#$ . 11972)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-target-misc compiler-macro ede-generic-target-misc--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-target-misc--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 (#$ . 12315)]) #@93 Find a target that is a CLASS and is in DIR in the list of TARGETS. (fn CLASS DIR TARGETS) (defalias 'ede-generic-find-matching-target #[771 "\300\211\203# \211@\301\"\203 \302\303\"\230\203 \211\262A\266\202\202 \210\207" [nil object-of-class-p eieio-oref path] 9 (#$ . 12557)]) (cl-generic-define-method 'ede-find-target nil '((proj ede-generic-project) buffer) nil #[514 "\301\302!!\303\304\305\"\306\307\310\"\306\203A \211\203@ \211@\311@!\312\313\"\211\314\230\2047 \315\316\317Q\"\2037 \262\266A\266\202\202 \210\204H \320\262\321#\262\211\204k \322\323\312\324\"\325\326\306&\262\327\330#\210\207" [default-directory file-name-extension buffer-file-name eieio-build-class-alist ede-generic-target t nil eieio-oref targets intern eieio-oref-default extension "" string-match "\\`\\(?:" "\\)\\'" ede-generic-target-misc ede-generic-find-matching-target make-instance :name shortname :path :source object-add-to-list :targets] 16 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory.\n\n(fn PROJ BUFFER)"]) #@490 Add a new EDE Autoload instance for identifying a generic project. INTERNAL-NAME is obsolete and ignored. EXTERNAL-NAME is a human readable name to describe the project; it must be unique among all autoloaded projects. PROJECTFILE is a file name that identifies a project of this type to EDE, such as a Makefile, or SConstruct file. CLASS is the EIEIO class that is used to track this project. It should subclass `ede-generic-project'. (fn INTERNAL-NAME EXTERNAL-NAME PROJECTFILE CLASS) (defalias 'ede-generic-new-autoloader #[1028 "\300\301\302\303\304\305\306\307\310\311\312 \313\307\314\315&\316\"\207" [ede-add-project-autoload ede-project-autoload :name :file ede/generic :proj-file :root-only nil :load-type ede-generic-load :class-sym :new-p :safe-p t generic] 22 (#$ . 13665)]) #@33 Enable generic project loaders. (defalias 'ede-enable-generic-projects #[0 "\300\301\302\303\304$\210\300\305\306\307\310$\210\300\311\312\313\314$\210\300\315\316\317\320$\210\300\321\322\323\320$\210\300\324\325\326\320$\210\300\327\330\331\320$\210\300\332\333\334\320$\210\300\335\336\337\320$\210\300\340\341\342\320$\207" [ede-generic-new-autoloader "generic-makefile" "Generic Make" "Makefile" ede-generic-makefile-project "generic-scons" "Generic SCons" "SConstruct" ede-generic-scons-project "generic-cmake" "Generic CMake" "CMakeLists" ede-generic-cmake-project "generic-git" "Generic Git" ".git" ede-generic-vc-project "generic-bzr" "Generic Bazaar" ".bzr" "generic-hg" "Generic Mercurial" ".hg" "generic-svn" "Generic Subversions" ".svn" "generic-cvs" "Generic CVS" "CVS" "generic-mtn" "Generic Monotone" "_MTN" "generic-projectile" "Generic .projectile" ".projectile"] 5 (#$ . 14465) nil]) (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-generic-makefile-project-p eieio-make-class-predicate ede-generic-makefile-project ede-generic-makefile-project--eieio-childp eieio-make-child-predicate ede-generic-makefile-project-child-p make-obsolete "use (cl-typep ... \\='ede-generic-makefile-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-project) ((buildfile :initform "Makefile")) (:documentation "Generic Project for makefiles.")] 6) #@85 Create a new object of class type `ede-generic-makefile-project'. (fn &rest SLOTS) (defalias 'ede-generic-makefile-project #[128 "\300\301\302#\207" [apply make-instance ede-generic-makefile-project] 5 (#$ . 15977)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-makefile-project compiler-macro ede-generic-makefile-project--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-makefile-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 (#$ . 16345)]) (byte-code "\300\301\302\303\302\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$\207" [cl-generic-define-method ede-generic-setup-configuration nil ((_proj ede-generic-makefile-project) config) #[514 "\300\301\302#\210\300\303\304#\207" [eieio-oset build-command "make -k" debug-command "gdb "] 6 "Setup a configuration for Make.\n\n(fn PROJ CONFIG)"] defalias ede-generic-scons-project-p eieio-make-class-predicate ede-generic-scons-project ede-generic-scons-project--eieio-childp eieio-make-child-predicate ede-generic-scons-project-child-p make-obsolete "use (cl-typep ... \\='ede-generic-scons-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-project) ((buildfile :initform "SConstruct")) (:documentation "Generic Project for scons.")] 6) #@82 Create a new object of class type `ede-generic-scons-project'. (fn &rest SLOTS) (defalias 'ede-generic-scons-project #[128 "\300\301\302#\207" [apply make-instance ede-generic-scons-project] 5 (#$ . 17474)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-scons-project compiler-macro ede-generic-scons-project--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-scons-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 (#$ . 17827)]) (byte-code "\300\301\302\303\302\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$\207" [cl-generic-define-method ede-generic-setup-configuration nil ((_proj ede-generic-scons-project) config) #[514 "\300\301\302#\210\300\303\304#\207" [eieio-oset build-command "scons" debug-command "gdb "] 6 "Setup a configuration for SCONS.\n\n(fn PROJ CONFIG)"] defalias ede-generic-cmake-project-p eieio-make-class-predicate ede-generic-cmake-project ede-generic-cmake-project--eieio-childp eieio-make-child-predicate ede-generic-cmake-project-child-p make-obsolete "use (cl-typep ... \\='ede-generic-cmake-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-project) ((buildfile :initform "CMakeLists")) (:documentation "Generic Project for cmake.")] 6) #@82 Create a new object of class type `ede-generic-cmake-project'. (fn &rest SLOTS) (defalias 'ede-generic-cmake-project #[128 "\300\301\302#\207" [apply make-instance ede-generic-cmake-project] 5 (#$ . 18949)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-cmake-project compiler-macro ede-generic-cmake-project--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-cmake-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 (#$ . 19302)]) (byte-code "\300\301\302\303\302\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\302\323$\207" [cl-generic-define-method ede-generic-setup-configuration nil ((_proj ede-generic-cmake-project) config) #[514 "\300\301\302#\210\300\303\304#\207" [eieio-oset build-command "cmake" debug-command "gdb "] 6 "Setup a configuration for CMake.\n\n(fn PROJ CONFIG)"] defalias ede-generic-vc-project-p eieio-make-class-predicate ede-generic-vc-project ede-generic-vc-project--eieio-childp eieio-make-child-predicate ede-generic-vc-project-child-p make-obsolete "use (cl-typep ... \\='ede-generic-vc-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-generic-project) (:documentation "Generic project found via Version Control files.")] 6) #@79 Create a new object of class type `ede-generic-vc-project'. (fn &rest SLOTS) (defalias 'ede-generic-vc-project #[128 "\300\301\302#\207" [apply make-instance ede-generic-vc-project] 5 (#$ . 20394)]) (byte-code "\300\301\302\303#\300\207" [function-put ede-generic-vc-project compiler-macro ede-generic-vc-project--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ede-generic-vc-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 (#$ . 20732)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method ede-generic-setup-configuration nil ((_proj ede-generic-vc-project) _config) #[514 "\300\207" [nil] 3 "Setup a configuration for projects identified by revision control.\n\n(fn PROJ CONFIG)"] provide ede/generic] 6)