hg/stx-libcomp: comparison ParserFlags.st

equal deleted inserted replaced

-:6ff79c868b94
+:5152078ff118
 "{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 COPYRIGHT (c) 2005 by eXept Software AG
-All Rights Reserved
+	      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
 "{ Package: 'stx:libcomp' }"
 "{ NameSpace: Smalltalk }"
 Object subclass:#ParserFlags
-instanceVariableNames:'warnings warnUnusedVars warnUndeclared warnST80Directives
+	instanceVariableNames:'warnings warnUnusedVars warnUndeclared warnST80Directives
-warnSTXHereExtensionUsed warnSTXSpecialComment
+		warnSTXHereExtensionUsed warnSTXSpecialComment
-warnUnderscoreInIdentifier warnOldStyleAssignment
+		warnUnderscoreInIdentifier warnOldStyleAssignment
-warnCommonMistakes warnSTXNameSpaceUse
+		warnCommonMistakes warnSTXNameSpaceUse
-warnPossibleIncompatibilities warnDollarInIdentifier
+		warnPossibleIncompatibilities warnDollarInIdentifier
-warnParagraphInIdentifier warnHiddenVariables
+		warnParagraphInIdentifier warnHiddenVariables
-warnAboutVariableNameConventions warnAboutWrongVariableNames
+		warnAboutVariableNameConventions warnAboutWrongVariableNames
-warnAboutBadComments warnInconsistentReturnValues
+		warnAboutBadComments warnInconsistentReturnValues
-warnAboutNonLowercaseLocalVariableNames
+		warnAboutNonLowercaseLocalVariableNames
-warnAboutPossibleSTCCompilationProblems
+		warnAboutPossibleSTCCompilationProblems
-warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
+		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
-warnAboutPossiblyUnimplementedSelectors
+		warnAboutPossiblyUnimplementedSelectors
-warnAboutUnknownCharacterEscapesInJavaScriptStringConstant
+		warnAboutUnknownCharacterEscapesInJavaScriptStringConstant
-warnPlausibilityChecks allowLiteralNameSpaceSymbols
+		warnPlausibilityChecks allowLiteralNameSpaceSymbols
-allowUnderscoreInIdentifier allowDollarInIdentifier
+		allowUnderscoreInIdentifier allowDollarInIdentifier
-allowParagraphInIdentifier allowOldStyleAssignment
+		allowParagraphInIdentifier allowOldStyleAssignment
-allowSqueakExtensions allowDolphinExtensions
+		allowSqueakExtensions allowDolphinExtensions
-allowExtendedBinarySelectors allowQualifiedNames
+		allowExtendedBinarySelectors allowQualifiedNames
-allowFunctionCallSyntaxForBlockEvaluation
+		allowFunctionCallSyntaxForBlockEvaluation
-allowLocalVariableDeclarationWithInitializerExpression
+		allowLocalVariableDeclarationWithInitializerExpression
-allowDomainVariables allowArrayIndexSyntaxExtension
+		allowDomainVariables allowArrayIndexSyntaxExtension
-allowReservedWordsAsSelectors allowVariableReferences
+		allowReservedWordsAsSelectors allowVariableReferences
-allowLazyValueExtension allowFixedPointLiterals
+		allowLazyValueExtension allowFixedPointLiterals
-allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
+		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
-allowExtensionsToPrivateClasses allowSqueakPrimitives
+		allowExtensionsToPrivateClasses allowSqueakPrimitives
-allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
+		allowVisualAgePrimitives allowSTVPrimitives allowSTVExtensions
-allowNationalCharactersInIdentifier allowHashAsBinarySelector
+		allowNationalCharactersInIdentifier allowHashAsBinarySelector
-allowSTXEOLComments allowEmptyStatements
+		allowSTXEOLComments allowEmptyStatements
-allowVisualWorksMethodAnnotations
+		allowVisualWorksMethodAnnotations
-allowPossibleSTCCompilationProblems arraysAreImmutable
+		allowPossibleSTCCompilationProblems arraysAreImmutable
-stringsAreImmutable implicitSelfSends stcKeepCIntermediate
+		stringsAreImmutable implicitSelfSends stcKeepCIntermediate
-stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
+		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
-stcCompilation stcCompilationIncludes stcCompilationDefines
+		stcCompilation stcCompilationIncludes stcCompilationDefines
-stcCompilationOptions stcPath ccCompilationOptions ccPath
+		stcCompilationOptions stcPath ccCompilationOptions ccPath
-linkArgs linkSharedArgs linkCommand libPath searchedLibraries
+		linkArgs linkSharedArgs linkCommand libPath searchedLibraries
-warnAboutPeriodInSymbol allowPeriodInSymbol allowCaretAsBinop
+		warnAboutPeriodInSymbol allowPeriodInSymbol allowCaretAsBinop
-allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
+		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
-allowStringEscapes allowAssignmentToBlockArgument
+		allowStringEscapes allowAssignmentToBlockArgument
-allowAssignmentToMethodArgument allowAssignmentToPoolVariable
+		allowAssignmentToMethodArgument allowAssignmentToPoolVariable
-lineNumberInfo allowSTXDelimiterComments
+		lineNumberInfo allowSTXDelimiterComments
-allowSTXExtendedArrayLiterals warnAssignmentToBlockArgument
+		allowSTXExtendedArrayLiterals warnAssignmentToBlockArgument
-warnAssignmentToMethodArgument warnAssignmentToPoolVariable
+		warnAssignmentToMethodArgument warnAssignmentToPoolVariable
-allowSignedByteArrayElements allowSymbolsStartingWithDigit
+		allowSignedByteArrayElements allowSymbolsStartingWithDigit
-allowJavaScriptConst'
+		allowJavaScriptConst'
-classVariableNames:'AllowArrayIndexSyntaxExtension AllowAssignmentToBlockArgument
+	classVariableNames:'AllowArrayIndexSyntaxExtension AllowAssignmentToBlockArgument
-AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
+		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
-AllowCaretAsBinop AllowCharacterEscapes AllowDollarInIdentifier
+		AllowCaretAsBinop AllowCharacterEscapes AllowDollarInIdentifier
-AllowDolphinExtensions AllowDomainVariables AllowEmptyStatements
+		AllowDolphinExtensions AllowDomainVariables AllowEmptyStatements
-AllowExtendedBinarySelectors AllowExtendedSTXSyntax
+		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
-AllowExtensionsToPrivateClasses AllowFixedPointLiterals
+		AllowExtensionsToPrivateClasses AllowFixedPointLiterals
-AllowFunctionCallSyntaxForBlockEvaluation
+		AllowFunctionCallSyntaxForBlockEvaluation
-AllowHashAsBinarySelector AllowLazyValueExtension
+		AllowHashAsBinarySelector AllowLazyValueExtension
-AllowLiteralNameSpaceSymbols
+		AllowLiteralNameSpaceSymbols
-AllowLocalVariableDeclarationWithInitializerExpression
+		AllowLocalVariableDeclarationWithInitializerExpression
-AllowNationalCharactersInIdentifier AllowOldStyleAssignment
+		AllowNationalCharactersInIdentifier AllowOldStyleAssignment
-AllowParagraphInIdentifier AllowPeriodInSymbol
+		AllowParagraphInIdentifier AllowPeriodInSymbol
-AllowPossibleSTCCompilationProblems AllowQualifiedNames
+		AllowPossibleSTCCompilationProblems AllowQualifiedNames
-AllowReservedWordsAsSelectors AllowSTVExtensions
+		AllowReservedWordsAsSelectors AllowSTVExtensions
-AllowSTVPrimitives AllowSTXDelimiterComments AllowSTXEOLComments
+		AllowSTVPrimitives AllowSTXDelimiterComments AllowSTXEOLComments
-AllowSTXExtendedArrayLiterals AllowSqueakExtensions
+		AllowSTXExtendedArrayLiterals AllowSqueakExtensions
-AllowSqueakPrimitives AllowStringEscapes
+		AllowSqueakPrimitives AllowStringEscapes
-AllowUnderscoreInIdentifier AllowUnicodeCharacters
+		AllowUnderscoreInIdentifier AllowUnicodeCharacters
-AllowUnicodeStrings AllowVariableReferences
+		AllowUnicodeStrings AllowVariableReferences
-AllowVisualAgeESSymbolLiterals AllowVisualAgePrimitives
+		AllowVisualAgeESSymbolLiterals AllowVisualAgePrimitives
-AllowVisualWorksMethodAnnotations ArraysAreImmutable BCCTop
+		AllowVisualWorksMethodAnnotations ArraysAreImmutable BCCTop
-CCCompilationOptions CCPath DefineForBorlandC DefineForCLANG
+		CCCompilationOptions CCPath DefineForBorlandC DefineForCLANG
-DefineForGNUC DefineForMINGW DefineForMINGW32 DefineForMINGW64
+		DefineForGNUC DefineForMINGW DefineForMINGW32 DefineForMINGW64
-DefineForMSC DefineForVisualC ForcedCompiler ImplicitSelfSends
+		DefineForMSC DefineForVisualC ForcedCompiler ImplicitSelfSends
-LibDirectory LibPath LineNumberInfo LinkArgs LinkCommand
+		LibDirectory LibPath LineNumberInfo LinkArgs LinkCommand
-LinkSharedArgs MakeCommand MingwTop PerMethodFlags SDKTop
+		LinkSharedArgs MakeCommand MingwTop PerMethodFlags SDKTop
-STCCompilation STCCompilationDefines STCCompilationIncludes
+		STCCompilation STCCompilationDefines STCCompilationIncludes
-STCCompilationOptions STCKeepCIntermediate STCKeepOIntermediate
+		STCCompilationOptions STCKeepCIntermediate STCKeepOIntermediate
-STCKeepSTIntermediate STCModulePath STCPath SearchedLibraries
+		STCKeepSTIntermediate STCModulePath STCPath SearchedLibraries
-StringsAreImmutable VCTop WarnAboutBadComments
+		StringsAreImmutable VCTop WarnAboutBadComments
-WarnAboutNonLowercaseLocalVariableNames WarnAboutPeriodInSymbol
+		WarnAboutNonLowercaseLocalVariableNames WarnAboutPeriodInSymbol
-WarnAboutPossibleSTCCompilationProblems
+		WarnAboutPossibleSTCCompilationProblems
-WarnAboutPossiblyUnimplementedSelectors
+		WarnAboutPossiblyUnimplementedSelectors
-WarnAboutReferenceToPrivateClass WarnAboutShortLocalVariableNames
+		WarnAboutReferenceToPrivateClass WarnAboutShortLocalVariableNames
-WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant
+		WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant
-WarnAboutVariableNameConventions WarnAboutWrongVariableNames
+		WarnAboutVariableNameConventions WarnAboutWrongVariableNames
-WarnAssignmentToBlockArgument WarnAssignmentToMethodArgument
+		WarnAssignmentToBlockArgument WarnAssignmentToMethodArgument
-WarnAssignmentToPoolVariable WarnCommonMistakes
+		WarnAssignmentToPoolVariable WarnCommonMistakes
-WarnDollarInIdentifier WarnHiddenVariables
+		WarnDollarInIdentifier WarnHiddenVariables
-WarnInconsistentReturnValues WarnOldStyleAssignment
+		WarnInconsistentReturnValues WarnOldStyleAssignment
-WarnParagraphInIdentifier WarnPlausibilityChecks
+		WarnParagraphInIdentifier WarnPlausibilityChecks
-WarnPossibleIncompatibilities WarnST80Directives WarnSTXSpecials
+		WarnPossibleIncompatibilities WarnST80Directives WarnSTXSpecials
-WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
+		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
-AutoDefineVariables AllowSignedByteArrayElements
+		AutoDefineVariables AllowSignedByteArrayElements
-AllowSymbolsStartingWithDigit AllowJavaScriptConst
+		AllowSymbolsStartingWithDigit AllowJavaScriptConst
-AllowJavaScriptLet'
+		AllowJavaScriptLet'
-poolDictionaries:''
+	poolDictionaries:''
-category:'System-Compiler'
+	category:'System-Compiler'
 !
 !ParserFlags class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 COPYRIGHT (c) 2005 by eXept Software AG
-All Rights Reserved
+	      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
 (try defining a method with an unused var, to see)"
 |key|
 PerMethodFlags isNil ifTrue:[
-PerMethodFlags := Dictionary new.
+	PerMethodFlags := Dictionary new.
 ].
 key := class name, '>>',selector.
 PerMethodFlags at:key put:(Timestamp now + self perMethodDisableWarningTimeDuration).
 "Created: / 28-02-2012 / 12:57:45 / cg"
 dfn = DefineForMINGW32 ifTrue:[ ^'mingw'].
 dfn = DefineForMINGW ifTrue:[ ^'mingw'].
 "/    dfn = DefineForLCC ifTrue:[ ^'lcc'].
 OperatingSystem isMSWINDOWSlike ifTrue:[
-^ 'bcc'
+	^ 'bcc'
 ].
 ^ 'gcc'
 "
 self usedCompiler
 !
 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"
+	Compiler allowDolphinComputedArrays:true"
 AllowDolphinExtensions := aBoolean.
 "
 self allowDolphinExtensions:true
 !
 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
+	Compiler allowQualifiedNames:true
 Notice, that qualified names are not really supported semantically
 (they are parsed, but treated like regular globals)
 "
 AllowQualifiedNames := aBoolean.
 !
 allowSTVExtensions:aBoolean
 "this allows turning on/off support for ST/V extensions:
 If you want to fileIn ST/V classes, enable this with:
-Compiler allowSTVComputedArrays:true"
+	Compiler allowSTVComputedArrays:true"
 AllowSTVExtensions := aBoolean.
 "
 ParserFlags allowSTVExtensions:true
 !
 allowSTXDelimiterComments:aBoolean
 "enable token delimited comments;
 these are multiline comments of the form:
-''>>TOKEN
+	''>>TOKEN
-... anything, including double quotes
+	   ... anything, including double quotes
-TOKEN>>''
+	TOKEN>>''
 (the '' being a double quote in the above)
 Such comments are especially useful to comment pieces of sample code, which may
 contain another comment in it, but you don't want to make them all EOL comments
 (which are an ST/X speciality also, by the way).
 Be aware, that no other smalltalk supports this, so your code becomes harder to port, if you use it.
 AllowSignedByteArrayElements := aBoolean
 !
 allowSqueakExtensions
 "return true, if support for squeak extensions
-computed arrays { .., }
+	computed arrays { .., }
-c/java style arguments in message sends rec foo(arg1, ... argN)
+	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 { .., }
+	computed arrays { .., }
-c/java style arguments in message sends rec foo(arg1, ... argN)
+	c/java style arguments in message sends rec foo(arg1, ... argN)
 If you want to fileIn Squeak classes, enable this with:
-Compiler allowSqueakComputedArrays:true"
+	Compiler allowSqueakComputedArrays:true"
 AllowSqueakExtensions := aBoolean.
 "
 self allowSqueakExtensions:true
 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"
+	Compiler allowUnderscoreInIdentifiers:false"
 AllowUnderscoreInIdentifier := aBoolean.
 "Modified: 7.9.1997 / 01:35:19 / cg"
 !
 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:
-ParserFlags warnCommonMistakes:false
+	ParserFlags warnCommonMistakes:false
 in your 'private.rc' file"
 WarnCommonMistakes := aBoolean
 "Modified: / 05-09-2006 / 11:46:26 / cg"
 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:
-ParserFlags warnOldStyleAssignment:false
+	ParserFlags warnOldStyleAssignment:false
 in your 'private.rc' file"
 WarnOldStyleAssignment := aBoolean
 "Modified: / 05-09-2006 / 11:46:17 / 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:
-ParserFlags warnPossibleIncompatibilities:false
+	ParserFlags warnPossibleIncompatibilities:false
 in your 'private.rc' file."
 WarnPossibleIncompatibilities := aBoolean
 "Created: / 23-05-1997 / 12:02:45 / cg"
 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:
-ParserFlags warnSTXSpecials:false
+	ParserFlags warnSTXSpecials:false
 in your 'private.rc' file"
 WarnSTXSpecials := aBoolean
 "Modified: / 05-09-2006 / 11:46:11 / cg"
 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:
-ParserFlags warnUnderscoreInIdentifier:false
+	ParserFlags warnUnderscoreInIdentifier:false
 in your 'private.rc' file"
 WarnUnderscoreInIdentifier := aBoolean
 "Modified: / 05-09-2006 / 11:46:08 / cg"
 !
 warnings:aBoolean
 "this allows turning on/off all warnings; the default is on.
 You can turn off warnings in your 'private.rc' file with
-ParserFlags warnings:false
+	 ParserFlags warnings:false
 "
 Warnings := aBoolean
 "
 notice: for now, can only initialize for borland+windows or linux;
 visualC setup still fails."
 |topDir topDirName vcTop sdkTop bccTop mingwTop
 borlandDir useBorlandC useVisualC useMingw32 useMingw64
-programFiles archArg picArg|
+programFiles archArg picArg optArg|
 topDir := topDirArg.
 OperatingSystem isMSWINDOWSlike ifTrue:[
 topDirArg isString ifTrue:[
 topDir := topDirArg copyReplaceAll:$/ with:$\ ifNone:topDirArg.
 STCCompilationDefines := ''.
 STCCompilationOptions := '+optinline +inlineNew'.
 STCPath := topDirName,'/stc/stc'.
 archArg := picArg := ''.
+optArg := '-O'.
 (ExternalBytes sizeofPointer == 4) ifTrue:[
 archArg := ' -m32'
 ] ifFalse:[
 archArg := ' -m64'.            "gcc -m64 needs -fPIC to make a shared library"
 picArg := ' -fPIC'.
 ].
-CCCompilationOptions := STCCompilerInterface getCPUDefine,
+self useClang ifTrue:[
-' -D', self usedCompilerDefine,
-' ', STCCompilerInterface getOSDefine,
-' ', '-O', archArg, picArg.
-ParserFlags useClang ifTrue:[
 CCPath := 'clang'
 ] ifFalse:[
-ParserFlags useGnuC ifTrue:[
+self useGnuC ifTrue:[
-CCPath := 'gcc'
+CCPath := 'gcc'.
+optArg := '-O2 -fno-toplevel-reorder -fno-stack-protector'.
 ] ifFalse:[
 CCPath := 'cc'
 ].
 ].
+CCCompilationOptions := STCCompilerInterface getCPUDefine,
+' -D', self usedCompilerDefine,
+' ', STCCompilerInterface getOSDefine,
+' ', optArg, archArg, picArg.
 LinkArgs := archArg.
 LinkCommand := CCPath.
 LinkSharedArgs := '-shared'.
 OperatingSystem isOSXlike ifTrue:[
 ParserFlags initialize
 "
 "Modified: / 09-08-2006 / 18:47:18 / fm"
 "Created: / 06-08-2011 / 19:47:47 / cg"
+"Modified: / 11-05-2018 / 14:18:42 / stefan"
 ! !
 !ParserFlags methodsFor:'accessing'!
 fullLineNumberInfo
 allowSignedByteArrayElements := aBoolean
 !
 allowSqueakExtensions
 "return true, if support for squeak extensions
-computed arrays { .., }
+	computed arrays { .., }
-c/java style arguments in message sends rec foo(arg1, ... argN)
+	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 { .., }
+	computed arrays { .., }
-c/java style arguments in message sends rec foo(arg1, ... argN)
+	c/java style arguments in message sends rec foo(arg1, ... argN)
 "
 allowSqueakExtensions := aBoolean
 !

changeset 4256	5152078ff118
parent 4255	6ff79c868b94
child 4279	5d61e0122b4e