1 "{ Package: 'stx:goodies/petitparser' }"

     3 "{ Package: 'stx:goodies/petitparser' }"

     2 

     4 

     3 "{ NameSpace: Smalltalk }"

     5 "{ NameSpace: Smalltalk }"

     4 

     6 

     5 ReadStream subclass:#PPStream

     7 ReadStream subclass:#PPStream

   115 printOn: aStream

   117 printOn: aStream

   116 	collection isString

   118 	collection isString

   117 		ifFalse: [ ^ super printOn: aStream ].

   119 		ifFalse: [ ^ super printOn: aStream ].

   118 	aStream

   120 	aStream

   119 		nextPutAll: (collection copyFrom: 1 to: position);

   121 		nextPutAll: (collection copyFrom: 1 to: position);

   121 		nextPutAll: (collection copyFrom: position + 1 to: readLimit)

   123 		nextPutAll: (collection copyFrom: position + 1 to: readLimit)

   122 ! !

   124 ! !

   123 

   125 

   124 !PPStream methodsFor:'queries'!

   126 !PPStream methodsFor:'queries'!

   125 

   127