#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Sun, 08 May 2016 02:27:08 +0200
changeset 19754 ea47a23dfd5f
parent 19753 cb9db99978cb
child 19755 6f0e180f46a6
#DOCUMENTATION by cg class: Character changed: #isControlCharacter #isSeparator
Character.st
--- a/Character.st	Sun May 08 02:26:58 2016 +0200
+++ b/Character.st	Sun May 08 02:27:08 2016 +0200
@@ -646,7 +646,6 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
-
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -1802,16 +1801,12 @@
     "return true if I am a control character (i.e. ascii value < 32 or == 16rFF)"
 
 %{  /* NOCONTEXT */
-#ifdef NON_ASCII       /* i.e. EBCDIC ;-) */
-# error    not yet implemented - fails when compiled
-#else
     REGISTER INT val;
 
     val = __intVal(__INST(asciivalue));
     if (val < ' ' || val == 0xFF) {
-	RETURN ( true );
+        RETURN ( true );
     }
-#endif
     RETURN (false);
 %}.
 
@@ -2212,16 +2207,14 @@
     REGISTER INT val;
 
     val = __intVal(__INST(asciivalue));
-#ifndef NON_ASCII       /* i.e. EBCDIC ;-) */
     if (val <= ' ')
-#endif
-	if ((val == ' ')
-	 || (val == '\n')
-	 || (val == '\t')
-	 || (val == '\r')
-	 || (val == '\f')) {
-	    RETURN ( true );
-	}
+        if ((val == ' ')
+         || (val == '\n')
+         || (val == '\t')
+         || (val == '\r')
+         || (val == '\f')) {
+            RETURN ( true );
+        }
     RETURN (false);
 %}.
     ^ (asciivalue == 16r20)
@@ -2229,7 +2222,6 @@
       or:[asciivalue == 16r0A
       or:[asciivalue == 16r09
       or:[asciivalue == 16r0C]]]]
-
 !
 
 isUppercase