"/ Encoding: iso8859-1

"/

"/ $Header$

"/

"/ MIMEType: application/x-smalltalk-source

"/

"/ 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"

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

|cpu enableJIT|

(Smalltalk commandLineArguments includes:'--quick') ifFalse:[

    'smalltalk.rc [info]: initial startup (snapshot image restart is faster)...' infoPrintCR.

].

"/

"/ the JIT translator is known to work with the following

"/ architectures:

"/  ix86        (linux, win32, unixware)

"/  sgi-mips    (irix)

"/  alpha       (osf)

"/  sparc       (solaris)   [only tested with v7 & v8 & v9 cpus]

"/  aix         (rs6k)      [not very well tested]

"/

enableJIT := false.

cpu := OperatingSystem getCPUType.

(#(

  'i386'

  'sparc'

  'mips'

  'alpha'

) includes:cpu) ifTrue:[

    enableJIT := true.

    cpu = 'sparc' ifTrue:[

	"/ for now, disable if we detect running on a sparcV10;

	"/ Reason:

	"/   we do not have v10 machines here at Exept (they even do not exist at this time),

	"/   and therefore have no way of checking if it runs on v10.

	"/  I dont want ST/X to crash on your side in that case ...

	"/  ... better run a bit slower than not running at all.

	"/ Please let us know if it runs and we will remove the code below

	"/ (which you should do as well).

	((OperatingSystem getSystemInfo at:#instructionSets) includesString:'sparcv10') ifTrue:[

	    'smalltalk.rc [warning]: disable JIT for sparcV10 - not yet validated' infoPrintCR.

	    enableJIT := false

	]

    ]

].

enableJIT ifTrue:[

    "/ 'smalltalk.rc [info]: turn on JIT...' infoPrintCR.

    ObjectMemory justInTimeCompilation:true.

].

"/ OperatingSystem disableSignal:14.

ObjectMemory infoPrinting:false.

"/ Smalltalk loadBinaries:true.

Compiler allowUnderscoreInIdentifier:true.

Compiler warnUnderscoreInIdentifier:false.

Compiler warnSTXSpecials:false.

!

"/

"/ 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 pathOfSTXExecutable pathOfCurrentDir|

"/ 'systemPath before: ' infoPrint. Smalltalk systemPath infoPrintCR.

"/ 'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR.

"/ 'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR.

pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable.

pathOfSTXExecutable notNil ifTrue:[

    pathOfSTXExecutable := pathOfSTXExecutable asFilename directory.

].

pathOfCurrentDir := Filename currentDirectory asAbsoluteFilename.

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

    Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)

] ifFalse:[

    "/ look for gnu-smalltalk class files along my PATH.

    "/ if found, remove that directory from the PATH to avoid

    "/ autoloading wrong classes.

    (path := Smalltalk getSystemFileName:'initialize.st') notNil ifTrue:[

	path := path asFilename directoryName.

	('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR.

	Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself).

    ].

    pathOfSTXExecutable notNil ifTrue:[

	(Smalltalk systemPath includes:pathOfSTXExecutable name) ifFalse:[

	    Smalltalk systemPath addFirst:pathOfSTXExecutable name.

	]

    ].

    (Smalltalk systemPath includes:pathOfCurrentDir name) ifFalse:[

	Smalltalk systemPath addFirst:pathOfCurrentDir name.

    ].

    "/ the current directory should always be first...

    (Smalltalk systemPath includes:'.') ifTrue:[

	Smalltalk systemPath remove:'.'.

    ].

    (Smalltalk systemPath includes:'.' asFilename pathName) ifTrue:[

	Smalltalk systemPath remove:'.' asFilename pathName.

    ].

    Smalltalk systemPath addFirst:'.' asFilename pathName.

].

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

    Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).

    'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' infoPrintCR.

] ifFalse:[

    "/

    "/ if running in the development environment,

    "/ only use the local packages.

    "/

    (pathOfSTXExecutable notNil

    and:[(pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists]) ifTrue:[

	Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName.

	'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR.

    ] ifFalse:[

	(pathOfCurrentDir construct:'../../../stx/projects/smalltalk') exists ifTrue:[

	    Smalltalk packagePath removeAll; add:(pathOfCurrentDir construct:'../../..') pathName.

	    'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR.

	]

    ].

    "/

    "/ any additional local packages ?.

    "/

    'packages' asFilename exists ifTrue:[

	(Smalltalk packagePath includes:'packages' asFilename pathName) ifFalse:[

	    Smalltalk packagePath addFirst:'packages' asFilename pathName.

	].

    ].

].

"/ 'systemPath: ' errorPrint. Smalltalk systemPath errorPrintCR.

"/ 'packagePath: ' errorPrint. Smalltalk packagePath errorPrintCR.

Smalltalk packagePath isEmpty ifTrue:[

    'smalltalk.rc [warning]: packagePath is empty' errorPrintCR.

].

Smalltalk flushPathCaches.

!

"/ look fore one ore more --loadPackage arguments

"/ load the packages

|args idx|

args := Smalltalk commandLineArguments ? #().

[

    idx := args indexOf:'-L'.

    idx == 0 ifTrue:[

	idx := args indexOf:'--loadPackage'.

    ].

    idx ~~ 0

] whileTrue:[

    Smalltalk loadPackage:(args at:idx+1).

    args removeAtIndex:idx+1; removeAtIndex:idx.

].

!

|args buildClasses openDisplay prevCatchSetting|

args := Smalltalk commandLineArguments ? #().

buildClasses := false.

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

    'binary' asFilename isDirectory ifFalse:[

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

	Smalltalk exit.

    ].

    buildClasses := true.

].

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

"/ if not, load the display classes.

"/

openDisplay := false.

(Smalltalk isHeadless or:[args includes:'--noDisplay']) ifFalse:[

    (Smalltalk at:#DeviceWorkstation) isNil ifTrue:[

	 "no view classes compiled into the system.

	  Minimum smalltalk does only contain libbasic, libcomp and librun.

	  FileIn view stuff"

	 'smalltalk.rc [info]: installing required class libraries...' infoPrintCR.

	 (Smalltalk isClassLibraryLoaded:'libbasic2') ifFalse:[

	      Smalltalk loadPackage:'stx:libbasic2'.

	 ].

	 Smalltalk loadPackage:'stx:libview'.

	 Smalltalk fileInClassLibrary:'XWorkstation' inPackage:'stx:libview'.

	 OperatingSystem isMSWINDOWSlike ifTrue:[

	     Smalltalk fileInClassLibrary:'WinWorkstation' inPackage:'stx:libview'.

	 ].

    ].

    openDisplay := true.

].

"/ Install patches, once everything has been loaded.

"/ System methods may be overwritten by patches.

prevCatchSetting := Class catchMethodRedefinitions:false.

(Smalltalk secureFileIn:(Smalltalk commandName asFilename withSuffix:'pch')) ifFalse:[

    Smalltalk isStandAloneApp ifFalse:[

	(Smalltalk secureFileIn:'patches') ifFalse:[

	    'smalltalk.rc [warning]: error while filing in ''patches'' - some patches have not been loaded!!' errorPrintCR.

	].

    ].

].

Class catchMethodRedefinitions:prevCatchSetting.

openDisplay ifTrue:[

    "/ open the graphical display

    [

	Screen openDefaultDisplay:nil.

    ] on:Screen deviceOpenErrorSignal do:[:ex|

	('smalltalk.rc [warning]: no display connection to: ', ex parameter printString) errorPrintCR.

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

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

	Smalltalk isStandAloneApp ifFalse:[

	    '' 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.

"SV: switched off splash screen - it does not work in windows anyway, and it is annoying

 in linux/unix"

"/(buildClasses

"/ or:[ (args includes:'--noBanner')

"/ or:[ (args includes:'--quick')

"/ or:[ (args includes:'--faststart')

"/ or:[ (args includes:'--fastStart')

"/ or:[ Smalltalk isPlugin

"/]]]]]) ifFalse:[

"/    Smalltalk fileIn:'showBanner.rc'.

"/].

"/

"/ 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 whole 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 (info@exept.de) know what happened.

"/

Autoload compileLazy:true.

"/

"/ read the abbrev.stc file, extract class names

"/ and install all nonExisting classes as autoloaded

"/

Class withoutUpdatingChangesDo:[

    |needToReactivate|

    HistoryManager notNil ifTrue:[

	needToReactivate := HistoryManager isActive.

	HistoryManager deactivate.

    ] ifFalse:[

	needToReactivate := false

    ].

    ((Smalltalk commandLineArguments includes:'--quick')

    or:[ (Smalltalk isPlugin)

    or:[ (Smalltalk commandLineArguments includes:'--faststart')

    or:[ (Smalltalk commandLineArguments includes:'--fastStart')

    ]]]) ifFalse:[

	'smalltalk.rc [info]: installing autoloaded classes...' infoPrintCR.

	Smalltalk installAutoloadedClasses.

    ].

    needToReactivate ifTrue:[HistoryManager activate].

].

buildClasses 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

].

!

"/

"/ Memory settings. NOTE that all these settings may be overwritten by

"/                  settings.stx which stores the Launcher's settings.

"/

"/ 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.

"/ experimental: try to always keep some bytes in the pocket

"/ this changes the memory policy, to start the background collector whenever

"/ freespace drops below 250k or 500k have been allocated since the last GC.

"/ AND to allocate more memory, if (after the collect) less than 1Mb is free.

"/ Doing so makes the system behave better if lots of memory is required

"/ for short periods of time, since it prepares itself for that situation

"/ during idle time. (I often walk around in the fileBrowser, loading big

"/ files like XWorkstation.st or SystemBrowser.st ....)

ObjectMemory freeSpaceGCAmount:1000000.

ObjectMemory freeSpaceGCLimit:(256*1024).

ObjectMemory incrementalGCLimit:(512*1024).

ObjectMemory oldSpaceIncrement:(512*1024).

ObjectMemory oldSpaceCompressLimit:0.   "/ temporary kludge

ObjectMemory startBackgroundCollectorAt:5.

ObjectMemory startBackgroundFinalizationAt:5.

"/ this limits the amount of memory which is allocated for oldSpace

"/ (for example to prevent ST/X from taking memory from other processes)

"/ The absolute maximum is a builtIn constant and OS specific.

"/ ObjectMemory maxOldSpace:1024*1024*128.

"/ experimental:

"/ run the background collector at a dynamic priority - it will

"/ now always get a chance to make some progress ...

Smalltalk addStartBlock:[

    'smalltalk.rc [info]: start timeSlicing...' infoPrintCR.

    Processor startTimeSlicing.

    Processor supportDynamicPriorities:true.

    ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).

    ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).

].

"/ experimental: configure the memory manager to quickly increase

"/ its oldSpace, as long as it stays below 8Mb (i.e. do not enter

"/ a blocking mark&sweep or compress, but go straight ahead increasing

"/ the oldSpace). Above that, behave as usual, i.e. try a GC first,

"/ then increase the oldSpace size if that did not help.

"/ If you have a machine with lots of (real) memory, you may want to

"/ increase the number. The value below should be ok for 16-32Mb machines.

"/

ObjectMemory fastMoreOldSpaceAllocation:true.

!

"/ another experimental (and a secret for now, since I don't want

"/ you to play with those ;-)

"/ For now, this is experimental. Once the best numbers

"/ have been found, I'll hardwire them and document it ...

|tenureParams|

ObjectMemory newSpaceSize > (500*1024) ifTrue:[

    tenureParams := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.

] ifFalse:[

"/         min max cpy /32 /16 /8 /4 /2 /4 /8 /16 /32 "

    "/

    "/ slow tenure - keeps objects longer in newSpace,

    "/  producing more scavenge overhead, but releasing IGC somewhat

    "/

"/  tenureParams := #(nil nil nil -100 -8 -4 -1  1  2 4 8 16 nil) copy.

"/  tenureParams := #(nil nil nil nil -16 -4  0  0  0 4 16 nil) copy.

    "/

    "/ fast tenure - moves objects earlier into oldSpace,

    "/ releasing newSpace collector; however, the oldSpace IGC

    "/ may have more work to do.

    "/

    tenureParams := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy.

].

ObjectMemory tenureParameters:tenureParams.

!

"/

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

"/

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

Smalltalk fileIn:'host.rc'.

"/

"/ this handles all variant display stuff

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

"/ Notice, that the display may be different from the host we run on;

"/ Host specific things are configured in host.rc.

"/

Display notNil ifTrue:[

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

    Smalltalk fileIn:'display.rc'.

].