--- a/ParserFlags.st	Tue Feb 21 14:08:08 2006 +0100
+++ b/ParserFlags.st	Tue Feb 21 17:36:55 2006 +0100
@@ -31,10 +31,11 @@
 		allowReservedWordsAsSelectors allowVariableReferences
 		allowLazyValueExtension allowFixedPointLiterals
 		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
-		allowExtensionsToPrivateClasses arraysAreImmutable
-		stringsAreImmutable implicitSelfSends stcKeepCIntermediate
-		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
-		stcCompilation stcCompilationIncludes stcCompilationDefines
+		allowExtensionsToPrivateClasses allowSqueakPrimitives
+		allowVisualAgePrimitives arraysAreImmutable stringsAreImmutable
+		implicitSelfSends stcKeepCIntermediate stcKeepOIntermediate
+		stcKeepSTIntermediate stcModulePath stcCompilation
+		stcCompilationIncludes stcCompilationDefines
 		stcCompilationOptions stcPath ccCompilationOptions ccPath
 		linkArgs linkCommand libPath searchedLibraries'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
@@ -53,12 +54,12 @@
 		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
 		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
-		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends
-		STCModulePath STCKeepCIntermediate STCKeepOIntermediate
-		STCKeepSTIntermediate STCCompilation STCCompilationIncludes
-		STCCompilationDefines STCCompilationOptions STCPath
-		CCCompilationOptions CCPath LinkArgs LinkCommand LibPath
-		SearchedLibraries'
+		AllowSqueakPrimitives AllowVisualAgePrimitives ArraysAreImmutable
+		StringsAreImmutable ImplicitSelfSends STCModulePath
+		STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate
+		STCCompilation STCCompilationIncludes STCCompilationDefines
+		STCCompilationOptions STCPath CCCompilationOptions CCPath
+		LinkArgs LinkCommand LibPath SearchedLibraries'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -505,6 +506,18 @@
     "
 !
 
+allowSqueakPrimitives
+    "return true, if support for squeak primitives is enabled."
+
+    ^ AllowSqueakPrimitives
+!
+
+allowSqueakPrimitives:aBoolean
+    "this allows turning on/off support for squeak primitives"
+
+    AllowSqueakPrimitives := aBoolean
+!
+
 allowUnderscoreInIdentifier
     "return true, if underscores are allowed in identifiers"
 
@@ -536,6 +549,18 @@
     "if on, visualAge's ##symbols are allowed (treated like symbols)"
 
     AllowVisualAgeESSymbolLiterals := aBoolean.
+!
+
+allowVisualAgePrimitives
+    "return true, if support for V'Age primitives is enabled."
+
+    ^ AllowVisualAgePrimitives
+!
+
+allowVisualAgePrimitives:aBoolean
+    "this allows turning on/off support for V'Age primitives"
+
+    AllowVisualAgePrimitives := aBoolean
 ! !
 
 !ParserFlags class methodsFor:'accessing-warning-control'!
@@ -790,6 +815,8 @@
     AllowExtendedSTXSyntax := false.
     AllowVisualAgeESSymbolLiterals := false.
     AllowExtensionsToPrivateClasses := true.
+    AllowVisualAgePrimitives := false.
+    AllowSqueakPrimitives := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1131,6 +1158,18 @@
     allowSqueakExtensions := aBoolean
 !
 
+allowSqueakPrimitives
+    "return true, if support for squeak primitives is enabled."
+
+    ^ allowSqueakPrimitives
+!
+
+allowSqueakPrimitives:aBoolean
+    "this allows turning on/off support for squeak primitives"
+
+    allowSqueakPrimitives := aBoolean
+!
+
 allowUnderscoreInIdentifier
     ^ allowUnderscoreInIdentifier
 !
@@ -1153,6 +1192,18 @@
 
 allowVisualAgeESSymbolLiterals:aBoolean
     allowVisualAgeESSymbolLiterals := aBoolean.
+!
+
+allowVisualAgePrimitives
+    "return true, if support for V'Age primitives is enabled."
+
+    ^ allowVisualAgePrimitives
+!
+
+allowVisualAgePrimitives:aBoolean
+    "this allows turning on/off support for V'Age primitives"
+
+    allowVisualAgePrimitives := aBoolean
 ! !
 
 !ParserFlags methodsFor:'accessing-warning-control'!
@@ -1333,6 +1384,8 @@
     allowQualifiedNames := AllowQualifiedNames.
     allowVisualAgeESSymbolLiterals := AllowVisualAgeESSymbolLiterals.
     allowExtensionsToPrivateClasses := AllowExtensionsToPrivateClasses.
+    allowVisualAgePrimitives := AllowVisualAgePrimitives.
+    allowSqueakPrimitives := AllowSqueakPrimitives.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1363,7 +1416,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.11 2006-02-20 09:48:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.12 2006-02-21 16:36:55 cg Exp $'
 ! !
 
 ParserFlags initialize!