blob: 8e03618cfefe8b23b3cf958c4900d547b7e7c6d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
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
99
100
101
102
103
104
105
106
107
108
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
|
# -*- tcl -*-
# Parsing Expression Grammar 'PEG'.
# Definition of a human-readable form of parsing expression grammar specification.
package require Tcl 8.5
package require snit
package require pt::peg::container
snit::type pt::peg::container::peg {
constructor {} {
install myg using pt::peg::container ${selfns}::G
$myg start {n Grammar}
$myg add ALNUM ALPHA AND APOSTROPH ASCII Attribute Char CharOctalFull CharOctalPart CharSpecial CharUnescaped CharUnicode Class CLOSE CLOSEB COLON COMMENT DAPOSTROPH DDIGIT Definition DIGIT DOT END EOF EOL Expression Final Grammar GRAPH Header Ident Identifier IS LEAF Literal LOWER NOT OPEN OPENB PEG PLUS Prefix Primary PRINTABLE PUNCT QUESTION Range SEMICOLON Sequence SLASH SPACE STAR StartExpr Suffix TO UPPER VOID WHITESPACE WORDCHAR XDIGIT
$myg modes {
ALNUM leaf
ALPHA leaf
AND leaf
APOSTROPH void
ASCII leaf
Attribute value
Char value
CharOctalFull leaf
CharOctalPart leaf
CharSpecial leaf
CharUnescaped leaf
CharUnicode leaf
Class value
CLOSE void
CLOSEB void
COLON void
COMMENT void
DAPOSTROPH void
DDIGIT leaf
Definition value
DIGIT leaf
DOT leaf
END void
EOF void
EOL void
Expression value
Final void
Grammar value
GRAPH leaf
Header value
Ident leaf
Identifier value
IS void
LEAF leaf
Literal value
LOWER leaf
NOT leaf
OPEN void
OPENB void
PEG void
PLUS leaf
Prefix value
Primary value
PRINTABLE leaf
PUNCT leaf
QUESTION leaf
Range value
SEMICOLON void
Sequence value
SLASH void
SPACE leaf
STAR leaf
StartExpr value
Suffix value
TO void
UPPER leaf
VOID leaf
WHITESPACE void
WORDCHAR leaf
XDIGIT leaf
}
$myg rules {
ALNUM {x {t <} {t a} {t l} {t n} {t u} {t m} {t >} {n WHITESPACE}}
ALPHA {x {t <} {t a} {t l} {t p} {t h} {t a} {t >} {n WHITESPACE}}
AND {x {t &} {n WHITESPACE}}
APOSTROPH {t '}
ASCII {x {t <} {t a} {t s} {t c} {t i} {t i} {t >} {n WHITESPACE}}
Attribute {x {/ {n VOID} {n LEAF}} {n COLON}}
Char {/ {n CharSpecial} {n CharOctalFull} {n CharOctalPart} {n CharUnicode} {n CharUnescaped}}
CharOctalFull {x {t \134} {.. 0 2} {.. 0 7} {.. 0 7}}
CharOctalPart {x {t \134} {.. 0 7} {? {.. 0 7}}}
CharSpecial {x {t \134} {/ {t n} {t r} {t t} {t '} {t \42} {t \133} {t \135} {t \134}}}
CharUnescaped {x {! {t \134}} dot}
CharUnicode {x {t \134} {t u} xdigit {? {x xdigit {? {x xdigit {? xdigit}}}}}}
Class {x {n OPENB} {* {x {! {n CLOSEB}} {n Range}}} {n CLOSEB} {n WHITESPACE}}
CLOSE {x {t \51} {n WHITESPACE}}
CLOSEB {t \135}
COLON {x {t :} {n WHITESPACE}}
COMMENT {x {t #} {* {x {! {n EOL}} dot}} {n EOL}}
DAPOSTROPH {t \42}
DDIGIT {x {t <} {t d} {t d} {t i} {t g} {t i} {t t} {t >} {n WHITESPACE}}
Definition {x {? {n Attribute}} {n Identifier} {n IS} {n Expression} {n SEMICOLON}}
DIGIT {x {t <} {t d} {t i} {t g} {t i} {t t} {t >} {n WHITESPACE}}
DOT {x {t .} {n WHITESPACE}}
END {x {t E} {t N} {t D} {n WHITESPACE}}
EOF {! dot}
EOL {/ {x {t \r} {t \n}} {t \n} {t \r}}
Expression {x {n Sequence} {* {x {n SLASH} {n Sequence}}}}
Final {x {n END} {n SEMICOLON} {n WHITESPACE}}
Grammar {x {n WHITESPACE} {n Header} {* {n Definition}} {n Final} {n EOF}}
GRAPH {x {t <} {t g} {t r} {t a} {t p} {t h} {t >} {n WHITESPACE}}
Header {x {n PEG} {n Identifier} {n StartExpr}}
Ident {x {/ {t _} {t :} alpha} {* {/ {t _} {t :} alnum}}}
Identifier {x {n Ident} {n WHITESPACE}}
IS {x {t <} {t -} {n WHITESPACE}}
LEAF {x {t l} {t e} {t a} {t f} {n WHITESPACE}}
Literal {/ {x {n APOSTROPH} {* {x {! {n APOSTROPH}} {n Char}}} {n APOSTROPH} {n WHITESPACE}} {x {n DAPOSTROPH} {* {x {! {n DAPOSTROPH}} {n Char}}} {n DAPOSTROPH} {n WHITESPACE}}}
LOWER {x {t <} {t l} {t o} {t w} {t e} {t r} {t >} {n WHITESPACE}}
NOT {x {t !} {n WHITESPACE}}
OPEN {x {t \50} {n WHITESPACE}}
OPENB {t \133}
PEG {x {t P} {t E} {t G} {n WHITESPACE}}
PLUS {x {t +} {n WHITESPACE}}
Prefix {x {? {/ {n AND} {n NOT}}} {n Suffix}}
Primary {/ {n ALNUM} {n ALPHA} {n ASCII} {n DDIGIT} {n DIGIT} {n GRAPH} {n LOWER} {n PRINTABLE} {n PUNCT} {n SPACE} {n UPPER} {n WORDCHAR} {n XDIGIT} {n Identifier} {x {n OPEN} {n Expression} {n CLOSE}} {n Literal} {n Class} {n DOT}}
PRINTABLE {x {t <} {t p} {t r} {t i} {t n} {t t} {t >} {n WHITESPACE}}
PUNCT {x {t <} {t p} {t u} {t n} {t c} {t t} {t >} {n WHITESPACE}}
QUESTION {x {t ?} {n WHITESPACE}}
Range {/ {x {n Char} {n TO} {n Char}} {n Char}}
SEMICOLON {x {t \73} {n WHITESPACE}}
Sequence {+ {n Prefix}}
SLASH {x {t /} {n WHITESPACE}}
SPACE {x {t <} {t s} {t p} {t a} {t c} {t e} {t >} {n WHITESPACE}}
STAR {x {t *} {n WHITESPACE}}
StartExpr {x {n OPEN} {n Expression} {n CLOSE}}
Suffix {x {n Primary} {? {/ {n QUESTION} {n STAR} {n PLUS}}}}
TO {t -}
UPPER {x {t <} {t u} {t p} {t p} {t e} {t r} {t >} {n WHITESPACE}}
VOID {x {t v} {t o} {t i} {t d} {n WHITESPACE}}
WHITESPACE {* {/ {t \40} {t \t} {n EOL} {n COMMENT}}}
WORDCHAR {x {t <} {t w} {t o} {t r} {t d} {t c} {t h} {t a} {t r} {t >} {n WHITESPACE}}
XDIGIT {x {t <} {t x} {t d} {t i} {t g} {t i} {t t} {t >} {n WHITESPACE}}
}
return
}
component myg
delegate method * to myg
}
package provide pt::peg::container::peg 1
return
|
