ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/ede/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/ede/emacs.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ede)
#@33 Get the root directory for DIR.
(defalias 'ede-emacs-project-root #[(&optional _dir) "\300\207" [nil] 1 (#$ . 425)])
#@93 Find the Emacs version for the Emacs src in DIR.
Return a tuple of ( EMACSNAME . VERSION ).
(defalias 'ede-emacs-version #[(dir) "\306\307!\310\311\312r q\210\313 \210\314\f!\315\316!\2039 \317\320\316!\210eb\210\321\322!\210\323\324!\325\323\326!\325\323\327!\260\202z \315\330!\203] \331\320\332!\210eb\210\321\333!\210\323\324!\325\323\326!\325\323\327!\260\202z \315\n!\204k \315\334\211!\203z \320\n!\210eb\210\321\335!\210\323\324! -B\207" [ver emacs configure_ac buff dir default-directory get-buffer-create " *emacs-query*" "configure.ac" "Emacs" "" erase-buffer file-name-as-directory file-exists-p "version.sh" "XEmacs" insert-file-contents re-search-forward "emacs_major_version=\\([0-9]+\\)\nemacs_minor_version=\\([0-9]+\\)\nemacs_beta_version=\\([0-9]+\\)" match-string 1 "." 2 3 "sxemacs.pc.in" "SXEmacs" "sxemacs_version.m4" "m4_define(\\[SXEM4CS_MAJOR_VERSION\\], \\[\\([0-9]+\\)\\])\nm4_define(\\[SXEM4CS_MINOR_VERSION\\], \\[\\([0-9]+\\)\\])\nm4_define(\\[SXEM4CS_BETA_VERSION\\], \\[\\([0-9]+\\)\\])" "configure.in" "AC_INIT(\\(?:GNU \\)?[eE]macs,\\s-*\\([0-9.]+\\)\\s-*[,)]"] 6 (#$ . 548)])
(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-emacs-project-p eieio-make-class-predicate ede-emacs-project ede-emacs-project--eieio-childp eieio-make-child-predicate ede-emacs-project-child-p make-obsolete "use (cl-typep ... 'ede-emacs-project) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-project) nil (:documentation "Project Type for the Emacs source code." :method-invocation-order :depth-first)] 5)
#@56 Create a new object of class type `ede-emacs-project'.
(defalias 'ede-emacs-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-project] 4 (#$ . 2222)])
(function-put 'ede-emacs-project 'compiler-macro 'ede-emacs-project--anon-cmacro)
(defalias 'ede-emacs-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])
#@183 Return an Emacs 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-emacs-load #[(dir &optional _rootproj) "\302!\303 @\304 @\305 A\306\307!\310\311\312\"& )\207" [dir vertuple ede-emacs-version ede-emacs-project :name :version :directory file-name-as-directory :file expand-file-name "src/emacs.c"] 12 (#$ . 2712)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320&\321\"\210\322\323\324\325!\"\210\322\326\327\325!\"\210\322\330\326\"\210\331\330\332\333#\210\334\325\335\326#\210\336\325\337\316\340$\207" [ede-add-project-autoload make-instance ede-project-autoload :name "EMACS ROOT" :file ede/emacs :proj-file "src/emacs.c" :load-type ede-emacs-load :class-sym ede-emacs-project :new-p nil :safe-p t unique defalias ede-emacs-target-c-p eieio-make-class-predicate ede-emacs-target-c ede-emacs-target-c--eieio-childp eieio-make-child-predicate ede-emacs-target-c-child-p make-obsolete "use (cl-typep ... 'ede-emacs-target-c) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-target) (:documentation "EDE Emacs Project target for C code.\nAll directories need at least one target.")] 17)
#@57 Create a new object of class type `ede-emacs-target-c'.
(defalias 'ede-emacs-target-c #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-c] 4 (#$ . 3996)])
(function-put 'ede-emacs-target-c 'compiler-macro 'ede-emacs-target-c--anon-cmacro)
(defalias 'ede-emacs-target-c--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-emacs-target-el-p eieio-make-class-predicate ede-emacs-target-el ede-emacs-target-el--eieio-childp eieio-make-child-predicate ede-emacs-target-el-child-p make-obsolete "use (cl-typep ... 'ede-emacs-target-el) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Emacs Lisp code.\nAll directories need at least one target.")] 5)
#@58 Create a new object of class type `ede-emacs-target-el'.
(defalias 'ede-emacs-target-el #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-el] 4 (#$ . 5053)])
(function-put 'ede-emacs-target-el 'compiler-macro 'ede-emacs-target-el--anon-cmacro)
(defalias 'ede-emacs-target-el--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-emacs-target-misc-p eieio-make-class-predicate ede-emacs-target-misc ede-emacs-target-misc--eieio-childp eieio-make-child-predicate ede-emacs-target-misc-child-p make-obsolete "use (cl-typep ... 'ede-emacs-target-misc) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Misc files.\nAll directories need at least one target.")] 5)
#@60 Create a new object of class type `ede-emacs-target-misc'.
(defalias 'ede-emacs-target-misc #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-misc] 4 (#$ . 6121)])
(function-put 'ede-emacs-target-misc 'compiler-macro 'ede-emacs-target-misc--anon-cmacro)
(defalias 'ede-emacs-target-misc--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\302\316%\207" [cl-generic-define-method initialize-instance nil ((this ede-emacs-project) &rest _fields) t #[(#1=#:cl--cnm this &rest _fields) " \210\302 \303\"?\205 \304 \305\306#\207" [#1# this slot-boundp targets eieio-oset :targets nil] 4 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"] ede-project-root-directory ((this ede-emacs-project) &optional _file) #[(this &optional _file) "\301\302\303\304\"!!\207" [this ede-up-directory file-name-directory eieio-oref file] 5 "Return the root for THIS Emacs project with file."] ede-project-root ((this ede-emacs-project)) #[(this) "\207" [this] 1 "Return my root."] ede-find-subproject-for-directory ((proj ede-emacs-project) _dir) #[(proj _dir) "\207" [proj] 1 "Return PROJ, for handling all subdirs below DIR."]] 6)
#@69 Find a target that is a CLASS and is in DIR in the list of TARGETS.
(defalias 'ede-emacs-find-matching-target #[(class dir targets) "\306 \306\211\203& @\307\n\f\"\203 \310\n\311\"
\230\203 \n A\211\204\n *)\207" [match targets T --dolist-tail-- class dir nil object-of-class-p eieio-oref path] 4 (#$ . 7541)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ede-find-target nil ((proj ede-emacs-project) buffer) #[(proj buffer) "\306\307!!\211\204 \310\202% \311\312 \"\203 \313\202% \311\314 \"\203$ \315\202% \310\316 \304\"
\317\n\f#\211 \204S \320\n\321\322\323!!\324\325\326&\327 \330#\210-\207" [buffer ext cls proj targets default-directory file-name-extension buffer-file-name ede-emacs-target-misc string-match "c\\|h" ede-emacs-target-c "elc?" ede-emacs-target-el eieio-oref ede-emacs-find-matching-target make-instance :name file-name-nondirectory directory-file-name :path :source nil object-add-to-list :targets dir ans] 9 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory."] ede-preprocessor-map ((this ede-emacs-target-c)) #[(this) "\306\307!\210\310!\311 !\312\313\n\314\"!\312\313\n\315\"! \316 \2032 \317 !\203* \320 !\210\321
\322 \323\"\"\f\203H \317\f!\203@ \320\f!\210\321
\322\f\323\"\"
-\207" [this proj root table config filemap require semantic/db ede-target-parent ede-project-root semanticdb-file-table-object ede-expand-filename "lisp.h" "config.h" nil semanticdb-needs-refresh-p semanticdb-refresh-table append eieio-oref lexical-table] 5 "Get the pre-processor map for Emacs C code.\nAll files need the macros from lisp.h!"]] 6)
#@46 Find NAME is BASE directory sublist of DIRS.
(defalias 'ede-emacs-find-in-directories #[(name base dirs) "\306 \203l \204l @\307\n \" \307
\f\" \310!\203% \202e \311\f\312\"\306 \211 \306 \211 \203\\ @\313!\203S \314\315\"\204S BA\211\2048 *\316
\f#* A+\202 )\207" [ans dirs D base ed name nil expand-file-name file-exists-p directory-files t file-directory-p string-match "\\.$" ede-emacs-find-in-directories ef moredirs dirfile DF --dolist-tail--] 5 (#$ . 9246)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312!\207" [cl-generic-define-method ede-expand-filename-impl nil ((proj ede-emacs-project) name) t #[(#1=#:cl--cnm proj name) "\306!\307\n!\310 ! \204 \311\2026 \312\313 \"\203 \314\2026 \312\315 \"\203* \316\2026 \312\317 \"\2035 \320\2026 \311\211 \204A \202F \321\f
#,\207" [name ext proj root dir dirs file-name-extension ede-project-root ede-project-root-directory nil string-match "h\\|c" ("src" "lib-src" "lwlib") "elc?" ("lisp") "texi" ("doc") ede-emacs-find-in-directories #1#] 5 "Within this project PROJ, find the file NAME.\nKnows about how the Emacs source tree is organized."] project-rescan ((this ede-emacs-project)) #[(this) "\302\303!!\304\305 @#\210\304\306 A#)\207" [this ver ede-emacs-version ede-project-root-directory eieio-oset name version] 4 "Rescan this Emacs project from the sources."] provide ede/emacs] 6)
Kontol Shell Bypass