Mercurial Mercurial > hg > stx-libcomp / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ParserFlags.st
changeset 3462 896d56e60c6a
parent 3455 583dd776d514
child 3500 60e5d213dd64 
--- a/ParserFlags.st	Sun Jun 01 19:32:15 2014 +0200
+++ b/ParserFlags.st	Mon Jun 02 15:52:08 2014 +0200
@@ -1538,7 +1538,7 @@
     AllowNationalCharactersInIdentifier := false.
     AllowHashAsBinarySelector := true.
     AllowSTXEOLComments := true.
-    AllowSTXDelimiterComments := false.         "/ until stc and RBScanner support it also
+    AllowSTXDelimiterComments := true.         "/ until stc and RBScanner support it also
     AllowVisualWorksMethodAnnotations := false.
     AllowPossibleSTCCompilationProblems := true.
     AllowEmptyStatements := false.
@@ -1573,19 +1573,19 @@
     DefineForMINGW64 := '__MINGW64__'.
 
     (executablePath := OperatingSystem pathOfSTXExecutable) notNil ifTrue:[
-	executablePath := executablePath asFilename directory.
-	(((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
-	  or:[
-	    executablePath := executablePath directory.
-	    ((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
-	      or:[
-		executablePath := executablePath directory.
-		((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
-	      ]
-	   ]
-	) ifTrue:[
-	    self initializeSTCFlagsForTopDirectory: executablePath.
-	]
+        executablePath := executablePath asFilename directory.
+        (((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+          or:[
+            executablePath := executablePath directory.
+            ((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+              or:[
+                executablePath := executablePath directory.
+                ((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+              ]
+           ]
+        ) ifTrue:[
+            self initializeSTCFlagsForTopDirectory: executablePath.
+        ]
     ].
 
     "
@@ -2643,11 +2643,11 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.116 2014-05-29 12:35:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.117 2014-06-02 13:52:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.116 2014-05-29 12:35:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.117 2014-06-02 13:52:08 cg Exp $'
 ! !
hg/stx-libcomp