HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/cedet/semantic/
Current File : //usr/share/emacs/26.1/lisp/cedet/semantic/ede-grammar.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\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)
#@71 Create a new object of class type `semantic-ede-proj-target-grammar'.
(defalias 'semantic-ede-proj-target-grammar #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-ede-proj-target-grammar] 4 (#$ . 1728)])
(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)
(defalias 'semantic-ede-proj-target-grammar--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])
(cl-generic-define-method 'ede-proj-makefile-dependencies nil '((this semantic-ede-proj-target-grammar)) nil #[(this) "\302\301\"@\303\304	\"\203\305\306\307!\"\202#\303\310	\"\205#\305\311\307!\")\207" [this source eieio-oref string-match "\\.wy$" format "$(addsuffix -wy.elc, $(basename $(%s)))" ede-proj-makefile-sourcevar "\\.by$" "$(addsuffix -by.elc, $(basename $(%s)))"] 4 "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."])
#@53 Semantic Grammar source code definition for wisent.
(defvar semantic-ede-source-grammar-wisent (ede-sourcecode "semantic-ede-grammar-source-wisent" :name "Wisent Grammar" :sourcepattern "\\.wy$" :garbagepattern '("*-wy.el")) (#$ . 3050))
(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)
#@74 Create a new object of class type `semantic-ede-grammar-compiler-class'.
(defalias 'semantic-ede-grammar-compiler-class #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-ede-grammar-compiler-class] 4 (#$ . 3907)])
(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)
(defalias 'semantic-ede-grammar-compiler-class--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])
#@30 Compile Emacs Lisp programs.
(defvar semantic-ede-grammar-compiler-wisent (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\306\315&C\316\317\320\321&\207" [semantic-ede-grammar-compiler-class "ede-emacs-wisent-compiler" :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 "elisp-inference-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"] 15) (#$ . 4543))
#@60 Semantic Grammar source code definition for the bovinator.
(defvar semantic-ede-source-grammar-bovine (ede-sourcecode "semantic-ede-grammar-source-bovine" :name "Bovine Grammar" :sourcepattern "\\.by$" :garbagepattern '("*-by.el")) (#$ . 5290))
#@30 Compile Emacs Lisp programs.
(defvar semantic-ede-grammar-compiler-bovine (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\306\315&C\316\317\320\321&\207" [semantic-ede-grammar-compiler-class "ede-emacs-wisent-compiler" :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 "elisp-inference-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"] 15) (#$ . 5541))
(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 #[(#1=#:cl--cnm this buffer) "\302\303\304!\"\203\305\207	 \207" [buffer #1# string-match "-[bw]y\\.elc?$" buffer-file-name t] 4 "Return t if object THIS lays claim to the file in BUFFER.\nLays claim to all -by.el, and -wy.el files."] project-compile-target ((obj semantic-ede-proj-target-grammar)) #[(obj) "p\306	!\307\n\310\"\311\211\312\313\307	\314\"\"\210\315\316\317	!\"\210\f
-B\207" [cb obj proj default-directory comp utd ede-target-parent eieio-oref directory 0 mapc #[(src) "r\306!q\210\307 \310\311	\"\210\312\313	\"\314\n\"\315!\316P
\317W\203E\320\f!\2031\321\f\"\203<T\322!\202^T\211\202^\323\324\325#\326=\203XT\211\202^T\211-\207" [src package fname obj csrc emacs-major-version find-file-noselect semantic-grammar-create-package string-match ".*/\\(.+\\.el\\)" match-string 1 ede-expand-filename file-name-sans-extension ".elc" 24 file-exists-p file-newer-than-file-p byte-compile-file byte-recompile-file nil 0 t comp utd] 4] source message "All Semantic Grammar sources are up to date in %s" eieio-object-name] 6 "Compile all sources in a Lisp target OBJ."] ede-proj-makefile-sourcevar ((this semantic-ede-proj-target-grammar)) #[(this) "\303 \203	\304\305!\207\306	\302\"\307\310\n\"\203!\311\312\313\314\n$\202\n*\315P\207" [this obj name ede-proj-automake-p error "No Automake support for Semantic Grammars" eieio-oref string-match #2="\\." replace-match #3="_" nil t "_SEMANTIC_GRAMMAR"] 5 "Return the variable name for THIS's sources."] ede-proj-makefile-insert-variables (:after) ((this semantic-ede-proj-target-grammar)) #[(this) "\305\306\307\310\311\312F!!\210\313\314	\302\"\315\316\n\"\203#\317\320\321\313\n$\202\n*\322P\212db\210\323\324\325Q\321\313#)\203`\326\225b\210\327 \210i\330W\203Xh\331U\204[h\332U\204[\333c\210\202[\334c\210\321\202e\335\261\210\336\337\314\340\"\333#c\210\f\203v\341c\210db*\207" [this obj name v addcr ede-proj-makefile-insert-loadpath-items ede-proj-elisp-packages-to-loadpath "eieio" "semantic" "inversion" "ede" t eieio-oref string-match #2# replace-match #3# nil "_SEMANTIC_GRAMMAR_EL" re-search-backward "^" "\\s-*=" 0 ede-pmake-end-of-variable 40 61 32 " " "\\\n   " "=" mapconcat #[(src) "r\301!q\210\302 \303P)\207" [src find-file-noselect semantic-grammar-package ".el"] 2] source "\n"] 6 "Insert variables needed by target THIS."] ede-proj-makefile-insert-rules (:after) ((this semantic-ede-proj-target-grammar)) #[(this) "\301\302\303\304\"\"c\207" [this format "%s: EMACSFLAGS+= --eval '(setq max-specpdl-size 1500 max-lisp-eval-depth 700)'\n" eieio-oref name] 5 "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."] ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar)) #[(#4=#:cl--cnm this) " \210\304	\305\n\303\"\306\307\"\203\310\311\312\313$\202*\314\261\207" [#4# this obj name " $(" eieio-oref string-match #2# replace-match #3# nil t "_SEMANTIC_GRAMMAR_EL)"] 6 "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."] ede-proj-register-target "semantic grammar" semantic-ede-proj-target-grammar provide semantic/ede-grammar] 6)