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/semantic/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\324\325\326$\207" [require semantic ede/proj ede/pmake ede/pconf ede/proj-elisp semantic/grammar defalias semantic-ede-proj-target-grammar-p eieio-make-class-predicate semantic-ede-proj-target-grammar semantic-ede-proj-target-grammar--eieio-childp eieio-make-child-predicate semantic-ede-proj-target-grammar-child-p make-obsolete "use (cl-typep ... \\='semantic-ede-proj-target-grammar) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-proj-target-elisp) ((menu :initform nil) (keybindings :initform nil) (phony :initform t) (sourcetype :initform '(semantic-ede-source-grammar-wisent semantic-ede-source-grammar-bovine)) (availablecompilers :initform '(semantic-ede-grammar-compiler-wisent semantic-ede-grammar-compiler-bovine)) (aux-packages :initform '("semantic" "cedet-compat")) (pre-load-packages :initform '("cedet-compat" "semantic/grammar" "semantic/bovine/grammar" "semantic/wisent/grammar"))) (:documentation "This target consists of a group of grammar files.\nA grammar target consists of grammar files that build Emacs Lisp programs for\nparsing different languages.")] 6)
#@89 Create a new object of class type `semantic-ede-proj-target-grammar'.

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

(fn WHOLE &rest SLOTS)
(defalias 'semantic-ede-proj-target-grammar--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 (#$ . 1793)])
(cl-generic-define-method 'ede-proj-makefile-dependencies nil '((this semantic-ede-proj-target-grammar)) nil #[257 "\300\301\"@\302\303\"\203\304\305\306!\"\207\302\307\"\205 \304\310\306!\"\207" [eieio-oref source string-match "\\.wy$" format "$(addsuffix -wy.elc, $(basename $(%s)))" ede-proj-makefile-sourcevar "\\.by$" "$(addsuffix -by.elc, $(basename $(%s)))"] 6 "Return a string representing the dependencies for THIS.\nSome compilers only use the first element in the dependencies, others\nhave a list of intermediates (object files), and others don't care.\nThis allows customization of how these elements appear.\nFor Emacs Lisp, return addsuffix command on source files.\n\n(fn THIS)"])
#@53 Semantic Grammar source code definition for wisent.
(defvar semantic-ede-source-grammar-wisent (ede-sourcecode :name "Wisent Grammar" :sourcepattern "\\.wy$" :garbagepattern '("*-wy.el")) (#$ . 2748))
(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 semantic-ede-grammar-compiler-class-p eieio-make-class-predicate semantic-ede-grammar-compiler-class semantic-ede-grammar-compiler-class--eieio-childp eieio-make-child-predicate semantic-ede-grammar-compiler-class-child-p make-obsolete "use (cl-typep ... \\='semantic-ede-grammar-compiler-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-compiler) nil (:documentation "Specialized compiler for semantic grammars.")] 6)
#@92 Create a new object of class type
`semantic-ede-grammar-compiler-class'.

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

(fn WHOLE &rest SLOTS)
(defalias 'semantic-ede-grammar-compiler-class--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 (#$ . 3970)])
#@30 Compile Emacs Lisp programs.
(defvar semantic-ede-grammar-compiler-wisent (byte-code "\300\301\302\303\304\305\306\307\310\311\312\305\313&C\314\315\316\317&\n\207" [semantic-ede-grammar-compiler-class :name "emacs" :variables (("EMACS" . "emacs") ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'") ("require" . "$(foreach r,$(1),(require (quote $(r))))")) :rules ede-makefile-rule :target "%-wy.el" :dependencies "%.wy" ("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) --eval '(progn $(call require,$(PRELOADS)))' -f semantic-grammar-batch-build-packages $^") :sourcetype (semantic-ede-source-grammar-wisent) :objectextention "-wy.el"] 13) (#$ . 4223))
#@60 Semantic Grammar source code definition for the bovinator.
(defvar semantic-ede-source-grammar-bovine (ede-sourcecode :name "Bovine Grammar" :sourcepattern "\\.by$" :garbagepattern '("*-by.el")) (#$ . 4912))
#@30 Compile Emacs Lisp programs.
(defvar semantic-ede-grammar-compiler-bovine (byte-code "\300\301\302\303\304\305\306\307\310\311\312\305\313&C\314\315\316\317&\n\207" [semantic-ede-grammar-compiler-class :name "emacs" :variables (("EMACS" . "emacs") ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'") ("require" . "$(foreach r,$(1),(require (quote $(r))))")) :rules ede-makefile-rule :target "%-by.el" :dependencies "%.by" ("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) --eval '(progn $(call require,$(PRELOADS)))' -f semantic-grammar-batch-build-packages $^") :sourcetype (semantic-ede-source-grammar-bovine) :objectextention "-by.el"] 13) (#$ . 5126))
(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\315\316\302\317%\210\300\320\321\322\302\323%\210\300\324\302\325\304\326%\210\327\330\331\"\210\332\333!\207" [cl-generic-define-method ede-buffer-mine nil ((_this semantic-ede-proj-target-grammar) buffer) t #[771 "\300\301\302!\"\203\303\207 \207" [string-match "-[bw]y\\.elc?$" buffer-file-name t] 7 "Return t if object THIS lays claim to the file in BUFFER.\nLays claim to all -by.el, and -wy.el files.\n\n(fn CL--CNM THIS BUFFER)"] project-compile-target ((obj semantic-ede-proj-target-grammar)) #[257 "\301!\302\303\"\304C\304C\305\306\307$\302\310\"\"\210\311\312\313!\"\210\242\242)B\207" [default-directory ede-target-parent eieio-oref directory 0 mapc make-closure #[257 "r\303!q\210\304 \305\306\"\210\307\310\"\311\300\"\312\313\314#\315=\203)\301\211\242T\240\266\203\2020\302\211\242T\240\266\203)\207" [V0 V1 V2 find-file-noselect semantic-grammar-create-package string-match ".*/\\(.+\\.el\\)" match-string 1 ede-expand-filename byte-recompile-file nil 0 t] 8 "\n\n(fn SRC)"] source message "All Semantic Grammar sources are up to date in %s" eieio-object-name] 10 "Compile all sources in a Lisp target OBJ.\n\n(fn OBJ)"] ede-proj-makefile-sourcevar ((this semantic-ede-proj-target-grammar)) #[257 "\300 \203	\301\302!\207\211\303\304\"\305\306\"\203 \307\310\311\312$\262\202\262\313P\207" [ede-proj-automake-p error "No Automake support for Semantic Grammars" eieio-oref name string-match #1="\\." replace-match #2="_" nil t "_SEMANTIC_GRAMMAR"] 8 "Return the variable name for THIS's sources.\n\n(fn THIS)"] ede-proj-makefile-insert-variables (:after) ((this semantic-ede-proj-target-grammar)) #[257 "\300\301\302\303\304E!!\210\305\306\307\"\310\311\"\203!\312\313\314\305$\262\202\262\315P\212db\210\316\317\320Q\314\305#)\203]\321\225b\210\322 \210i\323W\203Th\324U\204Wh\325U\204W\326c\210\202W\327c\210\314\262\202b\211\330\261\210\331\332\306\333\"\326#c\210\203s\334c\210db\207" [ede-proj-makefile-insert-loadpath-items ede-proj-elisp-packages-to-loadpath "eieio" "semantic" "ede" t eieio-oref name string-match #1# replace-match #2# nil "_SEMANTIC_GRAMMAR_EL" re-search-backward "^" "\\s-*=" 0 ede-pmake-end-of-variable 40 61 32 " " "\\\n   " "=" mapconcat #[257 "r\300!q\210\301 \302P)\207" [find-file-noselect semantic-grammar-package ".el"] 3 "\n\n(fn SRC)"] source "\n"] 9 "Insert variables needed by target THIS.\n\n(fn THIS)"] ede-proj-makefile-insert-rules (:after) ((this semantic-ede-proj-target-grammar)) #[257 "\300\301\302\303\"\"c\207" [format "%s: EMACSFLAGS+= --eval '(setq max-specpdl-size 1500 max-lisp-eval-depth 700)'\n" eieio-oref name] 6 "Insert rules needed by THIS target.\nThis raises `max-specpdl-size' and `max-lisp-eval-depth', which can be\nneeded for the compilation of the resulting parsers.\n\n(fn THIS)"] ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar)) #[514 " \210\300\301\302\"\303\304\"\203\305\306\307\310$\262\202	\262\311\261\207" [" $(" eieio-oref name string-match #1# replace-match #2# nil t "_SEMANTIC_GRAMMAR_EL)"] 10 "Insert dist dependencies, or intermediate targets.\nThis makes sure that all grammar Lisp files are created before the dist\nruns, so they are always up to date.\nArgument THIS is the target that should insert stuff.\n\n(fn CL--CNM THIS)"] ede-proj-register-target "semantic grammar" semantic-ede-proj-target-grammar provide semantic/ede-grammar] 6)

Youez - 2016 - github.com/yon3zu
LinuXploit