# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1559998987 -7200
# Node ID 5155327c7c91eff0ed462db694f87b17da2fa8ad
# Parent  2183c928b524cf890348f4e8fdc8353fe0283baf
#DOCUMENTATION by cg
class: ParserFlags
comment/format in:
	#allowArrayIndexSyntaxExtension
	#allowGreekCharactersInIdentifier:
	#allowJavaScriptConst
	#allowParagraphInIdentifier
	#allowRStrings:
	#singlePrecisionFloatF
	#singlePrecisionFloatF:
category of:
	#warnAssignmentToBlockArgument
	#warnAssignmentToBlockArgument:
	#warnAssignmentToMethodArgument
	#warnAssignmentToMethodArgument:
	#warnAssignmentToPoolVariable
	#warnAssignmentToPoolVariable:

diff -r 2183c928b524 -r 5155327c7c91 ParserFlags.st
--- a/ParserFlags.st	Sat Jun 08 14:55:27 2019 +0200
+++ b/ParserFlags.st	Sat Jun 08 15:03:07 2019 +0200
@@ -2603,7 +2603,7 @@
     ^ allowArrayIndexSyntaxExtension ? false
 
     "Modified: / 08-08-2017 / 16:57:03 / cg"
-    "Modified (comment): / 23-09-2018 / 00:42:23 / Claus Gittinger"
+    "Modified (comment): / 08-06-2019 / 15:00:13 / Claus Gittinger"
 !
 
 allowArrayIndexSyntaxExtension:aBoolean
@@ -2839,6 +2839,8 @@
 !
 
 allowGreekCharactersInIdentifier:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowGreekCharactersInIdentifier := aBoolean
 
     "Created: / 08-06-2019 / 14:54:55 / Claus Gittinger"
@@ -2849,9 +2851,12 @@
 !
 
 allowJavaScriptConst
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     ^ allowJavaScriptConst
 
     "Created: / 08-08-2017 / 23:50:12 / cg"
+    "Modified (comment): / 08-06-2019 / 15:00:52 / Claus Gittinger"
 !
 
 allowJavaScriptConst:aBoolean
@@ -2929,9 +2934,12 @@
 !
 
 allowParagraphInIdentifier
+    "return true, if §-characters are allowed in identifiers (treated as letter)"
+
     ^ allowParagraphInIdentifier
 
     "Created: / 16-11-2016 / 22:29:06 / cg"
+    "Modified (comment): / 08-06-2019 / 14:59:39 / Claus Gittinger"
 !
 
 allowParagraphInIdentifier:aBoolean
@@ -3004,10 +3012,12 @@
     "rstrings have the syntax:
         r'...'
      which generates a regex"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowRStrings := aBoolean
 
     "Created: / 03-06-2019 / 11:11:51 / Claus Gittinger"
+    "Modified (comment): / 08-06-2019 / 15:01:17 / Claus Gittinger"
 !
 
 allowReservedWordsAsSelectors
@@ -3293,7 +3303,7 @@
 singlePrecisionFloatF
     "by default, the 'f'-character in a float literal will generate
      double-precision Float instances.
-     With allowSinglePrecisionFloats, it will generate single precision ShortFloat instances.
+     With singlePrecisionFloats, it will generate single precision ShortFloat instances.
      Notice, that there is some confusion among Smalltalk systems, whether a float has
      single or double precision (VW vs. V'age).
      In ST/X, floats have double-precision by default."
@@ -3301,12 +3311,13 @@
     ^ singlePrecisionFloatF
 
     "Created: / 26-05-2019 / 11:31:37 / Claus Gittinger"
+    "Modified (comment): / 08-06-2019 / 15:02:20 / Claus Gittinger"
 !
 
 singlePrecisionFloatF:aBoolean
     "by default, the 'f'-character in a float literal will generate
      double-precision Float instances.
-     With allowSinglePrecisionFloats, it will generate single precision ShortFloat instances.
+     With singlePrecisionFloats, it will generate single precision ShortFloat instances.
      Notice, that there is some confusion among Smalltalk systems, whether a float has
      single or double precision (VW vs. V'age).
      In ST/X, floats have double-precision by default."
@@ -3314,30 +3325,7 @@
     singlePrecisionFloatF := aBoolean
 
     "Created: / 26-05-2019 / 11:32:11 / Claus Gittinger"
-!
-
-warnAssignmentToBlockArgument
-    ^ warnAssignmentToBlockArgument
-!
-
-warnAssignmentToBlockArgument:aBoolean
-    warnAssignmentToBlockArgument := aBoolean.
-!
-
-warnAssignmentToMethodArgument
-    ^ warnAssignmentToMethodArgument
-!
-
-warnAssignmentToMethodArgument:aBoolean
-    warnAssignmentToMethodArgument := aBoolean.
-!
-
-warnAssignmentToPoolVariable
-    ^ warnAssignmentToPoolVariable
-!
-
-warnAssignmentToPoolVariable:aBoolean
-    warnAssignmentToPoolVariable := aBoolean.
+    "Modified (comment): / 08-06-2019 / 15:02:14 / Claus Gittinger"
 ! !
 
 !ParserFlags methodsFor:'accessing-warning-control'!
@@ -3446,6 +3434,30 @@
     warnAboutWrongVariableNames := aBoolean.
 !
 
+warnAssignmentToBlockArgument
+    ^ warnAssignmentToBlockArgument
+!
+
+warnAssignmentToBlockArgument:aBoolean
+    warnAssignmentToBlockArgument := aBoolean.
+!
+
+warnAssignmentToMethodArgument
+    ^ warnAssignmentToMethodArgument
+!
+
+warnAssignmentToMethodArgument:aBoolean
+    warnAssignmentToMethodArgument := aBoolean.
+!
+
+warnAssignmentToPoolVariable
+    ^ warnAssignmentToPoolVariable
+!
+
+warnAssignmentToPoolVariable:aBoolean
+    warnAssignmentToPoolVariable := aBoolean.
+!
+
 warnCommonMistakes
     ^ warnCommonMistakes
 !