source: project/release/4/genturfahi/trunk/bootstrap.scm @ 22052

Last change on this file since 22052 was 22052, checked in by Alan Post, 9 years ago

genturfa'i: minor updates to grammar of PEG parser.

I noticed I still had #\space and #\tab hard-coded as space, which
existed because I hadn't yet defined [:space:].

Make some cosmetic changes to end of line and end of file handling.

File size: 24.0 KB
Line 
1;;;;
2;;;; genturfahi - lo la .ckim. ke pe'a jajgau ratcu ke'e genturfa'i
3;;;;            `-> A Scheme packrat parser.
4;;;;
5;;;; Copyright (c) 2010 ".alyn.post." <alyn.post@lodockikumazvati.org>
6;;;;
7;;;; Permission to use, copy, modify, and/or distribute this software for any
8;;;; purpose with or without fee is hereby granted, provided that the above
9;;;; copyright notice and this permission notice appear in all copies.
10;;;;
11;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12;;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13;;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14;;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15;;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16;;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17;;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18;;;;
19
20(define genturfahi-peg-gerna
21  (let ()
22    (define (cfari-38 porsi mapti namapti) (cfari-39 porsi mapti namapti))
23    (define (cfari-samselpla-2 porsi mapti namapti)
24      (cfari-samselpla-40 porsi mapti namapti))
25    (define (gerna-3 porsi mapti namapti) (gerna-41 porsi mapti namapti))
26    (define (smuni-5 porsi mapti namapti) (smuni-42 porsi mapti namapti))
27    (define (naselci-6 porsi mapti namapti) (naselci-43 porsi mapti namapti))
28    (define (javni-7 porsi mapti namapti) (javni-44 porsi mapti namapti))
29    (define (jonai-8 porsi mapti namapti) (jonai-45 porsi mapti namapti))
30    (define (je-9 porsi mapti namapti) (je-46 porsi mapti namapti))
31    (define (nastura-pajavni-10 porsi mapti namapti)
32      (nastura-pajavni-47 porsi mapti namapti))
33    (define (pajavni-13 porsi mapti namapti) (pajavni-48 porsi mapti namapti))
34    (define (optional-14 porsi mapti namapti)
35      (optional-49 porsi mapti namapti))
36    (define (zero-or-more-15 porsi mapti namapti)
37      (zero-or-more-50 porsi mapti namapti))
38    (define (one-or-more-16 porsi mapti namapti)
39      (one-or-more-51 porsi mapti namapti))
40    (define (and-predicate-17 porsi mapti namapti)
41      (and-predicate-52 porsi mapti namapti))
42    (define (end-of-input-18 porsi mapti namapti)
43      (end-of-input-53 porsi mapti namapti))
44    (define (not-predicate-19 porsi mapti namapti)
45      (not-predicate-54 porsi mapti namapti))
46    (define (cmene-sumti-11 porsi mapti namapti)
47      (cmene-sumti-55 porsi mapti namapti))
48    (define (selci-javni-20 porsi mapti namapti)
49      (selci-javni-56 porsi mapti namapti))
50    (define (selci-naselci-21 porsi mapti namapti)
51      (selci-naselci-57 porsi mapti namapti))
52    (define (lerfu-selci-22 porsi mapti namapti)
53      (lerfu-selci-58 porsi mapti namapti))
54    (define (lerfu-cmene-27 porsi mapti namapti)
55      (lerfu-cmene-59 porsi mapti namapti))
56    (define (valsi-selci-23 porsi mapti namapti)
57      (valsi-selci-60 porsi mapti namapti))
58    (define (valsi-lerfu-28 porsi mapti namapti)
59      (valsi-lerfu-61 porsi mapti namapti))
60    (define (klesi-selci-24 porsi mapti namapti)
61      (klesi-selci-62 porsi mapti namapti))
62    (define (klesi-lerfu-29 porsi mapti namapti)
63      (klesi-lerfu-63 porsi mapti namapti))
64    (define (klesi-cmene-30 porsi mapti namapti)
65      (klesi-cmene-64 porsi mapti namapti))
66    (define (denpabu-25 porsi mapti namapti) (denpabu-65 porsi mapti namapti))
67    (define (samselpla-12 porsi mapti namapti)
68      (samselpla-66 porsi mapti namapti))
69    (define (samselpla-xadni-31 porsi mapti namapti)
70      (samselpla-xadni-67 porsi mapti namapti))
71    (define (samselpla-cmene-32 porsi mapti namapti)
72      (samselpla-cmene-68 porsi mapti namapti))
73    (define (girzu-javni-26 porsi mapti namapti)
74      (girzu-javni-69 porsi mapti namapti))
75    (define (canlu-1 porsi mapti namapti) (canlu-70 porsi mapti namapti))
76    (define (canlubu-33 porsi mapti namapti) (canlubu-71 porsi mapti namapti))
77    (define (totoi-34 porsi mapti namapti) (totoi-72 porsi mapti namapti))
78    (define (CR-36 porsi mapti namapti) (CR-73 porsi mapti namapti))
79    (define (LF-37 porsi mapti namapti) (LF-74 porsi mapti namapti))
80    (define (CRLF-35 porsi mapti namapti) (CRLF-75 porsi mapti namapti))
81    (define (FAhO-4 porsi mapti namapti) (FAhO-76 porsi mapti namapti))
82    (define cfari-39
83      (nunjavni-morji
84        (morji-nunjavni-samselpla
85          samselpla-cfari
86          (morji-nunjavni-je
87            canlu-1
88            (morji-nunjavni-* cfari-samselpla-2 nastura: #t)
89            canlu-1
90            (morji-nunjavni-cmene gerna-3 cmene: "gerna")
91            (morji-nunjavni-nastura FAhO-4)))))
92    (define cfari-samselpla-40
93      (nunjavni-morji
94        (morji-nunjavni-samselpla-cabna
95          samselpla-cfari-samselpla
96          (morji-nunjavni-je
97            (morji-nunjavni-lerfu #\{)
98            canlu-1
99            (morji-nunjavni-+
100              (morji-nunjavni-je
101                (morji-nunjavni-! (morji-nunjavni-lerfu #\}))
102                (morji-nunjavni-.))
103              cmene:
104              "rodalerfu")
105            (morji-nunjavni-lerfu #\})
106            canlu-1))))
107    (define gerna-41 (nunjavni-morji (morji-nunjavni-* smuni-5)))
108    (define smuni-42
109      (nunjavni-morji
110        (morji-nunjavni-samselpla
111          samselpla-smuni
112          (morji-nunjavni-je
113            (morji-nunjavni-cmene naselci-6 cmene: "naselci")
114            (morji-nunjavni-valsi "<-")
115            canlu-1
116            (morji-nunjavni-cmene javni-7 cmene: "javni")))))
117    (define naselci-43
118      (nunjavni-morji
119        (morji-nunjavni-samselpla
120          samselpla-naselci
121          (morji-nunjavni-je
122            (morji-nunjavni-char-set
123              (char-set-union
124                char-set:letter+digit
125                (char-set #\$)
126                (char-set #\%)
127                (char-set #\:)
128                (char-set #\=)
129                (char-set #\>)
130                (char-set #\^)
131                (char-set #\~)
132                (char-set #\_)
133                (char-set #\@))
134              cmene:
135              "cfari")
136            (morji-nunjavni-char-set-*
137              (char-set-union
138                char-set:letter+digit
139                (char-set #\$)
140                (char-set #\%)
141                (char-set #\:)
142                (char-set #\=)
143                (char-set #\>)
144                (char-set #\^)
145                (char-set #\~)
146                (char-set #\_)
147                (char-set #\@)
148                (char-set #\.)
149                (char-set #\!)
150                (char-set #\&)
151                (char-set #\/)
152                (char-set #\\)
153                (char-set #\-))
154              cmene:
155              "fanmo")
156            canlu-1))))
157    (define javni-44 (nunjavni-morji (morji-nunjavni-jonai jonai-8 je-9)))
158    (define jonai-45
159      (nunjavni-morji
160        (morji-nunjavni-samselpla
161          samselpla-jonai
162          (morji-nunjavni-je
163            (morji-nunjavni-cmene je-9 cmene: "cfari")
164            (morji-nunjavni-+
165              (morji-nunjavni-je (morji-nunjavni-lerfu #\/) canlu-1 je-9)
166              cmene:
167              "fanmo")))))
168    (define je-46
169      (nunjavni-morji
170        (morji-nunjavni-samselpla
171          samselpla-je
172          (morji-nunjavni-je
173            (morji-nunjavni-+ nastura-pajavni-10 cmene: "javni")
174            (morji-nunjavni-? cmene-sumti-11 cmene: "cmene")
175            (morji-nunjavni-? samselpla-12 cmene: "samselpla")))))
176    (define nastura-pajavni-47
177      (nunjavni-morji
178        (morji-nunjavni-jonai
179          (morji-nunjavni-samselpla
180            samselpla-nastura-javni
181            (morji-nunjavni-je
182              (morji-nunjavni-lerfu #\`)
183              canlu-1
184              (morji-nunjavni-cmene pajavni-13 cmene: "javni")))
185          pajavni-13)))
186    (define pajavni-48
187      (nunjavni-morji
188        (morji-nunjavni-jonai
189          optional-14
190          zero-or-more-15
191          one-or-more-16
192          and-predicate-17
193          end-of-input-18
194          not-predicate-19
195          (morji-nunjavni-samselpla
196            samselpla-pajavni-cmene
197            (morji-nunjavni-je
198              (morji-nunjavni-? cmene-sumti-11 cmene: "cmene")
199              (morji-nunjavni-cmene selci-javni-20 cmene: "javni"))))))
200    (define optional-49
201      (nunjavni-morji
202        (morji-nunjavni-samselpla
203          samselpla-?
204          (morji-nunjavni-je
205            (morji-nunjavni-? cmene-sumti-11 cmene: "cmene")
206            (morji-nunjavni-cmene selci-javni-20 cmene: "javni")
207            (morji-nunjavni-lerfu #\?)
208            canlu-1))))
209    (define zero-or-more-50
210      (nunjavni-morji
211        (morji-nunjavni-samselpla
212          samselpla-*
213          (morji-nunjavni-je
214            (morji-nunjavni-? cmene-sumti-11 cmene: "cmene")
215            (morji-nunjavni-cmene selci-javni-20 cmene: "javni")
216            (morji-nunjavni-lerfu #\*)
217            canlu-1))))
218    (define one-or-more-51
219      (nunjavni-morji
220        (morji-nunjavni-samselpla
221          samselpla-+
222          (morji-nunjavni-je
223            (morji-nunjavni-? cmene-sumti-11 cmene: "cmene")
224            (morji-nunjavni-cmene selci-javni-20 cmene: "javni")
225            (morji-nunjavni-lerfu #\+)
226            canlu-1))))
227    (define and-predicate-52
228      (nunjavni-morji
229        (morji-nunjavni-samselpla
230          samselpla-&
231          (morji-nunjavni-je
232            (morji-nunjavni-lerfu #\&)
233            canlu-1
234            (morji-nunjavni-cmene selci-javni-20 cmene: "javni")))))
235    (define end-of-input-53
236      (nunjavni-morji
237        (morji-nunjavni-samselpla
238          samselpla-fanmo
239          (morji-nunjavni-je
240            (morji-nunjavni-lerfu #\!)
241            canlu-1
242            (morji-nunjavni-lerfu #\.)
243            canlu-1))))
244    (define not-predicate-54
245      (nunjavni-morji
246        (morji-nunjavni-samselpla
247          samselpla-!
248          (morji-nunjavni-je
249            (morji-nunjavni-lerfu #\!)
250            canlu-1
251            (morji-nunjavni-cmene selci-javni-20 cmene: "javni")))))
252    (define cmene-sumti-55
253      (nunjavni-morji
254        (morji-nunjavni-samselpla
255          samselpla-cmene-sumti
256          (morji-nunjavni-je
257            (morji-nunjavni-valsi "#:")
258            (morji-nunjavni-char-set
259              (char-set-union
260                char-set:letter+digit
261                (char-set #\$)
262                (char-set #\%)
263                (char-set #\:)
264                (char-set #\=)
265                (char-set #\>)
266                (char-set #\^)
267                (char-set #\~)
268                (char-set #\_)
269                (char-set #\@))
270              cmene:
271              "cfari")
272            (morji-nunjavni-char-set-*
273              (char-set-union
274                char-set:letter+digit
275                (char-set #\$)
276                (char-set #\%)
277                (char-set #\:)
278                (char-set #\=)
279                (char-set #\>)
280                (char-set #\^)
281                (char-set #\~)
282                (char-set #\_)
283                (char-set #\@)
284                (char-set #\.)
285                (char-set #\!)
286                (char-set #\&)
287                (char-set #\/)
288                (char-set #\\)
289                (char-set #\-))
290              cmene:
291              "fanmo")
292            canlu-1))))
293    (define selci-javni-56
294      (nunjavni-morji
295        (morji-nunjavni-jonai
296          selci-naselci-21
297          lerfu-selci-22
298          valsi-selci-23
299          klesi-selci-24
300          denpabu-25
301          girzu-javni-26)))
302    (define selci-naselci-57
303      (nunjavni-morji
304        (morji-nunjavni-samselpla
305          samselpla-selci-naselci
306          (morji-nunjavni-je
307            (morji-nunjavni-cmene naselci-6 cmene: "naselci")
308            (morji-nunjavni-! (morji-nunjavni-valsi "<-"))))))
309    (define lerfu-selci-58
310      (nunjavni-morji
311        (morji-nunjavni-jonai
312          (morji-nunjavni-samselpla
313            samselpla-stura-lerfu-selci
314            (morji-nunjavni-je
315              (morji-nunjavni-valsi ",#\\")
316              (morji-nunjavni-cmene lerfu-cmene-27 cmene: "lerfu")
317              canlu-1))
318          (morji-nunjavni-samselpla
319            samselpla-stura-lerfu-selci
320            (morji-nunjavni-je
321              (morji-nunjavni-valsi ",#\\")
322              (morji-nunjavni-. cmene: "lerfu")
323              canlu-1))
324          (morji-nunjavni-samselpla
325            samselpla-lerfu-selci
326            (morji-nunjavni-je
327              (morji-nunjavni-valsi "#\\")
328              (morji-nunjavni-cmene lerfu-cmene-27 cmene: "lerfu")
329              canlu-1))
330          (morji-nunjavni-samselpla
331            samselpla-lerfu-selci
332            (morji-nunjavni-je
333              (morji-nunjavni-valsi "#\\")
334              (morji-nunjavni-. cmene: "lerfu")
335              canlu-1)))))
336    (define lerfu-cmene-59
337      (nunjavni-morji
338        (morji-nunjavni-jonai
339          (morji-nunjavni-samselpla
340            samselpla-lerfu-space
341            (morji-nunjavni-valsi "space"))
342          (morji-nunjavni-samselpla
343            samselpla-lerfu-return
344            (morji-nunjavni-valsi "return"))
345          (morji-nunjavni-samselpla
346            samselpla-lerfu-linefeed
347            (morji-nunjavni-valsi "linefeed"))
348          (morji-nunjavni-samselpla
349            samselpla-lerfu-newline
350            (morji-nunjavni-valsi "newline"))
351          (morji-nunjavni-samselpla
352            samselpla-lerfu-return
353            (morji-nunjavni-valsi "return"))
354          (morji-nunjavni-samselpla
355            samselpla-lerfu-tab
356            (morji-nunjavni-valsi "tab")))))
357    (define valsi-selci-60
358      (nunjavni-morji
359        (morji-nunjavni-jonai
360          (morji-nunjavni-samselpla
361            samselpla-stura-empty-string
362            (morji-nunjavni-je (morji-nunjavni-valsi ",\"\"") canlu-1))
363          (morji-nunjavni-samselpla
364            samselpla-empty-string
365            (morji-nunjavni-je (morji-nunjavni-valsi "\"\"") canlu-1))
366          (morji-nunjavni-samselpla
367            samselpla-stura-valsi-selci
368            (morji-nunjavni-je
369              (morji-nunjavni-valsi ",\"")
370              (morji-nunjavni-+
371                (morji-nunjavni-je
372                  (morji-nunjavni-! (morji-nunjavni-lerfu #\"))
373                  valsi-lerfu-28)
374                cmene:
375                "valsi-lerfu")
376              (morji-nunjavni-lerfu #\")
377              canlu-1))
378          (morji-nunjavni-samselpla
379            samselpla-valsi-selci
380            (morji-nunjavni-je
381              (morji-nunjavni-lerfu #\")
382              (morji-nunjavni-+
383                (morji-nunjavni-je
384                  (morji-nunjavni-! (morji-nunjavni-lerfu #\"))
385                  valsi-lerfu-28)
386                cmene:
387                "valsi-lerfu")
388              (morji-nunjavni-lerfu #\")
389              canlu-1)))))
390    (define valsi-lerfu-61
391      (nunjavni-morji
392        (morji-nunjavni-jonai
393          (morji-nunjavni-samselpla
394            samselpla-valsi-newline
395            (morji-nunjavni-je
396              (morji-nunjavni-lerfu #\\)
397              (morji-nunjavni-lerfu #\n)))
398          (morji-nunjavni-samselpla
399            samselpla-valsi-linefeed
400            (morji-nunjavni-je
401              (morji-nunjavni-lerfu #\\)
402              (morji-nunjavni-lerfu #\r)))
403          (morji-nunjavni-samselpla
404            samselpla-valsi-tab
405            (morji-nunjavni-je
406              (morji-nunjavni-lerfu #\\)
407              (morji-nunjavni-lerfu #\t)))
408          (morji-nunjavni-samselpla
409            samselpla-valsi-backslash
410            (morji-nunjavni-je
411              (morji-nunjavni-lerfu #\\)
412              (morji-nunjavni-lerfu #\\)))
413          (morji-nunjavni-samselpla
414            samselpla-valsi-single-quote
415            (morji-nunjavni-je
416              (morji-nunjavni-lerfu #\\)
417              (morji-nunjavni-lerfu #\')))
418          (morji-nunjavni-samselpla
419            samselpla-valsi-double-quote
420            (morji-nunjavni-je
421              (morji-nunjavni-lerfu #\\)
422              (morji-nunjavni-lerfu #\")))
423          (morji-nunjavni-samselpla
424            samselpla-valsi-lerfu
425            (morji-nunjavni-je
426              (morji-nunjavni-! (morji-nunjavni-lerfu #\\))
427              (morji-nunjavni-. cmene: "lerfu"))))))
428    (define klesi-selci-62
429      (nunjavni-morji
430        (morji-nunjavni-jonai
431          (morji-nunjavni-samselpla
432            samselpla-klesi-selci-*
433            (morji-nunjavni-je
434              (morji-nunjavni-lerfu #\[)
435              (morji-nunjavni-+ klesi-lerfu-29 cmene: "klesi-lerfu")
436              (morji-nunjavni-valsi "]*")
437              canlu-1))
438          (morji-nunjavni-samselpla
439            samselpla-klesi-selci-+
440            (morji-nunjavni-je
441              (morji-nunjavni-lerfu #\[)
442              (morji-nunjavni-+ klesi-lerfu-29 cmene: "klesi-lerfu")
443              (morji-nunjavni-valsi "]+")
444              canlu-1))
445          (morji-nunjavni-samselpla
446            samselpla-klesi-selci
447            (morji-nunjavni-je
448              (morji-nunjavni-lerfu #\[)
449              (morji-nunjavni-+ klesi-lerfu-29 cmene: "klesi-lerfu")
450              (morji-nunjavni-lerfu #\])
451              canlu-1)))))
452    (define klesi-lerfu-63
453      (nunjavni-morji
454        (morji-nunjavni-jonai
455          klesi-cmene-30
456          (morji-nunjavni-samselpla
457            samselpla-klesi-lerfu
458            (morji-nunjavni-je
459              (morji-nunjavni-! (morji-nunjavni-lerfu #\]))
460              (morji-nunjavni-. cmene: "klesi-lerfu"))))))
461    (define klesi-cmene-64
462      (nunjavni-morji
463        (morji-nunjavni-jonai
464          (morji-nunjavni-samselpla
465            samselpla-alnum
466            (morji-nunjavni-valsi "[:alnum:]"))
467          (morji-nunjavni-samselpla
468            samselpla-alpha
469            (morji-nunjavni-valsi "[:alpha:]"))
470          (morji-nunjavni-samselpla
471            samselpla-ascii
472            (morji-nunjavni-valsi "[:ascii:]"))
473          (morji-nunjavni-samselpla
474            samselpla-blank
475            (morji-nunjavni-valsi "[:blank:]"))
476          (morji-nunjavni-samselpla
477            samselpla-cntrl
478            (morji-nunjavni-valsi "[:cntrl:]"))
479          (morji-nunjavni-samselpla
480            samselpla-digit
481            (morji-nunjavni-valsi "[:digit:]"))
482          (morji-nunjavni-samselpla
483            samselpla-graph
484            (morji-nunjavni-valsi "[:graph:]"))
485          (morji-nunjavni-samselpla
486            samselpla-jbolehu
487            (morji-nunjavni-valsi "[:jbole'u:]"))
488          (morji-nunjavni-samselpla
489            samselpla-lower
490            (morji-nunjavni-valsi "[:lower:]"))
491          (morji-nunjavni-samselpla
492            samselpla-odigit
493            (morji-nunjavni-valsi "[:odigit:]"))
494          (morji-nunjavni-samselpla
495            samselpla-print
496            (morji-nunjavni-valsi "[:print:]"))
497          (morji-nunjavni-samselpla
498            samselpla-punct
499            (morji-nunjavni-valsi "[:punct:]"))
500          (morji-nunjavni-samselpla
501            samselpla-space
502            (morji-nunjavni-valsi "[:space:]"))
503          (morji-nunjavni-samselpla
504            samselpla-upper
505            (morji-nunjavni-valsi "[:upper:]"))
506          (morji-nunjavni-samselpla
507            samselpla-xdigit
508            (morji-nunjavni-valsi "[:xdigit:]"))
509          (morji-nunjavni-samselpla
510            samselpla-^alnum
511            (morji-nunjavni-valsi "[:^alnum:]"))
512          (morji-nunjavni-samselpla
513            samselpla-^alpha
514            (morji-nunjavni-valsi "[:^alpha:]"))
515          (morji-nunjavni-samselpla
516            samselpla-^ascii
517            (morji-nunjavni-valsi "[:^ascii:]"))
518          (morji-nunjavni-samselpla
519            samselpla-^blank
520            (morji-nunjavni-valsi "[:^blank:]"))
521          (morji-nunjavni-samselpla
522            samselpla-^cntrl
523            (morji-nunjavni-valsi "[:^cntrl:]"))
524          (morji-nunjavni-samselpla
525            samselpla-^digit
526            (morji-nunjavni-valsi "[:^digit:]"))
527          (morji-nunjavni-samselpla
528            samselpla-^graph
529            (morji-nunjavni-valsi "[:^graph:]"))
530          (morji-nunjavni-samselpla
531            samselpla-^lower
532            (morji-nunjavni-valsi "[:^lower:]"))
533          (morji-nunjavni-samselpla
534            samselpla-^odigit
535            (morji-nunjavni-valsi "[:^odigit:]"))
536          (morji-nunjavni-samselpla
537            samselpla-^print
538            (morji-nunjavni-valsi "[:^print:]"))
539          (morji-nunjavni-samselpla
540            samselpla-^punct
541            (morji-nunjavni-valsi "[:^punct:]"))
542          (morji-nunjavni-samselpla
543            samselpla-^space
544            (morji-nunjavni-valsi "[:^space:]"))
545          (morji-nunjavni-samselpla
546            samselpla-^upper
547            (morji-nunjavni-valsi "[:^upper:]"))
548          (morji-nunjavni-samselpla
549            samselpla-^xdigit
550            (morji-nunjavni-valsi "[:^xdigit:]")))))
551    (define denpabu-65
552      (nunjavni-morji
553        (morji-nunjavni-samselpla
554          samselpla-denpabu
555          (morji-nunjavni-je (morji-nunjavni-lerfu #\.) canlu-1))))
556    (define samselpla-66
557      (nunjavni-morji
558        (morji-nunjavni-jonai
559          (morji-nunjavni-samselpla
560            samselpla-samselpla-balvi
561            (morji-nunjavni-je
562              (morji-nunjavni-valsi "->")
563              canlu-1
564              (morji-nunjavni-jonai samselpla-xadni-31 samselpla-cmene-32)))
565          (morji-nunjavni-samselpla
566            samselpla-samselpla-cabna
567            (morji-nunjavni-je
568              (morji-nunjavni-valsi "-|")
569              canlu-1
570              (morji-nunjavni-jonai samselpla-xadni-31 samselpla-cmene-32))))))
571    (define samselpla-xadni-67
572      (nunjavni-morji
573        (morji-nunjavni-samselpla
574          samselpla-samselpla-xadni
575          (morji-nunjavni-je
576            (morji-nunjavni-lerfu #\{)
577            canlu-1
578            (morji-nunjavni-+
579              (morji-nunjavni-je
580                (morji-nunjavni-! (morji-nunjavni-lerfu #\}))
581                (morji-nunjavni-.))
582              cmene:
583              "rodalerfu")
584            (morji-nunjavni-lerfu #\})
585            canlu-1))))
586    (define samselpla-cmene-68
587      (nunjavni-morji
588        (morji-nunjavni-samselpla
589          samselpla-samselpla-cmene
590          (morji-nunjavni-je
591            (morji-nunjavni-char-set
592              (char-set-union
593                char-set:letter+digit
594                (char-set #\$)
595                (char-set #\%)
596                (char-set #\:)
597                (char-set #\=)
598                (char-set #\>)
599                (char-set #\^)
600                (char-set #\~)
601                (char-set #\_)
602                (char-set #\@))
603              cmene:
604              "cfari")
605            (morji-nunjavni-char-set-*
606              (char-set-union
607                char-set:letter+digit
608                (char-set #\$)
609                (char-set #\%)
610                (char-set #\:)
611                (char-set #\=)
612                (char-set #\>)
613                (char-set #\^)
614                (char-set #\~)
615                (char-set #\_)
616                (char-set #\@)
617                (char-set #\.)
618                (char-set #\!)
619                (char-set #\&)
620                (char-set #\/)
621                (char-set #\\)
622                (char-set #\-))
623              cmene:
624              "fanmo")
625            canlu-1))))
626    (define girzu-javni-69
627      (nunjavni-morji
628        (morji-nunjavni-jonai
629          (morji-nunjavni-samselpla
630            samselpla-empty-list
631            (morji-nunjavni-je (morji-nunjavni-valsi "()") canlu-1))
632          (morji-nunjavni-je
633            (morji-nunjavni-lerfu #\()
634            canlu-1
635            javni-7
636            (morji-nunjavni-lerfu #\))
637            canlu-1))))
638    (define canlu-70
639      (nunjavni-morji
640        (morji-nunjavni-*
641          (morji-nunjavni-jonai canlubu-33 totoi-34)
642          nastura:
643          #t)))
644    (define canlubu-71
645      (nunjavni-morji
646        (morji-nunjavni-jonai
647          (morji-nunjavni-char-set char-set:whitespace)
648          CRLF-35)))
649    (define totoi-72
650      (nunjavni-morji
651        (morji-nunjavni-je
652          (morji-nunjavni-lerfu #\;)
653          (morji-nunjavni-*
654            (morji-nunjavni-je (morji-nunjavni-! CRLF-35) (morji-nunjavni-.)))
655          (morji-nunjavni-jonai CRLF-35 (morji-nunjavni-& FAhO-4)))))
656    (define CR-73 (nunjavni-morji (morji-nunjavni-lerfu #\return)))
657    (define LF-74 (nunjavni-morji (morji-nunjavni-lerfu #\newline)))
658    (define CRLF-75
659      (nunjavni-morji
660        (morji-nunjavni-jonai (morji-nunjavni-je CR-36 LF-37) CR-36 LF-37)))
661    (define FAhO-76 (nunjavni-morji (morji-nunjavni-fanmo)))
662    (tolmohi-nunjavni)
663    cfari-39))
Note: See TracBrowser for help on using the repository browser.