equal
deleted
inserted
replaced
33 initializeOn: aSequenceableCollection |
33 initializeOn: aSequenceableCollection |
34 start: aStartInteger stop: aStopInteger |
34 start: aStartInteger stop: aStopInteger |
35 value: anObject |
35 value: anObject |
36 ! ! |
36 ! ! |
37 |
37 |
38 !PPToken methodsFor:'*petitcompiler'! |
|
39 |
|
40 = anObject |
|
41 ^ self class = anObject class and: [ self inputValue = anObject inputValue ] |
|
42 ! |
|
43 |
|
44 hash |
|
45 ^ self inputValue hash |
|
46 ! ! |
|
47 |
38 |
48 !PPToken methodsFor:'accessing'! |
39 !PPToken methodsFor:'accessing'! |
49 |
40 |
50 collection |
41 collection |
51 "Answer the underlying collection of this token." |
42 "Answer the underlying collection of this token." |
86 ! |
77 ! |
87 |
78 |
88 value |
79 value |
89 self notify: 'Token>>#value is no longer supported. Instead use Token>>#inputValue or the more pragmatic #parsedValue.'. |
80 self notify: 'Token>>#value is no longer supported. Instead use Token>>#inputValue or the more pragmatic #parsedValue.'. |
90 ^ self inputValue |
81 ^ self inputValue |
|
82 ! ! |
|
83 |
|
84 !PPToken methodsFor:'comparing'! |
|
85 |
|
86 = anObject |
|
87 ^ self class = anObject class and: [ self parsedValue = anObject parsedValue ] |
|
88 ! |
|
89 |
|
90 hash |
|
91 ^ self parsedValue hash |
91 ! ! |
92 ! ! |
92 |
93 |
93 !PPToken methodsFor:'copying'! |
94 !PPToken methodsFor:'copying'! |
94 |
95 |
95 copyFrom: aStartInteger to: aStopInteger |
96 copyFrom: aStartInteger to: aStopInteger |