Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
change __isString() to __isStringLike() in primitive code
authorStefan Vogel <sv@exept.de>
Thu, 05 Nov 2009 17:26:27 +0100
changeset 12483 e5ad283c4f14
parent 12482 41f0acde1b79
child 12484 7f0cc6e86a66
change __isString() to __isStringLike() in primitive code
CharacterEncoderImplementations__SJIS.st file | annotate | diff | comparison | revisions
Encoder_SJIS.st file | annotate | diff | comparison | revisions 
--- a/CharacterEncoderImplementations__SJIS.st	Thu Nov 05 17:26:26 2009 +0100
+++ b/CharacterEncoderImplementations__SJIS.st	Thu Nov 05 17:26:27 2009 +0100
@@ -77,7 +77,7 @@
     romans := CharacterEncoderImplementations::JIS0208 romanTable.
 
 %{
-    if (__isString(aString)
+    if (__isStringLike(aString)
      && (__Class(newString) == @global(TwoByteString))) {
         INT _dstIdx = 0, _srcIdx = 0;
         int _sz = __intVal(sz);
@@ -339,5 +339,9 @@
 !JIS0208_to_SJIS class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__SJIS.st,v 1.11 2009-01-19 13:45:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__SJIS.st,v 1.12 2009-11-05 16:26:27 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__SJIS.st,v 1.12 2009-11-05 16:26:27 stefan Exp $'
 ! !
--- a/Encoder_SJIS.st	Thu Nov 05 17:26:26 2009 +0100
+++ b/Encoder_SJIS.st	Thu Nov 05 17:26:27 2009 +0100
@@ -77,7 +77,7 @@
     romans := CharacterEncoderImplementations::JIS0208 romanTable.
 
 %{
-    if (__isString(aString)
+    if (__isStringLike(aString)
      && (__Class(newString) == @global(TwoByteString))) {
         INT _dstIdx = 0, _srcIdx = 0;
         int _sz = __intVal(sz);
@@ -339,5 +339,9 @@
 !JIS0208_to_SJIS class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_SJIS.st,v 1.11 2009-01-19 13:45:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_SJIS.st,v 1.12 2009-11-05 16:26:27 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_SJIS.st,v 1.12 2009-11-05 16:26:27 stefan Exp $'
 ! !
hg/stx-libbasic