ParserFlags.st
changeset 4085 37418a44b701
parent 4051 8ba6c9877134
child 4088 529963173d68
child 4089 3fa82c96b2e5
--- a/ParserFlags.st	Tue Jan 03 20:04:08 2017 +0100
+++ b/ParserFlags.st	Mon Jan 09 12:30:48 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2005 by eXept Software AG
@@ -56,7 +58,8 @@
 		allowAssignmentToMethodArgument allowAssignmentToPoolVariable
 		lineNumberInfo allowSTXDelimiterComments
 		allowSTXExtendedArrayLiterals warnAssignmentToBlockArgument
-		warnAssignmentToMethodArgument warnAssignmentToPoolVariable'
+		warnAssignmentToMethodArgument warnAssignmentToPoolVariable
+		allowSignedByteArrayElements'
 	classVariableNames:'AllowArrayIndexSyntaxExtension AllowAssignmentToBlockArgument
 		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
 		AllowCaretAsBinop AllowCharacterEscapes AllowDollarInIdentifier
@@ -100,7 +103,7 @@
 		WarnParagraphInIdentifier WarnPlausibilityChecks
 		WarnPossibleIncompatibilities WarnST80Directives WarnSTXSpecials
 		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
-		AutoDefineVariables'
+		AutoDefineVariables AllowSignedByteArrayElements'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -914,7 +917,7 @@
 !
 
 allowParagraphInIdentifier
-    "return true, if §-characters are allowed in identifiers (treated as letter)"
+    "return true, if §-characters are allowed in identifiers (treated as letter)"
 
     ^ AllowParagraphInIdentifier
 
@@ -922,7 +925,7 @@
 !
 
 allowParagraphInIdentifier:aBoolean
-    "this allows turning on/off §-characters in identifiers."
+    "this allows turning on/off §-characters in identifiers."
 
     AllowParagraphInIdentifier := aBoolean.
 
@@ -1098,6 +1101,18 @@
     "
 !
 
+allowSignedByteArrayElements
+    "return true, if byteArray elements are allowed to be negative."
+
+    ^ AllowSignedByteArrayElements
+!
+
+allowSignedByteArrayElements:aBoolean
+    "controls, if byteArray elements are allowed to be negative."
+
+    AllowSignedByteArrayElements := aBoolean
+!
+
 allowSqueakExtensions
     "return true, if support for squeak extensions
 	computed arrays { .., }
@@ -1453,7 +1468,7 @@
 !
 
 warnParagraphInIdentifier
-    "return true, if §-characters in identifiers are to be warned about"
+    "return true, if §-characters in identifiers are to be warned about"
 
     ^ Warnings and:[WarnParagraphInIdentifier]
 
@@ -1461,7 +1476,7 @@
 !
 
 warnParagraphInIdentifier:aBoolean
-    "this allows turning on/off warnings about §-characters in identifiers.
+    "this allows turning on/off warnings about §-characters in identifiers.
      You may find those warnings useful, to make certain that your code
      is portable to other Smalltalk versions, which do not allow this"
 
@@ -1660,6 +1675,7 @@
     AllowAssignmentToMethodArgument := false.
     AllowAssignmentToPoolVariable := false.
     "/ AllowAssignmentToPoolVariable := true.
+    AllowSignedByteArrayElements := false.
 
     ArraysAreImmutable := false.                "/ still care for ST-80 compatibility
     StringsAreImmutable := false.               "/ still care for ST-80 compatibility
@@ -2471,10 +2487,11 @@
 !
 
 allowSignedByteArrayElements
-    "experimental"
-    "/ ^ true.
-    "/    ^ allowSignedByteArrayElements
-    ^ false.
+    ^ allowSignedByteArrayElements
+!
+
+allowSignedByteArrayElements:aBoolean
+    allowSignedByteArrayElements := aBoolean
 !
 
 allowSqueakExtensions
@@ -2935,6 +2952,7 @@
     allowAssignmentToBlockArgument := AllowAssignmentToBlockArgument.
     allowAssignmentToMethodArgument := AllowAssignmentToMethodArgument.
     allowAssignmentToPoolVariable := AllowAssignmentToPoolVariable.
+    allowSignedByteArrayElements := AllowSignedByteArrayElements.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.