author | Claus Gittinger <cg@exept.de> |
Tue, 04 Mar 2014 16:53:53 +0100 | |
changeset 213 | b38781d329c5 |
parent 103 | ea95f0757386 |
permissions | -rw-r--r-- |
98 | 1 |
"{ Package: 'stx:goodies/petitparser/devtools' }" |
2 |
||
3 |
Object subclass:#XBGFParser |
|
4 |
instanceVariableNames:'productions' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
7 |
category:'PetitParser-Utils' |
|
8 |
! |
|
9 |
||
10 |
!XBGFParser class methodsFor:'documentation'! |
|
11 |
||
12 |
documentation |
|
13 |
" |
|
14 |
A parse to parse XBGF grammar definitions |
|
15 |
||
16 |
[author:] |
|
17 |
Jan Vrany <jan.vrany@fit.cvut.cz> |
|
18 |
||
19 |
[instance variables:] |
|
20 |
||
21 |
[class variables:] |
|
22 |
||
23 |
[see also:] |
|
24 |
http://slps.github.com/ |
|
25 |
||
26 |
" |
|
27 |
! ! |
|
28 |
||
29 |
!XBGFParser methodsFor:'accessing'! |
|
30 |
||
31 |
productionAt: id |
|
32 |
productions isNil ifTrue:[productions := Dictionary new]. |
|
33 |
^productions at: id ifAbsentPut:[PPUnresolvedParser named: id] |
|
34 |
||
35 |
"Created: / 10-01-2013 / 12:03:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
103
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
36 |
! |
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
37 |
|
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
38 |
productions |
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
39 |
^ productions |
98 | 40 |
! ! |
41 |
||
42 |
!XBGFParser methodsFor:'parsing'! |
|
43 |
||
44 |
parse: aStringOrStreamOrFilename |
|
45 |
| doc | |
|
46 |
||
47 |
doc := XML::XMLParser |
|
48 |
processDocumentStream:aStringOrStreamOrFilename readStream |
|
49 |
beforeScanDo:[:p|p validate: false]. |
|
50 |
self processDocument: doc. |
|
51 |
^self |
|
52 |
||
53 |
"Created: / 10-01-2013 / 12:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
54 |
! ! |
|
55 |
||
56 |
!XBGFParser methodsFor:'processing'! |
|
57 |
||
58 |
processDocument: doc |
|
59 |
( doc root / 'ns0:production' ) do:[:node| |
|
60 |
self processProduction: node |
|
61 |
] |
|
62 |
||
63 |
"Created: / 10-01-2013 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
64 |
! |
|
65 |
||
66 |
processExpression: node |
|
67 |
||
68 |
| expr parser | |
|
69 |
||
70 |
self assert: node children size == 1. |
|
71 |
expr := node children anElement. |
|
72 |
||
73 |
expr tag type = 'nonterminal' ifTrue:[ |
|
74 |
^self productionAt: expr characterData. |
|
75 |
]. |
|
76 |
||
77 |
expr tag type = 'terminal' ifTrue:[ |
|
78 |
^PPLiteralSequenceParser on: expr characterData. |
|
79 |
]. |
|
80 |
||
81 |
expr tag type = 'optional' ifTrue:[ |
|
82 |
^PPOptionalParser on: (self processExpression: (expr / 'ns0:expression') anElement) |
|
83 |
]. |
|
84 |
||
85 |
expr tag type = 'any' ifTrue:[ |
|
86 |
^#any asParser |
|
87 |
]. |
|
88 |
||
89 |
expr tag type = 'epsilon' ifTrue:[ |
|
90 |
^nil asParser |
|
91 |
]. |
|
92 |
||
93 |
||
94 |
expr tag type = 'sequence' ifTrue:[ |
|
95 |
parser := PPSequenceParser new |
|
96 |
] ifFalse:[expr tag type = 'choice' ifTrue:[ |
|
97 |
parser := PPChoiceParser new |
|
98 |
] ifFalse:[expr tag type = 'star' ifTrue:[ |
|
99 |
parser := PPRepeatingParser new setMin: 0 max: SmallInteger maxVal. |
|
100 |
parser setParser: (self processExpression: (expr / 'ns0:expression') anElement). |
|
101 |
^parser |
|
102 |
] ifFalse:[expr tag type = 'plus' ifTrue:[ |
|
103 |
parser := PPRepeatingParser new setMin: 1 max: SmallInteger maxVal. |
|
104 |
parser setParser: (self processExpression: (expr / 'ns0:expression') anElement). |
|
105 |
^parser |
|
106 |
] ifFalse:[ |
|
107 |
self error: 'Unknown expression: ', expr tag type |
|
108 |
]]]]. |
|
109 |
||
110 |
parser setParsers: |
|
111 |
((expr / 'ns0:expression') collect:[:e|self processExpression: e]). |
|
112 |
^parser |
|
113 |
||
114 |
"Created: / 10-01-2013 / 12:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
115 |
! |
|
116 |
||
117 |
processProduction: node |
|
118 |
||
119 |
| name prod | |
|
120 |
||
121 |
name := (node / 'nonterminal') characterData. |
|
122 |
prod := self productionAt: name. |
|
123 |
||
124 |
self assert: (node / 'ns0:expression') size == 1. |
|
125 |
||
126 |
prod def: (self processExpression: (node / 'ns0:expression') anElement) |
|
127 |
||
128 |
"Created: / 10-01-2013 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
129 |
! ! |
|
130 |
||
131 |
!XBGFParser class methodsFor:'documentation'! |
|
132 |
||
133 |
version |
|
103
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
134 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.2 2013-01-10 13:22:58 vrany Exp $' |
98 | 135 |
! |
136 |
||
137 |
version_CVS |
|
103
ea95f0757386
Added PPCompositeParserGenerator & PPParserVisitor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
98
diff
changeset
|
138 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/XBGFParser.st,v 1.2 2013-01-10 13:22:58 vrany Exp $' |
98 | 139 |
! ! |