--- a/ParserFlags.st	Wed Mar 08 14:30:30 2006 +0100
+++ b/ParserFlags.st	Wed Mar 08 14:30:42 2006 +0100
@@ -33,6 +33,7 @@
 		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
 		allowExtensionsToPrivateClasses allowSqueakPrimitives
 		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
+		allowNationalCharactersInIdentifier allowHashAsBinarySelector
 		arraysAreImmutable stringsAreImmutable implicitSelfSends
 		stcKeepCIntermediate stcKeepOIntermediate stcKeepSTIntermediate
 		stcModulePath stcCompilation stcCompilationIncludes
@@ -56,7 +57,8 @@
 		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
 		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives
-		AllowSTVExtensions ArraysAreImmutable StringsAreImmutable
+		AllowSTVExtensions AllowNationalCharactersInIdentifier
+		AllowHashAsBinarySelector ArraysAreImmutable StringsAreImmutable
 		ImplicitSelfSends STCModulePath STCKeepCIntermediate
 		STCKeepOIntermediate STCKeepSTIntermediate STCCompilation
 		STCCompilationIncludes STCCompilationDefines
@@ -405,6 +407,19 @@
     AllowFunctionCallSyntaxForBlockEvaluation := aBoolean.
 !
 
+allowHashAsBinarySelector
+    ^ AllowHashAsBinarySelector
+!
+
+allowHashAsBinarySelector:aBoolean
+    AllowHashAsBinarySelector := aBoolean
+
+    "
+     self allowHashAsBinarySelector:true
+     self allowHashAsBinarySelector:false   
+    "
+!
+
 allowLiteralNameSpaceSymbols
     "return true, if literal nameSpace symbols are allowed (#foo::bar) are allowed"
 
@@ -429,6 +444,23 @@
     AllowLocalVariableDeclarationWithInitializerExpression := aBoolean.
 !
 
+allowNationalCharactersInIdentifier
+    "return true, if national characters (diaresis etc.) are allowed in identifiers"
+
+    ^ AllowNationalCharactersInIdentifier
+!
+
+allowNationalCharactersInIdentifier:aBoolean
+    "this allows turning on/off recognition of national characters (diaresis etc.) in identifiers.
+     Use this ONLY to file in some non-ANSI ST/V code"
+
+    AllowNationalCharactersInIdentifier := aBoolean
+
+    "
+     ParserFlags allowNationalCharactersInIdentifier:true
+    "
+!
+
 allowOldStyleAssignment
     "return true, if underscore-assignment (pre ST-80v4 syntax) are to be allowed"
 
@@ -856,6 +888,8 @@
     AllowSqueakPrimitives := false.
     AllowSTVPrimitives := false.                "/ number-sign syntax
     AllowSTVExtensions := false.
+    AllowNationalCharactersInIdentifier := false.
+    AllowHashAsBinarySelector := true.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1131,6 +1165,10 @@
     allowFunctionCallSyntaxForBlockEvaluation := aBoolean.
 !
 
+allowHashAsBinarySelector
+    "/  ^ allowHashAsBinarySelector
+!
+
 allowLazyValueExtension
     ^ allowLazyValueExtension
 !
@@ -1155,6 +1193,14 @@
     allowLocalVariableDeclarationWithInitializerExpression := aBoolean.
 !
 
+allowNationalCharactersInIdentifier
+    ^ allowNationalCharactersInIdentifier
+!
+
+allowNationalCharactersInIdentifier:aBoolean
+    allowNationalCharactersInIdentifier := aBoolean
+!
+
 allowOldStyleAssignment
     ^ allowOldStyleAssignment
 !
@@ -1439,6 +1485,8 @@
     allowSqueakPrimitives := AllowSqueakPrimitives.
     allowSTVPrimitives := AllowSTVPrimitives.
     allowSTVExtensions := AllowSTVExtensions.
+    allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
+    allowHashAsBinarySelector := AllowHashAsBinarySelector.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1469,7 +1517,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.17 2006-03-08 12:26:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.18 2006-03-08 13:30:42 cg Exp $'
 ! !
 
 ParserFlags initialize!