equal
deleted
inserted
replaced
88 ! ! |
88 ! ! |
89 |
89 |
90 !PPToken methodsFor:'private'! |
90 !PPToken methodsFor:'private'! |
91 |
91 |
92 newline |
92 newline |
93 "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
93 "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
94 |
94 |
95 ^ (Character lf asParser) |
95 Smalltalk isSmalltalkX ifTrue:[ |
96 / (Character cr asParser , Character lf asParser optional) |
96 ^ (Character lf asParser) |
|
97 / (Character return asParser , Character lf asParser optional) |
|
98 ] ifFalse:[ |
|
99 ^ (Character lf asParser) |
|
100 / (Character cr asParser , Character lf asParser optional) |
|
101 ] |
97 ! ! |
102 ! ! |
98 |
103 |
99 !PPToken methodsFor:'querying'! |
104 !PPToken methodsFor:'querying'! |
100 |
105 |
101 column |
106 column |
127 ! ! |
132 ! ! |
128 |
133 |
129 !PPToken class methodsFor:'documentation'! |
134 !PPToken class methodsFor:'documentation'! |
130 |
135 |
131 version |
136 version |
132 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $' |
137 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.4 2012-12-01 14:27:17 cg Exp $' |
133 ! |
138 ! |
134 |
139 |
135 version_CVS |
140 version_CVS |
136 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $' |
141 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.4 2012-12-01 14:27:17 cg Exp $' |
137 ! |
142 ! |
138 |
143 |
139 version_SVN |
144 version_SVN |
140 ^ '§Id: PPToken.st 2 2010-12-17 18:44:23Z vranyj1 §' |
145 ^ '§Id: PPToken.st 2 2010-12-17 18:44:23Z vranyj1 §' |
141 ! ! |
146 ! ! |