"/

"/ $Header$

"/

"/ ST/X startup configuration & command file:

"/

"/ startup configuration for smalltalk

"/

"/ - everything in here are plain smalltalk expressions;

"/ - statements with in a group are separated by a period.

"/ - Each group of statements has to be delimited by an exclamation

"/   character.

"/ - avoid exclas in comments (or double them)

"/ - nested comments are not allowed - take care.

"/

"/ remember: this is fileOut-format

"/

"/ comments can be either:

"/ - standard smalltalk comments (i.e. from dquote to dquote)

"/ - ST/X end of line comments (i.e. dquote followed by /)

"/

"/    "this is a comment"

"/    "/ another comment

"/

"/***************************************************************

"/ PLEASE: only add things here, if they are of general interrest

"/         and NEITHER site specific NOT display specific.

"/

"/ site specific things are to be added to "h_<hostname>.rc"

"/ display specifics to "d_<displayName>.rc"

"/ and private user stuff in "private.rc"

"/***************************************************************

"/

"/ allow definition of the systemPath from an environment variable

"/ for example, to only try files in a users home and /usr/local/lib/smalltalk,

"/ add the following in your shell-profile:

"/      export STX_SYSTEMPATH=$HOME:/usr/local/lib/smalltalk

"/ notice, that shell variable names are NOT expanded again in STX_SYSTEMPATH

"/ Make certain that all relevant files are found along your path - you may see

"/ funny viewStyles, colors and stupid strings if wrong.

"/

|path|

(path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[

    Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)

].

!

|args|

args := Smalltalk commandLineArguments.

((args size > 0) and:[args last = '--buildClasses']) ifTrue:[

    'binary' asFilename isDirectory ifFalse:[

	'smalltalk.rc [warning]: no binary directory for classes.' errorPrintCR.

    ] ifTrue:[

	"/

	"/ load all lazy classes

	"/

	Autoload subclasses do:[:aClass |

	    Autoload autoloadFailedSignal handle:[:ex |

		'smalltalk.rc [warning]: autoload failed' errorPrintCR.

		ex return.

	    ] do:[

		'smalltalk.rc [info]: loading ' infoPrint. aClass name infoPrint. ' ...' infoPrintCR.

		aClass autoload.

	    ]

	].

	"/

	"/ binary save all classes

	"/

	Autoload loadedClasses do:[:cls |

	    'smalltalk.rc [info]: saving binary of ' infoPrint. cls name infoPrint. ' ...' infoPrintCR.

	    cls binaryFileOut.

	    OperatingSystem executeCommand:'mv *.cls binary'.

	]

    ].

    Smalltalk exit

].

!

"/

"/ map Language variable setting to known and handled

"/ values:

"/

Language == #De ifTrue:[

    Language := #german

].

!

"/

"/ just a quick check, if this ST/X installation seems to

"/ be halfway complete (it happened to some people, that

"/ their source/resource directories were not installed)

"/ - better to warn early ... 

"/

|anyWrong missing|

anyWrong := false.

missing := ''.

(Smalltalk getSystemFileName:'resources/SBrowser.rs') isNil ifTrue:[

    '***********************************************************************' errorPrintCR.

    '***** ATTENTION: please check installation of your resource files' errorPrintCR.

    anyWrong := true.

    missing := '''resources'' '.

].

(Smalltalk getSystemFileName:'source/Object.st') isNil ifTrue:[

    "/

    "/ there may still be a SourceCodeManager ...

    "/

    (Smalltalk at:#SourceCodeManager) isNil ifTrue:[

	'***********************************************************************' errorPrintCR.

	'***** ATTENTION: please check installation of your source files' errorPrintCR.

	'***** ' errorPrintCR.

	'***** the browser/debugger may not be able to show sourcecode.' errorPrintCR.

	anyWrong := true.

	missing := missing , '''source'' '.

    ]

].

(Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil ifTrue:[

    '***********************************************************************' errorPrintCR.

    '***** ATTENTION: please check installation of your bitmap files' errorPrintCR.

    anyWrong := true.

    missing := missing , '''bitmaps'' '.

].

(Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[

    '***********************************************************************' errorPrintCR.

    '***** ATTENTION: please check installation of your style files' errorPrintCR.

    anyWrong := true.

    missing := missing , '''resources'' '.

].

anyWrong ifTrue:[

    '*****' errorPrintCR.

    '***** directory(s) named: ' errorPrint. missing errorPrint. 'incomplete/not existing' errorPrintCR.

    '***** your path is: ' errorPrint.

    Smalltalk systemPath asArray storeString errorPrintCR.

    '*****' errorPrintCR.

    '***** Try: "make source bitmaps resources styles"' errorPrintCR.

    '*****  or: "make symlinks" to fix this.' errorPrintCR.

    '***********************************************************************' errorPrintCR.

]

!

"/

"/ check for display-classes being compiled into the system;

"/ (and if display connection can be established)

"/ if not, enter a simple read-eval-print loop

"/

Display isNil ifTrue:[

    DeviceWorkstation notNil ifTrue:[

	'smalltalk.rc [warning]: No Display connection.' errorPrintCR.

	'smalltalk.rc [info]: Either set the DISPLAY environment variable,' infoPrintCR.

	'smalltalk.rc [info]: or start smalltalk with a -display argument.' infoPrintCR.

    ] ifFalse:[

	'smalltalk.rc [warning]: Configuration without display.' errorPrintCR.

    ].

    '' errorPrintCR.

    'Textmode (enter smalltalk expressions terminated by single exclamation mark;' errorPrintCR.

    OperatingSystem isUNIXlike ifTrue:[

	'          CTRL-D to leave line-by-line interpreter.)' errorPrintCR.

    ] ifFalse:[

	'          CTRL-Z to leave line-by-line interpreter.)' errorPrintCR.

    ].

    Smalltalk readEvalPrint.

    Smalltalk exit

].

"/

"/ this makes X-errors be handled immediately (so you see,

"/ where it occured) but slows down the system soooo muuuucccchhh ..

"/ if commented out, errors will be reported asynchronously.

"/ (I enable this, when things go bad during startup)

"/

"/ Display unBuffered.

"/

"/ this starts the incremental GC earlier

"/ (default is 500000)

"/ the number given is the number of bytes which have to be allocated

"/ since the last GC, to start the incremental GC running.

"/ (see ObjectMemory>>documentation)

"/ Claus: I moved this to the private.rc file

"/

"/ ObjectMemory incrementalGCLimit:100000. 

"/

"/ this starts the incremental GC when freeSpace drops below a limit

"/ (default is nil - i.e. dont look at freeSpace)

"/ (see ObjectMemory>>documentation)

"/ Claus: I moved this to the private.rc file

"/

"/ ObjectMemory freeSpaceGCLimit:300000. 

"/

"/ lazy loading

"/ (faster fileIn) - this is EXPERIMENTAL.

"/

"/ - if turned on, an autoload operation will only create methodStubs

"/   (uncompiled) which trap when called the first time.

"/   The bytecode compiler will compile them when first executen.

"/

"/ - if turned off, an autoload will load & compile the while class,

"/   which makes autoloading slower, but avoids the initial delays

"/

"/ This is much like just-in-time compilation, but on a higher level.

"/ If there are any problems with lazy methods, disable the following

"/ and let me (cg@exept.ssw.de) know what happened.

"/

Autoload compileLazy:true.

"/

"/ define the language (you can also set the LANG-shell variable)

"/ (currently #english, #german and #french are supported).

"/ some fragments for other languages (japanese ;-) exist.

"/ Setting it here will override the LANG variable setting,

"/ if neither set here nor in LANG, #english is the default.

"/ see (and enhance) the resource files

"/ Claus: supposed to be done in private.rc or via LANG variable

"/

"/ Smalltalk language:#german.

"/ Smalltalk language:#english. 

"/

"/ this handles all variant display stuff

"/ (i.e. things which might change, when DISPLAY is set different)

"/

"/ 'smalltalk.rc [info]: reading ''display.rc'' ...' infoPrintCR.

Smalltalk fileIn:'display.rc'.

"/

"/ this defines stuff relating to the host we are running on

"/

"/ 'smalltalk.rc [info]: reading ''host.rc'' ...' infoPrintCR.

Smalltalk fileIn:'host.rc'.

"/

"/ Ask user to accept Licence.

"/ exit, if rejected.

"/ You may find this annoying - but lawers say: "this is a must ..." ;-)

"/ (it will not be shown when coming up via a snapshot image)

Smalltalk addStartBlock:[

"/    MessageTally spyOn:[

"/    Class withoutUpdatingChangesDo:[   

"/        'patches [info]: installing autoloaded classes ...' infoPrintCR.

"/        Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.

"/    ].

"/    ].

    LicenceBox autoload.

    LicenceBox licenceRejectSignal handle:[:ex|

	Smalltalk exit

    ] do:[

	LicenceBox open.

	Smalltalk at:#LicenceBox put:nil.

    ].

].

"/

"/ read private (per user) stuff

"/

'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.

Smalltalk fileIn:'private.rc'.

"/

"/ read saved configuration settings (if any)

"/

"/ 'smalltalk.rc [info]: reading ''settings.stx'' ...' infoPrintCR.

Smalltalk fileIn:'settings.stx'.

"/

"/ set the package to some useful default

"/

Project notNil ifTrue:[

    Project setDefaultProject.

    Project current packageName:#'private'.

].

"/

"/ if error occurs, and debugger has problems coming up,

"/ uncomment the following ...

"/

"/ Debugger := MiniDebugger.

"/

"/ save an initial image; this will speedup the next startup

"/ (since all autoload-stuff will already be initialized)

"/

!