"

 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:'warnings warnUnusedVars warnUndeclared warnST80Directives

		warnSTXHereExtensionUsed warnSTXSpecialComment

		warnUnderscoreInIdentifier warnOldStyleAssignment

		warnCommonMistakes warnSTXNameSpaceUse

		warnPossibleIncompatibilities warnDollarInIdentifier

		warnHiddenVariables warnAboutVariableNameConventions

		warnAboutWrongVariableNames warnAboutBadComments

		warnInconsistentReturnValues

		warnAboutNonLowercaseLocalVariableNames

		warnAboutPossibleSTCCompilationProblems

		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames

		warnAboutPossiblyUnimplementedSelectors

		allowLiteralNameSpaceSymbols allowUnderscoreInIdentifier

		allowDollarInIdentifier allowOldStyleAssignment

		allowSqueakExtensions allowDolphinExtensions

		allowExtendedBinarySelectors allowQualifiedNames

		allowFunctionCallSyntaxForBlockEvaluation

		allowLocalVariableDeclarationWithInitializerExpression

		allowDomainVariables allowArrayIndexSyntaxExtension

		allowReservedWordsAsSelectors allowVariableReferences

		allowLazyValueExtension allowFixedPointLiterals

		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals

		allowExtensionsToPrivateClasses allowSqueakPrimitives

		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions

		allowNationalCharactersInIdentifier allowHashAsBinarySelector

		allowSTXEOLComments allowEmptyStatements

		allowVisualWorksMethodAnnotations

		allowPossibleSTCCompilationProblems arraysAreImmutable

		stringsAreImmutable implicitSelfSends stcKeepCIntermediate

		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath

		stcCompilation stcCompilationIncludes stcCompilationDefines

		stcCompilationOptions stcPath ccCompilationOptions ccPath

		linkArgs linkSharedArgs linkCommand libPath searchedLibraries

		warnAboutPeriodInSymbol allowPeriodInSymbol allowCaretAsBinop

		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes

		allowStringEscapes'

	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared

		WarnAboutWrongVariableNames WarnAboutBadComments

		WarnAboutVariableNameConventions WarnSTXSpecials

		WarnOldStyleAssignment WarnUnderscoreInIdentifier

		WarnCommonMistakes WarnPossibleIncompatibilities

		WarnDollarInIdentifier WarnHiddenVariables

		WarnAboutNonLowercaseLocalVariableNames

		WarnInconsistentReturnValues Warnings

		WarnAboutPossibleSTCCompilationProblems

		WarnAboutReferenceToPrivateClass WarnAboutShortLocalVariableNames

		WarnAboutPossiblyUnimplementedSelectors WarnAboutPeriodInSymbol

		AllowUnderscoreInIdentifier

		AllowFunctionCallSyntaxForBlockEvaluation AllowLazyValueExtension

		AllowVariableReferences AllowReservedWordsAsSelectors

		AllowLocalVariableDeclarationWithInitializerExpression

		AllowArrayIndexSyntaxExtension AllowDomainVariables

		AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames

		AllowDolphinExtensions AllowOldStyleAssignment

		AllowExtendedBinarySelectors AllowExtendedSTXSyntax

		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols

		AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses

		AllowSqueakPrimitives AllowVisualAgePrimitives AllowSTVPrimitives

		AllowSTVExtensions AllowNationalCharactersInIdentifier

		AllowHashAsBinarySelector AllowSTXEOLComments

		AllowPossibleSTCCompilationProblems AllowEmptyStatements

		AllowVisualWorksMethodAnnotations ArraysAreImmutable

		AllowPeriodInSymbol StringsAreImmutable ImplicitSelfSends

		STCModulePath STCKeepCIntermediate STCKeepOIntermediate

		STCKeepSTIntermediate STCCompilation STCCompilationIncludes

		STCCompilationDefines STCCompilationOptions STCPath

		CCCompilationOptions CCPath LinkArgs LinkSharedArgs LinkCommand

		LibPath SearchedLibraries MakeCommand AllowCaretAsBinop

		AllowUnicodeStrings AllowUnicodeCharacters AllowCharacterEscapes

		AllowStringEscapes'

	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).

    howTo_fileInVSE:

        ParserFlags allowSTVExtensions:true.

        ParserFlags allowSTVPrimitives:true.

        ParserFlags allowSTXEOLComments:false.

    for stx debugging:

        STCKeepCIntermediate := true

"

! !

!ParserFlags class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

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

allowExtensionsToPrivateClasses

    ^ AllowExtensionsToPrivateClasses

!

allowExtensionsToPrivateClasses:aBoolean

    AllowExtensionsToPrivateClasses := aBoolean

!

allowPossibleSTCCompilationProblems

    ^ AllowPossibleSTCCompilationProblems

    "Created: / 16-11-2006 / 14:31:36 / cg"

!

allowPossibleSTCCompilationProblems:aBoolean

    AllowPossibleSTCCompilationProblems := aBoolean

    "Created: / 16-11-2006 / 14:31:40 / cg"

!

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-stc compilation control'!

ccCompilationOptions

    ^ CCCompilationOptions ? ''

!

ccCompilationOptions:aString

    CCCompilationOptions := aString

!

ccPath

    ^ CCPath

!

ccPath:aSymbol

    CCPath := aSymbol

!

libPath

    ^ LibPath

!

libPath:aString

    LibPath := aString

!

linkArgs

    ^ LinkArgs

!

linkArgs:aString

    LinkArgs := aString

!

linkCommand

    ^ LinkCommand

!

linkCommand:aString

    LinkCommand := aString

!

linkSharedArgs

    ^ LinkSharedArgs

!

linkSharedArgs:aString

    LinkSharedArgs := aString

!

makeCommand

    ^ MakeCommand

    "Created: / 09-08-2006 / 18:45:04 / fm"

!

makeCommand:aString

    MakeCommand := aString

    "Created: / 09-08-2006 / 18:45:12 / fm"

!

searchedLibraries

    ^ SearchedLibraries

!

searchedLibraries:aString

    SearchedLibraries := aString

!

stcCompilation

    ^ STCCompilation

!

stcCompilation:aSymbol

    STCCompilation := aSymbol

!

stcCompilationDefines

    ^ STCCompilationDefines

!

stcCompilationDefines:aString

    STCCompilationDefines := aString

!

stcCompilationIncludes

    ^ STCCompilationIncludes

!

stcCompilationIncludes:aString

    STCCompilationIncludes := aString

!

stcCompilationOptions

    ^ STCCompilationOptions

!

stcCompilationOptions:aString

    STCCompilationOptions := aString

!

stcKeepCIntermediate

    ^ STCKeepCIntermediate

!

stcKeepCIntermediate:something 

    STCKeepCIntermediate := something.

    "

     STCKeepCIntermediate := true.

     STCKeepCIntermediate := false.

    "

    "Modified: / 07-11-2006 / 10:58:42 / cg"

!

stcKeepOIntermediate

    ^ STCKeepOIntermediate

!

stcKeepOIntermediate:something 

    STCKeepOIntermediate := something.

!

stcKeepSTIntermediate

    ^ STCKeepSTIntermediate

    "

     STCKeepSTIntermediate := true.

     STCKeepSTIntermediate := false.

    "

!

stcKeepSTIntermediate:something 

    STCKeepSTIntermediate := something.

    "

     STCKeepSTIntermediate := true.

     STCKeepSTIntermediate := false.

    "

    "Modified: / 07-11-2006 / 10:58:54 / cg"

!

stcModulePath

    ^ STCModulePath

!

stcModulePath:something 

    STCModulePath := something.

!

stcPath

    ^ STCPath

!

stcPath:aSymbol

    STCPath := aSymbol

!

useBorlandC

"/    ^ true.

    ^ OperatingSystem getCCDefine ='__BORLANDC__'

    "Created: / 15-03-2007 / 13:33:32 / cg"

!

useGnuC

    ^ OperatingSystem getCCDefine = '__GNUC__'

    "Created: / 15-03-2007 / 13:34:49 / cg"

!

withSTCCompilation:howSymbol do:aBlock

    |prev|

    prev := self stcCompilation.

    self stcCompilation:howSymbol.

    aBlock ensure:[ self stcCompilation:prev ]

! !

!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

    "

!

allowEmptyStatements

    "return true, if empty statements are allowed (two .'s in a row).

     Notice, that stc cannot (yet) handle those."

    ^ AllowEmptyStatements

    "Created: / 20-11-2006 / 14:29:02 / cg"

!

allowEmptyStatements:aBoolean

    "turn on/off, if empty statements are allowed (two .'s in a row).

     Notice, that stc cannot (yet) handle those."

    AllowEmptyStatements := aBoolean

    "Created: / 20-11-2006 / 14:29:15 / cg"

!

allowExtendedBinarySelectors

    "experimental extended selectors extensions"

    ^ AllowExtendedBinarySelectors

    "

     ParserFlags allowExtendedBinarySelectors

     ParserFlags allowExtendedBinarySelectors:false

     ParserFlags allowExtendedBinarySelectors:true

    "

!

allowExtendedBinarySelectors:aBoolean

    "experimental syntay extensions"

    AllowExtendedBinarySelectors := aBoolean

!

allowExtendedSTXSyntax

    "experimental syntay extensions"

    ^ AllowExtendedSTXSyntax

!

allowExtendedSTXSyntax:aBoolean

    "experimental syntay extensions"

    AllowExtendedSTXSyntax := aBoolean