"*

 * Encoding: iso8859-1

 *

 * $Header$

 *

 * MIMEType: application/x-smalltalk-source

 *

 * ST/X startup configuration file - for win95, win98 and winNT OS.

 *

 * DONT add site specific things here - use your own h_xxx.rc file instead

 * where xxx stands for your hostname(s)

 *"

!

"/ look in registry for LibDir ...

|k rel curr libDir|

rel := Smalltalk versionString.

k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).

k isNil ifTrue:[

    k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.

    k notNil ifTrue:[

	curr := k valueNamed:'CurrentVersion'.

	curr isString ifTrue:[

	    k close.

	    k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).

	]

    ]

].

k notNil ifTrue:[

    libDir := k valueNamed:'LibDir'.

    (libDir notNil and:[libDir asFilename exists]) ifTrue:[

	(Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[

	    Smalltalk systemPath addFirst:(libDir asFilename pathName).

	    Smalltalk flushPathCaches

	]

    ].

    k close.

].

!

|incl libs tryPathesForBin path usedCompiler

 bccPath msvcPath mingw64Path mingw32Path

 searchedLibraries

 linkCommand linkArgs ccCommand ccCompilationOptions

 |

false "Smalltalk wasStartedFromImage" ifFalse:[

    incl := #(

		'-I..\..\include'

		"/ '-I..\..\libopengl'

	    ).

    tryPathesForBin := [:pathes |

	|foundPath|

	pathes do:[:eachPath |

	    |thisPath|

	    (thisPath := eachPath asFilename) exists ifTrue:[

		foundPath := thisPath

	    ].

	].

	foundPath

    ].

    "/

    "/ right now, stx can be used with one of:

    "/     - borland C-compiler (bcc32).

    "/     - visual studio C (actually: SDK) (msc)

    "/     - mingw64 gcc

    "/ uncomment one of the following to enforce a compiler

    "/ bccPath := 'C:\borland\bcc55\bin'.

    "/ msvcPath := 'C:\Programme\Microsoft Visual Studio 10.0\VC\bin'.

    "/ mingw64Path := 'C:\mingw64\bin'.

    "/ mingw32Path := 'C:\mingw\bin'.

    "/ or take a look what we find installed:

    path := (OperatingSystem getEnvironment:'PATH') asCollectionOfSubstringsSeparatedBy:$;.

    ExternalBytes sizeofPointer == 8 ifTrue:[

	mingw64Path := path detect:[:d | d asLowercase includesString:'mingw'] ifNone:nil.

	mingw64Path isNil ifTrue:[

	    mingw64Path := tryPathesForBin value:

			    #(

				'C:\Programme\mingw64\bin'

				'C:\Programme\mingw-w64\mingw64\bin'

				'C:\Programme\mingw-w64\mingw\bin'

				'C:\Programs\mingw64\bin'

				'C:\Programs\mingw-w64\mingw64\bin'

				'C:\Programs\mingw-w64\mingw\bin'

				'C:\Program Files\mingw64\bin'

				'C:\Program Files\mingw-w64\mingw64\bin'

				'C:\Program Files\mingw-w64\mingw\bin'

				'C:\mingw64\bin'

				'C:\mingw-w64\mingw64\bin'

			    ).

	].

    ] ifFalse:[

	mingw32Path := path detect:[:d | d asLowercase includesString:'mingw'] ifNone:nil.

	mingw32Path isNil ifTrue:[

	    mingw32Path := tryPathesForBin value:

			    #(

				'C:\Programme\mingw\bin'

				'C:\Programme\mingw-w32\mingw32\bin'

				'C:\Programme\mingw-w32\mingw\bin'

				'C:\Programs\mingw\bin'

				'C:\Programs\mingw-w32\mingw32\bin'

				'C:\Programs\mingw-w32\mingw\bin'

				'C:\Program Files\mingw\bin'

				'C:\Program Files\mingw-w32\mingw32\bin'

				'C:\Program Files\mingw-w32\mingw\bin'

				'C:\mingw\bin'

				'C:\mingw-w32\mingw32\bin'

				'C:\mingw-w32\mingw\bin'

			    ).

	].

	bccPath := path detect:[:d | d asLowercase includesString:'borland'] ifNone:nil.

	bccPath isNil ifTrue:[

	    bccPath := tryPathesForBin value:

			    #(

				'C:\Programme\borland\bcc55\bin'

				'C:\Programs\borland\bcc55\bin'

				'C:\Program Files\borland\bcc55\bin'

				'C:\borland\bcc55\bin'

			    ).

	].

	msvcPath isNil ifTrue:[

	    msvcPath := tryPathesForBin value:

			    #(

				'C:\Programme\Microsoft Visual Studio 11.0\VC\bin'

				'C:\Programme\Microsoft Visual Studio 10.0\VC\bin'

				'C:\Programme\Microsoft Visual Studio 9.0\VC\bin'

				'C:\Programme\Microsoft Visual Studio 8.0\VC\bin'

				'C:\Program Files\Microsoft Visual Studio 11.0\VC\bin'

				'C:\Program Files\Microsoft Visual Studio 10.0\VC\bin'

				'C:\Program Files\Microsoft Visual Studio 9.0\VC\bin'

				'C:\Program Files\Microsoft Visual Studio 8.0\VC\bin'

			    ).

	].

    ].

    bccPath notNil ifTrue:[

	"/ borland

	ExternalBytes sizeofPointer == 8 ifTrue:[

	    'host.rc [info]: ignore bcc32 compiler (cannot be used with 64 bit architecture)' infoPrintCR.

	] ifFalse:[

	    'host.rc [info]: setup for borland bcc32 compiler' infoPrintCR.

	    bccPath := bccPath asFilename.

	    "/ 'host.rc [info]: bccPath=' infoPrint. bccPath infoPrintCR.

	    ccCommand := (bccPath / 'bcc32') pathName.

	    linkCommand := (bccPath / 'ilink32') pathName.

	    bccPath := bccPath directory.

	    'host.rc [info]: bccPath=' infoPrint. bccPath pathName infoPrintCR.

	    libs := #(

		    '-L..\..\lib\bc'

		    ).

	    incl := incl copyWith: ( '-I',(bccPath / 'include') pathName ).

	    libs := libs copyWith: ( '-L',(bccPath  / 'lib') pathName ).

	    (bccPath / 'lib' / 'psdk') exists ifTrue:[

		libs := libs copyWith: ( '-L',(bccPath / 'lib' / 'psdk') pathName ).

	    ].

	    ccCompilationOptions := '-w-'.

	    searchedLibraries := #('import32.lib' 'odbc32.lib' 'glu32.lib' 'opengl32.lib').

	    libs := libs asStringWith:Character space.

	    linkArgs := (libs , ' -r -c -ap -Tpd -Gi -w-dup').

	    incl := incl asStringWith:Character space.

	    usedCompiler := 'bcc'.

	].

    ].

    (usedCompiler isNil and:[msvcPath notNil]) ifTrue:[

	"/ msvc

	ExternalBytes sizeofPointer == 8 ifTrue:[

	    'host.rc [info]: ignore msvc compiler (cannot be used with 64 bit architecture)' infoPrintCR.

	] ifFalse:[

	    'host.rc [info]: setup for msvc compiler' infoPrintCR.

	    msvcPath := msvcPath asFilename.

	    ccCommand := (msvcPath / 'cl') pathName.

	    linkCommand := (msvcPath / 'ilink32') pathName.

	    ccCompilationOptions := '/O1'.

	    searchedLibraries := #('import32.lib' 'odbc32.lib' 'glu32.lib' 'opengl32.lib').

	    libs := #(

		    '-L..\..\lib\vc'

		    ).

	    libs := libs asStringWith:Character space.

	    linkArgs := (libs).

	    incl := incl asStringWith:Character space.

	    usedCompiler := 'msvc'.

	].

    ].

    usedCompiler isNil ifTrue:[

	ExternalBytes sizeofPointer == 8 ifTrue:[

	    mingw64Path notNil ifTrue:[

		"/ mingw64

		'host.rc [info]: setup for mingw64 compiler' infoPrintCR.

		mingw64Path := mingw64Path asFilename.

		ccCommand := (mingw64Path / 'gcc') pathName.

		linkCommand := (mingw64Path / 'gcc') pathName.

		mingw64Path := mingw64Path directory.

		ccCompilationOptions := ''.

		searchedLibraries := #('-lodbc32' '-lglu32' '-lopengl32').

		libs := {

			    '-L..\..\lib\mingw' .

			    ( '-L',(mingw64Path / 'lib') pathName ) .

			}.

		libs := libs asStringWith:Character space.

		linkArgs := (libs).

		incl := incl asStringWith:Character space.

		usedCompiler := 'mingw'.

	    ].

	] ifFalse:[

	    mingw32Path notNil ifTrue:[

		"/ mingw32

		'host.rc [info]: setup for mingw32 compiler' infoPrintCR.

		mingw32Path := mingw32Path asFilename.

		ccCommand := (mingw32Path / 'gcc') pathName.

		linkCommand := (mingw32Path / 'gcc') pathName.

		mingw32Path := mingw32Path directory.

		ccCompilationOptions := ''.

		searchedLibraries := #('-lodbc32' '-lglu32' '-lopengl32').

		libs := {

			    '-L..\..\lib\mingw' .

			    ( '-L',(mingw32Path / 'lib') pathName ) .

			}.

		libs := libs asStringWith:Character space.

		linkArgs := (libs).

		incl := incl asStringWith:Character space.

		usedCompiler := 'mingw'.

	    ].

	].

    ].

    usedCompiler notNil ifTrue:[

	ParserFlags ccPath:ccCommand.

	ParserFlags linkCommand:linkCommand.

	ParserFlags stcCompilationIncludes: incl.

	ParserFlags stcCompilationDefines: ''.

	ParserFlags stcCompilationOptions: '+optinline +inlineNew'.

	ParserFlags ccCompilationOptions: ccCompilationOptions.

	ParserFlags searchedLibraries:searchedLibraries.

	ParserFlags linkArgs: linkArgs.

    ]

].

!