;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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)#@84 Create a new object of class type `semantic-bovine-debug-frame'. (fn &rest SLOTS) (defalias 'semantic-bovine-debug-frame #[128 "\300\301\302#\207" [apply make-instance semantic-bovine-debug-frame] 5 (#$ . 1288)]) (byte-code "\300\301\302\303#\300\207" [function-put semantic-bovine-debug-frame compiler-macro semantic-bovine-debug-frame--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'semantic-bovine-debug-frame--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 1649)])#@510 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. (fn NONTERM RULE MATCH COLLECTION LEXTOKEN) (defalias 'semantic-bovine-debug-create-frame #[1285 "\301\302\303\304\305 \306\n&\n\307\"\210\207" [semantic-debug-current-interface semantic-bovine-debug-frame :nonterm :rule :match :collection :lextoken semantic-debug-set-frame] 16 (#$ . 1907)]) (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)) #[257 "\301\302\"\301\303\"\304\305\306\211$\307=\203#\211\203#\211@\211@\262\262\202(\310!\262\311\301\312\"\301\313\"$\210\314\301\315\"\"\207" [semantic-debug-current-interface eieio-oref nonterm parser-buffer semantic-brute-find-tag-by-function #[257 "\211\211A@\262\300=\207" [start] 3 "\n\n(fn TAG)"] nil bovine-toplevel symbol-name semantic-debug-highlight-rule rule match semantic-debug-highlight-lexical-token lextoken] 11 "Highlight one parser frame.\n\n(fn FRAME)"] semantic-debug-frame-info ((frame semantic-debug-frame)) #[257 "\300\301\302\303\"\"\207" [message "%S" eieio-oref collection] 6 "Display info about this one parser frame.\n\n(fn 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)#@90 Create a new object of class type `semantic-bovine-debug-error-frame'. (fn &rest SLOTS) (defalias 'semantic-bovine-debug-error-frame #[128 "\300\301\302#\207" [apply make-instance semantic-bovine-debug-error-frame] 5 (#$ . 4236)]) (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)#@26 (fn WHOLE &rest SLOTS) (defalias 'semantic-bovine-debug-error-frame--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 4627)])#@110 Create an error frame for bovine debugger. Argument CONDITION is the thrown error condition. (fn CONDITION) (defalias 'semantic-create-bovine-debug-error-frame #[257 "\301\302\"\303\"\210\207" [semantic-debug-current-interface semantic-bovine-debug-error-frame :condition semantic-debug-set-frame] 5 (#$ . 4891)]) (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)) #[257 "\300\207" ["Highlight a frame from an action."] 2 "\n\n(fn FRAME)"] semantic-debug-frame-info ((frame semantic-bovine-debug-error-frame)) #[257 "\300\301\302\303\"\"\207" [message "Error: %S" eieio-oref condition] 6 "Display info about the error thrown.\n\n(fn FRAME)"] 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)#@85 Create a new object of class type `semantic-bovine-debug-parser'. (fn &rest SLOTS) (defalias 'semantic-bovine-debug-parser #[128 "\300\301\302#\207" [apply make-instance semantic-bovine-debug-parser] 5 (#$ . 6226)]) (byte-code "\300\301\302\303#\300\207" [function-put semantic-bovine-debug-parser compiler-macro semantic-bovine-debug-parser--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'semantic-bovine-debug-parser--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 6592)]) (provide 'semantic/bovine/debug)