--- a/ParserFlags.st	Tue Nov 13 14:03:03 2012 +0100
+++ b/ParserFlags.st	Tue Nov 13 14:03:33 2012 +0100
@@ -51,7 +51,7 @@
 		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
 		allowStringEscapes allowAssignmentToBlockArgument
 		allowAssignmentToMethodArgument allowAssignmentToPoolVariable
-		lineNumberInfo'
+		lineNumberInfo allowSTXDelimiterComments'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -90,7 +90,7 @@
 		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
 		LineNumberInfo LibDirectory VCTop SDKTop BCCTop ForcedCompiler
 		DefineForBorlandC DefineForVisualC DefineForMSVER DefineForMSC
-		DefineForGNUC PerMethodFlags'
+		DefineForGNUC PerMethodFlags AllowSTXDelimiterComments'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -935,6 +935,19 @@
     "
 !
 
+allowSTXDelimiterComments
+    ^ AllowSTXDelimiterComments
+!
+
+allowSTXDelimiterComments:aBoolean
+    AllowSTXDelimiterComments := aBoolean.
+
+    "
+     self allowSTXDelimiterComments:true
+     self allowSTXDelimiterComments:false
+    "
+!
+
 allowSTXEOLComments
     ^ AllowSTXEOLComments
 !
@@ -1446,6 +1459,7 @@
     AllowNationalCharactersInIdentifier := false.
     AllowHashAsBinarySelector := true.
     AllowSTXEOLComments := true.
+    AllowSTXDelimiterComments := false.         "/ until stc and RBScanner support it also
     AllowVisualWorksMethodAnnotations := false.
     AllowPossibleSTCCompilationProblems := true.
     AllowEmptyStatements := false.
@@ -2015,6 +2029,19 @@
     ^ allowSTVPrimitives
 !
 
+allowSTXDelimiterComments
+    ^ allowSTXDelimiterComments
+!
+
+allowSTXDelimiterComments:aBoolean
+    allowSTXDelimiterComments := aBoolean.
+
+    "
+     ParserFlags allowSTXDelimiterComments:false
+     ParserFlags allowSTXDelimiterComments:true
+    "
+!
+
 allowSTXEOLComments
     ^ allowSTXEOLComments
 !
@@ -2434,6 +2461,7 @@
     allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
     allowHashAsBinarySelector := AllowHashAsBinarySelector.
     allowSTXEOLComments := AllowSTXEOLComments.
+    allowSTXDelimiterComments := AllowSTXDelimiterComments.
     allowVisualWorksMethodAnnotations := AllowVisualWorksMethodAnnotations.
     allowPossibleSTCCompilationProblems := AllowPossibleSTCCompilationProblems.
     allowEmptyStatements := AllowEmptyStatements.
@@ -2479,11 +2507,11 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.96 2012-10-31 16:33:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.97 2012-11-13 13:03:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.96 2012-10-31 16:33:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.97 2012-11-13 13:03:33 cg Exp $'
 ! !
 
 ParserFlags initialize!