HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/cedet/semantic/bovine/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/cedet/semantic/bovine/debug.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\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require semantic/debug semantic/find defalias semantic-bovine-debug-frame-p eieio-make-class-predicate semantic-bovine-debug-frame semantic-bovine-debug-frame--eieio-childp eieio-make-child-predicate semantic-bovine-debug-frame-child-p make-obsolete "use (cl-typep ... \\='semantic-bovine-debug-frame) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-debug-frame) ((nonterm :initarg :nonterm :type symbol :documentation "The name of the semantic nonterminal for this frame.") (rule :initarg :rule :type number :documentation "The index into NONTERM's rule list.  0 based.") (match :initarg :match :type number :documentation "The index into NONTERM's RULE's match.  0 based..") (collection :initarg :collection :type list :documentation "List of things matched so far.") (lextoken :initarg :lextoken :type list :documentation "A Token created by `semantic-lex-token'.\nThis is the lexical token being matched by the parser.")) (:documentation "Debugger frame representation for the bovinator.")] 6)
#@66 Create a new object of class type `semantic-bovine-debug-frame'.
(defalias 'semantic-bovine-debug-frame #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-bovine-debug-frame] 4 (#$ . 1616)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bovine-debug-frame compiler-macro semantic-bovine-debug-frame--anon-cmacro] 4)
(defalias 'semantic-bovine-debug-frame--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])
#@465 Create one bovine frame.
NONTERM is the name of a rule we are currently parsing.
RULE is the index into the list of rules in NONTERM.
MATCH is the index into the list of matches in RULE.
For example:
  this: that
      | other thing
      | here
      ;
The NONTERM is THIS.
The RULE is for "thing" is 1.
The MATCH for "thing" is 1.
COLLECTION is a list of `things' that have been matched so far.
LEXTOKEN, is a token returned by the lexer which is being matched.
(defalias 'semantic-bovine-debug-create-frame #[(nonterm rule match collection lextoken) "\306\307\310\311	\312\n\313\314\f&\315
\"\210
)\207" [nonterm rule match collection lextoken frame semantic-bovine-debug-frame "frame" :nonterm :rule :match :collection :lextoken semantic-debug-set-frame semantic-debug-current-interface] 12 (#$ . 2205)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [cl-generic-define-method semantic-debug-frame-highlight nil ((frame semantic-debug-frame)) #[(frame) "\306\301\"\306\n\307\"\310\311\312\211$	\313=\203%\f\203%\f@\211@)\202)\314	!\315\n	\306\316\"\306\317\"$\210\320\n\306\321\"\"+\207" [frame nonterm semantic-debug-current-interface pb start tag eieio-oref parser-buffer semantic-brute-find-tag-by-function #[(tag) "\211A@)\301=\207" [tag start] 3] nil bovine-toplevel symbol-name semantic-debug-highlight-rule rule match semantic-debug-highlight-lexical-token lextoken] 8 "Highlight one parser frame."] semantic-debug-frame-info ((frame semantic-debug-frame)) #[(frame) "\301\302\303\304\"\"\207" [frame message "%S" eieio-oref collection] 5 "Display info about this one parser frame."] defalias semantic-bovine-debug-error-frame-p eieio-make-class-predicate semantic-bovine-debug-error-frame semantic-bovine-debug-error-frame--eieio-childp eieio-make-child-predicate semantic-bovine-debug-error-frame-child-p make-obsolete "use (cl-typep ... \\='semantic-bovine-debug-error-frame) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-debug-frame) ((condition :initarg :condition :documentation "An error condition caught in an action.")) (:documentation "Debugger frame representation of a lisp error thrown during parsing.")] 6)
#@72 Create a new object of class type `semantic-bovine-debug-error-frame'.
(defalias 'semantic-bovine-debug-error-frame #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-bovine-debug-error-frame] 4 (#$ . 4563)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bovine-debug-error-frame compiler-macro semantic-bovine-debug-error-frame--anon-cmacro] 4)
(defalias 'semantic-bovine-debug-error-frame--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])
#@94 Create an error frame for bovine debugger.
Argument CONDITION is the thrown error condition.
(defalias 'semantic-create-bovine-debug-error-frame #[(condition) "\303\304\305#\306\n	\"\210	)\207" [condition frame semantic-debug-current-interface semantic-bovine-debug-error-frame "frame" :condition semantic-debug-set-frame] 4 (#$ . 5187)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\302\326$\207" [cl-generic-define-method semantic-debug-frame-highlight nil ((frame semantic-bovine-debug-error-frame)) #[(frame) "\300\207" ["Highlight a frame from an action."] 1] semantic-debug-frame-info ((frame semantic-bovine-debug-error-frame)) #[(frame) "\301\302\303\304\"\"\207" [frame message "Error: %S" eieio-oref condition] 5 "Display info about the error thrown."] defalias semantic-bovine-debug-parser-p eieio-make-class-predicate semantic-bovine-debug-parser semantic-bovine-debug-parser--eieio-childp eieio-make-child-predicate semantic-bovine-debug-parser-child-p make-obsolete "use (cl-typep ... \\='semantic-bovine-debug-parser) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-debug-parser) (:documentation "Represents a parser and its state.")] 6)
#@67 Create a new object of class type `semantic-bovine-debug-parser'.
(defalias 'semantic-bovine-debug-parser #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-bovine-debug-parser] 4 (#$ . 6531)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bovine-debug-parser compiler-macro semantic-bovine-debug-parser--anon-cmacro] 4)
(defalias 'semantic-bovine-debug-parser--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])
(provide 'semantic/bovine/debug)