Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/debug.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require semantic eieio cl-generic] 2)
#@152 For any buffer, the file name (no path) of the parser.
This would be a parser for a specific language, not the source
to one of the parser generators.
(defvar semantic-debug-parser-source nil (#$ . 501))
(make-variable-buffer-local 'semantic-debug-parser-source)
#@54 Class to create when building a debug parser object.
(defvar semantic-debug-parser-class nil (#$ . 770))
(make-variable-buffer-local 'semantic-debug-parser-class)
#@37 Location of the debug parser class.
(defvar semantic-debug-parser-debugger-source nil (#$ . 939))
(make-variable-buffer-local 'semantic-debug-parser-source)
#@34 Non-nil when debugging a parser.
(defvar semantic-debug-enabled nil (#$ . 1102))
#@58 The debugger interface currently active for this buffer.
(defvar semantic-debug-current-interface nil (#$ . 1189))
#@44 The parser current active for this buffer.
(defvar semantic-debug-current-parser nil (#$ . 1310))
(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-debug-interface-p eieio-make-class-predicate semantic-debug-interface semantic-debug-interface--eieio-childp eieio-make-child-predicate semantic-debug-interface-child-p make-obsolete "use (cl-typep ... \\='semantic-debug-interface) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((parser-buffer :initarg :parser-buffer :type buffer :documentation "The buffer containing the parser we are debugging.") (parser-local-map :initarg :parser-local-map :type keymap :documentation "The local keymap originally in the PARSER buffer.") (parser-location :type marker :documentation "A marker representing where we are in the parser buffer.") (source-buffer :initarg :source-buffer :type buffer :documentation "The buffer containing the source we are parsing.\nThe :parser-buffer defines a parser that can parse the text in the\n:source-buffer.") (source-local-map :initarg :source-local-map :type keymap :documentation "The local keymap originally in the SOURCE buffer.") (source-location :type marker :documentation "A marker representing where we are in the parser buffer.") (data-buffer :initarg :data-buffer :type buffer :documentation "Buffer being used to display some useful data.\nThese buffers are brought into view when layout occurs.") (current-frame :type semantic-debug-frame :documentation "The currently displayed frame.") (overlays :type list :initarg nil :initform nil :documentation "Any active overlays being used to show the debug position.")) (:documentation "Controls action when in `semantic-debug-mode'")] 6)
#@63 Create a new object of class type `semantic-debug-interface'.
(defalias 'semantic-debug-interface #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-debug-interface] 4 (#$ . 3134)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-debug-interface compiler-macro semantic-debug-interface--anon-cmacro] 4)
(defalias 'semantic-debug-interface--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])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\207" [cl-generic-define-method semantic-debug-set-frame nil ((iface semantic-debug-interface) frame) #[(iface frame) "\203\n \302 \303#\207\304 \303\"\207" [frame iface eieio-oset current-frame slot-makeunbound] 4 "Set the current frame on IFACE to FRAME."] semantic-debug-set-parser-location ((iface semantic-debug-interface) point) #[(iface point) "r\302\303\"q\210\304\305\"\204 \306\305\307 #\210\302\305\" \310\223)\207" [iface point eieio-oref parser-buffer slot-boundp parser-location eieio-oset make-marker nil] 4 "Set the parser location in IFACE to POINT."] semantic-debug-set-source-location ((iface semantic-debug-interface) point) #[(iface point) "r\302\303\"q\210\304\305\"\204 \306\305\307 #\210\302\305\" \310\223)\207" [iface point eieio-oref source-buffer slot-boundp source-location eieio-oset make-marker nil] 4 "Set the source location in IFACE to POINT."] semantic-debug-interface-layout ((iface semantic-debug-interface)) #[(iface) "\303 \210\304\305\"\2036 \306\307 !\310\245r\311\305\"q\210\312ed\") \nW\203& \n\313 !\210\314\311\305\"!\210*\315\316!\210\314\311\317\"!\210\304\320\"\203J \311\320\"b\210\313 \210\315\316!\210\314\311\321\"!\210\304\322\"\205d \311\322\"b\207" [iface cnt lines delete-other-windows slot-boundp data-buffer frame-height selected-frame 3 eieio-oref count-lines split-window-vertically switch-to-buffer other-window 1 parser-buffer parser-location source-buffer source-location] 4 "Layout windows in the current frame to facilitate debugging."] semantic-debug-highlight-lexical-token ((iface semantic-debug-interface) token) #[(iface token) "\302\303\"q\210\304\305\306 !#\210\307 \211\211A@\247\204 \211AA\202! \211A\262@\262\"\207" [iface token eieio-oref source-buffer object-add-to-list overlays semantic-lex-highlight-token semantic-debug-set-source-location] 5 "For IFACE, highlight TOKEN in the source buffer .\nTOKEN is a lexical token."] semantic-debug-highlight-rule ((iface semantic-debug-interface) nonterm &optional rule match) #[(iface nonterm &optional rule match) "\306\307\"q\210\310p!\311\211\203( \n@\211A@)\312=\203! \n@ B\nA\211\204 \237* \313
\f\" \311 \205\323 \211\314 8) \315 !\203S \316 !\202W \317H*b\210\320`\321\322!\210`\" \323 \324\325#\210\326\327 #\210\330\316 !\"\210 \205\323 \205\323 \331\332!\210 \317U\204\234 \331\333!\210 S\211 \202\212 \317U\204\264 \321\322!\210\334\311w\210 S\211 \202\236 \320`\321\322!\210`\" \323 \324\325#\210\326\327 #\210\330\316 !\"+\207" [iface result tags tag rules nonterm eieio-oref parser-buffer semantic-something-to-tag-table nil nonterminal semantic-find-first-tag-by-name 4 overlayp overlay-start 0 make-overlay forward-sexp 1 overlay-put face highlight object-add-to-list overlays semantic-debug-set-parser-location re-search-forward ":\\s-*" "^\\s-*|\\s-*" " " nt o rule match] 5 "For IFACE, highlight NONTERM in the parser buffer.\nNONTERM is the name of the rule currently being processed that shows up\nas a nonterminal (or tag) in the source buffer.\nIf RULE and MATCH indices are specified, highlight those also."] semantic-debug-unhighlight ((iface semantic-debug-interface)) #[(iface) "\301\302\303\304\"\"\210\305\304\306#\207" [iface mapc delete-overlay eieio-oref overlays eieio-oset nil] 5 "Remove all debugging overlays."]] 6)
#@37 The command the user is requesting.
(defvar semantic-debug-user-command nil (#$ . 7265))
#@358 Stop parsing now at FRAME.
FRAME is an object that represents the parser's view of the
current state of the world.
This function enters a recursive edit. It returns
on an `exit-recursive-edit', or if someone uses one
of the `semantic-debug-mode' commands.
It returns the command specified. Parsers need to take action
on different types of return values.
(defalias 'semantic-debug-break #[(frame) "\305 \306\216\307\310!\210\311\216\312 !\210\313\n!\210\3141 \315 0\202! \210\202\" \210) \316\f+\207" [#1=#:wconfig frame semantic-debug-current-interface semantic-debug-user-command returnstate current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] semantic-debug-mode t #[nil "\301!\210\302\303!\207" [semantic-debug-current-interface semantic-debug-unhighlight semantic-debug-mode nil] 2] semantic-debug-frame-highlight semantic-debug-interface-layout (error) recursive-edit nil] 2 (#$ . 7361)])
(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\211\316$\207" [defalias semantic-debug-frame-p eieio-make-class-predicate semantic-debug-frame semantic-debug-frame--eieio-childp eieio-make-child-predicate semantic-debug-frame-child-p make-obsolete "use (cl-typep ... \\='semantic-debug-frame) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil (:documentation "One frame representation.")] 6)
#@59 Create a new object of class type `semantic-debug-frame'.
(defalias 'semantic-debug-frame #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-debug-frame] 4 (#$ . 8804)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-debug-frame compiler-macro semantic-debug-frame--anon-cmacro] 4)
(defalias 'semantic-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])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method semantic-debug-frame-highlight nil ((frame semantic-debug-frame)) #[(frame) "\300\207" ["Highlight one parser frame."] 1] semantic-debug-frame-info ((frame semantic-debug-frame)) #[(frame) "\300\207" ["Display info about this one parser frame."] 1]] 6)
#@42 Keymap used when in semantic-debug-node.
(defvar semantic-debug-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\306\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210)\207" [km make-sparse-keymap define-key "n" semantic-debug-next " " "s" semantic-debug-step "u" semantic-debug-up "d" semantic-debug-down "f" semantic-debug-fail-match "h" semantic-debug-print-state semantic-debug-jump-to-source "p" semantic-debug-jump-to-parser "q" semantic-debug-quit "a" semantic-debug-abort "g" semantic-debug-go "b" semantic-debug-set-breakpoint "e" eval-expression] 4) (#$ . 9701))
#@126 Turn `semantic-debug-mode' on and off.
Argument ONOFF is non-nil when we are entering debug mode.
\{semantic-debug-mode-map}
(defalias 'semantic-debug-mode #[(onoff) "\n\203& r\305 \306\"q\210\307 !\210\310\305 \311\"q\210\307 !\210\310\312\313!)\202K r\305\306\"q\210\307\305\314\"!\210\315)r\305\311\"q\210\307\305\316\"!\210\315)\312\317!)\207" [semantic-debug-current-interface iface onoff semantic-debug-mode-map buffer-read-only eieio-oref parser-buffer use-local-map t source-buffer run-hooks semantic-debug-mode-hook parser-local-map nil source-local-map semantic-debug-exit-hook] 4 (#$ . 10458)])
#@49 Parse the current buffer and run in debug mode.
(defalias 'semantic-debug #[nil "\203 \306\307!\210 \204 \306\310!\210\311 \210\n\203 \312\n!\210\313\314 \315\316 \317r q\210\320 )\321p\322\320 &) \323! \324 +\207" [semantic-debug-current-interface semantic-debug-parser-class semantic-debug-parser-debugger-source parserb semantic-debug-current-parser semantic-debug-enabled error "You are already in a debug session" "This major mode does not support parser debugging" semantic-clear-toplevel-cache require t semantic-debug-find-parser-source semantic-debug-interface :parser-buffer :parser-local-map current-local-map :source-buffer :source-local-map "parser" semantic-fetch-tags] 10 (#$ . 11080) nil])
#@145 Return a buffer containing the parser source file for the current buffer.
The parser needs to be on the load path, or this routine returns nil.
(defalias 'semantic-debug-find-parser-source #[nil "\204 \302\303!\210\304\305\"\211\203 \306 !\202 \302\307!)\207" [semantic-debug-parser-source parser error "No parser is associated with this buffer" locate-library t find-file-noselect "Cannot find parser source. It should be on the load-path"] 4 (#$ . 11801)])
#@151 Perform one parser operation.
In the recursive parser, this steps past one match rule.
In other parsers, this may be just like `semantic-debug-step'.
(defalias 'semantic-debug-next #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-next exit-recursive-edit] 2 (#$ . 12274) nil])
#@31 Perform one parser operation.
(defalias 'semantic-debug-step #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-step exit-recursive-edit] 2 (#$ . 12599) nil])
#@48 Move highlighting representation up one level.
(defalias 'semantic-debug-up #[nil "\300\301!\207" [message "Not implemented yet."] 2 (#$ . 12804) nil])
#@50 Move highlighting representation down one level.
(defalias 'semantic-debug-down #[nil "\300\301!\207" [message "Not implemented yet."] 2 (#$ . 12962) nil])
#@38 Artificially fail the current match.
(defalias 'semantic-debug-fail-match #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-fail exit-recursive-edit] 2 (#$ . 13124) nil])
#@32 Show interesting parser state.
(defalias 'semantic-debug-print-state #[nil "\302 !)\207" [semantic-debug-current-parser parser semantic-debug-parser-print-state] 2 (#$ . 13342) nil])
#@75 Move cursor to the source code being parsed at the current lexical token.
(defalias 'semantic-debug-jump-to-source #[nil "\303 \304\"\305\n!\203 \306\307\305\n!!!\210\310\305\n!!\202 \311\n!*\207" [semantic-debug-current-interface interface buf eieio-oref source-buffer get-buffer-window select-frame window-frame select-window switch-to-buffer] 4 (#$ . 13533) nil])
#@43 Move cursor to the parser being debugged.
(defalias 'semantic-debug-jump-to-parser #[nil "\303 \304\"\305\n!\203 \306\307\305\n!!!\210\310\305\n!!\202 \311\n!*\207" [semantic-debug-current-interface interface buf eieio-oref parser-buffer get-buffer-window select-frame window-frame select-window switch-to-buffer] 4 (#$ . 13911) nil])
#@112 Exit debug mode, blowing all stack, and leaving the parse incomplete.
Do not update any tokens already parsed.
(defalias 'semantic-debug-quit #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-quit exit-recursive-edit] 2 (#$ . 14258) nil])
#@51 Abort one level of debug mode, blowing all stack.
(defalias 'semantic-debug-abort #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-abort exit-recursive-edit] 2 (#$ . 14544) nil])
#@45 Continue parsing till finish or breakpoint.
(defalias 'semantic-debug-go #[nil "\302 !\210\303 )\207" [semantic-debug-current-parser parser semantic-debug-parser-go exit-recursive-edit] 2 (#$ . 14771) nil])
#@48 Set a breakpoint at the current rule location.
(defalias 'semantic-debug-set-breakpoint #[nil "\303 \203 \304\n \"\202 \305\306!*\207" [semantic-debug-current-parser location parser semantic-current-tag semantic-debug-parser-break error "Not on a rule"] 3 (#$ . 14986) nil])
(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\211\316$\207" [defalias semantic-debug-parser-p eieio-make-class-predicate semantic-debug-parser semantic-debug-parser--eieio-childp eieio-make-child-predicate semantic-debug-parser-child-p make-obsolete "use (cl-typep ... \\='semantic-debug-parser) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil (:documentation "Represents a parser and its state.\nWhen implementing the debug parser you can add extra functionality\nby overriding one of the command methods. Be sure to use\n`call-next-method' so that the debug command is saved, and passed\ndown to your parser later." :abstract t)] 6)
#@65 You cannot create a new object of type `semantic-debug-parser'.
(defalias 'semantic-debug-parser #[(&rest _) "\300\301!\207" [error "Class semantic-debug-parser is abstract"] 2 (#$ . 16026)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\210\335\336!\207" [cl-generic-define-method semantic-debug-parser-next nil ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command next] 2 "Execute next for this PARSER."] semantic-debug-parser-step ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command step] 2 "Execute a step for this PARSER."] semantic-debug-parser-go ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command go] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-fail ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command fail] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-quit ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command quit] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-abort ((parser semantic-debug-parser)) #[(parser) "\301\211\207" [semantic-debug-user-command abort] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-print-state ((parser semantic-debug-parser)) #[(parser) "\302 \303\"\205 \304\302 \303\"!)\207" [semantic-debug-current-interface #:object slot-value current-frame semantic-debug-frame-info] 4 "Print state for this PARSER at the current breakpoint."] semantic-debug-parser-break ((parser semantic-debug-parser)) #[(parser) "\300\207" ["Set a breakpoint for this PARSER."] 1] semantic-debug-parser-frames ((parser semantic-debug-parser)) #[(parser) "\300\301!\207" [error "Parser has not implemented frame values"] 2 "Return a list of frames for the current parser.\nA frame is of the form:\n ( .. .what ? .. )\n"] provide semantic/debug] 6)
Mini Shell