equal
deleted
inserted
replaced
15 No other class instance variables are inherited by this class. |
15 No other class instance variables are inherited by this class. |
16 " |
16 " |
17 ! |
17 ! |
18 |
18 |
19 !PPCompiledParser class methodsFor:'as yet unclassified'! |
19 !PPCompiledParser class methodsFor:'as yet unclassified'! |
|
20 |
|
21 acceptsLoggingOfCompilation |
|
22 ^ true |
|
23 ! |
20 |
24 |
21 addConstant: value as: id |
25 addConstant: value as: id |
22 self constants at: id ifPresent: [ |
26 self constants at: id ifPresent: [ |
23 ((self constants at: id) = value) ifFalse: [self error: 'ooups']]. |
27 ((self constants at: id) = value) ifFalse: [self error: 'ooups']]. |
24 |
28 |
82 ! |
86 ! |
83 |
87 |
84 initialize |
88 initialize |
85 super initialize. |
89 super initialize. |
86 |
90 |
87 self class constants keysAndValuesDo: [ :key :value | |
91 " self class constants keysAndValuesDo: [ :key :value | |
88 self instVarNamed: key put: value. |
92 self instVarNamed: key put: value. |
89 ]. |
93 ]. |
|
94 " |
90 |
95 |
91 startSymbol := self class startSymbol. |
96 startSymbol := self class startSymbol. |
92 |
97 |
93 |
98 |
94 ! |
99 ! |