equal
deleted
inserted
replaced
9 |
9 |
10 |
10 |
11 !PPToken class methodsFor:'initialization'! |
11 !PPToken class methodsFor:'initialization'! |
12 |
12 |
13 initialize |
13 initialize |
14 "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
14 "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple." |
15 |
15 |
16 |cr| |
16 NewLineParser := (Character lf asParser) / (Character cr asParser , Character lf asParser optional) |
17 |
|
18 cr := Smalltalk isSmalltalkX |
|
19 ifTrue:[Character return] |
|
20 ifFalse:[Character cr]. |
|
21 NewLineParser := (Character lf asParser) / (cr asParser , Character lf asParser optional) |
|
22 ! ! |
17 ! ! |
23 |
18 |
24 !PPToken class methodsFor:'instance creation'! |
19 !PPToken class methodsFor:'instance creation'! |
25 |
20 |
26 new |
21 new |