--- a/ParserFlags.st	Wed Mar 08 15:05:43 2006 +0100
+++ b/ParserFlags.st	Wed Mar 08 15:06:00 2006 +0100
@@ -34,12 +34,12 @@
 		allowExtensionsToPrivateClasses allowSqueakPrimitives
 		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
 		allowNationalCharactersInIdentifier allowHashAsBinarySelector
-		arraysAreImmutable stringsAreImmutable implicitSelfSends
-		stcKeepCIntermediate stcKeepOIntermediate stcKeepSTIntermediate
-		stcModulePath stcCompilation stcCompilationIncludes
-		stcCompilationDefines stcCompilationOptions stcPath
-		ccCompilationOptions ccPath linkArgs linkCommand libPath
-		searchedLibraries'
+		allowSTXEOLComments 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
@@ -58,10 +58,10 @@
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
 		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives
 		AllowSTVExtensions AllowNationalCharactersInIdentifier
-		AllowHashAsBinarySelector ArraysAreImmutable StringsAreImmutable
-		ImplicitSelfSends STCModulePath STCKeepCIntermediate
-		STCKeepOIntermediate STCKeepSTIntermediate STCCompilation
-		STCCompilationIncludes STCCompilationDefines
+		AllowHashAsBinarySelector AllowSTXEOLComments ArraysAreImmutable
+		StringsAreImmutable ImplicitSelfSends STCModulePath
+		STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate
+		STCCompilation STCCompilationIncludes STCCompilationDefines
 		STCCompilationOptions STCPath CCCompilationOptions CCPath
 		LinkArgs LinkCommand LibPath SearchedLibraries'
 	poolDictionaries:''
@@ -550,6 +550,19 @@
     "
 !
 
+allowSTXEOLComments
+    ^ AllowSTXEOLComments
+!
+
+allowSTXEOLComments:aBoolean
+    AllowSTXEOLComments := aBoolean.
+
+    "
+     self allowSTXEOLComments:true
+     self allowSTXEOLComments:false
+    "
+!
+
 allowSqueakExtensions
     "return true, if support for squeak extensions
         computed arrays { .., }
@@ -890,6 +903,7 @@
     AllowSTVExtensions := false.
     AllowNationalCharactersInIdentifier := false.
     AllowHashAsBinarySelector := true.
+    AllowSTXEOLComments := true.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1237,6 +1251,19 @@
     ^ allowSTVPrimitives
 !
 
+allowSTXEOLComments
+    ^ allowSTXEOLComments
+!
+
+allowSTXEOLComments:aBoolean
+    allowSTXEOLComments := aBoolean.
+
+    "
+     ParserFlags allowSTXEOLComments:false
+     ParserFlags allowSTXEOLComments:true
+    "
+!
+
 allowSqueakExtensions
     "return true, if support for squeak extensions
         computed arrays { .., }
@@ -1487,6 +1514,7 @@
     allowSTVExtensions := AllowSTVExtensions.
     allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
     allowHashAsBinarySelector := AllowHashAsBinarySelector.
+    allowSTXEOLComments := AllowSTXEOLComments.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1517,7 +1545,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.18 2006-03-08 13:30:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.19 2006-03-08 14:06:00 cg Exp $'
 ! !
 
 ParserFlags initialize!