Encoder_SJIS.st
author Claus Gittinger <cg@exept.de>
Fri, 05 Mar 2004 18:28:27 +0100
changeset 8081 b468050174a9
parent 8077 beb1312dcb8c
child 8114 05274a80fcc4
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8077
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Encoding: utf8 }"
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:libbasic' }"
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
"{ NameSpace: CharacterEncoderImplementations }"
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
TwoByteEncoder subclass:#SJIS
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	instanceVariableNames:''
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	classVariableNames:''
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
	poolDictionaries:''
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
	category:'Collections-Text-Encodings'
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!SJIS class methodsFor:'mapping'!
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
mapFileURL1_relativePathName
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    ^ 'OBSOLETE/EASTASIA/JIS/SHIFTJIS.TXT'
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
namesOfEncoding
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    ^ #( 'sjis' 'shiftjis'  )
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
! !
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!SJIS methodsFor:'private'!
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
newString:size
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    ^ JISEncodedString new:size
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
! !
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!SJIS class methodsFor:'documentation'!
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
version
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_SJIS.st,v 1.1 2004-03-05 17:01:35 cg Exp $'
beb1312dcb8c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
! !