only change compiler settings in host.rc, if not started from an image.
(avoid loosing settings.stc values)
"*
* $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|
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 addFirst:libDir.
Smalltalk flushPathCaches
].
k close.
].
!
|incl libs|
"/Smalltalk systemPath addFirst:'..\..\libbasic'.
"/Smalltalk systemPath addFirst:'..\..\libbasic2'.
"/Smalltalk systemPath addFirst:'..\..\libbasic3'.
"/Smalltalk systemPath addFirst:'..\..\libcomp'.
"/Smalltalk systemPath addFirst:'..\..\libview'.
"/Smalltalk systemPath addFirst:'..\..\libview2'.
"/Smalltalk systemPath addFirst:'..\..\libwidg'.
"/Smalltalk systemPath addFirst:'..\..\libwidg2'.
"/Smalltalk systemPath addFirst:'..\..\libwidg3'.
"/Smalltalk systemPath addFirst:'..\..\libtool'.
"/Smalltalk systemPath addFirst:'..\..\libtool2'.
"/Smalltalk systemPath addFirst:'..\..\libui'.
"/Smalltalk systemPath addFirst:'..\..\libhtml'.
"/Smalltalk systemPath addFirst:'..\..\libopengl'.
Smalltalk wasStartedFromImage ifFalse:[
"/
"/ right now, stx can only be used with a
"/ borland C-compiler.
"/
"/ msc
"/ Compiler ccPath:'cl'.
"/ Compiler ccCompilationOptions:'/O1'.
"/ borland
Compiler ccPath:'bcc32'.
Compiler ccCompilationOptions:''.
incl := #(
'-I..\..\include'
'-I..\..\libopengl'
).
libs := #(
'-L..\..\libbc'
).
'C:\Programme\exept\SmalltalkX\include' asFilename exists
ifTrue:[
incl := incl , #( '-IC:\Programme\exept\SmalltalkX\include' ).
libs := libs , #( '-LC:\Programme\exept\SmalltalkX\lib' ) .
].
'D:\STX\PROJECTS\smalltalk\include' asFilename exists
ifTrue:[
incl := incl , #( '-ID:\STX\PROJECTS\smalltalk\include' ) .
libs := libs , #( '-LD:\STX\PROJECTS\smalltalk\lib' ) .
].
'C:\Programme\borland\cbuilder3\include' asFilename exists
ifTrue:[
incl := incl , #( '-IC:\Programme\borland\cbuilder3\include' ).
libs := libs , #( '-LC:\Programme\borland\cbuilder3\lib' ) .
].
'C:\Programme\borland\cbuilder4\include' asFilename exists
ifTrue:[
incl := incl , #( '-IC:\Programme\borland\cbuilder4\include' ).
libs := libs , #( '-LC:\Programme\borland\cbuilder4\lib' ) .
].
'C:\Programme\borland\bcc55\include' asFilename exists
ifTrue:[
incl := incl , #( '-IC:\Programme\borland\bcc55\include' ) .
libs := libs , #( '-LC:\Programme\borland\bcc55\lib' ) .
].
'C:\borland\bcc55\include' asFilename exists
ifTrue:[
incl := incl , #( '-IC:\borland\bcc55\include' ) .
libs := libs , #( '-LC:\borland\bcc55\lib' ) .
].
incl := incl asStringWith:Character space.
libs := libs asStringWith:Character space.
Compiler stcCompilationIncludes: incl.
Compiler stcCompilationDefines: ''.
Compiler stcCompilationOptions: '+optinline +inlineNew'.
Compiler ccCompilationOptions: ''.
].
ObjectFileLoader linkArgs: (libs , ' -r -c -ap -Tpd -Gi -w-dup').
ObjectFileLoader linkCommand: 'ilink32'.
!