Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/cpp-root.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!\207" [require ede semantic/db] 2)
#@60 List of projects created by option `ede-cpp-root-project'.
(defvar ede-cpp-root-project-list nil (#$ . 477))
(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-cpp-root-target-p eieio-make-class-predicate ede-cpp-root-target ede-cpp-root-target--eieio-childp eieio-make-child-predicate ede-cpp-root-target-child-p make-obsolete "use (cl-typep ... \\='ede-cpp-root-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) ((project :initform nil :initarg :project)) (:documentation "EDE cpp-root project target.\nAll directories need at least one target.")] 6)
#@58 Create a new object of class type `ede-cpp-root-target'.
(defalias 'ede-cpp-root-target #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-cpp-root-target] 4 (#$ . 1191)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-cpp-root-target compiler-macro ede-cpp-root-target--anon-cmacro] 4)
(defalias 'ede-cpp-root-target--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!\"\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-cpp-root-project-p eieio-make-class-predicate ede-cpp-root-project ede-cpp-root-project--eieio-childp eieio-make-child-predicate ede-cpp-root-project-child-p make-obsolete "use (cl-typep ... \\='ede-cpp-root-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project eieio-instance-tracker) ((tracking-symbol :initform 'ede-cpp-root-project-list) (include-path :initarg :include-path :initform '("/include" "../include/") :type list :documentation "The default locate function expands filenames within a project.\nIf a header file (.h, .hh, etc) name is expanded, and\nthe :locate-fcn slot is nil, then the include path is checked\nfirst, and other directories are ignored. For very large\nprojects, this optimization can save a lot of time.\n\nDirectory names in the path can be relative to the current\nbuffer's `default-directory' (not starting with a /). Directories\nthat are relative to the project's root should start with a /, such\nas \"/include\", meaning the directory `include' off the project root\ndirectory.") (system-include-path :initarg :system-include-path :initform nil :type list :documentation "The system include path for files in this project.\nC files initialized in an ede-cpp-root-project have their semantic\nsystem include path set to this value. If this is nil, then the\nsemantic path is not modified.") (spp-table :initarg :spp-table :initform nil :type list :documentation "C Preprocessor macros for your files.\nPreprocessor symbols will be used while parsing your files.\nThese macros might be passed in through the command line compiler, or\nare critical symbols derived from header files. Providing header files\nmacro values through this slot improves accuracy and performance.\nUse `:spp-files' to use these files directly.") (spp-files :initarg :spp-files :initform nil :type list :documentation "C header file with Preprocessor macros for your files.\nThe PreProcessor symbols appearing in these files will be used while\nparsing files in this project.\nSee `semantic-lex-c-preprocessor-symbol-map' for more on how this works.") (header-match-regexp :initarg :header-match-regexp :initform "\\.\\(h\\(h\\|xx\\|pp\\|\\+\\+\\)?\\|H\\)$\\|\\<\\w+$" :type string :documentation "Regexp used to identify C/C++ header files.") (locate-fcn :initarg :locate-fcn :initform nil :type (or null function) :documentation "The locate function can be used in place of\n`ede-expand-filename' so you can quickly customize your custom target\nto use specialized local routines instead of the EDE routines.\nThe function symbol must take two arguments:\n NAME - The name of the file to find.\n DIR - The directory root for this cpp-root project.\n\nIt should return the fully qualified file name passed in from NAME. If that file does not\nexist, it should return nil.") (compile-command :initarg :compile-command :initform nil :type (or null string function) :documentation "Compilation command that will be used for this project.\nIt could be string or function that will accept proj argument and should return string.\nThe string will be passed to `compile' function that will be issued in root\ndirectory of project.")) (:documentation "EDE cpp-root project class.\nEach directory needs a project file to control it.")] 6)
#@59 Create a new object of class type `ede-cpp-root-project'.
(defalias 'ede-cpp-root-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-cpp-root-project] 4 (#$ . 5186)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-cpp-root-project compiler-macro ede-cpp-root-project--anon-cmacro] 4)
(defalias 'ede-cpp-root-project--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\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\304\316%\210\300\317\302\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\333\302\341\302\342%\210\300\336\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%\207" [cl-generic-define-method initialize-instance nil ((this ede-cpp-root-project) &rest fields) t #[(#1=#:cl--cnm this &rest fields) " \210\304\305 \306\"!\307\310\n!\311\312#\211\203$ =\204$ \313 !\210\314 !\210)\315\n!\2031 \316\n!\2039 \314 !\210\317\320!\210\321 \306\n#\210\321 \322\310\n!#\210\323\310\n!!\210\324 !\210\325 \326\"?\205^ \321 \326\327#)\207" [#1# this f old expand-file-name eieio-oref file eieio-instance-tracker-find file-name-directory :directory ede-cpp-root-project-list ede-delete-project-from-global-list delete-instance file-exists-p file-directory-p error ":file for ede-cpp-root-project must be a file" eieio-oset directory ede-project-directory-remove-hash ede-add-project-to-global-list slot-boundp targets nil] 6 "Make sure the :file is fully expanded.\n\n(fn THIS &rest FIELDS)"] ede-find-subproject-for-directory ((proj ede-cpp-root-project) dir) #[(proj dir) "\207" [proj] 1 "Return PROJ, for handling all subdirs below DIR."] ede-find-target ((proj ede-cpp-root-project) buffer) #[(proj buffer) "\305\301\"\n\306 \307 #\211 \204( \310 \311\312\313 !!\307 \314\315\316& \317\320\f#\210\f+\207" [proj targets default-directory dir ans eieio-oref object-assoc :path ede-cpp-root-target :name file-name-nondirectory directory-file-name :source nil :project object-add-to-list :targets] 11 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory."] ede-expand-filename-impl ((proj ede-cpp-root-project) name) #[(#2=#:cl--cnm proj name) " \211\204] \306\n\307\"\310\306\n\311\"! \203
\f\"\202\\ \312\n
\"\203Y \306\n\313\"\314 \211 \203U \315\n@\"\316
\"\317!\203L A\211\2043 *\202\\ * \206c )\207" [#2# ans proj lf dir name eieio-oref locate-fcn file-name-directory file ede-cpp-root-header-file-p include-path nil ede-cpp-root-translate-file expand-file-name file-exists-p tmp ip] 5 "Within this project PROJ, find the file NAME.\nThis knows details about or source tree."] ede-project-root ((this ede-cpp-root-project)) #[(this) "\207" [this] 1 "Return my root."] ede-project-root-directory ((this ede-cpp-root-project)) #[(this) "\301\302\"\207" [this eieio-oref directory] 3 "Return my root."] ede-cpp-root-header-file-p ((proj ede-cpp-root-project) name) #[(proj name) "\303 \304\216\305\306 \307\"\n\"*\207" [save-match-data-internal proj name match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match eieio-oref header-match-regexp] 4 "Non-nil if in PROJ the filename NAME is a header."] ede-cpp-root-translate-file ((proj ede-cpp-root-project) filename) #[(proj filename) "\303\304\305\"!\n\306\230\204 \n\307H\310U\203 \311\312\n\313\" \"\202$ \311\n!\n)\207" [proj dir filename file-name-directory eieio-oref file "" 0 47 expand-file-name substring 1] 4 "For PROJ, translate a user specified FILENAME.\nThis is for project include paths and spp source files."] ede-system-include-path ((this ede-cpp-root-project)) #[(this) "\301\302\"\207" [this eieio-oref system-include-path] 3 "Get the system include path used by project THIS."] ede-preprocessor-map ((this ede-cpp-root-project)) #[(this) "\303\304!\210\305\306\"\307!\310\311\305\312\"\"\210\n*\207" [this root spp require semantic/db eieio-oref spp-table ede-project-root mapc #[(F) "\306 \"\211\205 \307\310\n!) \311\n!\204 \312\313 \"\202B \n\314 \230\206B \f\204/ \312\315\n\"\202B \316\f!\2039 \317\f!\210\320
\321\f\322\"\"\211*\207" [root F expfile ede-constructing table spp ede-expand-filename t semanticdb-file-table-object file-exists-p message "Cannot find file %s in project." buffer-file-name "No db table available for %s." semanticdb-needs-refresh-p semanticdb-refresh-table append eieio-oref lexical-table] 6] spp-files] 5 "Get the pre-processor map for project THIS."] ((this ede-cpp-root-target)) #[(this) "\301\302!!\207" [this ede-system-include-path ede-target-parent] 3 "Get the system include path used by target THIS."] ((this ede-cpp-root-target)) #[(this) "\301\302!!\207" [this ede-preprocessor-map ede-target-parent] 3 "Get the pre-processor map for project THIS."] project-compile-project ((proj ede-cpp-root-project) &optional command) #[(proj &optional command) "\306\307\"\306\310\"\211\205 \311\307\n\"A ;\203 \202; \312 !\203) !\202; ;\2032 \202; \312 !\205; !\211 \205H \313! \314\f!),\207" [proj cmd ov lcmd cmd-str default-directory eieio-oref compile-command local-variables assoc functionp ede-project-root-directory compile] 4 "Compile the entire current project PROJ.\nArgument COMMAND is the command to use when compiling."] project-compile-target ((obj ede-cpp-root-target) &optional command) #[(obj &optional command) "\302\303\"\205 \304\302\303\" \"\207" [obj command eieio-oref project project-compile-project] 4 "Compile the current target OBJ.\nArgument COMMAND is the command to use for compiling the target."] project-rescan ((this ede-cpp-root-project)) #[(this) "\300\301!\207" [message "cpp-root has nothing to rescan."] 2 "Don't rescan this project from the sources."]] 6)
#@226 Create a bunch of projects under directory DIR.
PROJFILE is a file name sans directory that indicates a subdirectory
is a project directory.
Generic ATTRIBUTES, such as :include-path can be added.
Note: This needs some work.
(defalias 'ede-create-lots-of-projects-under-dir #[(dir projfile &rest attributes) "\305\306\"\211\307\211\205 @\310\311\f\n\"!\210 A\211\204
\307+\207" [dir files F --dolist-tail-- projfile directory-files t nil file-exists-p expand-file-name] 5 (#$ . 11281)])
(provide 'ede/cpp-root)
Mini Shell