equal
deleted
inserted
replaced
59 nextPutAll: (collection copyFrom: 1 to: position); |
59 nextPutAll: (collection copyFrom: 1 to: position); |
60 nextPutAll: '·'; |
60 nextPutAll: '·'; |
61 nextPutAll: (collection copyFrom: position + 1 to: readLimit) |
61 nextPutAll: (collection copyFrom: position + 1 to: readLimit) |
62 ! ! |
62 ! ! |
63 |
63 |
|
64 !PPStream methodsFor:'queries'! |
|
65 |
|
66 insideCRLF |
|
67 (position < 1) ifTrue: [ ^ false ]. |
|
68 |
|
69 ^ (self peek = Character lf) and: [ self peekBack = Character cr ] |
|
70 ! |
|
71 |
|
72 isStartOfLine |
|
73 (position = 0) ifTrue: [ ^ true ]. |
|
74 |
|
75 self insideCRLF ifTrue: [ ^ false ]. |
|
76 |
|
77 ^ (self peekBack = Character cr) or: [ self peekBack = Character lf]. |
|
78 ! ! |
|
79 |
64 !PPStream class methodsFor:'documentation'! |
80 !PPStream class methodsFor:'documentation'! |
65 |
81 |
66 version |
82 version |
67 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $' |
83 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $' |
68 ! |
84 ! |