"{ Encoding: utf8 }"

"
 COPYRIGHT (c) 2004 by eXept Software AG
	      All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libbasic' }"

"{ NameSpace: CharacterEncoderImplementations }"

VariableBytesEncoder subclass:#JIS0208_to_SJIS
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Collections-Text-Encodings'
!

!JIS0208_to_SJIS class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2004 by eXept Software AG
	      All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
!

documentation
"
    documentation to be added.

    [author:]
        stefan

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!JIS0208_to_SJIS class methodsFor:'mapping'!

mapFileURL1_relativePathName
    ^ 'OBSOLETE/EASTASIA/JIS/SHIFTJIS.TXT'
! !

!JIS0208_to_SJIS class methodsFor:'queries'!

nameOfDecodedCode
    "I encode sjis into jis"

    ^ #'jis0208'
! !

!JIS0208_to_SJIS methodsFor:'encoding & decoding'!

decodeString:aString
    "return a new JIS-Encoded-String containing the characters from aString,
     which are interpreted as Shift-JIS encoded singleByte chars.
     Shift-JIS is a leadyByte code, with a variable-length encoding."

    |newString char1 char2
     sz         "{ Class: SmallInteger }"
     dstIdx     "{ Class: SmallInteger }"
     srcIdx     "{ Class: SmallInteger }"
     b1         "{ Class: SmallInteger }"
     b2         "{ Class: SmallInteger }"
     val        "{ Class: SmallInteger }"
     any16bit romans|

    sz := aString size.
    sz == 0 ifTrue:[^ aString].

    newString := TwoByteString new:sz.
    any16bit := false.
    dstIdx := 1.
    srcIdx := 1.

    romans := CharacterEncoderImplementations::JIS0208 romanTable.

%{
    if (__isStringLike(aString)
     && (__Class(newString) == @global(TwoByteString))) {
        INT _dstIdx = 0, _srcIdx = 0;
        int _sz = __intVal(sz);
        unsigned char *_cp = __stringVal(aString);
        unsigned char _c1, _c2;
        unsigned short *_jcp = (unsigned short *)__stringVal(newString);

        while (_srcIdx < _sz) {
            int _val;

            _c1 = _cp[_srcIdx];
            _srcIdx++;

            if ((_srcIdx < _sz)
             && (((_c1 >= 129) && (_c1 <= 159))
                 || ((_c1 >= 224) && (_c1 <= 239)))) {
                _c2 = _cp[_srcIdx];
                _srcIdx++;
                if ((_c2 >= 64) && (_c2 <= 252)) {
                    int _adjust, _rowOffs, _cellOffs;
                    int _b1, _b2;

                    _adjust = (_c2 < 159) ? 1 : 0;
                    _rowOffs = (_c1 < 160) ? 112 : 176;
                    if (_adjust) {
                        _cellOffs = 31 + ((_c2 > 127) ? 1 : 0);
                    } else {
                        _cellOffs = 126;
                    }
                    _b1 = ((_c1 - _rowOffs) << 1) - _adjust;
                    _b2 = (_c2 - _cellOffs);
                    _val = (_b1<<8) + _b2;
                    if (_val <= 0) {
                        /* decoder error - let smalltalk handle that */
                        _srcIdx -= 2;
                        goto getOutOfHere;
                    }
                    if (_val > 0xFF) any16bit = true;
                    _jcp[_dstIdx] = _val;
                } else {
                    /* mhmh - append untranslated */

                    _jcp[_dstIdx] = _c1;
                    _dstIdx++;
                    _jcp[_dstIdx] = _c2;
                }
            } else {
                if ((_c1 >= 0xA1 /* 161 */) && (_c1 <= 0xDF /* 223 */)) {
                    /* HALFWIDTH KATAKANA
                     * map half-width katakana to 8E:xx
                     */
                    _val = _c1 - 128;
                    _val = _val + 0x8E00;
                    any16bit = true;
                    _jcp[_dstIdx] = _val;
                } else {
                    /* roman characters are translated as per romanTable */
                    _jcp[_dstIdx] = _c1;
                    if ((romans != nil)
                     && (__isArrayLike(romans))
                     && ((_c1 - 0x20) < __arraySize(romans))) {
                        any16bit = true;
                        _jcp[_dstIdx] = __intVal(__ArrayInstPtr(romans)->a_element[(_c1 - 0x20)]);
                    }
                }
            }
            _dstIdx++;
        }
    getOutOfHere: ;
        dstIdx = __mkSmallInteger(_dstIdx+1);
        srcIdx = __mkSmallInteger(_srcIdx+1);
    }
%}.

    [srcIdx <= sz] whileTrue:[
        "/
        "/ scan for next character in 129..159 or 224..239
        "/
        char1 := aString at:srcIdx.
        srcIdx := srcIdx + 1.
        b1 := char1 codePoint.

        ((srcIdx <= sz)
        and:[(b1 >= 16r81"129" and:[b1 <= 16r9F"159"])                 "/ SJIS1 81 .. 9F
             or:[b1 >= 16rE0"224" and:[b1 <= 16rEF"239"]]]) ifTrue:[   "/       E0 .. EF
            char2 := aString at:srcIdx.
            srcIdx := srcIdx + 1.
            b2 := char2 codePoint.
            (b2 >= 16r40"64" and:[b2 <= 16rFC"252"]) ifTrue:[          "/ SJIS2 40 .. FC
                |adjust rowOffs cellOffs|

                adjust := (b2 < 16r9F"159") ifTrue:[1] ifFalse:[0].
                rowOffs := b1 < 16rA0"160" ifTrue:[112] ifFalse:[176].
                adjust == 1 ifTrue:[
                    cellOffs := 31 + (b2 > 127 ifTrue:[1] ifFalse:[0]).
                ] ifFalse:[
                    cellOffs := 126.
                ].
                b1 := ((b1 - rowOffs) bitShift:1) - adjust.
                b2 := (b2 - cellOffs).
                val := (b1 bitShift:8) + b2.
                val <= 0 ifTrue:[
                    DecodingError
                            raiseWith:aString
                            errorString:'SJIS decoding failed (not SJIS encoded ?)'.
                    newString at:dstIdx put:char1.
                    dstIdx := dstIdx + 1.
                    newString at:dstIdx put:char2.
                ] ifFalse:[
                    val > 16rFF ifTrue:[any16bit := true].
                    newString at:dstIdx put:(Character value:val).
                ]
            ] ifFalse:[
                "/ mhmh - append untranslated

                newString at:dstIdx put:char1.
                dstIdx := dstIdx + 1.
                newString at:dstIdx put:char2.
            ]
        ] ifFalse:[
            (b1 >= 16rA1 "161" and:[b1 <= 16rDF "223"]) ifTrue:[     "/ HALFWIDTH KATAKANA
                "/ map half-width katakan to 8E:xx
                val := b1 - 128.
                val := val + (16r8E"142" bitShift:8).
                any16bit := true.
                newString at:dstIdx put:(Character value:val).
            ] ifFalse:[
                "/ roman characters translated as per romanTable
                newString at:dstIdx put:char1.
                romans isArray ifTrue:[
                    char1 codePoint < romans size ifTrue:[
                        any16bit := true.
                        newString at:dstIdx put:(Character value:(romans at:char1 codePoint-32+1)).
                    ]
                ]
            ]
        ].
        dstIdx := dstIdx + 1.
    ].
    any16bit ifFalse:[
        newString := String fromString:newString
    ].

    (dstIdx-1) ~~ sz ifTrue:[
        newString := newString copyTo:dstIdx - 1.
    ].

    ^ newString

    "simple:

     CharacterEncoderImplementations::JIS0208_to_SJIS decodeString:'hello'
     (CharacterEncoder encoderFor:#sjis) decodeString:'hello'

     CharacterEncoderImplementations::JIS0208_to_SJIS decodeString:('../../doc/online/japanese/TOP.html' asFilename contentsAsString)

     '../../doc/online/japanese/TOP.html' asFilename contentsAsString
                decodeFrom:#jis208
    "

    "Modified (comment): / 17-01-2018 / 17:48:08 / stefan"
!

encodeString:aJISString
    "return a new string with aJISString's characters as SJIS encoded 8bit string.
     The resulting string is only useful to be stored on some external file,
     not for being displayed in an ST/X view."

    |sz "{ Class: SmallInteger }"
     rval "{ Class: SmallInteger }"
     val  "{ Class: SmallInteger }"
     romans c out isSJIS|

    romans := JIS0208 romanTable.

    sz := aJISString size.
    sz == 0 ifTrue:[^ ''].

    out := WriteStream on:(String new:(sz * 2)).

    1 to:sz do:[:srcIndex |
	val := (c := aJISString at:srcIndex) codePoint.
	(val <= 128) ifTrue:[
	    "/ a control or ascii character
	    out nextPut:c.
	] ifFalse:[
	    (val == 16rFFFF "invalid-char") ifTrue:[
		out nextPut:Character space.
	    ] ifFalse:[
		(val > 150 and:[val < 224]) ifTrue:[
		    "/ ascii subset
		    out nextPut:c.
		] ifFalse:[
		    "/ should not happen ...
		    val <= 255 ifTrue:[
			out nextPut:c.
		    ] ifFalse:[
			isSJIS := true.

			"/ check for HALFWIDTH KATAKANA
			"/ 8E:xx
			"/ NO: halfwidth katakana no longer generated
			"/     remains there as full-width katakana

"/                        (val bitAnd:16rFF00) == 16r8E00 ifTrue:[
"/                            |b|
"/
"/                            b := (val bitAnd:16rFF) + 128.
"/                            (b >= 16rA1 "161" and:[b <= 16rDF "223"]) ifTrue:[
"/                                out nextPut:(Character value:b).
"/                                isSJIS := false.
"/                            ].
"/                        ].

			isSJIS ifTrue:[
			    "/ check for a roman character
			    (val between:"romanTable min" 16r2121 and:"romanTable max" 16r2573) ifTrue:[
				rval := romans indexOf:val.
				rval ~~ 0 ifTrue:[
				    rval := rval - 1 + 32.
				    rval <= 16r7F ifTrue:[ "/ do not translate halfwidth katakana
					out nextPut:(Character value:rval).
					isSJIS := false.
				    ]
				].
			    ].
			].

			isSJIS ifTrue:[
			    |b1 b2 rowOffset cellOffset|

			    b1 := (val bitShift:-8).
			    b2 := (val bitAnd:16rFF).
			    rowOffset := (b1 < 95) ifTrue:[112] ifFalse:[176].
			    cellOffset := b1 odd ifTrue:[(b2 > 95) ifTrue:[32] ifFalse:[31]]
						 ifFalse:[126].

			    out nextPut:(Character value:(((b1 + 1) bitShift:-1) + rowOffset)).
			    out nextPut:(Character value:b2 + cellOffset).
			]
		    ]
		]
	    ]
	].
    ].
    ^ out contents
! !

!JIS0208_to_SJIS methodsFor:'private'!

newString:size
    ^ JISEncodedString new:size
! !

!JIS0208_to_SJIS methodsFor:'queries'!

nameOfEncoding
    ^ #'sjis'
! !

!JIS0208_to_SJIS class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !