"

 COPYRIGHT (c) 1989 by Claus Gittinger

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libcomp' }"

Object subclass:#ParserFlags

	instanceVariableNames:'warnUnusedVars warnUndeclared warnST80Directives

		warnSTXHereExtensionUsed warnSTXSpecialComment

		warnUnderscoreInIdentifier warnOldStyleAssignment

		warnCommonMistakes warnSTXNameSpaceUse

		warnPossibleIncompatibilities warnDollarInIdentifier

		warnHiddenVariables warnAboutVariableNameConventions

		allowLocalVariableDeclarationWithInitializerExpression

		allowDomainVariables allowArrayIndexSyntaxExtension

		allowReservedWordsAsSelectors allowVariableReferences

		allowLazyValueExtension allowFixedPointLiterals

		allowExtendedSTXSyntax arraysAreImmutable stringsAreImmutable

		implicitSelfSends'

	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared

		WarnCommonMistakes WarnPossibleIncompatibilities

		WarnDollarInIdentifier WarnHiddenVariables Warnings

		AllowUnderscoreInIdentifier

		AllowFunctionCallSyntaxForBlockEvaluation AllowLazyValueExtension

		AllowVariableReferences AllowReservedWordsAsSelectors

		AllowLocalVariableDeclarationWithInitializerExpression

		AllowArrayIndexSyntaxExtension AllowDomainVariables

		AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames

		AllowDolphinExtensions AllowOldStyleAssignment

		AllowExtendedBinarySelectors AllowExtendedSTXSyntax

		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols

		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends'

	poolDictionaries:''

	category:'System-Compiler'

!

!ParserFlags class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    compiler flags (used to be defined in Scanner and Parser) have been extracted for easier

    individual-method customization (using ST as scripting).

"

! !

!ParserFlags class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!ParserFlags class methodsFor:'accessing-compilation control'!

arraysAreImmutable

    "return true if arrays are immutable literals"

    ^ ArraysAreImmutable

!

arraysAreImmutable:aBoolean

    "turn on/off immutable array literals - default is false for ST-80 compatibilty."

    ArraysAreImmutable := aBoolean.

    "

     can be added to your private.rc file:

     ParserFlags arraysAreImmutable:true     

     ParserFlags arraysAreImmutable:false      

    "

!

implicitSelfSends

    "return true if undefined variables with

     lowercase first character are to be turned

     into implicit self sends"

    ^ ImplicitSelfSends

!

implicitSelfSends:aBoolean

    "turn on/off implicit self sends"

    ImplicitSelfSends := aBoolean

    "

     Compiler implicitSelfSends:true

     Compiler implicitSelfSends:false 

    "

!

stringsAreImmutable

    "return true if strings are immutable literals"

    ^ StringsAreImmutable

    "Created: / 3.8.1998 / 14:53:25 / cg"

!

stringsAreImmutable:aBoolean

    "turn on/off immutable string literals - default is false for ST-80 compatibilty."

    StringsAreImmutable := aBoolean.

    "

     can be added to your private.rc file:

     ParserFlags stringsAreImmutable:true     

     ParserFlags stringsAreImmutable:false      

    "

    "Created: / 3.8.1998 / 14:53:28 / cg"

! !

!ParserFlags class methodsFor:'accessing-syntax-control'!

allowArrayIndexSyntaxExtension

    "experimental"

    ^ AllowArrayIndexSyntaxExtension ? false

!

allowArrayIndexSyntaxExtension:aBoolean

    "experimental"

    AllowArrayIndexSyntaxExtension := aBoolean.

    "

     self allowArrayIndexSyntaxExtension:true

     self allowArrayIndexSyntaxExtension:false

    "

!

allowDollarInIdentifier

    "return true, if $-characters are allowed in identifiers.

     Notice, that dollars are NEVER allowed as the first character in an identifier."

    ^ AllowDollarInIdentifier

    "Created: 7.9.1997 / 01:32:18 / cg"

    "Modified: 7.9.1997 / 01:39:44 / cg"

!

allowDollarInIdentifier:aBoolean

    "this allows turning on/off $-characters in identifiers.

     Notice, that dollars are NEVER allowed as the first character in an identifier.

     If turned off (the default), dollars are not allowed in identifiers,

     but instead are scanned as character-constant prefix.

     If turned on, dollars are in identifiers are allowed, while extra

     dollars are still scanned as constant character prefix.

     If you have to fileIn old VW-Vsn2.x classes, turn this off

     before filing them in; i.e.:

        Compiler allowDollarInIdentifiers:false"

    AllowDollarInIdentifier := aBoolean.

    "Created: 7.9.1997 / 01:34:49 / cg"

    "Modified: 7.9.1997 / 01:39:30 / cg"

!

allowDolphinExtensions

    "return true, if ##(..) computed literals are allowed"

    ^ AllowDolphinExtensions

!

allowDolphinExtensions:aBoolean

    "this allows turning on/off support for computed arrays ##(..) as in dolphin.

     If you want to fileIn Dolphin classes, enable this with:

        Compiler allowDolphinComputedArrays:true"

    AllowDolphinExtensions := aBoolean.

    "

     self allowDolphinExtensions:true

     self allowDolphinExtensions:false

    "

!

allowFunctionCallSyntaxForBlockEvaluation

    "experimental"

    ^ AllowFunctionCallSyntaxForBlockEvaluation

!

allowFunctionCallSyntaxForBlockEvaluation:aBoolean

    "experimental"

    AllowFunctionCallSyntaxForBlockEvaluation := aBoolean.

!

allowLiteralNameSpaceSymbols

    "return true, if literal nameSpace symbols are allowed (#foo::bar) are allowed"

    ^ AllowLiteralNameSpaceSymbols

!

allowLiteralNameSpaceSymbols:aBoolean

    "controls, if literal nameSpace symbols are allowed (#foo::bar) are allowed"

    AllowLiteralNameSpaceSymbols := aBoolean

!

allowLocalVariableDeclarationWithInitializerExpression

    "experimental"

    ^ AllowLocalVariableDeclarationWithInitializerExpression

!

allowLocalVariableDeclarationWithInitializerExpression:aBoolean

    "experimental"

    AllowLocalVariableDeclarationWithInitializerExpression := aBoolean.

!

allowOldStyleAssignment

    "return true, if underscore-assignment (pre ST-80v4 syntax) are to be allowed"

    ^ AllowOldStyleAssignment

!

allowOldStyleAssignment:aBoolean

    "this allows turning on/off recognition of underscore-assignment (pre ST-80v4 syntax).

     You must turn this off, if code with variables named '_' is to be filedIn"

    AllowOldStyleAssignment := aBoolean

!

allowQualifiedNames

    "return true, if #{..} qualified names are allowed"

    ^ AllowQualifiedNames

!

allowQualifiedNames:aBoolean

    "this allows turning on/off support for qualifiedNames #{ .., } as in vw3.

     If you want to fileIn vw3 or later classes, enable this with:

        Compiler allowQualifiedNames:true

     Notice, that qualified names are not really supported semantically

     (they are parsed, but treated like regular globals)

    "

    AllowQualifiedNames := aBoolean.

    "

     self allowQualifiedNames:true

     self allowQualifiedNames:false

    "

!

allowReservedWordsAsSelectors

    "return true, if self, super, thisContext, nil, true and false are to be allowed

     as unary message selectors."

    ^ AllowReservedWordsAsSelectors ? false

!

allowReservedWordsAsSelectors:aBoolean

    "enable/disable, if self, super, thisContext, nil, true and false are to be allowed

     as unary message selectors."

    AllowReservedWordsAsSelectors := aBoolean.

    "

     self allowReservedWordsAsSelectors:true

     self allowReservedWordsAsSelectors:false

    "

!

allowSqueakExtensions

    "return true, if support for squeak extensions

        computed arrays { .., }

        c/java style arguments in message sends rec foo(arg1, ... argN)

     is enabled."

    ^ AllowSqueakExtensions

!

allowSqueakExtensions:aBoolean

    "this allows turning on/off support for squeak extensions:

        computed arrays { .., }

        c/java style arguments in message sends rec foo(arg1, ... argN)

     If you want to fileIn Squeak classes, enable this with:

        Compiler allowSqueakComputedArrays:true"

    AllowSqueakExtensions := aBoolean.

    "

     self allowSqueakExtensions:true

     self allowSqueakExtensions:false

    "

!

allowUnderscoreInIdentifier

    "return true, if underscores are allowed in identifiers"

    ^ AllowUnderscoreInIdentifier

!

allowUnderscoreInIdentifier:aBoolean

    "this allows turning on/off underscores in identifiers.

     If turned off (the default), underscores are not allowed in identifiers,

     but instead scanned as assignment character (old ST/80 syntax).

     If turned on, underscores are in identifiers are allowed, while extra

     underscores are still scanned as assignment.

     If you have to fileIn old VW-Vsn2.x classes, 

     turn them off with:

        Compiler allowUnderscoreInIdentifiers:false"

    AllowUnderscoreInIdentifier := aBoolean.

    "Modified: 7.9.1997 / 01:35:19 / cg"

! !

!ParserFlags class methodsFor:'accessing-warning-control'!

warnAboutVariableNameConventions 

    "controls generation of warning messages about wrong variable names"

    ^ WarnAboutVariableNameConventions

!

warnAboutVariableNameConventions:aBoolean 

    "controls generation of warning messages about wrong variable names"

    WarnAboutVariableNameConventions := aBoolean

!

warnAboutWrongVariableNames

    "controls generation of warning messages about wrong variable names"

    ^ WarnAboutWrongVariableNames

!

warnAboutWrongVariableNames:aBoolean

    "controls generation of warning messages about wrong variable names"

    WarnAboutWrongVariableNames := aBoolean

!

warnCommonMistakes

    "return true, if common beginners mistakes are to be warned about"

    ^ Warnings and:[WarnCommonMistakes]

!

warnCommonMistakes:aBoolean

    "this allows turning on/off warnings about common beginners mistakes.

     Those are not really errors in the strict sense, but often lead to

     run time errors later.

     Examples are: expr or:expr2, where expr2 is not a block.

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnCommonMistakes:false

     in your 'private.rc' file"

    WarnCommonMistakes := aBoolean

!

warnDollarInIdentifier

    "return true, if $-characters in identifiers are to be warned about"

    ^ Warnings and:[WarnDollarInIdentifier]

    "Created: 7.9.1997 / 01:36:17 / cg"

!

warnDollarInIdentifier:aBoolean

    "this allows turning on/off warnings about $-characters in identifiers.

     You may find those warnings useful, to make certain that your code

     is portable to other smalltalk versions, which do not allow this

     (i.e. VW releases 2.x and maybe others).

     Notice, that dollars are NEVER allowed as the first character in an identifier.

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnDollarInIdentifier:false

     in your 'private.rc' file"

    WarnDollarInIdentifier := aBoolean

    "Created: 7.9.1997 / 01:37:42 / cg"

    "Modified: 7.9.1997 / 01:40:02 / cg"

!

warnOldStyleAssignment

    "return true, if underscore-assignment (pre ST-80v4 syntax) are to be warned about"

    ^ Warnings and:[WarnOldStyleAssignment]

!

warnOldStyleAssignment:aBoolean

    "this allows turning on/off warnings about underscore-assignment (pre ST-80v4 syntax).

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnOldStyleAssignment:false

     in your 'private.rc' file"

    WarnOldStyleAssignment := aBoolean

!

warnPossibleIncompatibilities

    "return true, if possible incompatibilities (with other ST systems)

     are to be warned about"

    ^ Warnings and:[WarnPossibleIncompatibilities]

    "Modified: 23.5.1997 / 12:02:02 / cg"

!

warnPossibleIncompatibilities:aBoolean

    "this turns warnings about possible incompatibilities (with other ST systems)

     on or off.

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnPossibleIncompatibilities:false

     in your 'private.rc' file."

    WarnPossibleIncompatibilities := aBoolean

    "Created: 23.5.1997 / 12:02:45 / cg"

!

warnSTXSpecials

    "return true, if ST/X specials are to be warned about"

    ^ Warnings and:[WarnSTXSpecials]

!

warnSTXSpecials:aBoolean

    "this allows turning on/off warnings about stx specials.

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnSTXSpecials:false

     in your 'private.rc' file"

    WarnSTXSpecials := aBoolean

!

warnUnderscoreInIdentifier

    "return true, if underscores in identifiers are to be warned about"

    ^ Warnings and:[WarnUnderscoreInIdentifier]

!

warnUnderscoreInIdentifier:aBoolean

    "this allows turning on/off warnings about underscores in identifiers.

     You may find those warnings useful, to make certain that your code

     is portable to other smalltalk versions, which do not allow this

     (i.e. VW releases 2.x).

     If you get bored by those warnings, turn them off by adding

     a line as:

        Compiler warnUnderscoreInIdentifier:false

     in your 'private.rc' file"

    WarnUnderscoreInIdentifier := aBoolean

    "Modified: 7.9.1997 / 01:37:13 / cg"

!

warnUnusedVars

    "controls generation of warning messages about unued method variables"

    ^ WarnUnusedVars

!

warnUnusedVars:aBoolean

    "controls generation of warning messages about unued method variables"

    WarnUnusedVars := aBoolean

!

warnings

    "return true, if any warnings are to be shown"

    ^ Warnings

!

warnings:aBoolean

    "this allows turning on/off all warnings; the default is on.

     You can turn off warnings in your 'private.rc' file with