"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * ST/X startup configuration file:
 *
 * DON'T add site specific things here - use your own h_xxx.rc file instead
 * where xxx stands for your hostname(s)
 *
 * startup configuration for host specific stuff -
 * looks for a system specific h_sysType.rc init file and loads it.
 * looks for a host specific h_hostName.rc init file and loads it.
 *"
!
|sysType host domain s conf includes incDir|

sysType := OperatingSystem getSystemType.

"------------------------------------------------------------------------"
"/ printer setup
"/ Notice that this setup may be changed by an OS-specific h_xxx file
"/
"/ only reset the printer setting, if restarted
"/ on another host.

host := OperatingSystem getHostName.
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
    sysType = 'win32' ifTrue:[
	Printer := Smalltalk at:#WinPrinterStream.
    ] ifFalse:[
	Printer := Smalltalk at:#PostscriptPrinterStream.
    ].
].

"------------------------------------------------------------------------"
"/ default compiler setup;
"/ can be rechanged in a h_xxx file.
"/

(Smalltalk wasStartedFromImage not and:[ Smalltalk isPlugin not ])
ifTrue:[
    ParserFlags stcCompilation:#default.
    ParserFlags stcCompilationOptions:'+optinline +inlineNew'.

    "/
    "/ setup for gcc (which is OK for most systems);
    "/ Notice that this setup may be changed by an OS-specific h_xxx file
    "/
    conf := Smalltalk configuration.
    (conf includesString:'gcc') ifTrue:[
	ParserFlags ccPath:'gcc'
    ] ifFalse:[
	(conf includesString:'clang') ifTrue:[
	    ParserFlags ccPath:'clang'
	] ifFalse:[
	    ParserFlags ccPath:'cc'
	].
    ].
    ParserFlags ccCompilationOptions:'-O'.

    (conf includesString:'amd64_mode32') ifTrue:[
	((ObjectFileLoader linkArgs ? '') includesString:'-m32') ifFalse:[
	    ObjectFileLoader linkArgs:((ObjectFileLoader linkArgs ? '') , ' -m32 -m elf_i386').
	].
	(ParserFlags ccCompilationOptions includesString:'-m32') ifFalse:[
	    ParserFlags ccCompilationOptions:(ParserFlags ccCompilationOptions , ' -m32').
	].
	((ParserFlags stcCompilationDefines ? '') includesString:'-D__amd64_mode32__') ifFalse:[
	    ParserFlags stcCompilationDefines:((ParserFlags stcCompilationDefines ? ''), ' -D__amd64_mode32__').
	].
    ].


    includes := ''.
    incDir := Smalltalk getSystemFileName:'include/stc.h'.
    incDir notNil ifTrue:[ incDir := incDir asFilename directoryName ].

    incDir notNil ifTrue:[
	includes := includes , '-I' , incDir asFilename pathName , ' '
    ] ifFalse:[
	('../../../stx/include' asFilename exists) ifTrue:[
	    "/ running in a development environment...
	    includes := includes , '-I../../../stx/include '.
	] ifFalse:[
	    ('../../include' asFilename exists) ifTrue:[
		"/ running in a development environment...
		includes := includes , '-I../../include '.
	    ] ifFalse:[
		"/ if this is a production program, dont care for a warning
		(Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
		ifFalse:[
		    'host.rc [warning]: no >>include<< directory found along your path.' infoPrintCR.
		    'host.rc [warning]: this might affect stc-compilation from within the browser.' infoPrintCR.
		]
	    ]
	]
    ].

    ParserFlags stcCompilationIncludes:includes.

    "/
    "/ for myself: preset flags, so that we can accept GLXWorkstation code
    "/ You probably will never do this.
    "/
    (Display notNil and:[Display supportsGLDrawing]) ifTrue:[
	sysType = 'irix' ifTrue:[
	    ParserFlags stcCompilationDefines:'-DGLX'.
	] ifFalse:[
	    ParserFlags stcCompilationIncludes:'-I../../include -I../../support/VGL/vogl/src'.
	    ParserFlags stcCompilationDefines:'-DVGL'.
	]
    ].
].

"/
"/ try systemType-specific setup
"/ h_<osType>.rc
"/
(Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
    ('host.rc [info]: ') infoPrint.

    "/ ('trying host setup h_' , sysType , '.rc...') infoPrintCR.
    s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
    s notNil ifTrue:[
	('reading host setup h_' , sysType , '.rc...') infoPrintCR.
	s fileIn.
	s close.
    ].
    Smalltalk at:#'_ImageOSTypeName' put:sysType.
].

"/
"/ try host-specific setup
"/ h_<hostname>.rc
"/
host isNil ifTrue:[
    'host.rc [warning]: cannot determine host I am running on' errorPrintCR.
] ifFalse:[
    "if there is a corresponding file ..."

    (Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
	"/ ('host.rc [info]: trying host setup h_' , host , '.rc...') infoPrintCR.

	s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
	s notNil ifTrue:[
	    ('host.rc [info]: reading host setup h_' , host , '.rc...') infoPrintCR.
	    s fileIn.
	    s close.
	].
	Smalltalk at:#'_ImageHostName' put:host.
    ]
].
!