hg/stx-goodies-xtreams: transforms/Xtreams__ASCIIEncoder.st@bd6be28aa924 (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	Encoder subclass:#ASCIIEncoder
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	6	instanceVariableNames:''
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	7	classVariableNames:''
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	8	poolDictionaries:''
27 2cc5a8a3ca14 added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 10 diff changeset	9	category:'Xtreams-Transforms'
10 3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	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	ASCIIEncoder comment:'Implements ASCII encoding.
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	13
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	14	'
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	15	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	16
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	17
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	18	!ASCIIEncoder class methodsFor:'class initialization'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	19
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	20	initialize
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	21
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	22	self encoders
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	23	at: #ascii put: self new;
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	24	at: #ASCII put: self new
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	25	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	26
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	27	!ASCIIEncoder methodsFor:'accessing'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	28
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	29	decodeFrom: aReadStream
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	30
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	31	\| value \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	32	^(value := aReadStream get) < 128
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	33	ifTrue: [ Character value: value ]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	34	ifFalse: [ self error: 'Illegal value!!' ]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	35	!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	36
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	37	encode: aCharacter on: aWriteStream
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	38
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	39	\| value \|
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	40	(value := aCharacter asInteger) < 128
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	41	ifTrue: [ aWriteStream put: value ]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	42	ifFalse: [ self error: 'Illegal character!!' ]
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	43	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	44
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	45	!ASCIIEncoder class methodsFor:'documentation'!
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	46
111 44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	47	version_HG
44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	48
44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	49	^ '$Changeset: <not expanded> $'
44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	50	!
44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	51
10 3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	52	version_SVN
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	53	^ '$Id$'
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	54	! !
3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	55
111 44ac233b2f83 * removed namespace from pool references and stray extension methods joe parents: 72 diff changeset	56
10 3813193bdf4e first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	57	ASCIIEncoder initialize!

author	Martin Kobetic
	Sun, 17 Nov 2013 00:23:18 -0500
changeset 147	bd6be28aa924
parent 111	44ac233b2f83
permissions	-rw-r--r--