WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/debug.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:55 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/debug.el
;;; in Emacs version 24.3.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!\207" [require semantic eieio] 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 (#$ . 632))
(make-variable-buffer-local 'semantic-debug-parser-source)
#@54 Class to create when building a debug parser object.
(defvar semantic-debug-parser-class nil (#$ . 901))
(make-variable-buffer-local 'semantic-debug-parser-class)
#@34 Non-nil when debugging a parser.
(defvar semantic-debug-enabled nil (#$ . 1070))
#@58 The debugger interface currently active for this buffer.
(defvar semantic-debug-current-interface nil (#$ . 1157))
#@44 The parser current active for this buffer.
(defvar semantic-debug-current-parser nil (#$ . 1278))
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\302\301\312$\210\305\313\307\313\314\"\"\210\311\313\302\301\315$\210\305\316\307\316\317\"\"\210\311\316\302\301\320$\210\305\321\307\321\322\"\"\210\311\321\302\301\323$\210\305\324\307\324\325\"\"\210\311\324\302\301\326$\210\305\327\307\327\330\"\"\210\311\327\302\301\331$\210\305\332\307\332\333\"\"\210\311\332\302\301\334$\207" [eieio-defclass semantic-debug-interface 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 :documentation "Any active overlays being used to show the debug position.")) ("Controls action when in `semantic-debug-mode'") eieio--defalias semantic-debug-set-frame eieio--defgeneric-init-form #1="Set the current frame on IFACE to FRAME." eieio--defmethod #[(iface frame) "\203\n\302	\303#\207\304	\303\"\207" [frame iface eieio-oset current-frame slot-makeunbound] 4 #1#] semantic-debug-set-parser-location #2="Set the parser location in IFACE to 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 #2#] semantic-debug-set-source-location #3="Set the source location in IFACE to 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 #3#] semantic-debug-interface-layout #4="Layout windows in the current frame to facilitate debugging." #[(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 #4#] semantic-debug-highlight-lexical-token #5="For IFACE, highlight TOKEN in the source buffer .\nTOKEN is a lexical token." #[(iface token) "\302\303\"q\210\304\305\306	!#\210\307	\211\211A@\247\204!	AA\202#	A)@)\"\207" [iface token eieio-oref :source-buffer object-add-to-list overlays semantic-lex-highlight-token semantic-debug-set-source-location] 6 #5#] semantic-debug-highlight-rule #6="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." #[(iface nonterm &optional rule match) "\306\307\"q\210\310p!\311\211\203(\n@\211A@)\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 semantic-overlay-p semantic-overlay-start 0 semantic-make-overlay forward-sexp 1 semantic-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 #6#] semantic-debug-unhighlight #7="Remove all debugging overlays." #[(iface) "\301\302\303\304\"\"\210\305\304\306#\207" [iface mapc semantic-overlay-delete eieio-oref overlays eieio-oset nil] 5 #7#]] 5)
#@37 The command the user is requesting.
(defvar semantic-debug-user-command nil (#$ . 6210))
#@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\314\315\316\217\210)\314\f+\207" [#1=#:wconfig frame semantic-debug-current-interface semantic-debug-user-command returnstate current-window-configuration ((set-window-configuration #1#)) semantic-debug-mode t ((byte-code "\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 nil (recursive-edit) ((error))] 3 (#$ . 6306)])
(byte-code "\300\301\302\211\303$\210\304\305\306\305\307\"\"\210\310\305\302\301\311$\210\304\312\306\312\313\"\"\210\310\312\302\301\314$\207" [eieio-defclass semantic-debug-frame nil ("One frame representation.") eieio--defalias semantic-debug-frame-highlight eieio--defgeneric-init-form #1="Highlight one parser frame." eieio--defmethod #[(frame) "\300\207" [#1#] 1 #1#] semantic-debug-frame-info #2="Display info about this one parser frame." #[(frame) "\300\207" [#2#] 1 #2#]] 5)
#@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) (#$ . 7707))
#@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!)\202Gr\305\306\"q\210\307\305\314\"!\210)r\305\311\"q\210\307\305\315\"!\210)\312\316!)\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 source-local-map semantic-debug-exit-hook] 4 (#$ . 8464)])
#@49 Parse the current buffer and run in debug mode.
(defalias 'semantic-debug #[nil "\203\305\306!\210	\204\305\307!\210\310 \210\311\312 \313\314\315\n\316r\nq\210\317 )\320p\321\317 &	)	\322!\323 +\207" [semantic-debug-current-interface semantic-debug-parser-class 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 t semantic-debug-find-parser-source semantic-debug-interface "Debug Interface" :parser-buffer :parser-local-map current-local-map :source-buffer :source-local-map "parser" semantic-fetch-tags] 11 (#$ . 9071) 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 (#$ . 9750)])
#@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 (#$ . 10222) 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 (#$ . 10547) nil])
#@48 Move highlighting representation up one level.
(defalias 'semantic-debug-up #[nil "\300\301!\207" [message "Not implemented yet."] 2 (#$ . 10752) nil])
#@50 Move highlighting representation down one level.
(defalias 'semantic-debug-down #[nil "\300\301!\207" [message "Not implemented yet."] 2 (#$ . 10910) 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 (#$ . 11072) 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 (#$ . 11290) 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 (#$ . 11481) 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 (#$ . 11859) 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 (#$ . 12206) 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 (#$ . 12492) 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 (#$ . 12719) 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 (#$ . 12934) nil])
(byte-code "\300\301\302\211\303$\210\304\305\306\305\307\"\"\210\310\305\302\301\311$\210\304\312\306\312\313\"\"\210\310\312\302\301\314$\210\304\315\306\315\316\"\"\210\310\315\302\301\317$\210\304\320\306\320\316\"\"\210\310\320\302\301\321$\210\304\322\306\322\316\"\"\210\310\322\302\301\323$\210\304\324\306\324\316\"\"\210\310\324\302\301\325$\210\304\326\306\326\327\"\"\210\310\326\302\301\330$\210\304\331\306\331\332\"\"\210\310\331\302\301\333$\210\304\334\306\334\335\"\"\210\310\334\302\301\336$\210\337\340!\207" [eieio-defclass semantic-debug-parser nil ("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) eieio--defalias semantic-debug-parser-next eieio--defgeneric-init-form #1="Execute next for this PARSER." eieio--defmethod #[(parser) "\301\211\207" [semantic-debug-user-command next] 2 #1#] semantic-debug-parser-step #2="Execute a step for this PARSER." #[(parser) "\301\211\207" [semantic-debug-user-command step] 2 #2#] semantic-debug-parser-go #3="Continue execution in this PARSER until the next breakpoint." #[(parser) "\301\211\207" [semantic-debug-user-command go] 2 #3#] semantic-debug-parser-fail #[(parser) "\301\211\207" [semantic-debug-user-command fail] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-quit #[(parser) "\301\211\207" [semantic-debug-user-command quit] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-abort #[(parser) "\301\211\207" [semantic-debug-user-command abort] 2 "Continue execution in this PARSER until the next breakpoint."] semantic-debug-parser-print-state #4="Print state for this PARSER at the current breakpoint." #[(parser) "\301\302\"\205
\303\301\302\"!\207" [semantic-debug-current-interface slot-value current-frame semantic-debug-frame-info] 4 #4#] semantic-debug-parser-break #5="Set a breakpoint for this PARSER." #[(parser) "\300\207" [#5#] 1 #5#] semantic-debug-parser-frames #6="Return a list of frames for the current parser.\nA frame is of the form:\n  ( .. .what ? .. )\n" #[(parser) "\300\301!\207" [error "Parser has not implemented frame values"] 2 #6#] provide semantic/debug] 5)
F1l3 Manager
