Marpa

Diff
Login

Diff

Differences From Artifact [54e9da0581]:

To Artifact [4f09f67e45]:


1
2
3
4
5
6
7
8
9
10
11


12
13
14
15
16
17
18
1
2
3
4
5
6
7
8
9


10
11
12
13
14
15
16
17
18









-
-
+
+







# -*- tcl -*-
##
# This template is BSD-licensed.
# (c) 2017-present Template - Andreas Kupries http://wiki.tcl.tk/andreas%20kupries
#                                          http://core.tcl.tk/akupries/
##
# (c) 2018 Grammar doctools::parser::sf::tcl By Andreas Kupries
##
##	`marpa::runtime::tcl`-derived Parser for grammar "doctools::parser::sf::tcl".
##	Generated On Tue Aug 21 21:36:10 PDT 2018
##		  By aku@hephaistos
##	Generated On Wed Aug 22 16:53:02 PDT 2018
##		  By andreask@ten
##		 Via marpa-gen

package provide doctools::parser::sf::tcl 1

# # ## ### ##### ######## #############
## Requisites

69
70
71
72
73
74
75
76
77
78
79
80
81
82







83
84
85
86
87
88
89
90

91
92
93
94
95
96
97
69
70
71
72
73
74
75







76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98







-
-
-
-
-
-
-
+
+
+
+
+
+
+








+







	}
    }

    method Classes {} {
	debug.doctools/parser/sf/tcl
	# Literals: The character classes in use
	return {
	    {@^CLS:<\173\175>.BMP}              {[^\173\175]}
	    {@^CLS:<\t-\r\40\42\133\135>.BMP}   {[^\t-\r\40\42\133\135]}
	    {@^CLS:<\t-\r\40\133\135>.BMP}      {[^\t-\r\40\133\135]}
	    {@CLS:<\n\r>}                       {[\n\r]}
	    {@CLS:<\t-\r\40>}                   {[\t-\r\40]}
	    {@RAN:<\ud800\udbff>}               {[\ud800-\udbff]}
	    {@RAN:<\udc00\udfff>}               {[\udc00-\udfff]}
	    {@^CLS:<\173\175>.BMP}               {[^\173\175]}
	    {@^CLS:<\t-\r\40\42\133-\135>.BMP}   {[^\t-\r\40\42\133-\135]}
	    {@^CLS:<\t-\r\40\133-\135>.BMP}      {[^\t-\r\40\133-\135]}
	    {@CLS:<\n\r>}                        {[\n\r]}
	    {@CLS:<\t-\r\40>}                    {[\t-\r\40]}
	    {@RAN:<\ud800\udbff>}                {[\ud800-\udbff]}
	    {@RAN:<\udc00\udfff>}                {[\udc00-\udfff]}
	}
    }

    method Lexemes {} {
	debug.doctools/parser/sf/tcl
	# Lexer API: Lexeme symbols (Cannot be terminal). G1 terminals
	return {
	    Braced    1
	    Escaped   1
	    Include   1
	    Quote     1
	    Simple    1
	    Space     1
	    Start     1
	    Stop      1
	    Vset      1
109
110
111
112
113
114
115
116
117


118


119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

137
138
139
140
141
142
143
144
145
146
147
148
149
150


151
152
153
154
155
156
157
110
111
112
113
114
115
116


117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163







-
-
+
+

+
+


















+














+
+







    }

    method L0.Symbols {} {
	# Non-lexeme, non-literal symbols
	debug.doctools/parser/sf/tcl
	return {
	    {@^CLS:<\173\175>}
	    {@^CLS:<\t-\r\40\42\133\135>}
	    {@^CLS:<\t-\r\40\133\135>}
	    {@^CLS:<\t-\r\40\42\133-\135>}
	    {@^CLS:<\t-\r\40\133-\135>}
	    {@CLS:<\u10000-\u10ffff>.SMP}
	    {@STR:<\134\133>}
	    {@STR:<\134\135>}
	    {@STR:<\134\173>}
	    {@STR:<\134\175>}
	    {@STR:<\r\n>}
	    @STR:<comment>
	    @STR:<include>
	    @STR:<vset>
	    ANY_UNBRACED
	    BL
	    BR
	    BRACE_ESCAPED
	    BRACED
	    BRACED_ELEM
	    BRACED_ELEMS
	    CL
	    COMMAND
	    COMMENT
	    CONTINUATION
	    CR
	    ESCAPED
	    INCLUDE
	    NEWLINE
	    NO_CFS_QUOTE
	    NO_CMD_FMT_SPACE
	    QUOTE
	    QUOTED
	    QUOTED_ELEM
	    QUOTED_ELEMS
	    SIMPLE
	    SPACE
	    SPACE0
	    SPACE1
	    UNQUOTED
	    UNQUOTED_ELEM
	    UNQUOTED_ELEMS
	    UNQUOTED_LEAD
	    VSET
	    WHITE
	    WHITE0
	    WHITE1
	    WORD
	    WORDS1
	}
176
177
178
179
180
181
182




183
184
185
186
187
188


189
190
191
192

193
194
195
196
197
198
199
200
201
202
203
204
205
206








207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225




226


227
228
229
230
231
232
233
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196


197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214



215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237




238
239
240
241
242
243
244
245
246
247
248
249
250
251







+
+
+
+




-
-
+
+




+











-
-
-
+
+
+
+
+
+
+
+















-
-
-
-
+
+
+
+

+
+







	    {BRACED_ELEM := BRACED}
	    {BRACED_ELEMS * BRACED_ELEM}
	    {CL := {@CHR:<\133>}}
	    {COMMAND := CL WHITE0 WORDS1 WHITE0 CR}
	    {COMMENT := CL WHITE0 @STR:<comment> WHITE1 WORD WHITE0 CR}
	    {CONTINUATION := SPACE0 {@CHR:<\134>} NEWLINE SPACE0}
	    {CR := {@CHR:<\135>}}
	    {Escaped := ESCAPED}
	    {ESCAPED := {@CHR:<\134>}}
	    {ESCAPED := {@STR:<\134\133>}}
	    {ESCAPED := {@STR:<\134\135>}}
	    {INCLUDE := @STR:<include>}
	    {Include := INCLUDE}
	    {NEWLINE := {@CLS:<\n\r>}}
	    {NEWLINE := {@STR:<\r\n>}}
	    {NO_CFS_QUOTE := {@^CLS:<\t-\r\40\42\133\135>}}
	    {NO_CMD_FMT_SPACE := {@^CLS:<\t-\r\40\133\135>}}
	    {NO_CFS_QUOTE := {@^CLS:<\t-\r\40\42\133-\135>}}
	    {NO_CMD_FMT_SPACE := {@^CLS:<\t-\r\40\133-\135>}}
	    {Quote := QUOTE}
	    {QUOTE := {@CHR:<\42>}}
	    {QUOTED := QUOTE QUOTED_ELEMS QUOTE}
	    {QUOTED_ELEM := COMMAND}
	    {QUOTED_ELEM := ESCAPED}
	    {QUOTED_ELEM := NO_CFS_QUOTE}
	    {QUOTED_ELEM := SPACE}
	    {QUOTED_ELEMS * QUOTED_ELEM}
	    {SIMPLE + NO_CFS_QUOTE}
	    {Simple := SIMPLE}
	    {Space := SPACE1}
	    {SPACE := {@CLS:<\t-\r\40>}}
	    {SPACE0 * SPACE}
	    {SPACE1 + SPACE}
	    {Start := CL}
	    {Stop := CR}
	    {UNQUOTED + UNQUOTED_ELEM}
	    {UNQUOTED_ELEM := COMMAND}
	    {UNQUOTED_ELEM := NO_CMD_FMT_SPACE}
	    {UNQUOTED := UNQUOTED_LEAD}
	    {UNQUOTED := UNQUOTED_LEAD UNQUOTED_ELEMS}
	    {UNQUOTED_ELEM := QUOTE}
	    {UNQUOTED_ELEM := UNQUOTED_LEAD}
	    {UNQUOTED_ELEMS + UNQUOTED_ELEM}
	    {UNQUOTED_LEAD := COMMAND}
	    {UNQUOTED_LEAD := ESCAPED}
	    {UNQUOTED_LEAD := NO_CMD_FMT_SPACE}
	    {VSET := @STR:<vset>}
	    {Vset := VSET}
	    {WHITE := COMMENT}
	    {WHITE := CONTINUATION}
	    {WHITE := SPACE}
	    {White := WHITE1}
	    {WHITE0 * WHITE}
	    {WHITE1 + WHITE}
	    {WORD := BRACED}
	    {WORD := QUOTED}
	    {WORD := UNQUOTED}
	    {Word := WORD}
	    {WORDS1 + WORD WHITE1 0}
	    {{@^CLS:<\173\175>} := {@^CLS:<\173\175>.BMP}}
	    {{@^CLS:<\173\175>} := {@CLS:<\u10000-\u10ffff>.SMP}}
	    {{@^CLS:<\t-\r\40\42\133\135>} := {@^CLS:<\t-\r\40\42\133\135>.BMP}}
	    {{@^CLS:<\t-\r\40\42\133\135>} := {@CLS:<\u10000-\u10ffff>.SMP}}
	    {{@^CLS:<\t-\r\40\133\135>} := {@^CLS:<\t-\r\40\133\135>.BMP}}
	    {{@^CLS:<\t-\r\40\133\135>} := {@CLS:<\u10000-\u10ffff>.SMP}}
	    {{@^CLS:<\t-\r\40\42\133-\135>} := {@^CLS:<\t-\r\40\42\133-\135>.BMP}}
	    {{@^CLS:<\t-\r\40\42\133-\135>} := {@CLS:<\u10000-\u10ffff>.SMP}}
	    {{@^CLS:<\t-\r\40\133-\135>} := {@^CLS:<\t-\r\40\133-\135>.BMP}}
	    {{@^CLS:<\t-\r\40\133-\135>} := {@CLS:<\u10000-\u10ffff>.SMP}}
	    {{@CLS:<\u10000-\u10ffff>.SMP} := {@RAN:<\ud800\udbff>} {@RAN:<\udc00\udfff>}}
	    {{@STR:<\134\133>} := {@CHR:<\134>} {@CHR:<\133>}}
	    {{@STR:<\134\135>} := {@CHR:<\134>} {@CHR:<\135>}}
	    {{@STR:<\134\173>} := {@CHR:<\134>} {@CHR:<\173>}}
	    {{@STR:<\134\175>} := {@CHR:<\134>} {@CHR:<\175>}}
	    {{@STR:<\r\n>} := {@CHR:<\r>} {@CHR:<\n>}}
	}
    }

    method L0.Semantics {} {
247
248
249
250
251
252
253

254
255
256
257
258
259
260
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279







+







    }

    method G1.Symbols {} {
	# Structural symbols
	debug.doctools/parser/sf/tcl
	return {
	    braced
	    escaped
	    form
	    include
	    path
	    q_elem
	    q_list
	    quote
	    quoted
275
276
277
278
279
280
281

282
283
284
285
286
287
288
289
290
291

292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309

310
311
312
313
314
315
316
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338







+










+


















+








    method G1.Rules {} {
	# Structural rules, including actions, masks, and names
	debug.doctools/parser/sf/tcl
	return {
	    {__ :A {name values}}
	    {braced := Braced}
	    {escaped := Escaped}
	    {__ :A Afirst}
	    {form := include}
	    {form := vars}
	    {__ :A {name values}}
	    {include :M {0 1 2 4} Start Include White path Stop}
	    {include :M {0 1 2 4 5} Start Include White path White Stop}
	    {include :M {0 1 2 3 5} Start White Include White path Stop}
	    {include :M {0 1 2 3 5 6} Start White Include White path White Stop}
	    {__ :A Afirst}
	    {path := recurse}
	    {q_elem := escaped}
	    {q_elem := simple}
	    {q_elem := space}
	    {q_elem := vars}
	    {__ :A {name values}}
	    {q_list * q_elem}
	    {quote := Quote}
	    {__ :A Afirst}
	    {quoted :M {0 2} Quote q_list Quote}
	    {recurse := braced}
	    {recurse := quoted}
	    {recurse := unquot}
	    {__ :A {name values}}
	    {simple := Simple}
	    {space := Space}
	    {unquot := uq_lead uq_list}
	    {__ :A Afirst}
	    {uq_elem := quote}
	    {uq_elem := uq_lead}
	    {uq_lead := escaped}
	    {uq_lead := simple}
	    {uq_lead := vars}
	    {__ :A {name values}}
	    {uq_list * uq_elem}
	    {__ :A Afirst}
	    {value := Word}
	    {__ :A {name values}}