hg/stx-goodies-xtreams: substreams/Xtreams__ReadSubstream.st@726bf2ca0b99 (annotated)

4 20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	1	"{ Package: 'stx:goodies/xtreams/substreams' }"
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	2
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	3	"{ NameSpace: Xtreams }"
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	4
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	5	ReadStream subclass:#ReadSubstream
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	6	instanceVariableNames:'sourceAtEnd closeBlock substreamClosed'
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	7	classVariableNames:''
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	8	poolDictionaries:''
22 e0653bbdbe61 added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 4 diff changeset	9	category:'Xtreams-Substreams'
4 20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	10	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	11
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	12	ReadSubstream comment:'This is abstract superclass of all substreams. Substreams normally don''t close their underlying source, their closing behavior is customized via closeBlock.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	13
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	14	Instance Variables
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	15	sourceAtEnd <Boolean> flags end of the source
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	16	closeBlock <BlockClosure> unary block invoked in response to #close, allows customizing closing behavior
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	17	substreamClosed <Boolean> flags the end of the receiver
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	18
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	19	'
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	20	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	21
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	22
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	23	!ReadSubstream class methodsFor:'private'!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	24
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	25	slice: sliceBlock close: closeBlock
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	26	\| substream \|
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	27	substream := nil.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	28	^[substream == nil ifFalse:
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	29	[substream substreamClosed ifFalse: [substream close].
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	30	substream subseekend.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	31	substream sourceAtEnd ifTrue: [Incomplete zero raise]].
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	32	substream := sliceBlock value]
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	33	reading
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	34	closeBlock: closeBlock;
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	35	yourself
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	36	! !
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	37
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	38	!ReadSubstream methodsFor:'accessing'!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	39
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	40	closeBlock
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	41	^closeBlock
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	42	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	43
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	44	closeBlock: anObject
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	45	closeBlock := anObject
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	46	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	47
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	48	get
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	49	^[source get] on: Incomplete do: [:incomplete \| sourceAtEnd := true. incomplete pass]
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	50	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	51
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	52	read: anInteger into: aSequenceableCollection at: startIndex
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	53	^[source read: anInteger into: aSequenceableCollection at: startIndex] on: Incomplete do: [:incomplete \| sourceAtEnd := true. incomplete pass]
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	54	! !
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	55
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	56	!ReadSubstream methodsFor:'initialize-release'!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	57
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	58	close
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	59	closeBlock cull: self.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	60	substreamClosed := true
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	61	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	62
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	63	contentsSpecies
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	64	^source contentsSpecies
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	65	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	66
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	67	on: aSource
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	68	super on: aSource.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	69	closeBlock := [].
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	70	sourceAtEnd := false.
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	71	substreamClosed := false
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	72	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	73
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	74	subseekend
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	75	! !
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	76
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	77	!ReadSubstream methodsFor:'testing'!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	78
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	79	sourceAtEnd
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	80	^sourceAtEnd
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	81	!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	82
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	83	substreamClosed
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	84	^substreamClosed
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	85	! !
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	86
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	87	!ReadSubstream class methodsFor:'documentation'!
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	88
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	89	version_SVN
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	90	^ '$Id$'
20abcbb9eb33 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	91	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 01 Feb 2012 00:56:17 +0000
changeset 103	726bf2ca0b99
parent 67	a87e5ce04545
child 109	9587e2df7029
permissions	-rw-r--r--