%PDF-
%PDF-
Mini Shell
Mini Shell
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'semantic/lex)
#@64 The number of expected shift/reduce conflicts in this grammar.
(defconst srecode-template-wy--expected-conflicts nil (#$ . 432))
#@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>"))) (#$ . 567))
#@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))) (#$ . 1905))
#@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 \"\201B M\210\304\201C \"\201D M\210\304\201E \"\201F M\210\304\201G \"\201H M\210\304\201I \"\201J M\210\304\201K \"\201L M\210\304\201M \"\201N M\210\304\201O \"\201P M\210\304\201Q \"\201R M\210\304\201S \"\201T M\210\304\201U \"\201V M\210\304\201W \"\201X M\210\304\201Y \"\201Z M\210\304\201[ \"\201\\ M\210\304\201] \"\201^ M\210\304\201_ \"\201` M\210\304\201a \"\201b M\210\304\201c \"\201d M\210\201e \211\201f \201g \201h \201i \201j \201k \201l \257\201m \201n D\201o \201p D\201q \201r D\201s \201t \201u \201v \201w \201x \201y \201z \201{ \201| \257\n\201} \201~ D\201 \201\200 \305\"BC\201 \201\200 \313\"BC\201 \201\200 \321\"BC\201 \201\200 \331\"BC\201 \201\200 \347\"BC\201\201 \201\202 \201\203 \201\204 F\201\205 \201\206 D\201\207 \201\210 D\201 \201\200 \363\"BC\201 \201\200 \323\"BC\201 \201\200 \201a \"BC\201 \201\200 \307\"BC\201 \201\200 \201Y \"BC\201 \201\200 \315\"BC\201 \201\200 \333\"BC\201 \201\200 \351\"BC\201 \201\200 \201K \"BC\201 \201\200 \201M \"B\201\211 D\201\212 \201\213 D\201\214 \201\215 D\201 \201\200 \317\"BC\201\216 \201\217 D\201\220 \201\221 \201\222 \201\223 F\201 \201\200 \353\"BC\201 \201\200 \201[ \"BC\201 \201\200 \201] \"BC\201 \201\200 \201M \"B\201\224 D\201\225 \201\226 D\201 \201\200 \311\"B\201\227 \201\230 E\201 \201\200 \325\"BC\201 \201\200 \201O \"BC\201 \201\200 \201A \"BC\201 \201\200 \365\"BC\201 \201\200 \201C \"BC\201 \201\200 \355\"B\201\231 D\201\232 \201\233 \201\234 E\201\235 \201\236 D\201 \201\200 \357\"B\201\237 D\201\240 \201\241 D\201 \201\200 \373\"BC\201 \201\200 \201Q \"BC\201 \201\200 \201_ \"BC\201 \201\200 \201c \"BC\201\242 \201\243 D\201\244 \201\245 D\201 \201\200 \335\"BC\201\246 \201\247 \201\250 \201\251 F\201 \201\200 \337\"BC\201 \201\200 \375\"BC\201\252 \201\253 D\201\254 \201\255 D\201\256 \201\257 D\201 \201\200 \201E \"BC\201 \201\200 \201S \"BC\201\260 \201\261 D\201\262 \201\263 D\201 \201\200 \341\"B\201\264 D\201 \201\200 \343\"BC\201 \201\200 \367\"BC\201\265 \201\266 D\201 \201\200 \201G \"BC\201 \201\200 \345\"B\201\267 \201\270 E\201\271 \201\272 \201\273 \201\274 \201\275 \257\201\276 \201\277 D\201 \201\200 \201U \"BC\201 \201\200 \361\"BC\201\300 \201\301 D\201 \201\200 \201I \"BC\201 \201\200 \201W \"BC\201 \201\200 \377\"BC\201 \201\200 \327\"BC\201 \201\200 \371\"BC\201\302 \201\303 D\201\304 \201\305 D\201\306 C&Q\201\307 \201\310 $)\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\n BI\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\n BI\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\n BI\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\n BI\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\n BI\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 \fHA@
HAA
\f U\204O \2046
\f\307\\\211HA@\202
\204I
\307Z\211HAA
\202 \211\202 \205^
\205^
B- \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 l f $region $action $nterm #4# #6#] 6] #15="opt-bind:0" #[(#2# #3# #4#) " \306ZH@ \307Z S \211 \fHA@
HAA
\f U\204P \2047
\f\310\\\211HA@\202
\204J
\310Z\211HAA
\202 \211\202 \205_
\205_
B- \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 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\n BI\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\n BI\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 \fHA@
HAA \f
\f U\204P
\2047
\f\307\\\211HA@
\202 \f\204J
\307Z\211HAA\f\202 \211\202
\205_ \f\205_
\fB- \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 l f $region $action $nterm #4# #6#] 5] #19="opt-read-fcn:0" #[(#2# #3# #4#) " SH@ \306Z S \211 \fHA@
HAA \f
\f U\204O
\2046
\f\307\\\211HA@
\202 \f\204I
\307Z\211HAA\f\202 \211\202
\205^ \f\205^
\fB- \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 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
HA@
\fHAA
\fU\204Z \204@
\310\\\211HA@\202& \204T
\f\310Z\211HAA\202& \f\211\202' \205i \205i B- \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 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\n BI\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\n BI\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\nC BI\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
HA@\f\fHAA
\fU\204Z \204@ \f
\307\\\211HA@\202&
\204T \f\f\307Z\211HAA
\202& \f\211\202' \205i
\205i
B- \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 l f $region $action $nterm #4# #6#] 6] #29="templatename:8" #[(#2# #3# #4#) " SH@ SHA\306 \307 \310Z
HH\236A \n \310\\ S\n BI\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
HA@\f\fHAA
\fU\204Z \204@ \f
\307\\\211HA@\202&
\204T \f\f\307Z\211HAA
\202& \f\211\202' \205i
\205i
B- \310 \311 \312Z HH\236A \307\\ S\313\n C\"BI\210 I\210 .\207" [#2# #3# $1 $2 j i 3 2 #30# insertable-string-list 4 append stack 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
HA@\fHAA
\fU\204[ \204A
\311\\\211HA@\202' \204U \f\311Z\211HAA\202' \f\211\202( \205j \205j B- \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 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 \211 HA@HAA U\204u \204W \313\\\211HA@\2029 \204m \313Z\211HAA\2029 \211\202; \205\204 \205\204 B- \314 \315 \316Z HH\236A \313\\ S\n\315\317\320 !\321\f\322
\257 \211 ! \323 !\324\211\257+\211 \"\204\324 #AA\211\203\336 @AD\202\341 ddD\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 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
HA@\f\fHAA
\fU\204Z \204@ \f
\307\\\211HA@\202&
\204T \f\f\307Z\211HAA
\202& \f\211\202' \205i
\205i
B- \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 l f $region $action $nterm #4# #6#] 6] #36="variable:0" #[(#2# #3# #4#) " \306ZH@ \307ZH@ \310Z S \211
HA@\fHAA
\fU\204[ \204A
\311\\\211HA@\202' \204U \f\311Z\211HAA\202' \f\211\202( \205j \205j B- \312 \313 \314Z HH\236A \311\\ S\n\315 \315 \316\317 \313\320 \321&,\211 \204\270 AA\211\203\302 @AD\202\305 ddD\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 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
HA@ \fHAA \f
\fU\204Z
\204@
\307\\\211HA@
\202& \f\204T \f\307Z\211HAA\f\202& \f\211\202'
\205i \f\205i
\fB- \310 \311 \312Z HH\236A \307\\ S\n BBI\210 I\210 .\207" [#2# #3# $1 $2 j i 3 2 #37# opt-dynamic-arguments 4 stack l f $region $action $nterm #4# #6#] 5] #38="section-dictionary-list:1" #[(#2# #3# #4#) " \306ZH@ SH@ \306Z S \211 \f
HA@\f\fHAA
\fU\204Z \204@ \f
\307\\\211HA@\202&
\204T \f\f\307Z\211HAA
\202& \f\211\202' \205i
\205i
B- \310 \311 \312Z HH\236A \307\\ S\313\n C\"BI\210 I\210 .\207" [#2# #3# $1 $2 j i 3 2 #38# section-dictionary-list 4 append stack l f $region $action $nterm #4# #6#] 6] #39="template:0" #[(#2# #3# #4#) " \306ZH@ \307ZH@ \310ZH@ \311ZH@ \312ZH@ SH@ \313Z S \211 HA@ HAA U\204\204 \204f \314\\\211 HA@ \202H \204| \314Z\211 HAA \202H \211 \202J \205\223 \205\223 B- !\315 \"\316 # \317Z#$ HH\236A % \314\\ S\n\320 \321\f\322\323
\324\257 & ' ( )\325\326)\327\330(\331'&&,\211 !\204\354 *AA\211!\203\366 !@!AD\202\371 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 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\n BI\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@ \307ZH@ \310Z S \211
HA@\fHAA
\fU\204[ \204A
\311\\\211HA@\202' \204U \f\311Z\211HAA\202' \f\211\202( \205j \205j B- \312 \313 \314Z HH\236A \311\\ S\n\315 C\315 \316\317 \313\320 \321&,\211 \204\271 AA\211\203\303 @AD\202\306 ddD\244)BI\210 I\210 .\207" [#2# #3# $2 $3 j i 5 3 7 2 #42# variable 8 nil apply semantic-tag :type :default-value stack 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 \fHA@
HAA \f
\f U\204O
\2046
\f\307\\\211HA@
\202 \f\204I
\307Z\211HAA\f\202 \211\202
\205^ \f\205^
\fB- \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 l f $region $action $nterm #4# #6#] 5] #44="section-dictionary-list:2" #[(#2# #3# #4#) " \306ZH@ SH@ \306Z S \211 \f
HA@\f\fHAA
\fU\204Z \204@ \f
\307\\\211HA@\202&
\204T \f\f\307Z\211HAA
\202& \f\211\202' \205i
\205i
B- \310 \311 \312Z HH\236A \307\\ S\313\n C\"BI\210 I\210 .\207" [#2# #3# $1 $2 j i 3 2 #44# section-dictionary-list 4 append stack 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\nC BI\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\n BI\210 \nI\210 .\207" [#2# #3# $1 $region $action $nterm #47# templatename 2 #4# #6#] 4] #48="variable:2" #[(#2# #3# #4#) " \306ZH@ \307Z S \211 \fHA@
HAA \f U\204P \2047
\f\310\\\211HA@\202 \204J
\310Z\211HAA\202 \211\202 \205_ \205_ B- \311 \312 \313Z HH\236A \310\\ S\n\314\315\314 \316\317 \312\320\321&,\211 \204\255 AA\211\203\267 @AD\202\272 ddD\244)BI\210 I\210 .\207" [#2# #3# $2 j i stack 3 5 2 #48# variable 6 nil t apply semantic-tag :type :default-value l f $region $action $nterm #4# #6# attributes default-value type name wisent-input] 12] #49="context:0" #[(#2# #3# #4#) " \306ZH@ \307Z S \211 \fHA@
HAA \f U\204P \2047
\f\310\\\211HA@\202 \204J
\310Z\211HAA\202 \211\202 \205_ \205_ B- \311 \312 \313Z HH\236A \310\\ S\n\312\314 \211 \315!\314\211\257+\211 \204\246 AA\211\203\260 @AD\202\263 ddD\244)BI\210 I\210 .\207" [#2# #3# $2 j i stack 3 5 2 #49# context 6 nil semantic-tag-make-plist l f $region $action $nterm #4# #6# attributes class name semantic-tag wisent-input] 8] #50="opt-default-fcn:1" #[(#2# #3# #4#) " SH@ \306Z S \211 \fHA@
HAA \f
\f U\204O
\2046
\f\307\\\211HA@
\202 \f\204I
\307Z\211HAA\f\202 \211\202
\205^ \f\205^
\fB- \310 \311 \312Z HH\236A \307\\ S\313\n!BI\210 I\210 .\207" [#2# #3# $2 j i stack 3 2 #50# opt-default-fcn 4 read l f $region $action $nterm #4# #6#] 5] #51="templatename:2" #[(#2# #3# #4#) " SH@ SHA\306 \307 \310Z
HH\236A \n \310\\ S\n BI\210 \nI\210 .\207" [#2# #3# $1 $region $action $nterm #51# templatename 2 #4# #6#] 4] #52="opt-default-fcn:2" #[(#2# #3# #4#) " SH@ \306Z S \211 \fHA@
HAA
\f U\204O \2046
\f\307\\\211HA@\202
\204I
\307Z\211HAA
\202 \211\202 \205^
\205^
B- \310 \311 \312Z HH\236A \307\\ S\313\314\n!BBI\210 I\210 .\207" [#2# #3# $2 j i stack 3 2 #52# opt-default-fcn 4 macro read 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) (number . 27) (default . error) (newline . 30) (default . error) (newline . 31) (property . 32) (default . error) (string . 34) (default . error) (string . 35) (default . error) (newline . 36) (default . error) (MACRO . 25) (newline . 37) (string . 26) (property . 32) (default . error) (newline . 40) (DEFAULT . 41) (DEFAULTMACRO . 42) (string . 44) (default . error) (symbol . 46) (string . 47) (default . error) (string . 48) (READ . 49) (default . error) (newline . 51) (default . error) (symbol . 53) (default . error) (newline . 54) (default . error) (SECTIONDICTIONARY . 55) (SECTION . 56) (TEMPLATE_BLOCK . 57) (default . error) (string . 60) (default . error) (string . 61) (default . error) (newline . 62) (default . error) (newline . 63) (default . error) (newline . 64) (BIND . 65) (default . error) (string . 69) (SET . 1) (SHOW . 2) (default . error) (SET . 1) (SHOW . 2) (SECTION . 56) (END . 72) (default . error) (newline . 76) (default . error) (newline . 77) (default . error) ($EOI . 79) (default . error) ($EOI . 80) (default . accept) [((template . 10) (variable . 9) (prompt . 8) (context . 7) (template_file . 78)) nil nil nil ((templatename . 23)) nil nil nil nil nil nil ((insertable-string . 29) (insertable-string-list . 28)) nil nil nil nil nil nil nil nil nil nil nil ((opt-dynamic-arguments . 33)) nil nil nil nil ((insertable-string . 38)) nil nil nil ((opt-dynamic-arguments . 39)) nil ((opt-default-fcn . 43)) nil nil nil nil nil ((opt-string . 45)) nil nil ((opt-read-fcn . 50)) nil ((section-dictionary-list . 52)) nil nil nil nil nil nil ((section-dictionary . 59) (flat-section-dictionary . 58)) nil nil nil nil nil nil nil nil nil ((opt-bind . 66)) ((flat-dictionary-entry-list . 67)) ((dictionary-entry-list . 68)) nil nil ((flat-dictionary-entry . 71) (variable . 70)) ((dictionary-entry . 75) (section-dictionary . 74) (variable . 73)) nil nil nil nil nil nil nil nil nil nil nil nil] nil] 83) (#$ . 2418))
#@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 ((semantic-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 (#$ . 22774)])
#@43 string analyzer for <punctuation> tokens.
(defvar srecode-template-wy--<punctuation>-string-analyzer nil (#$ . 23364))
(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!\2036 \312\307\224\307\225BB
B\211@\211\211A@\247\204. \211AA\262\2022 \211A\262A\262
-\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] 6 "string analyzer for <punctuation> tokens."]] 2)
#@38 regexp analyzer for <symbol> tokens.
(defvar srecode-template-wy--<symbol>-regexp-analyzer nil (#$ . 24151))
(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!\2036 \312\307\224\307\225BB
B\211@\211\211A@\247\204. \211AA\262\2022 \211A\262A\262
-\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] 6 "regexp analyzer for <symbol> tokens."]] 2)
#@38 regexp analyzer for <number> tokens.
(defvar srecode-template-wy--<number>-regexp-analyzer nil (#$ . 24916))
(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!\2037 \311\307\224\307\225BB
B\211@\211\211A@\247\204/ \211AA\262\2023 \211A\262A\262
-\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] 6 "regexp analyzer for <number> tokens."]] 2)
#@36 sexp analyzer for <string> tokens.
(defvar srecode-template-wy--<string>-sexp-analyzer nil (#$ . 25714))
(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!\203e \312`\212\203' \203' \313\314!\210`\202E \31514 \313\314!\210`0\202E \210\312 @ A#b\210`\211\262)BB
B\211@\211\211A@\247\204] \211AA\262\202a \211A\262A\262
-\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 (error) debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function] 8 "sexp analyzer for <string> tokens."]] 2)
#@40 keyword analyzer for <keyword> tokens.
(defvar srecode-template-wy--<keyword>-keyword-analyzer nil (#$ . 26724))
(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!\203_ \312\307!\211\313
!\205' \211;\205' \314
\"\262\211\262\2051 \211J\262\211 \203^ \307\224\307\225BB
B\211@\211\211A@\247\204V \211AA\262\202Z \211A\262A\262)
-\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 obarrayp intern-soft semantic-flex-keywords-obarray #1#] 6 "keyword analyzer for <keyword> tokens."]] 2)
#@40 regexp analyzer for <property> tokens.
(defvar srecode-template-wy--<property>-regexp-analyzer nil (#$ . 27722))
(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!\2036 \312\307\224\307\225BB
B\211@\211\211A@\247\204. \211AA\262\2022 \211A\262A\262
-\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] 6 "regexp analyzer for <property> tokens."]] 2)
#@50 Detect and create a dynamic argument properties.
(defvar srecode-template-property-analyzer nil (#$ . 28501))
(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!\2036 \312\307\224\307\225BB
B\211@\211\211A@\247\204. \211AA\262\2022 \211A\262A\262
-\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] 6 "Detect and create a dynamic argument properties."]] 2)
#@43 Detect and create a template quote block.
(defvar srecode-template-separator-block nil (#$ . 29261))
(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!\203p \312\307\225\203, \203, \307\225b\210\313\314!\210\307\224\202O \3151> \307\225b\210\313\314!\210\307\2240\202O \210\312 @ A#b\210`\211\262BB
B\211@\211\211A@\247\204f \211AA\262\202j \211A\262A\262`
-\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# (error) debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function] 8 "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 @ A\311 BC\206 D E \nB F\306 G\ndV\2034 \312\313\nd#\210\314 p H I\315\216\316J!\210 b\210`\nW\203!K\203X \fGKX\203!\317\320!\203\206 \321\322\224\322\225BB\fB\211@\211\211A@\247\204z \211AA\262\202~ \211A\262A\262A\202\270\317\323!\203\223 \311\225A\202\270\317\320!\203\240 \311\225A\202\270\317L!\203\327 ` M\324\322!\210`M=\203\276 \325\326\327 \"\210\202\305 n\203\305 \330u\210`M=\203\320 \312\331!\210`A)\202\270\317\332!\203C\333\311\225N\203\367 O\203\367 \311\225b\210\334\335!\210\311\224\202 \3361 \311\225b\210\334\335!\210\311\2240\202 \210\333PF@FA#b\210`\211A\262BB\fB\211@\211\211A@\247\2044\211AA\262\2028\211A\262A\262A`A\202\270\317\337!\203\233\340\311!\211\341Q!\205^\211;\205^\342Q\"\262\211\262\205h\211J\262\211 R\205\227R\311\224\311\225BB\fB\211@\211\211A@\247\204\215\211AA\262\202\221\211A\262A\262\211A)\204\270\317\343!\203\311\344\311\224\311\225BB\fB\211@\211\211A@\247\204\275\211AA\262\202\301\211A\262A\262A\202\270\317S!\203\370\345\311\224\311\225BB\fB\211@\211\211A@\247\204\354\211AA\262\202\360\211A\262A\262A\202\270\317\337!\203&\346\311\224\311\225BB\fB\211@\211\211A@\247\204\211AA\262\202 \211A\262A\262A\202\270\317\347!\203\206\350`\212N\203AO\203A\351\322!\210`\202b\3521N\351\322!\210`0\202b\210\350PF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204z\211AA\262\202~\211A\262A\262A\202\270\317\353!\203\264\354\311\224\311\225BB\fB\211@\211\211A@\247\204\250\211AA\262\202\254\211A\262A\262A\202\270\312\355!\210A@=\203\310\312\356@\f@#\210A@Ab\210T\203\362\357 \204\354r\360U!q\210\212Ub\210\361 *\203\362\362T\363\"\210\f@V\205 \306C\364\311\365\366\367!\370\"\371$\216\203\211\372!\240\210\373\374\375B#!)\262\266\202E +
\203`
\211A\242\211 W\211 X\203J\376\377X@XA@#\210
\211A\242\211X\2044W@PF@FA#b\210`\211A\266* 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 #[nil "rq\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 "^----$" (error) "\\(\\sw\\|\\s_\\)+" match-string obarrayp intern-soft ":\\(\\w\\|\\s_\\)*" property number symbol "\\s\"" string forward-sexp (error) "\\s.+" punctuation "Unmatched Text during Lexical Analysis" "wisent-srecode-template-lexer: endless loop at %d, after %S" input-pending-p marker-buffer accept-process-output throw lex make-byte-code "\300\242\205 \301\300\242!\207" vconcat vector [delete-overlay] 2 semantic-lex-highlight-token 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 semantic-lex-comment-regex comment-start-point debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function semantic-flex-keywords-obarray #3=#:key semantic-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug last blk] 9 (#$ . 30411)])
(provide 'srecode/srt-wy)
Zerion Mini Shell 1.0