403Webshell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/ede/simple.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321&\f\322#\210\323\324\325\326\327DD\330\331\301\332\333&\210\323\334\325\326\335DD\336\331\301\332\337&\207" [require ede cedet-files add-to-list ede-project-class-files ede-project-autoload :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 funcall function #[0 "\300\207" ["~/.ede"] 1 #1=""] "Directory where simple EDE project overlays are saved." :group :type directory ede-simple-save-file-name #[0 "\300\207" ["ProjSimple.ede"] 1 #1#] "File name used for simple project wrappers." string] 15)
#@180 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

(fn &optional DIR)
(defalias 'ede-simple-projectfile-for-dir #[256 "\211\206\303\304	!!\305!\nQ\207" [default-directory ede-simple-save-directory ede-simple-save-file-name file-name-as-directory expand-file-name cedet-directory-name-to-file-name] 5 (#$ . 827)])
#@186 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.

(fn DIR &optional ROOTPROJ)
(defalias 'ede-simple-load #[513 "\300!\301\203\302!\262\303\304#\210\207" [ede-simple-projectfile-for-dir nil eieio-persistent-read eieio-oset :directory] 8 (#$ . 1260)])
(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-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" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Simple project target.\nAll directories need at least one target.")] 6)
#@74 Create a new object of class type `ede-simple-target'.

(fn &rest SLOTS)
(defalias 'ede-simple-target #[128 "\300\301\302#\207" [apply make-instance ede-simple-target] 5 (#$ . 2179)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-simple-target compiler-macro ede-simple-target--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-simple-target--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 (#$ . 2491)])
(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-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" define-symbol-prop 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.")] 6)
#@75 Create a new object of class type `ede-simple-project'.

(fn &rest SLOTS)
(defalias 'ede-simple-project #[128 "\300\301\302#\207" [apply make-instance ede-simple-project] 5 (#$ . 3384)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-simple-project compiler-macro ede-simple-project--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-simple-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 (#$ . 3701)])
(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)) #[257 "\301!\204\302\303P!\203\304!\210\202\305\306!\210\307!\207" [ede-simple-save-directory file-exists-p y-or-n-p " doesn't exist.  Create? " make-directory error "No save directory for new project" eieio-persistent-save] 4 "Commit any change to PROJ to its file.\n\n(fn PROJ)"] ede-find-subproject-for-directory ((proj ede-simple-project) _dir) #[514 "\207" [] 3 "Return PROJ, for handling all subdirs below DIR.\n\n(fn PROJ DIR)"] provide ede/simple] 6)

Youez - 2016 - github.com/yon3zu
LinuXploit