hg/stx-libbasic: EncodedStream.st@1d7a1c1c1ccc (annotated)

8148 dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	1	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	2	COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	3	All Rights Reserved
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	4
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	5	This software is furnished under a license and may be used
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	6	only in accordance with the terms of that license and with the
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	7	inclusion of the above copyright notice. This software may not
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	8	be provided or otherwise made available to, or used by, any
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	9	other person. No title to or ownership of the software is
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	10	hereby transferred.
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	11	"
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libbasic' }"
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
8447 9bdea3431846 EncodedStream inherts from PeekableStream Stefan Vogel <sv@exept.de> parents: 8444 diff changeset	14	PeekableStream subclass:#EncodedStream
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:'encoder stream'
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	classVariableNames:''
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	poolDictionaries:''
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	category:'Collections-Text-Encodings'
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
8148 dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	21	!EncodedStream class methodsFor:'documentation'!
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	22
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	23	copyright
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	24	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	25	COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	26	All Rights Reserved
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	27
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	28	This software is furnished under a license and may be used
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	29	only in accordance with the terms of that license and with the
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	30	inclusion of the above copyright notice. This software may not
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	31	be provided or otherwise made available to, or used by, any
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	32	other person. No title to or ownership of the software is
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	33	hereby transferred.
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	34	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8147 diff changeset	35	! !
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	!EncodedStream class methodsFor:'instance creation'!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	stream:streamArg encoder:encoder
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	^ (self basicNew) stream:streamArg; encoder:encoder
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!EncodedStream methodsFor:'accessing'!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	45	contentsSpecies
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	46
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	47	"Not sure if this is ok"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	48
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	49	^ stream contentsSpecies.
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	50
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	51	"/ ^UnicodeString
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	52
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	53	"Created: / 14-06-2005 / 17:11:01 / janfrog"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	54	!
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	55
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	encoder
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	^ encoder
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	encoder:something
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	encoder := something.
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
11766 b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	64	readStream
b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	65	^ self
b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	66	!
b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	67
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	stream
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	^ stream
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	stream:something
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	stream := something.
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	! !
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	!EncodedStream methodsFor:'stream protocol'!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	78	atEnd
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	79	^ stream atEnd
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	80	!
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	81
8165 d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	82	close
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	83	stream close
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	84	!
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	85
8213 0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	86	cr
8459 1f59b17291a3 * empty log message * penk parents: 8447 diff changeset	87	self nextPutAll:(Character cr asString)
8213 0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	88	!
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	89
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	90	emphasis:anObject
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	91
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	92	stream emphasis:anObject
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	93
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	94	"Created: / 15-06-2005 / 11:16:33 / janfrog"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	95	!
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	96
11946 1d2aefade06e +isOpen Claus Gittinger <cg@exept.de> parents: 11766 diff changeset	97	isOpen
1d2aefade06e +isOpen Claus Gittinger <cg@exept.de> parents: 11766 diff changeset	98	^ stream isOpen
1d2aefade06e +isOpen Claus Gittinger <cg@exept.de> parents: 11766 diff changeset	99	!
1d2aefade06e +isOpen Claus Gittinger <cg@exept.de> parents: 11766 diff changeset	100
11766 b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	101	next
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	102
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	103	^encoder readNextCharacterFrom:stream
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	104
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	105	"Created: / 14-06-2005 / 17:01:39 / janfrog"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	106	!
11766 b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	107
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	108	next:charactersToRead
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	109
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	110	^encoder readNext:charactersToRead charactersFrom:stream
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	111
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	112	"Created: / 16-06-2005 / 11:43:43 / masca"
11766 b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	113	!
b26aac1e4eb1 * empty log message * Michael Beyl <mb@exept.de> parents: 8712 diff changeset	114
8147 416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	115	nextChunk
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	116	\|chunk\|
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	117
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	118	chunk := stream nextChunk.
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	119	chunk isNil ifTrue:[^ chunk].
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	120	^ encoder decodeString:chunk
8147 416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	121	!
416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	122
8213 0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	123	nextChunkPut:chunk
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	124	stream nextChunkPut:(encoder encodeString:chunk)
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	125	!
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	126
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	nextPut:aCharacter
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	self nextPutAll:(aCharacter asString).
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	nextPutAll:aCollection
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	stream nextPutAll:(encoder encodeString:aCollection).
8147 416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	133	!
416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	134
8444 354d0c48618d * empty log message * Claus Gittinger <cg@exept.de> parents: 8213 diff changeset	135	peek
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	136
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	137	^stream peek
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	138
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	139	"Created: / 20-06-2005 / 10:13:03 / masca"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	140	"Modified: / 20-06-2005 / 13:06:14 / masca"
8444 354d0c48618d * empty log message * Claus Gittinger <cg@exept.de> parents: 8213 diff changeset	141	!
354d0c48618d * empty log message * Claus Gittinger <cg@exept.de> parents: 8213 diff changeset	142
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	143	peekFor:aCharacter
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	144	^ stream peekFor:aCharacter
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	145	!
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	146
8165 d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	147	position
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	148	^ stream position
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	149	!
d6446fc1ea3b more stream protocol ca parents: 8148 diff changeset	150
8197 4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	151	position0Based
11947 18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	152	"to be obsoleted - use position"
18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	153
8197 4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	154	^ stream position0Based
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	155	!
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	156
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	157	position0Based:newPosition
11947 18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	158	"to be obsoleted - use position"
18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	159
8197 4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	160	stream position0Based:newPosition
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	161	!
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	162
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	163	position1Based
11947 18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	164	"to be obsoleted - use position"
18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	165
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	166	^ stream position1Based
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	167	!
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	168
8147 416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	169	position1Based:newPosition
11947 18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	170	"to be obsoleted - use position"
18ce463920de * empty log message * Claus Gittinger <cg@exept.de> parents: 11946 diff changeset	171
8147 416bcaa573ef checkin from browser Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	172	stream position1Based:newPosition
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	173	!
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	174
8197 4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	175	position:newPosition
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	176	stream position:newPosition
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	177	!
4fccb2671b9d stream protocol Claus Gittinger <cg@exept.de> parents: 8175 diff changeset	178
8213 0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	179	setToEnd
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	180	stream setToEnd
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	181	!
0f9d34b2afb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8197 diff changeset	182
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	183	skip: anInteger
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	184
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	185	"/ Should skip on character basis, not on bytes. This works for XML reader
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	186	^stream skip: anInteger
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	187
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	188	"Created: / 20-06-2005 / 13:06:06 / masca"
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	189	!
1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	190
8175 3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	191	skipSeparators
3548845d3c09 more stream protocol Claus Gittinger <cg@exept.de> parents: 8165 diff changeset	192	^ stream skipSeparators
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	! !
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194
8712 bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	195	!EncodedStream methodsFor:'utilities'!
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	196
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	197	skipEncodingChunk
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	198	\|pos chunk tree\|
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	199
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	200	pos := self position.
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	201	chunk := self nextChunk.
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	202	tree := (Parser parseExpression:chunk).
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	203	"/ if this is a valid chunk (i.e. not a comment or encoding-directive),
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	204	"/ then position back, so it will be processed as usual.
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	205	tree notNil ifTrue:[
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	206	self position:pos
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	207	]
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	208	! !
bcef3a0c0a1d skipEncodingCHunk now in EncodedStream Claus Gittinger <cg@exept.de> parents: 8459 diff changeset	209
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	!EncodedStream class methodsFor:'documentation'!
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	version
11992 1d7a1c1c1ccc extended protocol fm parents: 11947 diff changeset	213	^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.15 2009-09-21 16:48:48 fm Exp $'
8047 9cfc575512eb initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	! !

author	fm
	Mon, 21 Sep 2009 18:48:48 +0200
changeset 11992	1d7a1c1c1ccc
parent 11947	18ce463920de
child 12610	cfbb45980e28
permissions	-rw-r--r--