ParserFlags.st
changeset 4436 2183c928b524
parent 4430 25c8c1a7a28b
child 4437 5155327c7c91
equal deleted inserted replaced
4435:10a6786b7d87 4436:2183c928b524
    60 		allowSTXExtendedArrayLiterals warnAssignmentToBlockArgument
    60 		allowSTXExtendedArrayLiterals warnAssignmentToBlockArgument
    61 		warnAssignmentToMethodArgument warnAssignmentToPoolVariable
    61 		warnAssignmentToMethodArgument warnAssignmentToPoolVariable
    62 		allowSignedByteArrayElements allowSymbolsStartingWithDigit
    62 		allowSignedByteArrayElements allowSymbolsStartingWithDigit
    63 		allowJavaScriptConst allowPeriodAsNameSpaceSeparator
    63 		allowJavaScriptConst allowPeriodAsNameSpaceSeparator
    64 		allowCStrings warnAboutPossiblyUninitializedLocals allowEStrings
    64 		allowCStrings warnAboutPossiblyUninitializedLocals allowEStrings
    65 		singlePrecisionFloatF allowRStrings'
    65 		singlePrecisionFloatF allowRStrings
       
    66 		allowGreekCharactersInIdentifier'
    66 	classVariableNames:'AllowArrayIndexSyntaxExtension AllowAssignmentToBlockArgument
    67 	classVariableNames:'AllowArrayIndexSyntaxExtension AllowAssignmentToBlockArgument
    67 		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
    68 		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
    68 		AllowCaretAsBinop AllowCharacterEscapes AllowDollarInIdentifier
    69 		AllowCaretAsBinop AllowCharacterEscapes AllowDollarInIdentifier
    69 		AllowDolphinExtensions AllowDomainVariables AllowEmptyStatements
    70 		AllowDolphinExtensions AllowDomainVariables AllowEmptyStatements
    70 		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
    71 		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
   108 		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
   109 		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
   109 		AutoDefineVariables AllowSignedByteArrayElements
   110 		AutoDefineVariables AllowSignedByteArrayElements
   110 		AllowSymbolsStartingWithDigit AllowJavaScriptConst
   111 		AllowSymbolsStartingWithDigit AllowJavaScriptConst
   111 		AllowJavaScriptLet AllowPeriodAsNameSpaceSeparator AllowCStrings
   112 		AllowJavaScriptLet AllowPeriodAsNameSpaceSeparator AllowCStrings
   112 		WarnAboutPossiblyUninitializedLocals AllowEStrings
   113 		WarnAboutPossiblyUninitializedLocals AllowEStrings
   113 		SinglePrecisionFloatF AllowRStrings'
   114 		SinglePrecisionFloatF AllowRStrings
       
   115 		AllowGreekCharactersInIdentifier'
   114 	poolDictionaries:''
   116 	poolDictionaries:''
   115 	category:'System-Compiler'
   117 	category:'System-Compiler'
   116 !
   118 !
   117 
   119 
   118 !ParserFlags class methodsFor:'documentation'!
   120 !ParserFlags class methodsFor:'documentation'!
  1024     "experimental"
  1026     "experimental"
  1025 
  1027 
  1026     AllowFunctionCallSyntaxForBlockEvaluation := aBoolean.
  1028     AllowFunctionCallSyntaxForBlockEvaluation := aBoolean.
  1027 !
  1029 !
  1028 
  1030 
       
  1031 allowGreekCharactersInIdentifier
       
  1032     "return true, if greek characters (alpha, beta etc.) are allowed in identifiers"
       
  1033 
       
  1034     ^ AllowGreekCharactersInIdentifier
       
  1035 
       
  1036     "Created: / 08-06-2019 / 14:52:29 / Claus Gittinger"
       
  1037 !
       
  1038 
       
  1039 allowGreekCharactersInIdentifier:aBoolean
       
  1040     "are greek characters (alpha, beta etc.) are allowed in identifiers.
       
  1041      Use this ONLY to file in some non-ANSI ST code"
       
  1042 
       
  1043     AllowGreekCharactersInIdentifier := aBoolean
       
  1044 
       
  1045     "Created: / 08-06-2019 / 14:54:04 / Claus Gittinger"
       
  1046 !
       
  1047 
  1029 allowHashAsBinarySelector
  1048 allowHashAsBinarySelector
  1030     "if true, a free-standing single '#' is allowed as a binary selector.
  1049     "if true, a free-standing single '#' is allowed as a binary selector.
  1031      The default is true."
  1050      The default is true."
  1032     
  1051     
  1033     ^ AllowHashAsBinarySelector
  1052     ^ AllowHashAsBinarySelector
  1990     AllowSqueakExtensions := true.              "/ squeak computed array
  2009     AllowSqueakExtensions := true.              "/ squeak computed array
  1991     AllowSqueakPrimitives := false.
  2010     AllowSqueakPrimitives := false.
  1992     AllowSTVPrimitives := false.                "/ number-sign syntax
  2011     AllowSTVPrimitives := false.                "/ number-sign syntax
  1993     AllowSTVExtensions := false.
  2012     AllowSTVExtensions := false.
  1994     AllowNationalCharactersInIdentifier := false.
  2013     AllowNationalCharactersInIdentifier := false.
       
  2014     AllowGreekCharactersInIdentifier := false.
  1995     AllowHashAsBinarySelector := true.
  2015     AllowHashAsBinarySelector := true.
  1996     AllowSTXEOLComments := true.
  2016     AllowSTXEOLComments := true.
  1997     AllowSTXDelimiterComments := true.         "/ until stc and RBScanner support it also
  2017     AllowSTXDelimiterComments := true.         "/ until stc and RBScanner support it also
  1998     AllowVisualWorksMethodAnnotations := false.
  2018     AllowVisualWorksMethodAnnotations := false.
  1999     AllowPossibleSTCCompilationProblems := true. "/ must be true, to allow fileIn!!
  2019     AllowPossibleSTCCompilationProblems := true. "/ must be true, to allow fileIn!!
  2092     "
  2112     "
  2093 
  2113 
  2094     "Modified: / 09-08-2006 / 18:47:18 / fm"
  2114     "Modified: / 09-08-2006 / 18:47:18 / fm"
  2095     "Modified: / 08-08-2017 / 23:49:41 / cg"
  2115     "Modified: / 08-08-2017 / 23:49:41 / cg"
  2096     "Modified (comment): / 11-05-2018 / 10:12:29 / stefan"
  2116     "Modified (comment): / 11-05-2018 / 10:12:29 / stefan"
  2097     "Modified: / 03-06-2019 / 11:12:55 / Claus Gittinger"
  2117     "Modified: / 08-06-2019 / 14:53:27 / Claus Gittinger"
  2098 !
  2118 !
  2099 
  2119 
  2100 initializeSTCFlagsForTopDirectory:topDirArg
  2120 initializeSTCFlagsForTopDirectory:topDirArg
  2101     "topDirArg must be the stx directory (where stc directory with stc-executable is found)
  2121     "topDirArg must be the stx directory (where stc directory with stc-executable is found)
  2102      notice: for now, can only initialize for borland+windows or linux;
  2122      notice: for now, can only initialize for borland+windows or linux;
  2810     allowFunctionCallSyntaxForBlockEvaluation := aBoolean.
  2830     allowFunctionCallSyntaxForBlockEvaluation := aBoolean.
  2811 
  2831 
  2812     "Modified (comment): / 09-02-2019 / 15:52:19 / Claus Gittinger"
  2832     "Modified (comment): / 09-02-2019 / 15:52:19 / Claus Gittinger"
  2813 !
  2833 !
  2814 
  2834 
       
  2835 allowGreekCharactersInIdentifier
       
  2836     ^ allowGreekCharactersInIdentifier
       
  2837 
       
  2838     "Created: / 08-06-2019 / 14:52:42 / Claus Gittinger"
       
  2839 !
       
  2840 
       
  2841 allowGreekCharactersInIdentifier:aBoolean
       
  2842     allowGreekCharactersInIdentifier := aBoolean
       
  2843 
       
  2844     "Created: / 08-06-2019 / 14:54:55 / Claus Gittinger"
       
  2845 !
       
  2846 
  2815 allowHashAsBinarySelector
  2847 allowHashAsBinarySelector
  2816     ^ allowHashAsBinarySelector
  2848     ^ allowHashAsBinarySelector
  2817 !
  2849 !
  2818 
  2850 
  2819 allowJavaScriptConst
  2851 allowJavaScriptConst
  3633     allowVisualAgePrimitives := AllowVisualAgePrimitives.
  3665     allowVisualAgePrimitives := AllowVisualAgePrimitives.
  3634     allowSqueakPrimitives := AllowSqueakPrimitives.
  3666     allowSqueakPrimitives := AllowSqueakPrimitives.
  3635     allowSTVPrimitives := AllowSTVPrimitives.
  3667     allowSTVPrimitives := AllowSTVPrimitives.
  3636     allowSTVExtensions := AllowSTVExtensions.
  3668     allowSTVExtensions := AllowSTVExtensions.
  3637     allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
  3669     allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
       
  3670     allowGreekCharactersInIdentifier := AllowGreekCharactersInIdentifier.
  3638     allowHashAsBinarySelector := AllowHashAsBinarySelector.
  3671     allowHashAsBinarySelector := AllowHashAsBinarySelector.
  3639     allowSTXEOLComments := AllowSTXEOLComments.
  3672     allowSTXEOLComments := AllowSTXEOLComments.
  3640     allowSTXDelimiterComments := AllowSTXDelimiterComments.
  3673     allowSTXDelimiterComments := AllowSTXDelimiterComments.
  3641     allowSTXExtendedArrayLiterals := AllowSTXExtendedArrayLiterals.
  3674     allowSTXExtendedArrayLiterals := AllowSTXExtendedArrayLiterals.
  3642     allowVisualWorksMethodAnnotations := AllowVisualWorksMethodAnnotations.
  3675     allowVisualWorksMethodAnnotations := AllowVisualWorksMethodAnnotations.
  3686      ParserFlags initialize.
  3719      ParserFlags initialize.
  3687      self new inspect.
  3720      self new inspect.
  3688     "
  3721     "
  3689 
  3722 
  3690     "Modified: / 08-08-2017 / 23:50:01 / cg"
  3723     "Modified: / 08-08-2017 / 23:50:01 / cg"
  3691     "Modified: / 03-06-2019 / 11:13:07 / Claus Gittinger"
  3724     "Modified: / 08-06-2019 / 14:53:04 / Claus Gittinger"
  3692 ! !
  3725 ! !
  3693 
  3726 
  3694 !ParserFlags class methodsFor:'documentation'!
  3727 !ParserFlags class methodsFor:'documentation'!
  3695 
  3728 
  3696 version
  3729 version