--- a/ParserFlags.st	Mon Nov 20 12:34:54 2006 +0100
+++ b/ParserFlags.st	Mon Nov 20 14:30:08 2006 +0100
@@ -36,14 +36,14 @@
 		allowExtensionsToPrivateClasses allowSqueakPrimitives
 		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
 		allowNationalCharactersInIdentifier allowHashAsBinarySelector
-		allowSTXEOLComments arraysAreImmutable stringsAreImmutable
-		implicitSelfSends stcKeepCIntermediate stcKeepOIntermediate
-		stcKeepSTIntermediate stcModulePath stcCompilation
-		stcCompilationIncludes stcCompilationDefines
+		allowSTXEOLComments allowEmptyStatements
+		allowVisualWorksMethodAnnotations
+		allowPossibleSTCCompilationProblems arraysAreImmutable
+		stringsAreImmutable implicitSelfSends stcKeepCIntermediate
+		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
+		stcCompilation stcCompilationIncludes stcCompilationDefines
 		stcCompilationOptions stcPath ccCompilationOptions ccPath
-		linkArgs linkSharedArgs linkCommand libPath searchedLibraries
-		allowVisualWorksMethodAnnotations
-		allowPossibleSTCCompilationProblems'
+		linkArgs linkSharedArgs linkCommand libPath searchedLibraries'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -51,7 +51,9 @@
 		WarnCommonMistakes WarnPossibleIncompatibilities
 		WarnDollarInIdentifier WarnHiddenVariables
 		WarnAboutNonLowercaseLocalVariableNames
-		WarnInconsistentReturnValues Warnings AllowUnderscoreInIdentifier
+		WarnInconsistentReturnValues Warnings
+		WarnAboutPossibleSTCCompilationProblems
+		AllowUnderscoreInIdentifier
 		AllowFunctionCallSyntaxForBlockEvaluation AllowLazyValueExtension
 		AllowVariableReferences AllowReservedWordsAsSelectors
 		AllowLocalVariableDeclarationWithInitializerExpression
@@ -63,15 +65,15 @@
 		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses
 		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives
 		AllowSTVExtensions AllowNationalCharactersInIdentifier
-		AllowHashAsBinarySelector AllowSTXEOLComments ArraysAreImmutable
+		AllowHashAsBinarySelector AllowSTXEOLComments
+		AllowPossibleSTCCompilationProblems AllowEmptyStatements
+		AllowVisualWorksMethodAnnotations ArraysAreImmutable
 		StringsAreImmutable ImplicitSelfSends STCModulePath
 		STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate
 		STCCompilation STCCompilationIncludes STCCompilationDefines
 		STCCompilationOptions STCPath CCCompilationOptions CCPath
 		LinkArgs LinkSharedArgs LinkCommand LibPath SearchedLibraries
-		AllowVisualWorksMethodAnnotations MakeCommand
-		AllowPossibleSTCCompilationProblems
-		WarnAboutPossibleSTCCompilationProblems'
+		MakeCommand'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -423,6 +425,24 @@
     "
 !
 
+allowEmptyStatements
+    "return true, if empty statements are allowed (two .'s in a row).
+     Notice, that stc cannot (yet) handle those."
+
+    ^ AllowEmptyStatements
+
+    "Created: / 20-11-2006 / 14:29:02 / cg"
+!
+
+allowEmptyStatements:aBoolean
+    "turn on/off, if empty statements are allowed (two .'s in a row).
+     Notice, that stc cannot (yet) handle those."
+
+    AllowEmptyStatements := aBoolean
+
+    "Created: / 20-11-2006 / 14:29:15 / cg"
+!
+
 allowExtendedSTXSyntax
     "experimental syntay extensions"
 
@@ -1024,6 +1044,7 @@
     AllowSTXEOLComments := true.
     AllowVisualWorksMethodAnnotations := false.
     AllowPossibleSTCCompilationProblems := true.
+    AllowEmptyStatements := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1081,7 +1102,7 @@
     "
 
     "Modified: / 09-08-2006 / 18:47:18 / fm"
-    "Modified: / 16-11-2006 / 14:25:32 / cg"
+    "Modified: / 20-11-2006 / 14:27:45 / cg"
 ! !
 
 !ParserFlags methodsFor:'accessing-compilation control'!
@@ -1298,6 +1319,18 @@
     allowDomainVariables := aBoolean.
 !
 
+allowEmptyStatements
+    ^ allowEmptyStatements ? false
+
+    "Created: / 20-11-2006 / 13:56:14 / cg"
+!
+
+allowEmptyStatements:aBoolean
+    allowEmptyStatements := aBoolean.
+
+    "Created: / 20-11-2006 / 14:26:48 / cg"
+!
+
 allowExtendedBinarySelectors
     ^ allowExtendedBinarySelectors
 !
@@ -1706,6 +1739,7 @@
     allowSTXEOLComments := AllowSTXEOLComments.
     allowVisualWorksMethodAnnotations := AllowVisualWorksMethodAnnotations.
     allowPossibleSTCCompilationProblems := AllowPossibleSTCCompilationProblems.
+    allowEmptyStatements := AllowEmptyStatements.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1732,13 +1766,13 @@
      self new inspect.
     "
 
-    "Modified: / 16-11-2006 / 14:25:42 / cg"
+    "Modified: / 20-11-2006 / 14:28:02 / cg"
 ! !
 
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.34 2006-11-16 13:44:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.35 2006-11-20 13:30:08 cg Exp $'
 ! !
 
 ParserFlags initialize!