equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 Object subclass:#PEGFsaTransition |
5 Object subclass:#PEGFsaTransition |
6 instanceVariableNames:'destination priority characterSet' |
6 instanceVariableNames:'destination priority' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-FSA' |
9 category:'PetitCompiler-FSA' |
10 ! |
10 ! |
11 |
11 |
16 |
16 |
17 ^ self basicNew initialize. |
17 ^ self basicNew initialize. |
18 ! ! |
18 ! ! |
19 |
19 |
20 !PEGFsaTransition methodsFor:'accessing'! |
20 !PEGFsaTransition methodsFor:'accessing'! |
21 |
|
22 characterSet |
|
23 ^ characterSet |
|
24 ! |
|
25 |
|
26 characterSet: anObject |
|
27 characterSet := anObject |
|
28 ! |
|
29 |
21 |
30 destination |
22 destination |
31 ^ destination |
23 ^ destination |
32 ! |
24 ! |
33 |
25 |
86 |
78 |
87 !PEGFsaTransition methodsFor:'copying'! |
79 !PEGFsaTransition methodsFor:'copying'! |
88 |
80 |
89 postCopy |
81 postCopy |
90 super postCopy. |
82 super postCopy. |
91 characterSet := characterSet copy. |
|
92 ! ! |
83 ! ! |
93 |
84 |
94 !PEGFsaTransition methodsFor:'gt'! |
85 !PEGFsaTransition methodsFor:'gt'! |
95 |
86 |
96 gtName |
87 gtName |
107 priority := 0. |
98 priority := 0. |
108 ! ! |
99 ! ! |
109 |
100 |
110 !PEGFsaTransition methodsFor:'modifications'! |
101 !PEGFsaTransition methodsFor:'modifications'! |
111 |
102 |
112 addCharacter: character |
|
113 characterSet at: character codePoint put: true |
|
114 ! |
|
115 |
|
116 decreasePriority |
103 decreasePriority |
117 self decreasePriorityBy: 1 |
104 self decreasePriorityBy: 1 |
118 ! |
105 ! |
119 |
106 |
120 decreasePriorityBy: value |
107 decreasePriorityBy: value |
176 ! ! |
163 ! ! |
177 |
164 |
178 !PEGFsaTransition methodsFor:'testing'! |
165 !PEGFsaTransition methodsFor:'testing'! |
179 |
166 |
180 accepts: character |
167 accepts: character |
181 ^ characterSet at: character codePoint |
168 ^ self subclassResponsibility |
182 ! |
169 ! |
183 |
170 |
184 isCharacterTransition |
171 isCharacterTransition |
185 ^ false |
172 ^ false |
186 ! |
173 ! |