ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/ede/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/ede/simple.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322&
\323#\210\324\325\326\327\330\301\331\332&\210\324\333\334\335\330\301\331\336&\207" [require ede cedet-files add-to-list ede-project-class-files ede-project-autoload "simple-overlay" :name "Simple" :file ede/simple :proj-file ede-simple-projectfile-for-dir :load-type ede-simple-load :class-sym ede-simple-project :safe-p nil t custom-declare-variable ede-simple-save-directory "~/.ede" "*Directory where simple EDE project overlays are saved." :group :type directory ede-simple-save-file-name "ProjSimple.ede" "*File name used for simple project wrappers." string] 16)
#@160 Return a full file name to the project file stored in the current directory.
The directory has three parts:
<STORAGE ROOT>/<PROJ DIR AS FILE>/ProjSimple.ede
(defalias 'ede-simple-projectfile-for-dir #[(&optional dir) "\206 \305\306 !!\307\n!\fQ)\207" [dir default-directory d ede-simple-save-directory ede-simple-save-file-name file-name-as-directory expand-file-name cedet-directory-name-to-file-name] 3 (#$ . 1088)])
#@157 Load a project of type `Simple' for the directory DIR.
Return nil if there isn't one.
ROOTPROJ is nil, since we will only create a single EDE project here.
(defalias 'ede-simple-load #[(dir &optional rootproj) "\303!\304\211\203 \305\n!\306 \307#\210 *\207" [dir obj pf ede-simple-projectfile-for-dir nil eieio-persistent-read eieio-oset :directory] 5 (#$ . 1520)])
(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#\210\314\303\315\316\317$\207" [defalias ede-simple-target-p eieio-make-class-predicate ede-simple-target ede-simple-target--eieio-childp eieio-make-child-predicate ede-simple-target-child-p make-obsolete "use (cl-typep ... 'ede-simple-target) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Simple project target.\nAll directories need at least one target.")] 5)
#@56 Create a new object of class type `ede-simple-target'.
(defalias 'ede-simple-target #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-simple-target] 4 (#$ . 2431)])
(function-put 'ede-simple-target 'compiler-macro 'ede-simple-target--anon-cmacro)
(defalias 'ede-simple-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#\210\314\303\315\316\317$\207" [defalias ede-simple-project-p eieio-make-class-predicate ede-simple-project ede-simple-project--eieio-childp eieio-make-child-predicate ede-simple-project-child-p make-obsolete "use (cl-typep ... 'ede-simple-project) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-project eieio-persistent) ((extension :initform ".ede") (file-header-line :initform ";; EDE Simple Project")) (:documentation "EDE Simple project class.\nEach directory needs a project file to control it.")] 5)
#@57 Create a new object of class type `ede-simple-project'.
(defalias 'ede-simple-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-simple-project] 4 (#$ . 3564)])
(function-put 'ede-simple-project 'compiler-macro 'ede-simple-project--anon-cmacro)
(defalias 'ede-simple-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\302\304%\210\300\305\302\306\302\307%\210\310\311!\207" [cl-generic-define-method ede-commit-project nil ((proj ede-simple-project)) #[(proj) "\302!\204 \303\304P!\203 \305!\210\202 \306\307!\210\310 !\207" [ede-simple-save-directory proj file-exists-p y-or-n-p " doesn't exist. Create? " make-directory error "No save directory for new project" eieio-persistent-save] 3 "Commit any change to PROJ to its file."] ede-find-subproject-for-directory ((proj ede-simple-project) dir) #[(proj dir) "\207" [proj] 1 "Return PROJ, for handling all subdirs below DIR."] provide ede/simple] 6)
Kontol Shell Bypass