hg/stx-goodies-xtreams: terminals/Xtreams__NullWriteStream.st@6c90659cf105 (annotated)

9 6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	1	"{ Package: 'stx:goodies/xtreams/terminals' }"
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	2
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	3	"{ NameSpace: Xtreams }"
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	4
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	5	WriteStream subclass:#NullWriteStream
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	6	instanceVariableNames:''
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	7	classVariableNames:''
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	8	poolDictionaries:''
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	9	category:'My Classes'
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	10	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	11
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	12
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	13	!NullWriteStream methodsFor:'accessing'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	14
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	15	write: anInteger from: aSequenceableCollection at: startIndex
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	16	^anInteger
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	17	! !
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	18
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	19	!NullWriteStream methodsFor:'initialize-release'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	20
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	21	close
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	22	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	23
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	24	contentsSpecies
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	25	^Array
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	26	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	27
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	28	flush
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	29	! !
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	30
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	31	!NullWriteStream methodsFor:'private'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	32
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	33	streamingInsert: anInteger from: aReadStream
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	34	aReadStream ++ anInteger
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	35	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	36
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	37	streamingInsertFrom: aReadStream
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	38	aReadStream -= 0
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	39	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	40
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	41	streamingWrite: anInteger from: aReadStream
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	42	aReadStream ++ anInteger
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	43	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	44
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	45	streamingWriteFrom: aReadStream
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	46	aReadStream -= 0
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	47	! !
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	48
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	49	!NullWriteStream class methodsFor:'documentation'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	50
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	51	version_SVN
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	52	^ '$Id$'
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	53	! !

author	Martin Kobetic <mkobetic@gmail.com>
	Mon, 22 Aug 2011 16:04:00 +0000
changeset 9	6c90659cf105
child 25	02e7c3b6f63c
permissions	-rw-r--r--