--- 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