--- a/ParserFlags.st	Wed Mar 08 13:11:04 2006 +0100
+++ b/ParserFlags.st	Wed Mar 08 13:23:28 2006 +0100
@@ -32,12 +32,13 @@
 		allowLazyValueExtension allowFixedPointLiterals
 		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
 		allowExtensionsToPrivateClasses allowSqueakPrimitives
-		allowVisualAgePrimitives allowSTVPrimitives arraysAreImmutable
-		stringsAreImmutable implicitSelfSends stcKeepCIntermediate
-		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
-		stcCompilation stcCompilationIncludes stcCompilationDefines
-		stcCompilationOptions stcPath ccCompilationOptions ccPath
-		linkArgs linkCommand libPath searchedLibraries'
+		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
+		arraysAreImmutable stringsAreImmutable implicitSelfSends
+		stcKeepCIntermediate stcKeepOIntermediate stcKeepSTIntermediate
+		stcModulePath stcCompilation stcCompilationIncludes
+		stcCompilationDefines stcCompilationOptions stcPath
+		ccCompilationOptions ccPath linkArgs linkCommand libPath
+		searchedLibraries'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -55,12 +56,12 @@
 		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
 		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives
-		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends
-		STCModulePath STCKeepCIntermediate STCKeepOIntermediate
-		STCKeepSTIntermediate STCCompilation STCCompilationIncludes
-		STCCompilationDefines STCCompilationOptions STCPath
-		CCCompilationOptions CCPath LinkArgs LinkCommand LibPath
-		SearchedLibraries'
+		AllowSTVExtensions ArraysAreImmutable StringsAreImmutable
+		ImplicitSelfSends STCModulePath STCKeepCIntermediate
+		STCKeepOIntermediate STCKeepSTIntermediate STCCompilation
+		STCCompilationIncludes STCCompilationDefines
+		STCCompilationOptions STCPath CCCompilationOptions CCPath
+		LinkArgs LinkCommand LibPath SearchedLibraries'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -482,6 +483,25 @@
     "
 !
 
+allowSTVExtensions
+    "return true, if support for ST/V syntax extensions is enabled."
+
+    ^ AllowSTVExtensions
+!
+
+allowSTVExtensions:aBoolean
+    "this allows turning on/off support for ST/V extensions:
+     If you want to fileIn ST/V classes, enable this with:
+        Compiler allowSTVComputedArrays:true"
+
+    AllowSTVExtensions := aBoolean.
+
+    "
+     self allowSTVExtensions:true
+     self allowSTVExtensions:false
+    "
+!
+
 allowSTVPrimitives
     "return true, if support for ST/V primitives is enabled."
 
@@ -811,7 +831,6 @@
     AllowUnderscoreInIdentifier := true.        "/ underscores in identifiers
     AllowDollarInIdentifier := false.           "/ st80-vms dollars in identifiers
     AllowOldStyleAssignment := true.            "/ st80 underscore as assignment
-    AllowSqueakExtensions := false.             "/ squeak computed array
     AllowDolphinExtensions := false.            "/ dolphin computed literal
     AllowQualifiedNames := false.               "/ vw3 qualified names
     AllowExtendedBinarySelectors := false.      "/ vw5.4 extended binary selectors (plus/minus, center-dot etc.)
@@ -829,8 +848,10 @@
     AllowVisualAgeESSymbolLiterals := false.
     AllowExtensionsToPrivateClasses := true.
     AllowVisualAgePrimitives := false.
+    AllowSqueakExtensions := false.             "/ squeak computed array
     AllowSqueakPrimitives := false.
-    AllowSTVPrimitives := false.
+    AllowSTVPrimitives := false.                "/ number-sign syntax
+    AllowSTVExtensions := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1407,6 +1428,7 @@
     allowVisualAgePrimitives := AllowVisualAgePrimitives.
     allowSqueakPrimitives := AllowSqueakPrimitives.
     allowSTVPrimitives := AllowSTVPrimitives.
+    allowSTVExtensions := AllowSTVExtensions.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1437,7 +1459,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.14 2006-03-08 12:11:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.15 2006-03-08 12:23:28 cg Exp $'
 ! !
 
 ParserFlags initialize!