;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require semantic semantic/wisent/wisent] 2)
#@50 Input stream of `semantic-lex' syntactic tokens.
(defvar wisent-lex-istream nil (#$ . 169))
#@87 Extra lookahead token.
When non-nil it is directly returned by `wisent-lex-function'.
(defvar wisent-lex-lookahead nil (#$ . 267))
#@100 Return an End-Of-Input lexical token.
The EOI token is like this: ($EOI "" POINT-MAX . POINT-MAX).
(defalias 'wisent-lex-eoi '(macro . #[0 "\301\302D\303BB\207" [wisent-eoi-term cons quote ((cons "" (cons (point-max) (point-max))))] 3 (#$ . 405)]))
#@611 Create a new lexical analyzer with NAME.
DOC is a documentation string describing this analyzer.
When a token is available in `wisent-lex-istream', eval BODY forms
sequentially.  BODY must return a lexical token for the LALR parser.

Each token in input was produced by `semantic-lex', it is a list:

  (TOKSYM START . END)

TOKSYM is a terminal symbol used in the grammar.
START and END mark boundary in the current buffer of that token's
value.

Returned tokens must have the form:

  (TOKSYM VALUE START . END)

where VALUE is the buffer substring between START and END positions.

(fn NAME DOC &rest BODY)
(defalias 'define-wisent-lexer '(macro . #[642 "\300\301\302\303\304B\305BBB\257\207" [defun nil cond (wisent-lex-lookahead (prog1 wisent-lex-lookahead (setq wisent-lex-lookahead nil))) wisent-lex-istream (((wisent-lex-eoi)))] 11 (#$ . 662)]))
(put 'define-wisent-lexer 'edebug-form-spec '(&define name stringp def-body))
#@246 Return the next available lexical token in Wisent's form.
The variable `wisent-lex-istream' contains the list of lexical tokens
produced by `semantic-lex'.  Pop the next token available and convert
it to a form suitable for the Wisent's parser.
(defalias 'wisent-lex #[0 "\203\302\207	\203q	@	A\211\211@\262

\211A@;\203&\211A@\262
\202Z\303
\211\211A@\247\2048\211AA\262
\202<\211A\262
@\262
\211\211A@\247\204P\211AA\262
\202T\211A\262
A\262
\"\262
\211A@\247\204j\211AA\262
\202n\211A\262
BB\207\304\305ddBBB\207" [wisent-lex-lookahead wisent-lex-istream nil buffer-substring-no-properties $EOI ""] 8 (#$ . 1606)])
#@84 Function used to report parse error.
By default use the function `wisent-message'.
(defvar wisent-error-function nil (#$ . 2247))
(make-variable-buffer-local 'wisent-error-function)
#@123 Function used to obtain the next lexical token in input.
Should be a lexical analyzer created with `define-wisent-lexer'.
(defvar wisent-lexer-function 'wisent-lex (#$ . 2436))
(make-variable-buffer-local 'wisent-lexer-function)
#@153 Return raw form of given Semantic tag SEMANTIC-TAG.
Should be used in semantic actions, in grammars, to build a Semantic
parse tree.

(fn SEMANTIC-TAG)
(defalias 'wisent-raw-tag #[257 "\211\204
	AA\211\203@AD\202ddD\244\207" [$region wisent-input] 4 (#$ . 2672)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put wisent-raw-tag speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@165 From raw form of Semantic tag RAW-TAG, return a list of cooked tags.
Should be used in semantic actions, in grammars, to build a Semantic
parse tree.

(fn RAW-TAG)
(defalias 'wisent-cook-tag #[257 "\301
!\211\211\203\302
@\303#\210\211A\262
\202
\207" [$nterm semantic--tag-expand semantic--tag-put-property reparse-symbol] 7 (#$ . 3092)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put wisent-cook-tag speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@257 Add lexical token NOMATCH to the cache of unmatched tokens.
See also the variable `semantic-unmatched-syntax-cache'.

NOMATCH is in Wisent's form: (SYMBOL VALUE START . END)
and will be collected in `semantic-lex' form: (SYMBOL START . END).

(fn NOMATCH)
(defalias 'wisent-collect-unmatched-syntax #[257 "\211AA\301
@!\205\301
A!\205
@
BB\211\207" [semantic-unmatched-syntax-cache number-or-marker-p] 4 (#$ . 3585)])
#@486 Parse STREAM using the Wisent LALR parser.
GOAL is a nonterminal symbol to start parsing at.
Return the list (STREAM SEMANTIC-STREAM) where STREAM are those
elements of STREAM that have not been used.  SEMANTIC-STREAM is the
list of semantic tags found.
The LALR parser automaton must be available in buffer local variable
`semantic--parse-table'.

Must be installed by `semantic-install-function-overrides' to override
the standard function `semantic-parse-stream'.

(fn STREAM GOAL)
(defalias 'wisent-parse-stream #[514 "\306\211\211\211@\262
@:\203
@@A\262\202 \306\262\n\203X\30715\310\f
$0\202\236\n\204O\3118U\203O\312\313\314!\"\210\312\315!\202S\316\317\"\262
\202\236\3201\217\3211k\310\f
$0\202\213\n\204\205\3118U\203\205\312\313\314!\"\210\312\315!\202\211\316\317\"\262
0\202\236\312\313\322\323p\314!#\"\210\306\262
\262
\203\346
@@=\203\306\306\262

@\262
\203\346\324\325@\"\210
A\262\202\265\211:\204\317
\204\323\306C\262
@B\240\210
AA\241\210
	B	
:\203\360
\202\361\326*D\207" [wisent-lex-lookahead wisent-lex-istream debug-on-error semantic--parse-table wisent-lexer-function wisent-error-function nil (args-out-of-range) wisent-parse 2 message "wisent-parse-stream: %s" error-message-string "wisent-parse-max-stack-size might need to be increased" apply signal (error) (args-out-of-range) format "%S - %s" run-hook-with-args wisent-discarding-token-functions (nil) wisent-parse-max-stack-size wisent-lookahead] 14 (#$ . 4016)])
#@173 Return a compiled form of the LALR(1) Wisent GRAMMAR.
See `wisent--compile-grammar' for a description of the arguments
and return value.

(fn GRAMMAR &optional START-LIST)
(defalias 'wisent-compiled-grammar '(macro . #[513 "\300\301!\210\302\303\"!\207" [require semantic/wisent/comp wisent-automaton-lisp-form wisent--compile-grammar] 6 (#$ . 5541)]))
#@552 Parse the area between START and END using the Wisent LALR parser.
Return the list of semantic tags found.
Optional arguments GOAL is a nonterminal symbol to start parsing at,
DEPTH is the lexical depth to scan, and RETURNONERROR is a flag to
stop parsing on syntax error, when non-nil.
The LALR parser automaton must be available in buffer local variable
`semantic--parse-table'.

Must be installed by `semantic-install-function-overrides' to override
the standard function `semantic-parse-region'.

(fn START END &optional GOAL DEPTH RETURNONERROR)
(defalias 'wisent-parse-region #[1282 "eW\204dV\204W\203\306\307#\210\310#\311\211\211\211\211\n\203
\211@\f\203?\312
 \n$\202_\3131P\312
 \n$0\202_\314\315\316\317p\320!#\"\210\311\262
\262!\203\210\211@!=\203\202\311\262\211\203\210\321\322@\"\210\211A\262
\202q!
B\262
:\203\301\311\262
\323!\262\324\"\262
\203\307
@\262
A\262\325\326\327
8\262
\"\266\202\204\233\330\325	#\210\202\233\203\307\311\n\203(\"\331=\203(\332\333!\203(\203(\334\335\n@\211\211A@\247\204\363\211AA\262
\202\367\211A\262
@\262
_d\"\311
\247\203\n

@Y\205
\336#\266\202(\237+\207" [semantic-case-fold case-fold-search wisent-lex-istream wisent-lex-lookahead debug-on-error semantic--parse-table error "Invalid bounds [%s %s] passed to `wisent-parse-region'" semantic-lex nil wisent-parse (error) message "wisent-parse-region: %s" format "%S - %s" error-message-string run-hook-with-args wisent-discarding-token-functions semantic--tag-expand append reparse-symbol plist-get 3 semantic--tag-put-property percent boundp semantic--progress-reporter floor 100.0 progress-reporter-do-update wisent-lexer-function wisent-error-function wisent-lookahead semantic-working-type] 17 (#$ . 5903)])
(provide 'semantic/wisent)