hg/stx-libcomp: comparison ParserFlags.st

equal deleted inserted replaced

-:c43cb9bbd88c
+:c84c3d5a9e50
 "
 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
 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
 "
 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 allowSTVExtensions:true.
-ParserFlags allowSTVPrimitives:true.
+	ParserFlags allowSTVPrimitives:true.
-ParserFlags allowSTXEOLComments:false.
+	ParserFlags allowSTXEOLComments:false.
 for stx debugging:
-STCKeepCIntermediate := true
+	STCKeepCIntermediate := true
 "
 ! !
 !ParserFlags class methodsFor:'instance creation'!
 ArraysAreImmutable := aBoolean.
 "
 can be added to your private.rc file:
 ParserFlags arraysAreImmutable:true
 ParserFlags arraysAreImmutable:false
 "
 !
 fullLineNumberInfo
 ^ (self lineNumberInfo == #full)
 ImplicitSelfSends := aBoolean
 "
 Compiler implicitSelfSends:true
 Compiler implicitSelfSends:false
 "
 !
 lineNumberInfo
 ^ LineNumberInfo
 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-per method flags'!
 disableFlag:flagName forClass:class selector:selector
 "remember that warnings named flagName (such as #warnUnusedVars)
 are disabled for a particular method.
 Sent if user wants to disable warnings in the future
 (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"
 ^ STCKeepCIntermediate ? false
 "Modified: / 16-09-2011 / 19:56:18 / cg"
 !
 stcKeepCIntermediate:something
 STCKeepCIntermediate := something.
 "
 STCKeepCIntermediate := true.
 STCKeepCIntermediate := false.
 ^ STCKeepOIntermediate ? false
 "Modified: / 16-09-2011 / 19:56:49 / cg"
 !
 stcKeepOIntermediate:something
 STCKeepOIntermediate := something.
 !
 stcKeepSTIntermediate
 ^ STCKeepSTIntermediate ? false
 "
 "Modified: / 16-09-2011 / 19:57:17 / cg"
 !
 stcKeepSTIntermediate:something
 STCKeepSTIntermediate := something.
 "
 STCKeepSTIntermediate := true.
 STCKeepSTIntermediate := false.
 stcModulePath
 ^ STCModulePath
 !
 stcModulePath:something
 STCModulePath := something.
 !
 stcPath
 ^ STCPath
 dfn = DefineForMINGW32 ifTrue:[ ^'mingw'].
 dfn = DefineForMINGW ifTrue:[ ^'mingw'].
 "/    dfn = DefineForLCC ifTrue:[ ^'lcc'].
 OperatingSystem isMSWINDOWSlike ifTrue:[
-^ 'bcc'
+	^ 'bcc'
 ].
 ^ 'gcc'
 "
 self usedCompiler
 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"
+	Compiler allowDollarInIdentifiers:false"
 AllowDollarInIdentifier := aBoolean.
 "Created: 7.9.1997 / 01:34:49 / cg"
 "Modified: 7.9.1997 / 01:39:30 / cg"
 !
 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
 "
 self allowExtendedSTXSyntax:true
 'a\tb' inspect.
 'a\u1616b' inspect.
 self allowExtendedSTXSyntax:false
 "
 !
 allowFixedPointLiterals
 "return true, if nnnsn (FixedPoint) literals are allowed"
 allowHashAsBinarySelector:aBoolean
 AllowHashAsBinarySelector := aBoolean
 "
 self allowHashAsBinarySelector:true
 self allowHashAsBinarySelector:false
 "
 !
 allowLiteralNameSpaceSymbols
 "return true, if literal nameSpace symbols are allowed (#foo::bar) are allowed"
 !
 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
 "
 !
 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
 "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"
+	Compiler allowUnderscoreInIdentifiers:false"
 AllowUnderscoreInIdentifier := aBoolean.
 "Modified: 7.9.1997 / 01:35:19 / cg"
 !
 !
 allowVisualAgePrimitives
 "return true, if support for V'Age primitives is enabled."
 ^ AllowVisualAgePrimitives
 "
 AllowVisualAgePrimitives := true
 AllowVisualAgePrimitives := false
 "
 !ParserFlags class methodsFor:'accessing-warning-control'!
 warnAboutBadComments
 "controls generation of warning messages about empty comments"
 ^ WarnAboutBadComments
 !
 warnAboutBadComments:aBoolean
 "controls generation of warning messages about empty comments"
 WarnAboutBadComments := aBoolean
 !
 warnAboutNonLowercaseLocalVariableNames
 "controls generation of warning messages about wrong variable names"
 ^ WarnAboutNonLowercaseLocalVariableNames
 !
 warnAboutNonLowercaseLocalVariableNames:aBoolean
 "controls generation of warning messages about wrong variable names"
 WarnAboutNonLowercaseLocalVariableNames := aBoolean
 !
 warnAboutPeriodInSymbol
 ^ WarnAboutPeriodInSymbol
 !
 warnAboutPeriodInSymbol:aBoolean
 WarnAboutPeriodInSymbol := aBoolean
 !
 warnAboutPossibleSTCCompilationProblems
 ^ WarnAboutPossibleSTCCompilationProblems
 warnAboutPossiblyUnimplementedSelectors:aBoolean
 WarnAboutPossiblyUnimplementedSelectors := aBoolean
 !
 warnAboutReferenceToPrivateClass
 "controls generation of warning messages when a private class is referenced"
 ^ WarnAboutReferenceToPrivateClass
 !
 warnAboutReferenceToPrivateClass:aBoolean
 "controls generation of warning messages when a private class is referenced"
 WarnAboutReferenceToPrivateClass := aBoolean
 !
 warnAboutShortLocalVariableNames
 "controls generation of warning messages about short variable names"
 ^ WarnAboutShortLocalVariableNames
 !
 warnAboutShortLocalVariableNames:aBoolean
 "controls generation of warning messages about short variable names"
 WarnAboutShortLocalVariableNames := aBoolean
 !
 warnAboutUnknownCharacterEscapesInJavaScriptStringConstant
 "things like '\c:foo' instead of '\\c:foo' "
 ^ WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant
 "Created: / 04-10-2011 / 19:54:57 / cg"
 !
 warnAboutUnknownCharacterEscapesInJavaScriptStringConstant:aBoolean
 "things like '\c:foo' instead of '\\c:foo' "
 WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant := aBoolean
 "Created: / 04-10-2011 / 19:54:42 / cg"
 !
 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"
 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"
 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:
-ParserFlags warnDollarInIdentifier:false
+	ParserFlags warnDollarInIdentifier:false
 in your 'private.rc' file"
 WarnDollarInIdentifier := aBoolean
 "Created: / 07-09-1997 / 01:37:42 / cg"
 "Modified: / 05-09-2006 / 11:46:23 / cg"
 !
 warnHiddenVariables
 "controls generation of warning messages about hiding variables by locals"
 ^ WarnHiddenVariables
 !
 warnHiddenVariables:aBoolean
 "controls generation of warning messages about hiding variables by locals"
 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
 "
 ! !
 !ParserFlags class methodsFor:'class initialization'!
 initialize
+|executablePath|
 Warnings := true.
 WarnUndeclared := true.
 WarnUnusedVars := true.
 WarnSTXSpecials := false.
 WarnST80Directives := false.
 WarnAboutPeriodInSymbol := true.
 WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant := false.
 WarnPlausibilityChecks := true.
 WarnAssignmentToBlockArgument := true.
 WarnAssignmentToMethodArgument := true.
 WarnAssignmentToPoolVariable := true.
 AllowReservedWordsAsSelectors := false.
 AllowUnderscoreInIdentifier := true.
 AllowDollarInIdentifier := false.           "/ st80-vms dollars in identifiers
 AllowOldStyleAssignment := true.            "/ st80 underscore as assignment
 AllowDolphinExtensions := false.            "/ dolphin computed literal
 AllowQualifiedNames := false.               "/ vw3 qualified names
 AllowExtendedBinarySelectors := false.      "/ vw5.4 extended binary selectors (plus/minus, center-dot etc.)
 AllowVisualWorksMethodAnnotations := false.
 AllowPossibleSTCCompilationProblems := true.
 AllowEmptyStatements := false.
 AllowPeriodInSymbol := false.
 "/ these are only used by the new compiler
 AllowUnicodeStrings := false.
 AllowUnicodeCharacters := false.
 AllowCharacterEscapes := false.
 AllowStringEscapes := false.
 AllowAssignmentToBlockArgument := false.
 AllowAssignmentToMethodArgument := false.
 DefineForGNUC := '__GNUC__'.
 DefineForMINGW := '__MINGW__'.
 DefineForMINGW32 := '__MINGW32__'.
 DefineForMINGW64 := '__MINGW64__'.
-self initializeSTCFlagsForTopDirectory:
+(executablePath := OperatingSystem pathOfSTXExecutable) notNil ifTrue:[
-OperatingSystem pathOfSTXExecutable asFilename directory directory directory.
+	executablePath := executablePath asFilename directory.
+	(((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+	  or:[
+	    executablePath := executablePath directory.
+	    ((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+	      or:[
+		executablePath := executablePath directory.
+		((executablePath / 'include') exists and:[(executablePath / 'stc') exists])
+	      ]
+	   ]
+	) ifTrue:[
+	    self initializeSTCFlagsForTopDirectory: executablePath.
+	]
+].
 "
 ParserFlags initialize
 "
 |topDir topDirName vcTop sdkTop bccTop useBorlandC useVisualC useMingw m32|
 topDir := topDirArg.
 OperatingSystem isMSWINDOWSlike ifTrue:[
-topDirArg isString ifTrue:[
+	topDirArg isString ifTrue:[
-topDir := topDirArg copyReplaceAll:$/ with:$\.
+	    topDir := topDirArg copyReplaceAll:$/ with:$\.
-]
+	]
 ].
 topDir := topDir asFilename.
 topDirName := topDir name.
 "/ if in the development directory, use ./modules
 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
-STCModulePath := 'modules'.
+	STCModulePath := 'modules'.
 ] ifFalse:[
-STCModulePath := Filename tempDirectory constructString:'modules'.
+	STCModulePath := Filename tempDirectory constructString:'modules'.
 ].
 (topDir construct:'stc') exists ifFalse:[
-('ParserFlags [warning]: stc not found in "',topDirName,'"') infoPrintCR.
+	('ParserFlags [warning]: stc not found in "',topDirName,'"') infoPrintCR.
-'ParserFlags [warning]: stc-compiling (primitive code) will not work in the browser' infoPrintCR.
+	'ParserFlags [warning]: stc-compiling (primitive code) will not work in the browser' infoPrintCR.
-STCCompilation := #never.
+	STCCompilation := #never.
 ].
 OperatingSystem isMSWINDOWSlike ifTrue:[
-useBorlandC := useVisualC := useMingw := false.
+	useBorlandC := useVisualC := useMingw := false.
-STCCompilationIncludes := '-I',topDirName,'\include -I',topDirName,'\libopengl'.
+	STCCompilationIncludes := '-I',topDirName,'\include -I',topDirName,'\libopengl'.
-(bccTop := BCCTop) isNil ifTrue:[
+	(bccTop := BCCTop) isNil ifTrue:[
-bccTop := #(
+	    bccTop := #(
-'C:\Borland\bcc55'
+			'C:\Borland\bcc55'
-) detect:[:path | path asFilename exists and:[(path asFilename construct:'include') exists]] ifNone:nil.
+		       ) detect:[:path | path asFilename exists and:[(path asFilename construct:'include') exists]] ifNone:nil.
-].
+	].
-(bccTop notNil and:[bccTop asFilename exists]) ifTrue:[
+	(bccTop notNil and:[bccTop asFilename exists]) ifTrue:[
-STCCompilationIncludes := STCCompilationIncludes,' -I',bccTop,'\Include'.
+	    STCCompilationIncludes := STCCompilationIncludes,' -I',bccTop,'\Include'.
-LibDirectory := topDirName,'\lib\bc'.
+	    LibDirectory := topDirName,'\lib\bc'.
-LinkArgs := '-L',topDirName,'\lib\bc'.
+	    LinkArgs := '-L',topDirName,'\lib\bc'.
-LinkArgs := LinkArgs,' -L',bccTop,'\Lib -r -c -ap -Tpd -Gi -w-dup'.
+	    LinkArgs := LinkArgs,' -L',bccTop,'\Lib -r -c -ap -Tpd -Gi -w-dup'.
-CCPath := 'bcc32'.
+	    CCPath := 'bcc32'.
-MakeCommand := 'bmake'.
+	    MakeCommand := 'bmake'.
-LinkCommand := 'ilink32'.
+	    LinkCommand := 'ilink32'.
-CCCompilationOptions := '-w-'.
+	    CCCompilationOptions := '-w-'.
-useBorlandC := true.
+	    useBorlandC := true.
-] ifFalse:[
+	] ifFalse:[
-(vcTop := VCTop) isNil ifTrue:[
+	    (vcTop := VCTop) isNil ifTrue:[
-vcTop := #(
+		vcTop := #(
-'C:\Program Files\Microsoft Visual Studio 11.0\VC'
+			    'C:\Program Files\Microsoft Visual Studio 11.0\VC'
-'C:\Program Files\Microsoft Visual Studio 10.0\VC'
+			    'C:\Program Files\Microsoft Visual Studio 10.0\VC'
-'C:\Program Files\Microsoft Visual Studio 9.0\VC'
+			    'C:\Program Files\Microsoft Visual Studio 9.0\VC'
-) detect:[:path | path asFilename exists and:[(path asFilename construct:'bin/cl.exe') exists]] ifNone:nil.
+			  ) detect:[:path | path asFilename exists and:[(path asFilename construct:'bin/cl.exe') exists]] ifNone:nil.
-].
+	    ].
-(vcTop notNil and:[vcTop asFilename exists]) ifTrue:[
+	    (vcTop notNil and:[vcTop asFilename exists]) ifTrue:[
-useVisualC := true.
+		useVisualC := true.
-STCCompilationIncludes := STCCompilationIncludes,' -I',vcTop,'include'.
+		STCCompilationIncludes := STCCompilationIncludes,' -I',vcTop,'include'.
-(sdkTop := SDKTop) isNil ifTrue:[
+		(sdkTop := SDKTop) isNil ifTrue:[
-sdkTop := #(
+		    sdkTop := #(
-'C:\Program Files\Microsoft SDKs\Windows\v7.0A'
+				'C:\Program Files\Microsoft SDKs\Windows\v7.0A'
-'C:\Program Files\Microsoft SDKs\Windows\v6.0A'
+				'C:\Program Files\Microsoft SDKs\Windows\v6.0A'
-) detect:[:path | path asFilename exists and:[(path asFilename construct:'include') exists]] ifNone:nil.
+			      ) detect:[:path | path asFilename exists and:[(path asFilename construct:'include') exists]] ifNone:nil.
-].
+		].
-(sdkTop notNil and:[sdkTop asFilename exists]) ifTrue:[
+		(sdkTop notNil and:[sdkTop asFilename exists]) ifTrue:[
-STCCompilationIncludes := STCCompilationIncludes,' -I',sdkTop,'\include'.
+		    STCCompilationIncludes := STCCompilationIncludes,' -I',sdkTop,'\include'.
-].
+		].
-LibDirectory := topDirName,'\lib\vc'.
+		LibDirectory := topDirName,'\lib\vc'.
-LinkArgs := '-L',topDirName,'\lib\vc'.
+		LinkArgs := '-L',topDirName,'\lib\vc'.
-LinkArgs := LinkArgs,' -r -c -ap -Tpd -Gi -w-dup'.
+		LinkArgs := LinkArgs,' -r -c -ap -Tpd -Gi -w-dup'.
-CCPath := vcTop,'\bin\cl.exe'.
+		CCPath := vcTop,'\bin\cl.exe'.
-LinkCommand := 'ilink32'.
+		LinkCommand := 'ilink32'.
-MakeCommand := 'vcmake'.
+		MakeCommand := 'vcmake'.
-CCCompilationOptions := '/nologo /ZI  /w /GF /EHsc /FR.\objvc\'.
+		CCCompilationOptions := '/nologo /ZI  /w /GF /EHsc /FR.\objvc\'.
-] ifFalse:[
+	    ] ifFalse:[
-"/ add definitions for lcc, mingc etc.
+		"/ add definitions for lcc, mingc etc.
-STCCompilationIncludes := STCCompilationIncludes,' -IC:\xxxxx\Include'.
+		STCCompilationIncludes := STCCompilationIncludes,' -IC:\xxxxx\Include'.
-LibDirectory := topDirName,'\lib\vc'.
+		LibDirectory := topDirName,'\lib\vc'.
-LinkArgs := '-L',topDirName,'\lib\vc'.
+		LinkArgs := '-L',topDirName,'\lib\vc'.
-LinkArgs := LinkArgs,' -r -c -ap -Tpd -Gi -w-dup'.
+		LinkArgs := LinkArgs,' -r -c -ap -Tpd -Gi -w-dup'.
-].
+	    ].
-].
+	].
-STCCompilationDefines := '-DWIN32'.
+	STCCompilationDefines := '-DWIN32'.
-STCCompilationOptions := '+optinline +inlineNew'.
+	STCCompilationOptions := '+optinline +inlineNew'.
-(topDirName,'\stc\stc.exe') asFilename exists ifTrue:[
+	(topDirName,'\stc\stc.exe') asFilename exists ifTrue:[
-STCPath := (topDirName,'\stc\stc.exe').
+	    STCPath := (topDirName,'\stc\stc.exe').
-] ifFalse:[
+	] ifFalse:[
-STCPath := 'stc.exe'.
+	    STCPath := 'stc.exe'.
-].
+	].
-LibPath := ''.
+	LibPath := ''.
-SearchedLibraries := #('import32.lib').
+	SearchedLibraries := #('import32.lib').
-"/ SearchedLibraries := #('import32.lib' 'glu32.lib' 'opengl32.lib').
+	"/ SearchedLibraries := #('import32.lib' 'glu32.lib' 'opengl32.lib').
 ] ifFalse:[
-STCCompilationIncludes := '-I',topDirName,'/include'.
+	STCCompilationIncludes := '-I',topDirName,'/include'.
-STCCompilationDefines := ''.
+	STCCompilationDefines := ''.
-STCCompilationOptions := '+optinline +inlineNew'.
+	STCCompilationOptions := '+optinline +inlineNew'.
-STCPath := topDirName,'/stc/stc'.
+	STCPath := topDirName,'/stc/stc'.
-m32 := ''.
+	m32 := ''.
-(ExternalAddress pointerSize == 4) ifTrue:[
+	(ExternalAddress pointerSize == 4) ifTrue:[
-m32 := ' -m32'
+	    m32 := ' -m32'
-].
+	].
-CCCompilationOptions := OperatingSystem getCPUDefine,
+	CCCompilationOptions := OperatingSystem getCPUDefine,
-' -D', self usedCompilerDefine,
+				' -D', self usedCompilerDefine,
-' ', OperatingSystem getOSDefine,
+				' ', OperatingSystem getOSDefine,
-' ', '-O', m32.
+				' ', '-O', m32.
-ParserFlags useGnuC ifTrue:[
+	ParserFlags useGnuC ifTrue:[
-CCPath := 'gcc'
+	    CCPath := 'gcc'
-] ifFalse:[
+	] ifFalse:[
-CCPath := 'cc'
+	    CCPath := 'cc'
-].
+	].
-LinkArgs := m32.
+	LinkArgs := m32.
-LinkSharedArgs := '-shared', m32.
+	LinkSharedArgs := '-shared', m32.
-LinkCommand := CCPath.
+	LinkCommand := CCPath.
-LibPath := ''.
+	LibPath := ''.
-SearchedLibraries := #().
+	SearchedLibraries := #().
-MakeCommand := 'make'.
+	MakeCommand := 'make'.
 ].
 "
 ParserFlags initializeSTCFlagsForTopDirectory:'../..'
 "
 "Created: / 23-05-2011 / 17:43:45 / cg"
 !
 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
 !
 warnAboutPossiblyUnimplementedSelectors:aBoolean
 warnAboutPossiblyUnimplementedSelectors := aBoolean.
 !
 warnAboutReferenceToPrivateClass
 "controls generation of warning messages when a private class is referenced"
 ^ warnAboutReferenceToPrivateClass
 !
 warnAboutReferenceToPrivateClass:aBoolean
 "controls generation of warning messages when a private class is referenced"
 warnAboutReferenceToPrivateClass := aBoolean
 !
 warnAboutShortLocalVariableNames
 warnAboutPeriodInSymbol := WarnAboutPeriodInSymbol.
 warnAboutUnknownCharacterEscapesInJavaScriptStringConstant := WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant.
 warnPlausibilityChecks := WarnPlausibilityChecks.
 warnAssignmentToBlockArgument := WarnAssignmentToBlockArgument.
 warnAssignmentToMethodArgument := WarnAssignmentToMethodArgument.
 warnAssignmentToPoolVariable := WarnAssignmentToPoolVariable.
 allowUnderscoreInIdentifier := AllowUnderscoreInIdentifier.
 allowDollarInIdentifier := AllowDollarInIdentifier.
 allowOldStyleAssignment := AllowOldStyleAssignment.
 allowSqueakExtensions := AllowSqueakExtensions.
 ! !
 !ParserFlags class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.114 2014-02-28 14:17:02 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.115 2014-02-28 21:46:54 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.114 2014-02-28 14:17:02 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.115 2014-02-28 21:46:54 cg Exp $'
 ! !
 ParserFlags initialize!

changeset 3396	c84c3d5a9e50
parent 3391	94ed984ef38e
child 3455	583dd776d514