MMCT TEAM
Server IP : 111.118.215.189  /  Your IP : 18.216.116.62
Web Server : Apache
System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
User : a1673wkz ( 2475)
PHP Version : 8.2.25
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/emacs/24.3/lisp/cedet/srecode/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/emacs/24.3/lisp/cedet/srecode/srt-wy.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/srt-wy.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'semantic/lex)
#@29 Table of language keywords.
(defconst srecode-template-wy--keyword-table (semantic-lex-make-keyword-table '(("set" . SET) ("show" . SHOW) ("macro" . MACRO) ("context" . CONTEXT) ("template" . TEMPLATE) ("sectiondictionary" . SECTIONDICTIONARY) ("section" . SECTION) ("end" . END) ("prompt" . PROMPT) ("default" . DEFAULT) ("defaultmacro" . DEFAULTMACRO) ("read" . READ) ("bind" . BIND)) '(("bind" summary "bind \"<letter>\"") ("read" summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]") ("defaultmacro" summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]") ("default" summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]") ("prompt" summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]") ("end" summary "section ... end") ("section" summary "section <name>\\n <dictionary entries>\\n end") ("sectiondictionary" summary "sectiondictionary <name>\\n <dictionary entries>") ("template" summary "template <name>\\n <template definition>") ("context" summary "context <name>") ("macro" summary "... macro \"string\" ...") ("show" summary "show <name>   ; to show a section") ("set" summary "set <name> <value>"))) (#$ . 587))
#@26 Table of lexical tokens.
(defconst srecode-template-wy--token-table (semantic-lex-make-type-table '(("number" (number)) ("string" (string)) ("symbol" (symbol)) ("property" (property)) ("separator" (TEMPLATE_BLOCK . "^----")) ("newline" (newline))) '(("number" :declared t) ("string" :declared t) ("symbol" :declared t) ("property" syntax ":\\(\\w\\|\\s_\\)*") ("property" :declared t) ("newline" :declared t) ("punctuation" syntax "\\s.+") ("punctuation" :declared t) ("keyword" :declared t))) (#$ . 1925))
#@15 Parser table.
(defconst srecode-template-wy--parse-table (byte-code "\301\302\303\"\304\305\"\306M\210\304\307\"\310M\210\304\311\"\312M\210\304\313\"\314M\210\304\315\"\316M\210\304\317\"\320M\210\304\321\"\322M\210\304\323\"\324M\210\304\325\"\326M\210\304\327\"\330M\210\304\331\"\332M\210\304\333\"\334M\210\304\335\"\336M\210\304\337\"\340M\210\304\341\"\342M\210\304\343\"\344M\210\304\345\"\346M\210\304\347\"\350M\210\304\351\"\352M\210\304\353\"\354M\210\304\355\"\356M\210\304\357\"\360M\210\304\361\"\362M\210\304\363\"\364M\210\304\365\"\366M\210\304\367\"\370M\210\304\371\"\372M\210\304\373\"\374M\210\304\375\"\376M\210\304\377\"\201@M\210\304\201A\"\201BM\210\304\201C\"\201DM\210\304\201E\"\201FM\210\304\201G\"\201HM\210\304\201I\"\201JM\210\304\201K\"\201LM\210\304\201M\"\201NM\210\304\201O\"\201PM\210\304\201Q\"\201RM\210\304\201S\"\201TM\210\304\201U\"\201VM\210\304\201W\"\201XM\210\304\201Y\"\201ZM\210\304\201[\"\201\\M\210\304\201]\"\201^M\210\304\201_\"\201`M\210\304\201a\"\201bM\210\201c\211\201d\201e\201f\201g\201h\201i\201j\257\201k\201lD\201m\201nD\201o\201pD\201q\201r\201s\201t\201u\201v\201w\201x\201y\201z\257\n\201{\201|D\201}\201~\305\"BC\201}\201~\313\"BC\201}\201~\321\"BC\201}\201~\331\"BC\201}\201~\347\"BC\201\201\200\201\201E\201\202\201\203D\201\204\201\205D\201}\201~\363\"BC\201}\201~\323\"BC\201}\201~\201_\"BC\201}\201~\307\"BC\201}\201~\201Y\"BC\201}\201~\315\"BC\201}\201~\333\"BC\201}\201~\351\"BC\201}\201~\201K\"BC\201}\201~\201M\"B\201\206D\201\207\201\210D\201\211\201\212D\201}\201~\317\"BC\201\213\201\214\201\215\201\216F\201}\201~\353\"BC\201}\201~\201O\"BC\201}\201~\201[\"BC\201}\201~\201M\"B\201\217D\201\220\201\221D\201}\201~\311\"B\201\222\201\223E\201}\201~\325\"BC\201}\201~\201A\"BC\201}\201~\365\"BC\201}\201~\201C\"BC\201}\201~\355\"B\201\224D\201\225\201\226\201\227E\201\230\201\231D\201}\201~\357\"B\201\232D\201\233\201\234D\201}\201~\373\"BC\201}\201~\201Q\"BC\201}\201~\201]\"BC\201}\201~\201a\"BC\201\235\201\236D\201\237\201\240D\201}\201~\335\"BC\201\241\201\242\201\243\201\244F\201}\201~\337\"BC\201}\201~\375\"BC\201\245\201\246D\201\247\201\250D\201\251\201\252D\201}\201~\201E\"BC\201}\201~\201S\"BC\201\253\201\254D\201\255\201\256D\201}\201~\341\"B\201\257D\201}\201~\343\"BC\201}\201~\367\"BC\201\260\201\261D\201}\201~\201G\"BC\201}\201~\345\"B\201\262\201\263E\201\264\201\265\201\266\201\267\201\270\257\201\271\201\272D\201}\201~\201U\"BC\201}\201~\361\"BC\201\273\201\274D\201}\201~\201I\"BC\201}\201~\201W\"BC\201}\201~\377\"BC\201}\201~\327\"BC\201}\201~\371\"BC\201\275\201\276D\201\277\201\300D\201\301C&O\201\302\201\303$)\207" [#1=#:ob make-vector 13 0 intern #5="template_file:0" #[(#2=#:stack #3=#:sp #4=#:gotos) "	SHA\306\307	\310Z\f
	HH\236A\n	\310\\	S\311\nBI\210	\nI\210	-\207" [#2# #3# $region $action $nterm #4# #5# template_file 2 nil #6=#:state] 4] #7="templatename:3" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #7# templatename 2 #4# #6#] 4] #8="opt-default-fcn:3" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #8# opt-default-fcn 2 #6#] 5] #9="template_file:1" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #9# template_file 2 #4# #6#] 4] #10="templatename:4" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #10# templatename 2 #4# #6#] 4] #11="insertable-string:0" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
\n	HH\236A	\310\\	S\311\n!BI\210	I\210	.\207" [#2# #3# $1 $region $action $nterm #11# insertable-string 2 read #4# #6#] 4] #12="template_file:2" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #12# template_file 2 #4# #6#] 4] #13="templatename:5" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #13# templatename 2 #4# #6#] 4] #14="insertable-string:1" #[(#2# #3# #4#) "	SH@	\306Z	S\211\fH\211
A@)
H\211
AA)\fU\204_\204B
\f\307\\\211H\211
A@)\202%\204Y
\307Z\211H\211
AA)\202%\211\202&\205n\205nB-\310\311	\312Z	HH\236A	\307\\	S\313\314\n!BBI\210	I\210	.\207" [#2# #3# $2 j i stack 3 2 #14# insertable-string 4 macro read x l f $region $action $nterm #4# #6#] 6] #15="opt-bind:0" #[(#2# #3# #4#) "	\306ZH@	\307Z	S\211\fH\211
A@)
H\211
AA)\fU\204`\204C
\f\310\\\211H\211
A@)\202&\204Z
\310Z\211H\211
AA)\202&\211\202'\205o\205oB-\311\312	\313Z	HH\236A	\310\\	S\314\n!BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 5 2 #15# opt-bind 6 read x l f $region $action $nterm #4# #6#] 5] #16="template_file:3" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #16# template_file 2 #4# #6#] 4] #17="templatename:6" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #17# templatename 2 #4# #6#] 4] #18="opt-string:0" #[(#2# #3# #4#) "	\306ZH@	\306Z	S\211\fH\211\fA@)
H\211\fAA)
\fU\204`\204C
\f\307\\\211H\211\fA@)\202&
\204Z
\307Z\211H\211\fAA)
\202&\211\202'\205o
\205o
B-\310\311	\312Z	HH\236A	\307\\	S\313\n!BI\210	I\210	.\207" [#2# #3# $1 j i stack 3 2 #18# opt-string 4 read x l f $region $action $nterm #4# #6#] 5] #19="opt-read-fcn:0" #[(#2# #3# #4#) "	SH@	\306Z	S\211\fH\211\fA@)
H\211\fAA)
\fU\204_\204B
\f\307\\\211H\211\fA@)\202%
\204Y
\307Z\211H\211\fAA)
\202%\211\202&\205n
\205n
B-\310\311	\312Z	HH\236A	\307\\	S\313\n!BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 2 #19# opt-read-fcn 4 read x l f $region $action $nterm #4# #6#] 5] #20="opt-bind:1" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #20# opt-bind 2 #6#] 5] #21="flat-dictionary-entry-list:0" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #21# flat-dictionary-entry-list 2 #6#] 5] #22="flat-section-dictionary:0" #[(#2# #3# #4#) "	\306ZH@	SH@	\307Z	S\211

H\211A@)
\fH\211AA)
\fU\204j\204L

\310\\\211H\211A@)\202.\204d
\f\310Z\211H\211AA)\202.\f\211\202/\205y\205yB-\311\312	\313Z	HH\236A	\310\\	S\314\n!BBI\210	I\210	.\207" [#2# #3# $2 $4 j i 5 7 2 #22# flat-section-dictionary 8 read stack x l f $region $action $nterm #4# #6#] 5] #23="template_file:4" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #23# template_file 2 #4# #6#] 4] #24="templatename:7" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #24# templatename 2 #4# #6#] 4] #25="insertable-string-list:0" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nCBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #25# insertable-string-list 2 #4# #6#] 4] #26="opt-string:1" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #26# opt-string 2 #6#] 5] #27="opt-read-fcn:1" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #27# opt-read-fcn 2 #6#] 5] #28="flat-dictionary-entry-list:1" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211\f
H\211
A@)\f\fH\211
AA)
\fU\204j\204L\f
\307\\\211H\211
A@)\202.\204d\f\f\307Z\211H\211
AA)\202.\f\211\202/\205y\205yB-\310\311	\312Z	HH\236A	\307\\	S\313\n\"BI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #28# flat-dictionary-entry-list 4 append stack x l f $region $action $nterm #4# #6#] 6] #29="templatename:8" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #29# templatename 2 #4# #6#] 4] #30="insertable-string-list:1" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211\f
H\211
A@)\f\fH\211
AA)
\fU\204j\204L\f
\307\\\211H\211
A@)\202.\204d\f\f\307Z\211H\211
AA)\202.\f\211\202/\205y\205yB-\310\311	\312Z	HH\236A	\307\\	S\313\nC\"BI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #30# insertable-string-list 4 append stack x l f $region $action $nterm #4# #6#] 6] #31="dictionary-entry-list:0" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #31# dictionary-entry-list 2 #6#] 5] #32="section-dictionary:0" #[(#2# #3# #4#) "	\306ZH@	\307ZH@	\310Z	S\211
H\211A@)\fH\211AA)
\fU\204k\204M
\311\\\211H\211A@)\202/\204e\f\311Z\211H\211AA)\202/\f\211\2020\205z\205zB-\312\313	\314Z	HH\236A	\311\\	S\315\n!BBI\210	I\210	.\207" [#2# #3# $2 $4 j i 9 5 11 2 #32# section-dictionary 12 read stack x l f $region $action $nterm #4# #6#] 5] #33="section-dictionary-list:0" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil #33# section-dictionary-list 2 #6#] 5] #34="prompt:0" #[(#2# #3# #4#) "	\306ZH@	\307ZH@	\310ZH@	\311ZH@	\312Z	S\211H\211A@)H\211AA)U\204\205\204c\313\\\211H\211A@)\202A\204}\313Z\211H\211AA)\202A\211\202C\205\224\205\224B-\314\315	\316Z	HH\236A	\313\\	S\n\315\317\320!\321\f\322
\257 !\211\"!\323 !\324\211\257+\211#\204\344$AA\211\203\356@AD\202\361ddD\244)BI\210	I\210	.	\207" [#2# #3# $2 $3 $4 $5 9 7 5 3 11 2 #34# prompt 12 :text read :default :read semantic-tag-make-plist nil j i stack x l f $region $action $nterm #4# #6# attributes class name semantic-tag wisent-input] 11] #35="dictionary-entry-list:1" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211\f
H\211
A@)\f\fH\211
AA)
\fU\204j\204L\f
\307\\\211H\211
A@)\202.\204d\f\f\307Z\211H\211
AA)\202.\f\211\202/\205y\205yB-\310\311	\312Z	HH\236A	\307\\	S\313\n\"BI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #35# dictionary-entry-list 4 append stack x l f $region $action $nterm #4# #6#] 6] #36="variable:0" #[(#2# #3# #4#) "	\306ZH@	\307ZH@	\310Z	S\211
H\211A@)\fH\211AA)
\fU\204k\204M
\311\\\211H\211A@)\202/\204e\f\311Z\211H\211AA)\202/\f\211\2020\205z\205zB-\312\313	\314Z	HH\236A	\311\\	S\n\315\315\316\317\313\320\321&,\211\204\310AA\211\203\322@AD\202\325ddD\244)BI\210	I\210	.\207" [#2# #3# $2 $3 j i 5 3 7 2 #36# variable 8 nil apply semantic-tag :type :default-value stack x l f $region $action $nterm #4# #6# attributes default-value type name wisent-input] 12] #37="opt-dynamic-arguments:0" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211
H\211\fA@)\fH\211\fAA)

\fU\204j\204L
\307\\\211H\211\fA@)\202.
\204d\f\307Z\211H\211\fAA)
\202.\f\211\202/\205y
\205y
B-\310\311	\312Z	HH\236A	\307\\	S\nBBI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #37# opt-dynamic-arguments 4 stack x l f $region $action $nterm #4# #6#] 5] #38="section-dictionary-list:1" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211\f
H\211
A@)\f\fH\211
AA)
\fU\204j\204L\f
\307\\\211H\211
A@)\202.\204d\f\f\307Z\211H\211
AA)\202.\f\211\202/\205y\205yB-\310\311	\312Z	HH\236A	\307\\	S\313\nC\"BI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #38# section-dictionary-list 4 append stack x l f $region $action $nterm #4# #6#] 6] #39="template:0" #[(#2# #3# #4#) "	\306ZH@	\307ZH@	\310ZH@	\311ZH@	\312ZH@	SH@	\313Z	S\211H\211A@)H\211AA) !U\204\224!\204r\314\\\211H\211A@)!\202P \204\214\314Z\211H\211AA) \202P\211\202R!\205\243 \205\243! B-\"\315#\316$	\317Z$%	HH\236A&	\314\\	S\n\320\321\f\322\323
\324\257'()*\325\326*\327\330)\331('&,\211\"\204\374+AA\211\"\203\"@\"AD\202	ddD\244)\"BI\210	&I\210	.\207" [#2# #3# $2 $3 $5 $6 15 13 9 7 5 17 2 #39# template 18 nil :documentation :code :dictionaries :binding apply semantic-tag function :type :arguments $7 $9 j i stack x l f $region $action $nterm #4# #6# attributes arg-list type name wisent-input] 14] #40="dictionary-entry:0" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
\f	HH\236A
	\310\\	S\n\311!\211\211\203G\312@\313
#\210A\211\2046+BI\210	
I\210	.\207" [#2# #3# $1 $region $action $nterm #40# dictionary-entry 2 semantic--tag-expand semantic--tag-put-property reparse-symbol #4# #6# raw-tag cooked l] 6] #41="templatename:0" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #41# templatename 2 #4# #6#] 4] "opt-dynamic-arguments:1" #[(#2# #3# #4#) "\306\307\310\211\f
HH\236A\n
\311\\\f
S\306BI\210\f
\nI\210
,\207" [$region $action $nterm #4# #2# #3# nil "opt-dynamic-arguments:1" opt-dynamic-arguments 2 #6#] 5] #42="variable:1" #[(#2# #3# #4#) "	\306ZH@	\307Z	S\211\fH\211A@)
H\211AA)\fU\204`\204C
\f\310\\\211H\211A@)\202&\204Z
\310Z\211H\211AA)\202&\211\202'\205o\205oB-\311\312	\313Z	HH\236A	\310\\	S\n\314\315\314\316\317\312\320\321&,\211\204\275AA\211\203\307@AD\202\312ddD\244)BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 5 2 #42# variable 6 nil t apply semantic-tag :type :default-value x l f $region $action $nterm #4# #6# attributes default-value type name wisent-input] 12] #43="opt-default-fcn:0" #[(#2# #3# #4#) "	SH@	\306Z	S\211\fH\211\fA@)
H\211\fAA)
\fU\204_\204B
\f\307\\\211H\211\fA@)\202%
\204Y
\307Z\211H\211\fAA)
\202%\211\202&\205n
\205n
B-\310\311	\312Z	HH\236A	\307\\	S\313\n!BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 2 #43# opt-default-fcn 4 read x l f $region $action $nterm #4# #6#] 5] #44="section-dictionary-list:2" #[(#2# #3# #4#) "	\306ZH@	SH@	\306Z	S\211\f
H\211
A@)\f\fH\211
AA)
\fU\204j\204L\f
\307\\\211H\211
A@)\202.\204d\f\f\307Z\211H\211
AA)\202.\f\211\202/\205y\205yB-\310\311	\312Z	HH\236A	\307\\	S\313\nC\"BI\210	I\210	.\207" [#2# #3# $1 $2 j i 3 2 #44# section-dictionary-list 4 append stack x l f $region $action $nterm #4# #6#] 6] #45="flat-dictionary-entry:0" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
\f	HH\236A
	\310\\	S\n\311!\211\211\203G\312@\313
#\210A\211\2046+BI\210	
I\210	.\207" [#2# #3# $1 $region $action $nterm #45# flat-dictionary-entry 2 semantic--tag-expand semantic--tag-put-property reparse-symbol #4# #6# raw-tag cooked l] 6] #46="dictionary-entry:1" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nCBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #46# dictionary-entry 2 #4# #6#] 4] #47="templatename:1" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #47# templatename 2 #4# #6#] 4] #48="context:0" #[(#2# #3# #4#) "	\306ZH@	\307Z	S\211\fH\211A@)
H\211AA)\fU\204`\204C
\f\310\\\211H\211A@)\202&\204Z
\310Z\211H\211AA)\202&\211\202'\205o\205oB-\311\312	\313Z	HH\236A	\310\\	S\n\312\314\211\315!\314\211\257+\211\204\266AA\211\203\300@AD\202\303ddD\244)BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 5 2 #48# context 6 nil semantic-tag-make-plist x l f $region $action $nterm #4# #6# attributes class name semantic-tag wisent-input] 8] #49="opt-default-fcn:1" #[(#2# #3# #4#) "	SH@	\306Z	S\211\fH\211\fA@)
H\211\fAA)
\fU\204_\204B
\f\307\\\211H\211\fA@)\202%
\204Y
\307Z\211H\211\fAA)
\202%\211\202&\205n
\205n
B-\310\311	\312Z	HH\236A	\307\\	S\313\n!BI\210	I\210	.\207" [#2# #3# $2 j i stack 3 2 #49# opt-default-fcn 4 read x l f $region $action $nterm #4# #6#] 5] #50="templatename:2" #[(#2# #3# #4#) "	SH@	SHA\306\307	\310Z
		HH\236A\n	\310\\	S\nBI\210	\nI\210	.\207" [#2# #3# $1 $region $action $nterm #50# templatename 2 #4# #6#] 4] #51="opt-default-fcn:2" #[(#2# #3# #4#) "	SH@	\306Z	S\211\fH\211
A@)
H\211
AA)\fU\204_\204B
\f\307\\\211H\211
A@)\202%\204Y
\307Z\211H\211
AA)\202%\211\202&\205n\205nB-\310\311	\312Z	HH\236A	\307\\	S\313\314\n!BBI\210	I\210	.\207" [#2# #3# $2 j i stack 3 2 #51# opt-default-fcn 4 macro read x l f $region $action $nterm #4# #6#] 6] vector (default . error) (SET . 1) (SHOW . 2) (CONTEXT . 3) (TEMPLATE . 4) (PROMPT . 5) (newline . 6) (default . error) (symbol . 11) (default . error) (symbol . 12) (default . error) (symbol . 13) (default . error) (SET . 14) (MACRO . 15) (CONTEXT . 16) (TEMPLATE . 17) (PROMPT . 18) (DEFAULT . 19) (DEFAULTMACRO . 20) (READ . 21) (symbol . 22) (default . error) (symbol . 24) default intern-soft (default . error) (MACRO . 25) (string . 26) (default . error) (newline . 29) (default . error) (newline . 30) (property . 31) (default . error) (string . 33) (default . error) (string . 34) (default . error) (MACRO . 25) (newline . 35) (string . 26) (property . 31) (default . error) (newline . 38) (DEFAULT . 39) (DEFAULTMACRO . 40) (string . 42) (default . error) (symbol . 44) (string . 45) (default . error) (string . 46) (READ . 47) (default . error) (newline . 49) (default . error) (symbol . 51) (default . error) (newline . 52) (default . error) (SECTIONDICTIONARY . 53) (SECTION . 54) (TEMPLATE_BLOCK . 55) (default . error) (string . 58) (default . error) (string . 59) (default . error) (newline . 60) (default . error) (newline . 61) (default . error) (newline . 62) (BIND . 63) (default . error) (string . 67) (SET . 1) (SHOW . 2) (default . error) (SET . 1) (SHOW . 2) (SECTION . 54) (END . 70) (default . error) (newline . 74) (default . error) (newline . 75) (default . error) ($EOI . 77) (default . error) ($EOI . 78) (default . accept) [((template . 10) (variable . 9) (prompt . 8) (context . 7) (template_file . 76)) nil nil nil ((templatename . 23)) nil nil nil nil nil nil ((insertable-string . 28) (insertable-string-list . 27)) nil nil nil nil nil nil nil nil nil nil nil ((opt-dynamic-arguments . 32)) nil nil nil ((insertable-string . 36)) nil nil nil ((opt-dynamic-arguments . 37)) nil ((opt-default-fcn . 41)) nil nil nil nil ((opt-string . 43)) nil nil ((opt-read-fcn . 48)) nil ((section-dictionary-list . 50)) nil nil nil nil nil nil ((section-dictionary . 57) (flat-section-dictionary . 56)) nil nil nil nil nil nil nil nil nil ((opt-bind . 64)) ((flat-dictionary-entry-list . 65)) ((dictionary-entry-list . 66)) nil nil ((flat-dictionary-entry . 69) (variable . 68)) ((dictionary-entry . 73) (section-dictionary . 72) (variable . 71)) nil nil nil nil nil nil nil nil nil nil nil nil] nil] 81) (#$ . 2438))
#@28 Setup the Semantic Parser.
(defalias 'srecode-template-wy--install-parser #[nil "\306\307!\210\310	\311\f\312\313\314\315\316$\207" [semantic-parser-name srecode-template-wy--parse-table semantic--parse-table semantic-debug-parser-source srecode-template-wy--keyword-table semantic-flex-keywords-obarray semantic-install-function-overrides ((parse-stream . wisent-parse-stream)) "LALR" "srecode-template.wy" add-hook wisent-discarding-token-functions wisent-collect-unmatched-syntax nil t srecode-template-wy--token-table semantic-lex-types-obarray] 5 (#$ . 22552)])
#@40 regexp analyzer for <property> tokens.
(defvar srecode-template-wy--<property>-regexp-analyzer nil (#$ . 23133))
(defalias 'srecode-template-wy--<property>-regexp-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<property>-regexp-analyzer ((looking-at #1=":\\(\\w\\|\\s_\\)*") (semantic-lex-push-token (semantic-lex-token 'property (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307\310\311!\2038\312\307\224\307\225BB
B\211@\211\211A@\247\2041AA\2024A)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# property token] 6 "regexp analyzer for <property> tokens."]] 2)
#@38 regexp analyzer for <symbol> tokens.
(defvar srecode-template-wy--<symbol>-regexp-analyzer nil (#$ . 23905))
(defalias 'srecode-template-wy--<symbol>-regexp-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<symbol>-regexp-analyzer ((looking-at #1="\\(\\sw\\|\\s_\\)+") (semantic-lex-push-token (semantic-lex-token 'symbol (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307\310\311!\2038\312\307\224\307\225BB
B\211@\211\211A@\247\2041AA\2024A)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# symbol token] 6 "regexp analyzer for <symbol> tokens."]] 2)
#@38 regexp analyzer for <number> tokens.
(defvar srecode-template-wy--<number>-regexp-analyzer nil (#$ . 24663))
(defalias 'srecode-template-wy--<number>-regexp-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<number>-regexp-analyzer ((looking-at semantic-lex-number-expression) (semantic-lex-push-token (semantic-lex-token 'number (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307\310\n!\2039\311\307\224\307\225BB
B\211@\211\211A@\247\2042AA\2025A)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at number semantic-lex-number-expression token] 6 "regexp analyzer for <number> tokens."]] 2)
#@43 string analyzer for <punctuation> tokens.
(defvar srecode-template-wy--<punctuation>-string-analyzer nil (#$ . 25454))
(defalias 'srecode-template-wy--<punctuation>-string-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<punctuation>-string-analyzer ((looking-at #1="\\s.+") (semantic-lex-push-token (semantic-lex-token 'punctuation (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307\310\311!\2038\312\307\224\307\225BB
B\211@\211\211A@\247\2041AA\2024A)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# punctuation token] 6 "string analyzer for <punctuation> tokens."]] 2)
#@36 sexp analyzer for <string> tokens.
(defvar srecode-template-wy--<string>-sexp-analyzer nil (#$ . 26234))
(defalias 'srecode-template-wy--<string>-sexp-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<string>-sexp-analyzer ((looking-at #2="\\s\"") (semantic-lex-push-token (semantic-lex-token #1='string (point) (save-excursion (semantic-lex-unterminated-syntax-protection #1# (forward-sexp 1) (point)))))) #[nil "\306``dB\307\310\311!\203M\312`\212\203'\203'\313\314!\210`\202+\306\315\316\217)BB
B\211@\211\211A@\247\204FAA\202IA)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #2# string forward-sexp 1 (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) debug-on-error semantic-lex-debug-analyzers token] 6 "sexp analyzer for <string> tokens."]] 2)
#@40 keyword analyzer for <keyword> tokens.
(defvar srecode-template-wy--<keyword>-keyword-analyzer nil (#$ . 27362))
(defalias 'srecode-template-wy--<keyword>-keyword-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-wy--<keyword>-keyword-analyzer ((and (looking-at #2="\\(\\sw\\|\\s_\\)+") (let ((#1=#:key (semantic-lex-keyword-p (match-string 0)))) (when #1# (semantic-lex-push-token (semantic-lex-token #1# (match-beginning 0) (match-end 0))))))) #[nil "\306``dB\307\310\311!\203f\312\307!\211

\313!\205-
;\205-\314
\")\211
\2057
J)\211\203e\307\224\307\225BB
B\211@\211\211A@\247\204^AA\202aA)A))
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #2# match-string arrayp intern-soft name semantic-flex-keywords-obarray #1# token] 6 "keyword analyzer for <keyword> tokens."]] 2)
#@50 Detect and create a dynamic argument properties.
(defvar srecode-template-property-analyzer nil (#$ . 28346))
(defalias 'srecode-template-property-analyzer #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-property-analyzer ((looking-at #1=":\\(\\w\\|\\s_\\)*") (semantic-lex-push-token (semantic-lex-token 'property (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307\310\311!\2038\312\307\224\307\225BB
B\211@\211\211A@\247\2041AA\2024A)A)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# property token] 6 "Detect and create a dynamic argument properties."]] 2)
#@43 Detect and create a template quote block.
(defvar srecode-template-separator-block nil (#$ . 29099))
(defalias 'srecode-template-separator-block #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [srecode-template-separator-block ((looking-at #1="^----\n") (semantic-lex-push-token (semantic-lex-token 'TEMPLATE_BLOCK (match-end 0) (semantic-lex-unterminated-syntax-protection 'TEMPLATE_BLOCK (goto-char (match-end 0)) (re-search-forward #2="^----$") (match-beginning 0)))) (setq semantic-lex-end-point (point))) #[nil "\306``dB\307\310\311!\203S\312\307\225\203,\203,\307\225b\210\313\314!\210\307\224\2020\306\315\316\217BB
B\211@\211\211A@\247\204JAA\202MA)A)`
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# TEMPLATE_BLOCK re-search-forward #2# (byte-code "\300\225b\210\301\302!\210\300\224\207" [0 re-search-forward #2#] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point TEMPLATE_BLOCK] 4))) debug-on-error semantic-lex-debug-analyzers token] 6 "Detect and create a template quote block."]] 2)
#@144 Lexical analyzer that handles SRecode Template buffers.
It ignores whitespace, newlines and comments.
See `semantic-lex' for more information.
(defalias 'wisent-srecode-template-lexer #[(start end &optional depth length) "\306\307\310	\n#\210`\306\211	<	=\311>?\206@A	\nBB\306C\ndV\2034\312\313\nd#\210\314 pDE\315\216\316F!\210	b\210`\nW\203\343G\203X\fGGX\203\343\317\320!\203\210\321\322\224\322\225BB\fB\211@\211H\211HA@\247\204}HAA\202\200HA)A)=\202\216\317\323!\203\225\311\225=\202\216\317\320!\203\242\311\225=\202\216\317I!\203\331`J\324\322!\210`J=\203\300\325\326\327 \"\210\202\307n\203\307\330u\210`J=\203\322\312\331!\210`=)\202\216\317\332!\203%\333\311\225K\203\371L\203\371\311\225b\210\334\335!\210\311\224\202\375\306\336\337\217BB\fB\211@\211H\211HA@\247\204HAA\202HA)A)=`=\202\216\317\340!\203\204\341\311!\211MM\342N!\205FM;\205F\343MN\")\211M\205PMJ)\211O\205\200O\311\224\311\225BB\fB\211@\211H\211HA@\247\204wHAA\202zHA)A)\211=)\204\216\317\344!\203\264\345\311\224\311\225BB\fB\211@\211H\211HA@\247\204\251HAA\202\254HA)A)=\202\216\317\340!\203\344\346\311\224\311\225BB\fB\211@\211H\211HA@\247\204\331HAA\202\334HA)A)=\202\216\317P!\203\347\311\224\311\225BB\fB\211@\211H\211HA@\247\204\nHAA\202
HA)A)=\202\216\317\350!\203Z\351`\212K\2030L\2030\352\322!\210`\2024\306\353\354\217)BB\fB\211@\211H\211HA@\247\204OHAA\202RHA)A)=\202\216\317\355!\203\212\356\311\224\311\225BB\fB\211@\211H\211HA@\247\204HAA\202\202HA)A)=\202\216\312\357!\210=<=\203\236\312\360<\f@#\210=<=b\210Q\203\273\361 \204\265\362 \203\273\363Q\364\"\210\f@HR\205\336\306S\365\216H\203\324\366H!S\367\370\371H>#!*)\210\202E+
\203)
\211A@\211T\211U\203\372\373U@U\211VA@)#\210
\211A@\211U\204\366T@WXWB@BA#b\210`\211=)\210*b\210\f\237.	\207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "wisent-srecode-template-lexer: end (%d) > point-max (%d)" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table looking-at "\\s-*\\(\n\\|\\s>\\)" newline 1 "\\s-+" forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "^----\n" TEMPLATE_BLOCK re-search-forward #3="^----$" (byte-code "\300\225b\210\301\302!\210\300\224\207" [0 re-search-forward #3#] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point TEMPLATE_BLOCK] 4))) "\\(\\sw\\|\\s_\\)+" match-string arrayp intern-soft ":\\(\\w\\|\\s_\\)*" property symbol number "\\s\"" string forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) "\\s.+" punctuation "Unmatched Text during Lexical Analysis" "wisent-srecode-template-lexer: endless loop at %d, after %S" input-pending-p accept-process-output throw lex ((byte-code "\203\301!\210\301\207" [o semantic-overlay-delete] 2)) semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message "wisent-srecode-template-lexer: `%s' block from %S is unterminated" tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length token semantic-lex-comment-regex comment-start-point debug-on-error semantic-lex-debug-analyzers name semantic-flex-keywords-obarray #4=#:key semantic-lex-number-expression semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function] 6 (#$ . 30384)])
(provide 'srecode/srt-wy)

MMCT - 2023