ParserFlags.st
changeset 4050 acca4ea9dab7
parent 4048 e3c3a9e1f3a9
child 4051 8ba6c9877134
--- a/ParserFlags.st	Tue Nov 22 00:24:30 2016 +0100
+++ b/ParserFlags.st	Wed Nov 23 15:29:17 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2005 by eXept Software AG
@@ -101,7 +99,8 @@
 		WarnInconsistentReturnValues WarnOldStyleAssignment
 		WarnParagraphInIdentifier WarnPlausibilityChecks
 		WarnPossibleIncompatibilities WarnST80Directives WarnSTXSpecials
-		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings'
+		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
+		AutoDefineVariables'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -195,6 +194,18 @@
     "
 !
 
+autoDefineVariables
+    "only to be turned on when scripting"
+
+    ^ AutoDefineVariables ? false
+!
+
+autoDefineVariables:aBoolean
+    "only to be turned on when scripting"
+
+    AutoDefineVariables := aBoolean
+!
+
 fullLineNumberInfo
     ^ (self lineNumberInfo == #full)
 
@@ -915,7 +926,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
 
@@ -923,7 +934,7 @@
 !
 
 allowParagraphInIdentifier:aBoolean
-    "this allows turning on/off §-characters in identifiers."
+    "this allows turning on/off §-characters in identifiers."
 
     AllowParagraphInIdentifier := aBoolean.
 
@@ -1454,7 +1465,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]
 
@@ -1462,7 +1473,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"
 
@@ -1667,7 +1678,8 @@
     "/ ArraysAreImmutable := true.                 "/ do not care for ST-80 compatibility
     "/ StringsAreImmutable := true.                "/ do not care for ST-80 compatibility
     ImplicitSelfSends := false.
-
+    AutoDefineVariables := false.               "/ only to be set when scripting
+    
     STCKeepCIntermediate := false.
     STCKeepOIntermediate := false.
     STCKeepSTIntermediate := false.