hg/stx-goodies-xtreams: terminals/Xtreams__NullWriteStream.st@263190106319 (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:''
25 02e7c3b6f63c added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 9 diff changeset	9	category:'Xtreams-Terminals'
9 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
109 9587e2df7029 Merged in latest version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	51	version_HG
9587e2df7029 Merged in latest version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	52
9587e2df7029 Merged in latest version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	53	^ '$Changeset: <not expanded> $'
9 6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	54	! !
109 9587e2df7029 Merged in latest version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 78 diff changeset	55

author	Martin Kobetic
	Sun, 17 Nov 2013 00:21:39 -0500
changeset 141	263190106319
parent 109	9587e2df7029
permissions	-rw-r--r--