# HG changeset patch # User Claus Gittinger # Date 1225396498 -3600 # Node ID 49adeb063d7722cdf3527495eae16525cca4994a # Parent 5ac13a45fc3df486b9ae803d0dd5939b3996f81c encoder error handling diff -r 5ac13a45fc3d -r 49adeb063d77 CharacterEncoderImplementations__JIS0208.st --- a/CharacterEncoderImplementations__JIS0208.st Thu Oct 30 20:54:05 2008 +0100 +++ b/CharacterEncoderImplementations__JIS0208.st Thu Oct 30 20:54:58 2008 +0100 @@ -9,7 +9,6 @@ other person. No title to or ownership of the software is hereby transferred. " - "{ Package: 'stx:libbasic' }" "{ NameSpace: CharacterEncoderImplementations }" @@ -7636,7 +7635,7 @@ unicode := unicodeArg. unicode <= 16r5B ifTrue:[ - ^ self decodingError. + ^ self encodingError. ]. unicode > 16rFFE5 ifTrue:[ ^ self encodingError. @@ -28647,5 +28646,5 @@ !JIS0208 class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208.st,v 1.3 2004-03-09 22:00:56 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208.st,v 1.4 2008-10-30 19:54:58 cg Exp $' ! ! diff -r 5ac13a45fc3d -r 49adeb063d77 Encoder_JIS0208.st --- a/Encoder_JIS0208.st Thu Oct 30 20:54:05 2008 +0100 +++ b/Encoder_JIS0208.st Thu Oct 30 20:54:58 2008 +0100 @@ -9,7 +9,6 @@ other person. No title to or ownership of the software is hereby transferred. " - "{ Package: 'stx:libbasic' }" "{ NameSpace: CharacterEncoderImplementations }" @@ -7636,7 +7635,7 @@ unicode := unicodeArg. unicode <= 16r5B ifTrue:[ - ^ self decodingError. + ^ self encodingError. ]. unicode > 16rFFE5 ifTrue:[ ^ self encodingError. @@ -28647,5 +28646,5 @@ !JIS0208 class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_JIS0208.st,v 1.3 2004-03-09 22:00:56 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_JIS0208.st,v 1.4 2008-10-30 19:54:58 cg Exp $' ! !