ParserFlags.st
changeset 4339 525b013ad75c
parent 4335 d58aa3c7751c
child 4346 1023a1792e57
--- a/ParserFlags.st	Sat Feb 09 12:23:16 2019 +0100
+++ b/ParserFlags.st	Sat Feb 09 15:56:05 2019 +0100
@@ -2174,7 +2174,11 @@
 !
 
 allowExtensionsToPrivateClasses:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowExtensionsToPrivateClasses := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:52:10 / Claus Gittinger"
 !
 
 allowPossibleSTCCompilationProblems
@@ -2184,9 +2188,12 @@
 !
 
 allowPossibleSTCCompilationProblems:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowPossibleSTCCompilationProblems := aBoolean
 
     "Created: / 16-11-2006 / 14:24:56 / cg"
+    "Modified (comment): / 09-02-2019 / 15:53:08 / Claus Gittinger"
 !
 
 arraysAreImmutable
@@ -2412,10 +2419,11 @@
 
 allowArrayIndexSyntaxExtension:aBoolean
     "experimental syntax: var[idx-expr]"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowArrayIndexSyntaxExtension := aBoolean.
 
-    "Modified (comment): / 23-09-2018 / 00:42:27 / Claus Gittinger"
+    "Modified (comment): / 09-02-2019 / 15:51:18 / Claus Gittinger"
 !
 
 allowAssignmentToBlockArgument
@@ -2423,7 +2431,11 @@
 !
 
 allowAssignmentToBlockArgument:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowAssignmentToBlockArgument := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:22 / Claus Gittinger"
 !
 
 allowAssignmentToMethodArgument
@@ -2431,7 +2443,11 @@
 !
 
 allowAssignmentToMethodArgument:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowAssignmentToMethodArgument := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:27 / Claus Gittinger"
 !
 
 allowAssignmentToPoolVariable
@@ -2439,7 +2455,11 @@
 !
 
 allowAssignmentToPoolVariable:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowAssignmentToPoolVariable := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:29 / Claus Gittinger"
 !
 
 allowCStrings
@@ -2449,9 +2469,12 @@
 !
 
 allowCStrings:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowCStrings := aBoolean
 
     "Created: / 08-02-2019 / 18:28:47 / Claus Gittinger"
+    "Modified (comment): / 09-02-2019 / 15:51:33 / Claus Gittinger"
 !
 
 allowCaretAsBinop
@@ -2459,7 +2482,11 @@
 !
 
 allowCaretAsBinop:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowCaretAsBinop := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:38 / Claus Gittinger"
 !
 
 allowCharacterEscapes
@@ -2467,7 +2494,11 @@
 !
 
 allowCharacterEscapes:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowCharacterEscapes := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:41 / Claus Gittinger"
 !
 
 allowDollarInIdentifier
@@ -2475,7 +2506,11 @@
 !
 
 allowDollarInIdentifier:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowDollarInIdentifier := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:47 / Claus Gittinger"
 !
 
 allowDolphinExtensions
@@ -2483,7 +2518,11 @@
 !
 
 allowDolphinExtensions:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowDolphinExtensions := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:51:50 / Claus Gittinger"
 !
 
 allowDomainVariables
@@ -2491,7 +2530,11 @@
 !
 
 allowDomainVariables:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowDomainVariables := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:55 / Claus Gittinger"
 !
 
 allowEmptyStatements
@@ -2501,9 +2544,12 @@
 !
 
 allowEmptyStatements:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowEmptyStatements := aBoolean.
 
     "Created: / 20-11-2006 / 14:26:48 / cg"
+    "Modified (comment): / 09-02-2019 / 15:51:58 / Claus Gittinger"
 !
 
 allowExtendedBinarySelectors
@@ -2511,7 +2557,11 @@
 !
 
 allowExtendedBinarySelectors:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowExtendedBinarySelectors := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:52:01 / Claus Gittinger"
 !
 
 allowExtendedSTXSyntax
@@ -2519,7 +2569,11 @@
 !
 
 allowExtendedSTXSyntax:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowExtendedSTXSyntax := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:52:05 / Claus Gittinger"
 !
 
 allowFixedPointLiterals
@@ -2527,7 +2581,11 @@
 !
 
 allowFixedPointLiterals:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowFixedPointLiterals := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:52:13 / Claus Gittinger"
 !
 
 allowFunctionCallSyntaxForBlockEvaluation
@@ -2537,7 +2595,11 @@
 !
 
 allowFunctionCallSyntaxForBlockEvaluation:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowFunctionCallSyntaxForBlockEvaluation := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:52:19 / Claus Gittinger"
 !
 
 allowHashAsBinarySelector
@@ -2561,7 +2623,11 @@
 !
 
 allowLazyValueExtension:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+    
     allowLazyValueExtension := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:51:08 / Claus Gittinger"
 !
 
 allowLiteralNameSpaceSymbols
@@ -2569,7 +2635,11 @@
 !
 
 allowLiteralNameSpaceSymbols:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowLiteralNameSpaceSymbols := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:52:36 / Claus Gittinger"
 !
 
 allowLocalVariableDeclarationWithInitializerExpression
@@ -2577,7 +2647,11 @@
 !
 
 allowLocalVariableDeclarationWithInitializerExpression:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowLocalVariableDeclarationWithInitializerExpression := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:52:43 / Claus Gittinger"
 !
 
 allowNationalCharactersInIdentifier
@@ -2585,7 +2659,11 @@
 !
 
 allowNationalCharactersInIdentifier:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowNationalCharactersInIdentifier := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:52:46 / Claus Gittinger"
 !
 
 allowOldStyleAssignment
@@ -2596,8 +2674,11 @@
 
 allowOldStyleAssignment:aBoolean
     "return true, if underscore-assignment (pre ST-80v4 syntax) are to be allowed"
-    
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowOldStyleAssignment := aBoolean
+
+    "Modified (format): / 09-02-2019 / 15:52:52 / Claus Gittinger"
 !
 
 allowParagraphInIdentifier
@@ -2607,9 +2688,12 @@
 !
 
 allowParagraphInIdentifier:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowParagraphInIdentifier := aBoolean.
 
     "Created: / 16-11-2016 / 22:29:14 / cg"
+    "Modified (comment): / 09-02-2019 / 15:52:54 / Claus Gittinger"
 !
 
 allowPeriodAsNameSpaceSeparator
@@ -2622,10 +2706,13 @@
 
 allowPeriodAsNameSpaceSeparator:aBoolean
     "experimental syntax: foo.bar"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
 
     allowPeriodAsNameSpaceSeparator := aBoolean
 
     "Created: / 23-09-2018 / 00:49:09 / Claus Gittinger"
+    "Modified (comment): / 09-02-2019 / 15:53:00 / Claus Gittinger"
 !
 
 allowPeriodInSymbol
@@ -2633,7 +2720,11 @@
 !
 
 allowPeriodInSymbol:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowPeriodInSymbol := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:53:02 / Claus Gittinger"
 !
 
 allowQualifiedNames
@@ -2645,7 +2736,11 @@
 !
 
 allowQualifiedNames:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowQualifiedNames := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:53:11 / Claus Gittinger"
 !
 
 allowReservedWordsAsSelectors
@@ -2653,7 +2748,11 @@
 !
 
 allowReservedWordsAsSelectors:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowReservedWordsAsSelectors := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:53:13 / Claus Gittinger"
 !
 
 allowSTVExtensions
@@ -2662,12 +2761,30 @@
     ^ allowSTVExtensions
 !
 
+allowSTVExtensions:aBoolean
+    "if support for ST/V extensions is enabled."
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
+    allowSTVExtensions := aBoolean
+
+    "Created: / 09-02-2019 / 15:53:32 / Claus Gittinger"
+!
+
 allowSTVPrimitives
     "return true, if support for ST/V primitives is enabled."
 
     ^ allowSTVPrimitives
 !
 
+allowSTVPrimitives:aBoolean
+    "if support for ST/V primitives is enabled."
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
+    allowSTVPrimitives := aBoolean
+
+    "Created: / 09-02-2019 / 15:53:53 / Claus Gittinger"
+!
+
 allowSTXDelimiterComments
     "are ST/X token-delimited comments allowed?
      (see comment on class side)"
@@ -2676,8 +2793,9 @@
 !
 
 allowSTXDelimiterComments:aBoolean
-    "are ST/X token-delimited comments allowed?
+    "are ST/X token-delimited comments allowed? (default is true)
      (see comment on class side)"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowSTXDelimiterComments := aBoolean.
 
@@ -2685,6 +2803,8 @@
      ParserFlags allowSTXDelimiterComments:false
      ParserFlags allowSTXDelimiterComments:true
     "
+
+    "Modified (comment): / 09-02-2019 / 15:54:26 / Claus Gittinger"
 !
 
 allowSTXEOLComments
@@ -2694,7 +2814,8 @@
 !
 
 allowSTXEOLComments:aBoolean
-    "are ST/X end-of-line comments allowed?"
+    "are ST/X end-of-line comments allowed? (default is true)"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowSTXEOLComments := aBoolean.
 
@@ -2702,6 +2823,8 @@
      ParserFlags allowSTXEOLComments:false
      ParserFlags allowSTXEOLComments:true
     "
+
+    "Modified (comment): / 09-02-2019 / 15:54:21 / Claus Gittinger"
 !
 
 allowSTXExtendedArrayLiterals
@@ -2712,8 +2835,11 @@
 
 allowSTXExtendedArrayLiterals:aBoolean
     "are scheme-style typed literal arrays allowed?"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowSTXExtendedArrayLiterals := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:54:33 / Claus Gittinger"
 !
 
 allowSTXFunctions
@@ -2727,7 +2853,11 @@
 !
 
 allowSignedByteArrayElements:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowSignedByteArrayElements := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:54:39 / Claus Gittinger"
 !
 
 allowSqueakExtensions
@@ -2741,11 +2871,14 @@
 
 allowSqueakExtensions:aBoolean
     "this allows turning on/off support for squeak extensions:
-	computed arrays { .., }
-	c/java style arguments in message sends rec foo(arg1, ... argN)
+        computed arrays { .., }
+        c/java style arguments in message sends rec foo(arg1, ... argN)
+     attn: possibly sent via perform (Parser >> parsePragma)
     "
 
     allowSqueakExtensions := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:54:53 / Claus Gittinger"
 !
 
 allowSqueakPrimitives
@@ -2756,8 +2889,11 @@
 
 allowSqueakPrimitives:aBoolean
     "this allows turning on/off support for squeak primitives"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowSqueakPrimitives := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:55:01 / Claus Gittinger"
 !
 
 allowStringEscapes
@@ -2765,7 +2901,11 @@
 !
 
 allowStringEscapes:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowStringEscapes := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:55:04 / Claus Gittinger"
 !
 
 allowSymbolsStartingWithDigit
@@ -2781,11 +2921,13 @@
 allowSymbolsStartingWithDigit:aBoolean
     "control if a symbol is allowed to start with a digit
      i.e. as in #2D.
-     This seems to be ok in new Squeak/Pharo versions"
+     This seems to be ok in new Squeak/Pharo versions.
+     attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowSymbolsStartingWithDigit := aBoolean
 
     "Created: / 18-06-2017 / 16:26:23 / cg"
+    "Modified (comment): / 09-02-2019 / 15:55:14 / Claus Gittinger"
 !
 
 allowUnderscoreInIdentifier
@@ -2793,7 +2935,11 @@
 !
 
 allowUnderscoreInIdentifier:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowUnderscoreInIdentifier := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:55:21 / Claus Gittinger"
 !
 
 allowUnicodeCharacters
@@ -2801,7 +2947,11 @@
 !
 
 allowUnicodeCharacters:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowUnicodeCharacters := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:55:25 / Claus Gittinger"
 !
 
 allowUnicodeStrings
@@ -2809,7 +2959,11 @@
 !
 
 allowUnicodeStrings:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowUnicodeStrings := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:55:28 / Claus Gittinger"
 !
 
 allowVariableReferences
@@ -2817,7 +2971,11 @@
 !
 
 allowVariableReferences:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowVariableReferences := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:55:32 / Claus Gittinger"
 !
 
 allowVisualAgeESSymbolLiterals
@@ -2825,7 +2983,11 @@
 !
 
 allowVisualAgeESSymbolLiterals:aBoolean
+    "attn: possibly sent via perform (Parser >> parsePragma)"
+
     allowVisualAgeESSymbolLiterals := aBoolean.
+
+    "Modified (comment): / 09-02-2019 / 15:55:35 / Claus Gittinger"
 !
 
 allowVisualAgePrimitives
@@ -2836,8 +2998,11 @@
 
 allowVisualAgePrimitives:aBoolean
     "this allows turning on/off support for V'Age primitives"
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowVisualAgePrimitives := aBoolean
+
+    "Modified (comment): / 09-02-2019 / 15:55:39 / Claus Gittinger"
 !
 
 allowVisualWorksMethodAnnotations
@@ -2850,10 +3015,12 @@
 
 allowVisualWorksMethodAnnotations:aBoolean
     "turn on/off support for V'Works extended primitive syntax for method annotations."
+    "attn: possibly sent via perform (Parser >> parsePragma)"
 
     allowVisualWorksMethodAnnotations := aBoolean
 
     "Created: / 07-07-2006 / 15:49:03 / cg"
+    "Modified (comment): / 09-02-2019 / 15:55:42 / Claus Gittinger"
 !
 
 warnAssignmentToBlockArgument