equal
deleted
inserted
replaced
130 |
130 |
131 !PPToken methodsFor:'private'! |
131 !PPToken methodsFor:'private'! |
132 |
132 |
133 newline |
133 newline |
134 "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
134 "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
|
135 |cr| |
135 |
136 |
136 Smalltalk isSmalltalkX ifTrue:[ |
137 cr := Smalltalk isSmalltalkX |
137 ^ (Character lf asParser) |
138 ifTrue:[Character return] |
138 / (Character return asParser , Character lf asParser optional) |
139 ifFalse:[Character cr]. |
139 ] ifFalse:[ |
140 ^ (Character lf asParser) |
140 ^ (Character lf asParser) |
141 / (cr asParser , Character lf asParser optional) |
141 / (Character cr asParser , Character lf asParser optional) |
|
142 ] |
|
143 ! ! |
142 ! ! |
144 |
143 |
145 !PPToken methodsFor:'querying'! |
144 !PPToken methodsFor:'querying'! |
146 |
145 |
147 column |
146 column |
173 ! ! |
172 ! ! |
174 |
173 |
175 !PPToken class methodsFor:'documentation'! |
174 !PPToken class methodsFor:'documentation'! |
176 |
175 |
177 version |
176 version |
178 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $' |
177 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $' |
179 ! |
178 ! |
180 |
179 |
181 version_CVS |
180 version_CVS |
182 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $' |
181 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $' |
183 ! |
182 ! |
184 |
183 |
185 version_SVN |
184 version_SVN |
186 ^ '$Id: PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $' |
185 ^ '$Id: PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $' |
187 ! ! |
186 ! ! |
188 |
187 |
189 |
188 |
190 PPToken initialize! |
189 PPToken initialize! |