"/
"/ $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:$:)
] 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).
]
].
!
|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.
'***** I will not be able to give non-english messages' errorPrintCR.
anyWrong := true.
missing := '''resources'' '.
].
(Smalltalk getSystemFileName:'source/Object.st') isNil ifTrue:[
(Smalltalk getSystemFileName:'source/source.zip') 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.
'***** Also, autoloading may fail if sourceFiles are missing.' 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.
'***** I will use a plain b&w viewStyle as a fallBack' errorPrintCR.
anyWrong := true.
missing := missing , '''resources'' '.
].
anyWrong ifTrue:[
'*****' errorPrintCR.
'***** directory(s) named: ' errorPrint. missing errorPrint. 'incomplete/not existing' errorPrintCR.
'***** I could not find the missing directory along your path,' errorPrintCR.
'***** which is:' errorPrintCR.
Smalltalk systemPath do:[:dir |
('***** ' , dir 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:[
'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
"/ 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)
"/
"/ 'st.img' asFilename exists ifFalse:[
"/ |doneWithStartupStuff|
"/
"/ doneWithStartupStuff := Semaphore new.
"/
"/ Smalltalk addStartBlock:[
"/ [
"/ doneWithStartupStuff wait.
"/ 'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
"/ ObjectMemory primSnapShotOn:'st.img'
"/ ] forkAt:1
"/ ].
"/
"/ Smalltalk addStartBlock:[
"/ [
"/ Delay waitForSeconds:10.
"/ doneWithStartupStuff signal
"/ ] forkAt:1
"/ ].
"/ ].
!