hg/stx-goodies-xtreams: transforms/Xtreams__ObjectAnalyseStream.st@677c81c943e4 (annotated)

10 3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	1	"{ Package: 'stx:goodies/xtreams/transforms' }"
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	2
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	3	"{ NameSpace: Xtreams }"
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	4
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	5	ReadStream subclass:#ObjectAnalyseStream
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	6	instanceVariableNames:'marshaler nothing log depth objects int8 int16 int32 int64 uint16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	7	uint32 uint64 float double'
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	8	classVariableNames:''
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	9	poolDictionaries:''
27 2cc5a8a3ca14 added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 10 diff changeset	10	category:'Xtreams-Transforms'
10 3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	11	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	12
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	13
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	14	!ObjectAnalyseStream class methodsFor:'instance creation'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	15
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	16	on: aDestination
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	17	^self on: aDestination marshaler: ObjectMarshaler new
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	18	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	19
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	20	on: aDestination marshaler: aMarshaler
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	21	^self new on: aDestination marshaler: aMarshaler
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	22	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	23
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	24	!ObjectAnalyseStream methodsFor:'accessing'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	25
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	26	get
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	27	\| details \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	28	marshaler analyse: self.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	29	details := log conclusion.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	30	log := String new writing.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	31	self complete.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	32	^details
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	33	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	34
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	35	read: anInteger into: aSequenceableCollection at: startIndex
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	36	\| count \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	37	count := 0.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	38	[anInteger timesRepeat:
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	39	[marshaler analyse: self.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	40	aSequenceableCollection at: startIndex + count put: log conclusion.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	41	log := String new writing.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	42	self complete.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	43	count := count + 1]]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	44	on: Incomplete do: [:exception \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	45	aSequenceableCollection at: startIndex + count put: log conclusion.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	46	log := String new writing.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	47	self complete.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	48	(Incomplete on: aSequenceableCollection count: count at: startIndex) raise].
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	49	^anInteger
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	50	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	51
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	52	!ObjectAnalyseStream methodsFor:'initialize-release'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	53
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	54	contentsSpecies
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	55	^Array
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	56	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	57
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	58	on: aSource marshaler: aMarshaler
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	59	super on: aSource.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	60	marshaler := aMarshaler.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	61	nothing := Object new.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	62	objects := OrderedCollection with: Transcript.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	63	depth := 0.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	64
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	65	log := String new writing.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	66	int8 := aSource interpreting: #signedChar.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	67	(self log: 'header' do: [marshaler configureAnalyse: aSource])
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	68	ifTrue: [
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	69	int16 := aSource interpreting: #signedShort_be.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	70	int32 := aSource interpreting: #signedLong_be.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	71	int64 := aSource interpreting: #signedLonglong_be.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	72	uint16 := aSource interpreting: #unsignedShort_be.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	73	uint32 := aSource interpreting: #unsignedLong_be.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	74	uint64 := aSource interpreting: #unsignedLonglong_be]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	75	ifFalse: [
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	76	int16 := aSource interpreting: #signedShort_le.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	77	int32 := aSource interpreting: #signedLong_le.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	78	int64 := aSource interpreting: #signedLonglong_le.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	79	uint16 := aSource interpreting: #unsignedShort_le.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	80	uint32 := aSource interpreting: #unsignedLong_le.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	81	uint64 := aSource interpreting: #unsignedLonglong_le].
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	82	float := aSource interpreting: #float.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	83	double := aSource interpreting: #double
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	84	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	85
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	86	!ObjectAnalyseStream methodsFor:'primitives'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	87
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	88	double
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	89	^double
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	90	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	91
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	92	float
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	93	^float
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	94	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	95
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	96	int16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	97	^int16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	98	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	99
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	100	int32
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	101	^int32
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	102	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	103
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	104	int64
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	105	^int64
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	106	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	107
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	108	int8
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	109	^int8
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	110	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	111
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	112	uint16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	113	^uint16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	114	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	115
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	116	uint32
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	117	^uint32
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	118	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	119
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	120	uint64
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	121	^uint64
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	122	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	123
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	124	uint8
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	125	^source
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	126	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	127
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	128	!ObjectAnalyseStream methodsFor:'private'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	129
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	130	complete
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	131	objects := OrderedCollection with: Transcript
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	132	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	133
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	134	log: type do: aBlock
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	135	\| superlog sublog position incomplete \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	136	position := source position.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	137	superlog := log.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	138	log := String new writing.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	139
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	140	depth := depth + 1.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	141	incomplete := false.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	142	^[aBlock on: Incomplete do: [:ex \| incomplete := true. ex pass]] ensure:
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	143	[depth := depth - 1.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	144	sublog := log conclusion.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	145	log := superlog.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	146
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	147	incomplete ifFalse:
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	148	[log tab: depth; print: position; write: '+'; print: (source position - position); tab.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	149	type isCharacters
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	150	ifTrue: [log write: type]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	151	ifFalse: [log write: type value].
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	152	log cr; write: sublog]]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	153	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	154
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	155	nothing
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	156	^nothing
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	157	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	158
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	159	objects
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	160	^objects
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	161	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	162
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	163	!ObjectAnalyseStream class methodsFor:'documentation'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	164
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	165	version_SVN
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	166	^ '$Id$'
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	167	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 01 Feb 2012 00:41:14 +0000
changeset 99	677c81c943e4
parent 72	d16c7d84d4a8
child 104	e50c1293b723
permissions	-rw-r--r--