6 ; *** Token Definitions ***
8 (defconst ew:*anchor* 1)
10 (defconst ew:tag-mailbox 3)
11 (defconst ew:tag-mailbox* 4)
12 (defconst ew:tag-mailbox+ 5)
13 (defconst ew:tag-address* 6)
14 (defconst ew:tag-address+ 7)
15 (defconst ew:tag-phrase* 8)
16 (defconst ew:tag-phrase-msg-id* 9)
20 (defconst ew:comma 13)
21 (defconst ew:semicolon 14)
22 (defconst ew:colon 15)
25 (defconst ew:slash 18)
26 (defconst ew:question 19)
27 (defconst ew:equal 20)
28 (defconst ew:token 21)
29 (defconst ew:us-texts 22)
30 (defconst ew:us-wsp 23)
31 (defconst ew:us-fold 24)
34 (defconst ew:qs-begin 27)
35 (defconst ew:qs-end 28)
36 (defconst ew:qs-texts 29)
37 (defconst ew:qs-wsp 30)
38 (defconst ew:qs-fold 31)
39 (defconst ew:qs-qfold 32)
40 (defconst ew:qs-qpair 33)
41 (defconst ew:dl-begin 34)
42 (defconst ew:dl-end 35)
43 (defconst ew:dl-texts 36)
44 (defconst ew:dl-wsp 37)
45 (defconst ew:dl-fold 38)
46 (defconst ew:dl-qfold 39)
47 (defconst ew:dl-qpair 40)
48 (defconst ew:cm-begin 41)
49 (defconst ew:cm-end 42)
50 (defconst ew:cm-nested-begin 43)
51 (defconst ew:cm-nested-end 44)
52 (defconst ew:cm-texts 45)
53 (defconst ew:cm-wsp 46)
54 (defconst ew:cm-fold 47)
55 (defconst ew:cm-qfold 48)
56 (defconst ew:cm-qpair 49)
58 (defconst ew:token-defs
63 (cons 3 "tag-mailbox")
64 (cons 4 "tag-mailbox*")
65 (cons 5 "tag-mailbox+")
66 (cons 6 "tag-address*")
67 (cons 7 "tag-address+")
68 (cons 8 "tag-phrase*")
69 (cons 9 "tag-phrase-msg-id*")
103 (cons 43 "cm-nested-begin")
104 (cons 44 "cm-nested-end")
112 ; *** Action Table ***
113 (defconst ew:action-table
115 ((default . *error*) (3 . 7) (4 . 6) (5 . 5) (6 . 4) (7 . 3) (8 . 2) (9 . 1))
123 ((default . *error*) (0 . 16))
124 ((default . -51) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
125 ((default . -53) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
126 ((default . *error*) (10 . 34) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
127 ((default . -9) (10 . 34) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
128 ((default . *error*) (10 . 34) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
129 ((default . -30) (10 . 34) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
130 ((default . *error*) (10 . 34) (17 . 21) (25 . 20) (26 . 19) (27 . 18) (41 . 17))
131 ((default . -1) (0 . accept))
141 ((default . -8) (10 . 34))
144 ((default . -36) (17 . 21) (27 . 18))
146 ((default . -54) (13 . 60))
150 ((default . -43) (12 . 63))
151 ((default . -37) (16 . -25) (12 . -25))
153 ((default . *error*) (10 . 34) (15 . 68))
155 ((default . *error*) (12 . 63) (16 . 71))
159 ((default . -6) (13 . 60))
160 ((default . -10) (13 . 60))
162 ((default . *error*) (10 . 34))
163 ((default . -4) (13 . 60))
165 ((default . -31) (13 . 60))
168 ((default . *error*) (42 . 83) (43 . 82) (44 . 81) (45 . 80) (46 . 79) (47 . 78) (48 . 77) (49 . 76))
169 ((default . *error*) (28 . 89) (29 . 88) (30 . 87) (31 . 86) (32 . 85) (33 . 84))
170 ((default . -74) (25 . 20) (26 . 19) (41 . 17))
171 ((default . -72) (25 . 20) (26 . 19) (41 . 17))
172 ((default . *error*) (17 . 21) (27 . 18))
173 ((default . -51) (17 . 21) (27 . 18))
176 ((default . *error*) (17 . 21) (27 . 18))
177 ((default . -65) (25 . 20) (26 . 19) (41 . 17))
179 ((default . *error*) (17 . 21) (34 . 96))
180 ((default . *error*) (17 . 21) (27 . 18))
181 ((default . *error*) (13 . 60) (15 . 68))
184 ((default . -30) (10 . 34) (17 . 21) (27 . 18))
187 ((default . *error*) (17 . 21) (27 . 18))
188 ((default . *error*) (17 . 21) (34 . 96))
189 ((default . *error*) (10 . 34) (17 . 21) (27 . 18))
190 ((default . *error*) (10 . 34) (17 . 21) (27 . 18))
206 ((default . *error*) (11 . 113))
208 ((default . -68) (25 . 20) (26 . 19) (41 . 17))
210 ((default . -67) (25 . 20) (26 . 19) (41 . 17))
217 ((default . -40) (16 . 71))
218 ((default . *error*) (11 . 113))
220 ((default . *error*) (12 . 63))
221 ((default . -70) (25 . 20) (26 . 19) (41 . 17))
222 ((default . *error*) (14 . 120))
223 ((default . -71) (25 . 20) (26 . 19) (41 . 17))
225 ((default . -15) (16 . 71))
230 ((default . *error*) (35 . 128) (36 . 127) (37 . 126) (38 . 125) (39 . 124) (40 . 123))
231 ((default . -73) (25 . 20) (26 . 19) (41 . 17))
232 ((default . *error*) (17 . 21) (34 . 96))
234 ((default . *error*) (17 . 21) (34 . 96))
237 ((default . -66) (25 . 20) (26 . 19) (41 . 17))
245 ((default . -41) (16 . 71))
246 ((default . -69) (25 . 20) (26 . 19) (41 . 17))
250 (defconst ew:goto-table
261 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(31 . 26)(28 . 27)(26 . 28)(19 . 29)(18 . 30))
262 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(30 . 31)(29 . 32)(26 . 28)(19 . 29)(18 . 33))
263 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 43)(3 . 44))
264 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 43)(3 . 45)(2 . 46))
265 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 48)(13 . 49)(12 . 40)(5 . 42))
266 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 50)(14 . 51)(13 . 49)(12 . 40)(5 . 42))
267 ((48 . 22)(44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(13 . 52)(12 . 40)(5 . 42))
281 ((44 . 23)(43 . 24)(41 . 25)(26 . 59))
287 ((36 . 64)(23 . 65)(21 . 66)(20 . 67))
290 ((39 . 69)(34 . 35)(22 . 70))
309 ((44 . 23)(43 . 24)(41 . 25)(26 . 90)(12 . 40)(5 . 91))
310 ((44 . 23)(43 . 24)(41 . 25)(28 . 92)(26 . 28)(19 . 29)(18 . 30))
313 ((44 . 23)(43 . 24)(41 . 25)(26 . 28)(19 . 29)(18 . 94))
316 ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 102))
317 ((44 . 23)(43 . 24)(41 . 25)(26 . 90)(12 . 40)(5 . 103))
318 ((39 . 104)(37 . 105))
321 ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(15 . 50)(14 . 107)(13 . 49)(12 . 40)(5 . 42))
324 ((44 . 23)(43 . 24)(41 . 25)(26 . 109))
325 ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 110))
326 ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 38)(13 . 39)(12 . 40)(10 . 41)(5 . 42)(4 . 111))
327 ((44 . 23)(43 . 24)(41 . 25)(34 . 35)(26 . 36)(22 . 37)(19 . 29)(18 . 47)(13 . 112)(12 . 40)(5 . 42))
369 ((46 . 97)(43 . 98)(42 . 99)(24 . 129)(9 . 101))
371 ((46 . 97)(43 . 98)(42 . 99)(24 . 100)(9 . 101)(8 . 130))
386 ; *** Reduction Table ***
387 (defconst ew:reduction-table
390 (lambda (stack sp goto-table $look)
391 (let* (($2 (aref stack (- sp 1)))
392 ($1 (aref stack (- sp 3))))
394 (lambda (stack sp goto-table $look)
395 (let* (($3 (aref stack (- sp 1)))
396 ($2 (aref stack (- sp 3)))
397 ($1 (aref stack (- sp 5))))
398 (lr-push stack (- sp 6) 1 goto-table ())))
399 (lambda (stack sp goto-table $look)
400 (let* (($3 (aref stack (- sp 1)))
401 ($2 (aref stack (- sp 3)))
402 ($1 (aref stack (- sp 5))))
403 (lr-push stack (- sp 6) 1 goto-table ())))
404 (lambda (stack sp goto-table $look)
405 (let* (($3 (aref stack (- sp 1)))
406 ($2 (aref stack (- sp 3)))
407 ($1 (aref stack (- sp 5))))
408 (lr-push stack (- sp 6) 1 goto-table ())))
409 (lambda (stack sp goto-table $look)
410 (let* (($3 (aref stack (- sp 1)))
411 ($2 (aref stack (- sp 3)))
412 ($1 (aref stack (- sp 5))))
413 (lr-push stack (- sp 6) 1 goto-table ())))
414 (lambda (stack sp goto-table $look)
415 (let* (($3 (aref stack (- sp 1)))
416 ($2 (aref stack (- sp 3)))
417 ($1 (aref stack (- sp 5))))
418 (lr-push stack (- sp 6) 1 goto-table ())))
419 (lambda (stack sp goto-table $look)
420 (let* (($3 (aref stack (- sp 1)))
421 ($2 (aref stack (- sp 3)))
422 ($1 (aref stack (- sp 5))))
423 (lr-push stack (- sp 6) 1 goto-table ())))
424 (lambda (stack sp goto-table $look)
425 (let* (($3 (aref stack (- sp 1)))
426 ($2 (aref stack (- sp 3)))
427 ($1 (aref stack (- sp 5))))
428 (lr-push stack (- sp 6) 1 goto-table ())))
429 (lambda (stack sp goto-table $look)
431 (lr-push stack (- sp 0) 2 goto-table ())))
432 (lambda (stack sp goto-table $look)
433 (let* (($1 (aref stack (- sp 1))))
434 (lr-push stack (- sp 2) 2 goto-table ())))
435 (lambda (stack sp goto-table $look)
436 (let* (($1 (aref stack (- sp 1))))
437 (lr-push stack (- sp 2) 3 goto-table ())))
438 (lambda (stack sp goto-table $look)
439 (let* (($3 (aref stack (- sp 1)))
440 ($2 (aref stack (- sp 3)))
441 ($1 (aref stack (- sp 5))))
442 (lr-push stack (- sp 6) 3 goto-table ())))
443 (lambda (stack sp goto-table $look)
444 (let* (($1 (aref stack (- sp 1))))
445 (lr-push stack (- sp 2) 4 goto-table ())))
446 (lambda (stack sp goto-table $look)
447 (let* (($1 (aref stack (- sp 1))))
448 (lr-push stack (- sp 2) 4 goto-table ())))
449 (lambda (stack sp goto-table $look)
450 (let* (($3 (aref stack (- sp 1)))
451 ($2 (aref stack (- sp 3)))
452 ($1 (aref stack (- sp 5))))
453 (lr-push stack (- sp 6) 5 goto-table ())))
454 (lambda (stack sp goto-table $look)
455 (let* (($3 (aref stack (- sp 1)))
456 ($2 (aref stack (- sp 3)))
457 ($1 (aref stack (- sp 5))))
458 (lr-push stack (- sp 6) 6 goto-table ())))
459 (lambda (stack sp goto-table $look)
460 (let* (($4 (aref stack (- sp 1)))
461 ($3 (aref stack (- sp 3)))
462 ($2 (aref stack (- sp 5)))
463 ($1 (aref stack (- sp 7))))
464 (lr-push stack (- sp 8) 7 goto-table ())))
465 (lambda (stack sp goto-table $look)
466 (let* (($2 (aref stack (- sp 1)))
467 ($1 (aref stack (- sp 3))))
468 (lr-push stack (- sp 4) 7 goto-table ())))
469 (lambda (stack sp goto-table $look)
470 (let* (($1 (aref stack (- sp 1))))
471 (lr-push stack (- sp 2) 8 goto-table ())))
472 (lambda (stack sp goto-table $look)
473 (let* (($3 (aref stack (- sp 1)))
474 ($2 (aref stack (- sp 3)))
475 ($1 (aref stack (- sp 5))))
476 (lr-push stack (- sp 6) 8 goto-table ())))
477 (lambda (stack sp goto-table $look)
478 (let* (($1 (aref stack (- sp 1))))
479 (lr-push stack (- sp 2) 9 goto-table ())))
480 (lambda (stack sp goto-table $look)
481 (let* (($4 (aref stack (- sp 1)))
482 ($3 (aref stack (- sp 3)))
483 ($2 (aref stack (- sp 5)))
484 ($1 (aref stack (- sp 7))))
485 (lr-push stack (- sp 8) 10 goto-table ())))
486 (lambda (stack sp goto-table $look)
487 (let* (($3 (aref stack (- sp 1)))
488 ($2 (aref stack (- sp 3)))
489 ($1 (aref stack (- sp 5))))
490 (lr-push stack (- sp 6) 11 goto-table ())))
491 (lambda (stack sp goto-table $look)
492 (let* (($5 (aref stack (- sp 1)))
493 ($4 (aref stack (- sp 3)))
494 ($3 (aref stack (- sp 5)))
495 ($2 (aref stack (- sp 7)))
496 ($1 (aref stack (- sp 9))))
497 (lr-push stack (- sp 10) 11 goto-table ())))
498 (lambda (stack sp goto-table $look)
499 (let* (($1 (aref stack (- sp 1))))
500 (lr-push stack (- sp 2) 12 goto-table ())))
501 (lambda (stack sp goto-table $look)
502 (let* (($3 (aref stack (- sp 1)))
503 ($2 (aref stack (- sp 3)))
504 ($1 (aref stack (- sp 5))))
505 (lr-push stack (- sp 6) 12 goto-table ())))
506 (lambda (stack sp goto-table $look)
507 (let* (($1 (aref stack (- sp 1))))
508 (lr-push stack (- sp 2) 13 goto-table ())))
509 (lambda (stack sp goto-table $look)
510 (let* (($2 (aref stack (- sp 1)))
511 ($1 (aref stack (- sp 3))))
512 (lr-push stack (- sp 4) 13 goto-table ())))
513 (lambda (stack sp goto-table $look)
514 (let* (($1 (aref stack (- sp 1))))
515 (lr-push stack (- sp 2) 13 goto-table ())))
516 (lambda (stack sp goto-table $look)
518 (lr-push stack (- sp 0) 14 goto-table ())))
519 (lambda (stack sp goto-table $look)
520 (let* (($1 (aref stack (- sp 1))))
521 (lr-push stack (- sp 2) 14 goto-table ())))
522 (lambda (stack sp goto-table $look)
523 (let* (($1 (aref stack (- sp 1))))
524 (lr-push stack (- sp 2) 15 goto-table ())))
525 (lambda (stack sp goto-table $look)
526 (let* (($3 (aref stack (- sp 1)))
527 ($2 (aref stack (- sp 3)))
528 ($1 (aref stack (- sp 5))))
529 (lr-push stack (- sp 6) 15 goto-table ())))
530 (lambda (stack sp goto-table $look)
531 (let* (($1 (aref stack (- sp 1))))
532 (lr-push stack (- sp 2) 16 goto-table ())))
533 (lambda (stack sp goto-table $look)
534 (let* (($3 (aref stack (- sp 1)))
535 ($2 (aref stack (- sp 3)))
536 ($1 (aref stack (- sp 5))))
537 (lr-push stack (- sp 6) 17 goto-table ())))
538 (lambda (stack sp goto-table $look)
539 (let* (($1 (aref stack (- sp 1))))
540 (lr-push stack (- sp 2) 18 goto-table (ew-mark-phrase $1 $look))))
541 (lambda (stack sp goto-table $look)
542 (let* (($1 (aref stack (- sp 1))))
543 (lr-push stack (- sp 2) 19 goto-table $1)))
544 (lambda (stack sp goto-table $look)
545 (let* (($2 (aref stack (- sp 1)))
546 ($1 (aref stack (- sp 3))))
547 (lr-push stack (- sp 4) 19 goto-table $1)))
548 (lambda (stack sp goto-table $look)
549 (let* (($2 (aref stack (- sp 1)))
550 ($1 (aref stack (- sp 3))))
551 (lr-push stack (- sp 4) 20 goto-table ())))
552 (lambda (stack sp goto-table $look)
553 (let* (($2 (aref stack (- sp 1)))
554 ($1 (aref stack (- sp 3))))
555 (lr-push stack (- sp 4) 21 goto-table ())))
556 (lambda (stack sp goto-table $look)
557 (let* (($4 (aref stack (- sp 1)))
558 ($3 (aref stack (- sp 3)))
559 ($2 (aref stack (- sp 5)))
560 ($1 (aref stack (- sp 7))))
561 (lr-push stack (- sp 8) 21 goto-table ())))
562 (lambda (stack sp goto-table $look)
563 (let* (($4 (aref stack (- sp 1)))
564 ($3 (aref stack (- sp 3)))
565 ($2 (aref stack (- sp 5)))
566 ($1 (aref stack (- sp 7))))
567 (lr-push stack (- sp 8) 22 goto-table ())))
568 (lambda (stack sp goto-table $look)
570 (lr-push stack (- sp 0) 23 goto-table ())))
571 (lambda (stack sp goto-table $look)
572 (let* (($1 (aref stack (- sp 1))))
573 (lr-push stack (- sp 2) 23 goto-table ())))
574 (lambda (stack sp goto-table $look)
575 (let* (($1 (aref stack (- sp 1))))
576 (lr-push stack (- sp 2) 24 goto-table ())))
577 (lambda (stack sp goto-table $look)
578 (let* (($1 (aref stack (- sp 1))))
579 (lr-push stack (- sp 2) 24 goto-table ())))
580 (lambda (stack sp goto-table $look)
581 (let* (($2 (aref stack (- sp 1)))
582 ($1 (aref stack (- sp 3))))
583 (lr-push stack (- sp 4) 25 goto-table ())))
584 (lambda (stack sp goto-table $look)
585 (let* (($1 (aref stack (- sp 1))))
586 (lr-push stack (- sp 2) 26 goto-table $1)))
587 (lambda (stack sp goto-table $look)
588 (let* (($1 (aref stack (- sp 1))))
589 (lr-push stack (- sp 2) 26 goto-table $1)))
590 (lambda (stack sp goto-table $look)
591 (let* (($1 (aref stack (- sp 1))))
592 (lr-push stack (- sp 2) 27 goto-table ())))
593 (lambda (stack sp goto-table $look)
595 (lr-push stack (- sp 0) 28 goto-table ())))
596 (lambda (stack sp goto-table $look)
597 (let* (($1 (aref stack (- sp 1))))
598 (lr-push stack (- sp 2) 28 goto-table ())))
599 (lambda (stack sp goto-table $look)
601 (lr-push stack (- sp 0) 29 goto-table ())))
602 (lambda (stack sp goto-table $look)
603 (let* (($1 (aref stack (- sp 1))))
604 (lr-push stack (- sp 2) 29 goto-table ())))
605 (lambda (stack sp goto-table $look)
606 (let* (($1 (aref stack (- sp 1))))
607 (lr-push stack (- sp 2) 30 goto-table ())))
608 (lambda (stack sp goto-table $look)
609 (let* (($3 (aref stack (- sp 1)))
610 ($2 (aref stack (- sp 3)))
611 ($1 (aref stack (- sp 5))))
612 (lr-push stack (- sp 6) 30 goto-table ())))
613 (lambda (stack sp goto-table $look)
614 (let* (($1 (aref stack (- sp 1))))
615 (lr-push stack (- sp 2) 31 goto-table ())))
616 (lambda (stack sp goto-table $look)
617 (let* (($3 (aref stack (- sp 1)))
618 ($2 (aref stack (- sp 3)))
619 ($1 (aref stack (- sp 5))))
620 (lr-push stack (- sp 6) 31 goto-table ())))
621 (lambda (stack sp goto-table $look)
622 (let* (($1 (aref stack (- sp 1))))
623 (lr-push stack (- sp 2) 32 goto-table ())))
624 (lambda (stack sp goto-table $look)
625 (let* (($3 (aref stack (- sp 1)))
626 ($2 (aref stack (- sp 3)))
627 ($1 (aref stack (- sp 5))))
628 (lr-push stack (- sp 6) 32 goto-table ())))
629 (lambda (stack sp goto-table $look)
631 (lr-push stack (- sp 0) 33 goto-table ())))
632 (lambda (stack sp goto-table $look)
633 (let* (($2 (aref stack (- sp 1)))
634 ($1 (aref stack (- sp 3))))
635 (lr-push stack (- sp 4) 33 goto-table ())))
636 (lambda (stack sp goto-table $look)
637 (let* (($2 (aref stack (- sp 1)))
638 ($1 (aref stack (- sp 3))))
639 (lr-push stack (- sp 4) 33 goto-table ())))
640 (lambda (stack sp goto-table $look)
641 (let* (($2 (aref stack (- sp 1)))
642 ($1 (aref stack (- sp 3))))
643 (lr-push stack (- sp 4) 33 goto-table ())))
644 (lambda (stack sp goto-table $look)
645 (let* (($2 (aref stack (- sp 1)))
646 ($1 (aref stack (- sp 3))))
647 (lr-push stack (- sp 4) 34 goto-table ())))
648 (lambda (stack sp goto-table $look)
649 (let* (($2 (aref stack (- sp 1)))
650 ($1 (aref stack (- sp 3))))
651 (lr-push stack (- sp 4) 35 goto-table ())))
652 (lambda (stack sp goto-table $look)
653 (let* (($2 (aref stack (- sp 1)))
654 ($1 (aref stack (- sp 3))))
655 (lr-push stack (- sp 4) 36 goto-table ())))
656 (lambda (stack sp goto-table $look)
657 (let* (($2 (aref stack (- sp 1)))
658 ($1 (aref stack (- sp 3))))
659 (lr-push stack (- sp 4) 37 goto-table ())))
660 (lambda (stack sp goto-table $look)
661 (let* (($2 (aref stack (- sp 1)))
662 ($1 (aref stack (- sp 3))))
663 (lr-push stack (- sp 4) 38 goto-table ())))
664 (lambda (stack sp goto-table $look)
665 (let* (($2 (aref stack (- sp 1)))
666 ($1 (aref stack (- sp 3))))
667 (lr-push stack (- sp 4) 39 goto-table ())))
668 (lambda (stack sp goto-table $look)
669 (let* (($2 (aref stack (- sp 1)))
670 ($1 (aref stack (- sp 3))))
671 (lr-push stack (- sp 4) 40 goto-table ())))
672 (lambda (stack sp goto-table $look)
673 (let* (($2 (aref stack (- sp 1)))
674 ($1 (aref stack (- sp 3))))
675 (lr-push stack (- sp 4) 41 goto-table $1)))
676 (lambda (stack sp goto-table $look)
677 (let* (($2 (aref stack (- sp 1)))
678 ($1 (aref stack (- sp 3))))
679 (lr-push stack (- sp 4) 42 goto-table ())))
680 (lambda (stack sp goto-table $look)
681 (let* (($2 (aref stack (- sp 1)))
682 ($1 (aref stack (- sp 3))))
683 (lr-push stack (- sp 4) 43 goto-table $1)))
684 (lambda (stack sp goto-table $look)
685 (let* (($3 (aref stack (- sp 1)))
686 ($2 (aref stack (- sp 3)))
687 ($1 (aref stack (- sp 5))))
688 (lr-push stack (- sp 6) 44 goto-table $1)))
689 (lambda (stack sp goto-table $look)
691 (lr-push stack (- sp 0) 45 goto-table ())))
692 (lambda (stack sp goto-table $look)
693 (let* (($2 (aref stack (- sp 1)))
694 ($1 (aref stack (- sp 3))))
695 (lr-push stack (- sp 4) 45 goto-table ())))
696 (lambda (stack sp goto-table $look)
697 (let* (($2 (aref stack (- sp 1)))
698 ($1 (aref stack (- sp 3))))
699 (lr-push stack (- sp 4) 45 goto-table ())))
700 (lambda (stack sp goto-table $look)
701 (let* (($2 (aref stack (- sp 1)))
702 ($1 (aref stack (- sp 3))))
703 (lr-push stack (- sp 4) 45 goto-table ())))
704 (lambda (stack sp goto-table $look)
705 (let* (($2 (aref stack (- sp 1)))
706 ($1 (aref stack (- sp 3))))
707 (lr-push stack (- sp 4) 45 goto-table ())))
708 (lambda (stack sp goto-table $look)
709 (let* (($2 (aref stack (- sp 1)))
710 ($1 (aref stack (- sp 3))))
711 (lr-push stack (- sp 4) 45 goto-table ())))
712 (lambda (stack sp goto-table $look)
713 (let* (($3 (aref stack (- sp 1)))
714 ($2 (aref stack (- sp 3)))
715 ($1 (aref stack (- sp 5))))
716 (lr-push stack (- sp 6) 46 goto-table ())))
717 (lambda (stack sp goto-table $look)
719 (lr-push stack (- sp 0) 47 goto-table ())))
720 (lambda (stack sp goto-table $look)
721 (let* (($2 (aref stack (- sp 1)))
722 ($1 (aref stack (- sp 3))))
723 (lr-push stack (- sp 4) 47 goto-table ())))
724 (lambda (stack sp goto-table $look)
725 (let* (($2 (aref stack (- sp 1)))
726 ($1 (aref stack (- sp 3))))
727 (lr-push stack (- sp 4) 47 goto-table ())))
728 (lambda (stack sp goto-table $look)
729 (let* (($2 (aref stack (- sp 1)))
730 ($1 (aref stack (- sp 3))))
731 (lr-push stack (- sp 4) 47 goto-table ())))
732 (lambda (stack sp goto-table $look)
733 (let* (($2 (aref stack (- sp 1)))
734 ($1 (aref stack (- sp 3))))
735 (lr-push stack (- sp 4) 47 goto-table ())))
736 (lambda (stack sp goto-table $look)
737 (let* (($2 (aref stack (- sp 1)))
738 ($1 (aref stack (- sp 3))))
739 (lr-push stack (- sp 4) 47 goto-table ())))
740 (lambda (stack sp goto-table $look)
741 (let* (($3 (aref stack (- sp 1)))
742 ($2 (aref stack (- sp 3)))
743 ($1 (aref stack (- sp 5))))
744 (lr-push stack (- sp 6) 48 goto-table ())))
745 (lambda (stack sp goto-table $look)
747 (lr-push stack (- sp 0) 49 goto-table ())))
748 (lambda (stack sp goto-table $look)
749 (let* (($2 (aref stack (- sp 1)))
750 ($1 (aref stack (- sp 3))))
751 (lr-push stack (- sp 4) 49 goto-table ())))
752 (lambda (stack sp goto-table $look)
753 (let* (($2 (aref stack (- sp 1)))
754 ($1 (aref stack (- sp 3))))
755 (lr-push stack (- sp 4) 49 goto-table ())))
756 (lambda (stack sp goto-table $look)
757 (let* (($2 (aref stack (- sp 1)))
758 ($1 (aref stack (- sp 3))))
759 (lr-push stack (- sp 4) 49 goto-table ())))
760 (lambda (stack sp goto-table $look)
761 (let* (($2 (aref stack (- sp 1)))
762 ($1 (aref stack (- sp 3))))
763 (lr-push stack (- sp 4) 49 goto-table ())))
764 (lambda (stack sp goto-table $look)
765 (let* (($2 (aref stack (- sp 1)))
766 ($1 (aref stack (- sp 3))))
767 (lr-push stack (- sp 4) 49 goto-table ())))
768 (lambda (stack sp goto-table $look)
769 (let* (($2 (aref stack (- sp 1)))
770 ($1 (aref stack (- sp 3))))
771 (lr-push stack (- sp 4) 49 goto-table ())))
772 (lambda (stack sp goto-table $look)
773 (let* (($2 (aref stack (- sp 1)))
774 ($1 (aref stack (- sp 3))))
775 (lr-push stack (- sp 4) 49 goto-table ())))
778 ; *** Parser Definition ***
779 (defun ew-parse(scanner errorhandler)
780 (lr-parse scanner errorhandler
787 (put 'ew:cm-texts 'decode 'ew-decode-comment)
788 (put 'ew:cm-wsp 'decode 'ew-decode-comment)
789 (put 'ew:cm-fold 'decode 'ew-decode-comment)
790 (put 'ew:cm-qfold 'decode 'ew-decode-comment)
791 (put 'ew:cm-qpair 'decode 'ew-decode-comment)
792 (put 'ew:us-texts 'decode 'ew-decode-unstructured)
793 (put 'ew:us-wsp 'decode 'ew-decode-unstructured)
794 (put 'ew:us-fold 'decode 'ew-decode-unstructured)