hg/stx-libbasic: CharacterEncoderImplementations__TwoByteEncoder.st@a4a32df3aa5e (annotated)

8148 dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	1	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	2	COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	3	All Rights Reserved
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	4
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	5	This software is furnished under a license and may be used
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	6	only in accordance with the terms of that license and with the
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	7	inclusion of the above copyright notice. This software may not
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	8	be provided or otherwise made available to, or used by, any
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	9	other person. No title to or ownership of the software is
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	10	hereby transferred.
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	11	"
8079 0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libbasic' }"
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	"{ NameSpace: CharacterEncoderImplementations }"
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
8134 0296806cb4bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8114 diff changeset	16	CharacterEncoder subclass:#TwoByteEncoder
8079 0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	instanceVariableNames:''
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	classVariableNames:''
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	category:'Collections-Text-Encodings'
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
8148 dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	23	!TwoByteEncoder class methodsFor:'documentation'!
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	24
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	25	copyright
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	26	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	27	COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	28	All Rights Reserved
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	29
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	30	This software is furnished under a license and may be used
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	31	only in accordance with the terms of that license and with the
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	32	inclusion of the above copyright notice. This software may not
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	33	be provided or otherwise made available to, or used by, any
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	34	other person. No title to or ownership of the software is
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	35	hereby transferred.
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	36	"
dbf64e3142d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8134 diff changeset	37	! !
8079 0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!TwoByteEncoder class methodsFor:'queries'!
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	maxCode
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	^ 16rFFFF
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	minCode
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	^ 0
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	! !
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	!TwoByteEncoder methodsFor:'private'!
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	newString:size
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	^ TwoByteString uninitializedNew:size
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	! !
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
17732 a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	55	!TwoByteEncoder methodsFor:'queries'!
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	56
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	57	characterSize:codePoint
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	58
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	59	^2
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	60
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	61	"Created: / 15-06-2005 / 15:12:01 / janfrog"
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	62	! !
a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	63
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	64	!TwoByteEncoder methodsFor:'stream support'!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	65
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	66	readNextCharacterFrom:aStream
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	67	\| c \|
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	68
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	69	c := aStream nextUnsignedShortMSB:false.
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	70	^ c isNil
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	71	ifTrue: [nil]
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	72	ifFalse: [(self decode:c) asCharacter]
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	73	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	74
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	75	readNextInputCharacterFrom:aStream
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	76	^ aStream nextUnsignedShortMSB:false
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	77	! !
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	78
8079 0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	!TwoByteEncoder class methodsFor:'documentation'!
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
0c51c515c6b6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	version
17767 a4a32df3aa5e merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17761 diff changeset	82	^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10527 2010-06-16 20:12:05Z vranyj1 $'
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	83	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	84
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17732 diff changeset	85	version_CVS
17767 a4a32df3aa5e merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17761 diff changeset	86	^ 'Header: /cvs/stx/stx/libbasic/Encoder_TwoByteEncoder.st,v 1.6 2009-11-04 00:47:35 cg Exp §'
17761 b0e5971141bc Added Lookup and BuiltinLookup classes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	87	!
17732 a1892eeca6c0 trunk merged into jv branch Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	88
17761 b0e5971141bc Added Lookup and BuiltinLookup classes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	89	version_SVN
17767 a4a32df3aa5e merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17761 diff changeset	90	^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10527 2010-06-16 20:12:05Z vranyj1 $'
17761 b0e5971141bc Added Lookup and BuiltinLookup classes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	91	! !
17767 a4a32df3aa5e merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17761 diff changeset	92

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 16 Jun 2010 21:12:05 +0100
branch	jv
changeset 17767	a4a32df3aa5e
parent 17761	b0e5971141bc
child 17772	6e0b3c06c364
permissions	-rw-r--r--