Behavior.st
changeset 23379 6a77fc46ffeb
parent 23278 dbe7d04af1a2
child 23593 86a20df2c254
--- a/Behavior.st	Sat Sep 22 11:24:41 2018 +0200
+++ b/Behavior.st	Sat Sep 22 15:39:55 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -546,90 +548,99 @@
 flagForSymbolic:aSymbol
     "return the flag code for indexed instances with aSymbolic type.
      The argument may be one of
-	#float, #double,
-	#word, #signedWord,
-	#long, #signedLong
-	#longLong, #signedLongLong,
-	#byte
-	#weakObjects
+        #float, #double,
+        #word, #signedWord,
+        #long, #signedLong
+        #longLong, #signedLongLong,
+        #byte
+        #weakObjects
      For VW compatibility, also accept:
-	#objects, #bytes, #weak.
+        #objects, #bytes, #weak.
     "
 
 %{   /* NOCONTEXT */
 #ifdef __SCHTEAM__
     if (aSymbol == @symbol(float)) {
-	return __c__._RETURN ( STClass.FLAG_FLOATARRAY );
+        return __c__._RETURN ( STClass.FLAG_FLOATARRAY );
     }
     if (aSymbol == @symbol(double)) {
-	return __c__._RETURN ( STClass.FLAG_DOUBLEARRAY );
+        return __c__._RETURN ( STClass.FLAG_DOUBLEARRAY );
     }
     if (aSymbol == @symbol(long)) {
-	return __c__._RETURN ( STClass.FLAG_LONGARRAY );
+        return __c__._RETURN ( STClass.FLAG_LONGARRAY );
     }
     if (aSymbol == @symbol(longLong)) {
-	return __c__._RETURN ( STClass.FLAG_LONGLONGARRAY );
+        return __c__._RETURN ( STClass.FLAG_LONGLONGARRAY );
     }
     if (aSymbol == @symbol(word)) {
-	return __c__._RETURN ( STClass.FLAG_WORDARRAY );
+        return __c__._RETURN ( STClass.FLAG_WORDARRAY );
     }
     if (aSymbol == @symbol(signedWord)) {
-	return __c__._RETURN ( STClass.FLAG_SWORDARRAY );
+        return __c__._RETURN ( STClass.FLAG_SWORDARRAY );
     }
     if (aSymbol == @symbol(signedLong)) {
-	return __c__._RETURN ( STClass.FLAG_SLONGARRAY );
+        return __c__._RETURN ( STClass.FLAG_SLONGARRAY );
     }
     if (aSymbol == @symbol(signedLongLong)) {
-	return __c__._RETURN ( STClass.FLAG_SLONGLONGARRAY );
+        return __c__._RETURN ( STClass.FLAG_SLONGLONGARRAY );
     }
     if ((aSymbol == @symbol(byte)) || (aSymbol == @symbol(bytes))) {
-	return __c__._RETURN ( STClass.FLAG_BYTEARRAY );
+        return __c__._RETURN ( STClass.FLAG_BYTEARRAY );
     }
-    if (aSymbol == @symbol(objects)) {
-	return __c__._RETURN ( STClass.FLAG_POINTERARRAY );
+    if ((aSymbol == @symbol(objects))
+     || (aSymbol == @symbol(object))
+     || (aSymbol == @symbol(pointer))) {
+        return __c__._RETURN ( STClass.FLAG_POINTERARRAY );
     }
-    if ((aSymbol == @symbol(weakObjects)) || (aSymbol == @symbol(weak))) {
-	return __c__._RETURN ( STClass.FLAG_WKPOINTERARRAY );
+    if ((aSymbol == @symbol(weakObjects))
+     || (aSymbol == @symbol(weakObject))
+     || (aSymbol == @symbol(weak))) {
+        return __c__._RETURN ( STClass.FLAG_WKPOINTERARRAY );
     }
 #else
     if (aSymbol == @symbol(float)) {
-	RETURN ( __mkSmallInteger(FLOATARRAY) );
+        RETURN ( __mkSmallInteger(FLOATARRAY) );
     }
     if (aSymbol == @symbol(double)) {
-	RETURN ( __mkSmallInteger(DOUBLEARRAY) );
+        RETURN ( __mkSmallInteger(DOUBLEARRAY) );
     }
     if (aSymbol == @symbol(long)) {
-	RETURN ( __mkSmallInteger(LONGARRAY) );
+        RETURN ( __mkSmallInteger(LONGARRAY) );
     }
     if (aSymbol == @symbol(longLong)) {
-	RETURN ( __mkSmallInteger(LONGLONGARRAY) );
+        RETURN ( __mkSmallInteger(LONGLONGARRAY) );
     }
     if (aSymbol == @symbol(word)) {
-	RETURN ( __mkSmallInteger(WORDARRAY) );
+        RETURN ( __mkSmallInteger(WORDARRAY) );
     }
     if (aSymbol == @symbol(signedWord)) {
-	RETURN ( __mkSmallInteger(SWORDARRAY) );
+        RETURN ( __mkSmallInteger(SWORDARRAY) );
     }
     if (aSymbol == @symbol(signedLong)) {
-	RETURN ( __mkSmallInteger(SLONGARRAY) );
+        RETURN ( __mkSmallInteger(SLONGARRAY) );
     }
     if (aSymbol == @symbol(signedLongLong)) {
-	RETURN ( __mkSmallInteger(SLONGLONGARRAY) );
+        RETURN ( __mkSmallInteger(SLONGLONGARRAY) );
     }
     if ((aSymbol == @symbol(byte)) || (aSymbol == @symbol(bytes))) {
-	RETURN ( __mkSmallInteger(BYTEARRAY) );
+        RETURN ( __mkSmallInteger(BYTEARRAY) );
     }
-    if (aSymbol == @symbol(objects)) {
-	RETURN ( __mkSmallInteger(POINTERARRAY) );
+    if ((aSymbol == @symbol(objects))
+     || (aSymbol == @symbol(object))
+     || (aSymbol == @symbol(pointer))) {
+        RETURN ( __mkSmallInteger(POINTERARRAY) );
     }
-    if ((aSymbol == @symbol(weakObjects)) || (aSymbol == @symbol(weak))) {
-	RETURN ( __mkSmallInteger(WKPOINTERARRAY) );
+    if ((aSymbol == @symbol(weakObjects))
+     || (aSymbol == @symbol(weakObject))
+     || (aSymbol == @symbol(weak))) {
+        RETURN ( __mkSmallInteger(WKPOINTERARRAY) );
     }
 #endif
 %}.
     ^ 0         "/ not indexed
 
     "Modified: / 07-06-2007 / 11:57:44 / cg"
+    "Modified: / 22-09-2018 / 15:39:10 / Claus Gittinger"
 !
 
 flagJavaArray
@@ -1431,7 +1442,6 @@
 
 ! !
 
-
 !Behavior methodsFor:'RefactoringBrowser'!
 
 realClass