;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:04 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/generic.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\300\304!\210\305\306\307\310\311$\207" [require eieio-opt ede ede/shell semantic/db eieio-defclass ede-generic-config (eieio-persistent) ((extension :initform ".ede") (file-header-line :initform ";; EDE Generic Project Configuration") (project :initform nil :documentation "The project this config is bound to.") (build-command :initarg :build-command :initform "make -k" :type string :custom string :group (default build) :documentation "Command used for building this project.") (debug-command :initarg :debug-command :initform "gdb " :type string :custom string :group (default build) :documentation "Command used for debugging this project.") (run-command :initarg :run-command :initform nil :type (or null string) :custom string :group (default build) :documentation "Command used to run something related to this project.") (c-include-path :initarg :c-include-path :initform nil :type list :custom (repeat (string :tag "Path")) :group c :documentation "The include path used by C/C++ projects.") (c-preprocessor-table :initarg :c-preprocessor-table :initform nil :type list :custom (repeat (cons (string :tag "Macro") (string :tag "Value"))) :group c :documentation "Preprocessor Symbols for this project.") (c-preprocessor-files :initarg :c-preprocessor-files :initform nil :type list :custom (repeat (string :tag "Include File")))) ("User Configuration object for a generic project.")] 5)
#@184 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.
(defalias 'ede-generic-load #[(dir &optional rootproj) "\304	\204\f\305\306!\210\307	\310\"\311\307	\310\"!\312\313\314!!\315\316\317\320!\321\322\307	\323\"!&	\324\n!*\207" [ede-constructing alobj this dir nil 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 ede-add-project-to-global-list] 13 (#$ . 2010)])
(byte-code "\300\301\302\303\304$\210\300\305\306\307\310$\210\311\312\313\312\314\"\"\210\315\312\316\305\317$\210\311\320\313\320\321\"\"\210\315\320\316\305\322$\210\311\323\313\323\324\"\"\210\315\323\316\305\325$\210\311\326\313\326\327\"\"\210\315\326\316\305\330$\210\300\331\332\333\334$\210\300\335\336\337\340$\210\300\341\342\343\344$\210\300\345\346\347\350$\210\300\351\352\353\354$\207" [eieio-defclass ede-generic-target (ede-target) ((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.")) ("Baseclass for all targets belonging to the generic ede system." :abstract t) ede-generic-project (ede-project) ((buildfile :initform #1# :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.") (config :initform nil :type (or null ede-generic-config) :documentation "The configuration object for this project.")) ("The baseclass for all generic EDE project types." :abstract t) eieio--defalias initialize-instance eieio--defgeneric-init-form #2="Make sure the targets slot is bound." eieio--defmethod nil #[(this &rest fields) "\301 \210\302\303\"?\205\304\305\306#\207" [this call-next-method slot-boundp targets eieio-oset :targets nil] 4 #2#] ede-generic-get-configuration #3="Return the configuration for the project PROJ." #[(proj) "\303\301\"\211\2047\304\305\303\306\"\"\307\n!\203\310\n\311\"\202*\311\312\313\n#\314	\"\210\315\301	#\210\315	\316#\210)	)\207" [proj config fname eieio-oref expand-file-name "EDEConfig.el" :directory file-exists-p eieio-persistent-read ede-generic-config "Configuration" :file ede-generic-setup-configuration eieio-oset project] 6 #3#] ede-generic-setup-configuration #4="Default configuration setup method." #[(proj config) "\300\207" [nil] 1 #4#] ede-commit-project #5="Commit any change to PROJ to its file." #[(proj) "\302!\303	!)\207" [proj config ede-generic-get-configuration ede-commit] 2 #5#] ede-generic-target-c-cpp (ede-generic-target) ((shortname :initform "C/C++") (extension :initform "\\([ch]\\(pp\\|xx\\|\\+\\+\\)?\\|cc\\|hh\\|CC?\\)")) ("EDE Generic Project target for C and C++ code.\nAll directories need at least one target.") ede-generic-target-el (ede-generic-target) ((shortname :initform "ELisp") (extension :initform "el")) ("EDE Generic Project target for Emacs Lisp code.\nAll directories need at least one target.") ede-generic-target-fortran (ede-generic-target) ((shortname :initform "Fortran") (extension :initform "[fF]9[05]\\|[fF]\\|for")) ("EDE Generic Project target for Fortran code.\nAll directories need at least one target.") ede-generic-target-texi (ede-generic-target) ((shortname :initform "Texinfo") (extension :initform "texi")) ("EDE Generic Project target for texinfo code.\nAll directories need at least one target.") ede-generic-target-misc (ede-generic-target) ((shortname :initform "Misc") (extension :initform #1#)) ("EDE Generic Project target for Misc files.\nAll directories need at least one target.")] 5)
#@69 Find a target that is a CLASS and is in DIR in the list of TARGETS.
(defalias 'ede-generic-find-matching-target #[(class dir targets) "\306	\306\211\203&@\307\n\f\"\203\310\n\311\"
\230\203\nA\211\204\n*)\207" [match targets T --dolist-tail-- class dir nil object-of-class-p eieio-oref :path] 4 (#$ . 6008)])
(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\315\"\"\210\304\314\305\312\316$\210\300\317\302\317\320\"\"\210\304\317\305\306\321$\210\300\322\302\322\323\"\"\210\304\322\305\324\325$\210\300\326\302\326\327\"\"\210\304\326\305\324\330$\210\300\331\302\331\332\"\"\210\304\331\305\324\333$\210\300\334\302\334\335\"\"\210\304\334\305\306\336$\210\300\334\302\334\337\"\"\210\304\334\305\324\340$\210\300\341\302\341\342\"\"\210\304\341\305\343\344$\210\300\345\302\345\346\"\"\210\304\345\305\343\347$\207" [eieio--defalias ede-find-target eieio--defgeneric-init-form #1="Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory." eieio--defmethod nil ede-generic-project #[(proj buffer) "\306\307!!\310\311\312\"\313\314\f\305\"\313	\203Y\n\313\211 \203X @\315@!!\314!\316\"\211\"\317\230\204N\320\321\"\322Q	\"\203N!* A\211 \204'*\204_\323\324
#\211\204\202\325\326\314\327\"\330\331\313&\332\f\333#\210.\207" [buffer ext classes cls proj targets file-name-extension buffer-file-name eieio-build-class-alist ede-generic-target t nil eieio-oref intern extension "" string-match "^" "$" ede-generic-target-misc ede-generic-find-matching-target make-instance :name shortname :path :source object-add-to-list :targets default-directory dir ans C --dolist-tail-- classsym extreg] 9 #1#] ede-preprocessor-map #2="Get the pre-processor map for some generic C code." ede-generic-target-c-cpp #[(this) "\306!\307	!\310	!\311\312\313\"\311\211\203I@\314\315\n
\"!\211\203?\316!\2036\317!\210\320\f\312\321\"\")A\211\204*\320\f\312\322\"\"\211,\207" [this proj root config filemap G ede-target-parent ede-project-root ede-generic-get-configuration nil eieio-oref :c-preprocessor-files semanticdb-file-table-object ede-expand-filename semanticdb-needs-refresh-p semanticdb-refresh-table append lexical-table :c-preprocessor-table --dolist-tail-- table] 6 #2#] ede-system-include-path #3="Get the system include path used by project THIS." #[(this) "\303!\304	!\305\n\306\"*\207" [this proj config ede-target-parent ede-generic-get-configuration eieio-oref c-include-path] 3 #3#] project-compile-project #4="Compile the entire current project PROJ.\nArgument COMMAND is the command to use when compiling." #[(proj &optional command) "\303!\304	\305\"\306\n!*\207" [proj config comp ede-generic-get-configuration eieio-oref :build-command compile] 3 #4#] project-compile-target #5="Compile the current target OBJ.\nArgument COMMAND is the command to use for compiling the target." ede-generic-target #[(obj &optional command) "\301\302 \"\207" [command project-compile-project ede-current-project] 3 #5#] project-debug-target #6="Run the current project derived from TARGET in a debugger." #[(target) "\306!\307	!\310\n\311\"\312\313\"\314\f\315\316#\317
@!\320\316\".\207" [target proj config debug cmd cmdsplit ede-target-parent ede-generic-get-configuration eieio-oref :debug-command read-from-minibuffer "Debug Command: " split-string " " t intern-soft call-interactively cmdsym] 4 #6#] project-run-target #7="Run the current project derived from TARGET." #[(target) "\305\306!\210\307!\310	!\311\312\n\313\"P\314\315\"\316\f\",\207" [target proj config run cmd require ede-shell ede-target-parent ede-generic-get-configuration "./" eieio-oref :run-command read-from-minibuffer "Run (like this): " ede-shell-run-something] 4 #7#] ede-customize #8="Customize the EDE project PROJ." #[(proj) "\302!\303	!)\207" [proj config ede-generic-get-configuration eieio-customize-object] 2 #8#] #9="Customize the EDE TARGET." #[(target) "\300 \207" [ede-customize-project] 1 #9#] eieio-done-customizing #10="Called when EIEIO is done customizing the configuration object.\nWe need to go back through the old buffers, and update them with\nthe new configuration." ede-generic-config #[(config) "\301!\210\302\303\304\"\305\"\207" [config ede-commit ede-map-targets eieio-oref project #[(target) "\301\302\"\207" [target ede-map-target-buffers #[(b) "rq\210\301 )\207" [b ede-apply-target-options] 1]] 3]] 4 #10#] ede-commit #11="Commit all changes to the configuration to disk." #[(config) "\301!\207" [config eieio-persistent-save] 2 #11#]] 5)
#@440 Add a new EDE Autoload instance for identifying a generic project.
INTERNAL-NAME is a long name that identifies this project type.
EXTERNAL-NAME is a shorter human readable name to describe the project.
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
the class `ede-generic-project' project.
(defalias 'ede-generic-new-autoloader #[(internal-name external-name projectfile class) "\304\305\306	\307\310\311\n\312\313\314\315\316\317\316&\320\"\207" [internal-name external-name projectfile class ede-add-project-autoload ede-project-autoload :name :file ede/generic :proj-file :load-type ede-generic-load :class-sym :new-p nil :safe-p generic] 17 (#$ . 10712)])
#@33 Enable generic project loaders.
(defalias 'ede-enable-generic-projects #[nil "\300\301\302\303\304$\210\300\305\306\307\310$\210\300\311\312\313\314$\207" [ede-generic-new-autoloader "generic-makefile" "Make" "Makefile" ede-generic-makefile-project "generic-scons" "SCons" "SConstruct" ede-generic-scons-project "generic-cmake" "CMake" "CMakeLists" ede-generic-cmake-project] 5 (#$ . 11530) nil])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\312\301\313$\210\300\314\315\316\317$\210\305\306\307\306\320\"\"\210\311\306\312\314\321$\210\300\322\323\324\325$\210\305\306\307\306\326\"\"\210\311\306\312\322\327$\210\330\331!\207" [eieio-defclass ede-generic-makefile-project (ede-generic-project) ((buildfile :initform "Makefile")) ("Generic Project for makefiles.") eieio--defalias ede-generic-setup-configuration eieio--defgeneric-init-form #1="Setup a configuration for Make." eieio--defmethod nil #[(proj config) "\301\302\303#\210\301\304\305#\207" [config eieio-oset build-command "make -k" debug-command "gdb "] 4 #1#] ede-generic-scons-project (ede-generic-project) ((buildfile :initform "SConstruct")) ("Generic Project for scons.") #2="Setup a configuration for SCONS." #[(proj config) "\301\302\303#\210\301\304\305#\207" [config eieio-oset build-command "scons" debug-command "gdb "] 4 #2#] ede-generic-cmake-project (ede-generic-project) ((buildfile :initform "CMakeLists")) ("Generic Project for cmake.") #3="Setup a configuration for CMake." #[(proj config) "\301\302\303#\210\301\304\305#\207" [config eieio-oset build-command "cmake" debug-command "gdb "] 4 #3#] provide ede/generic] 5)