"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Object subclass:#Smalltalk

		StartupArguments CachedAbbreviations SilentLoading Initializing

		StandAlone LogDoits LoadBinaries RealSystemPath ResourcePath

!

!Smalltalk class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This is one of the central classes in the system;

    it provides all system-startup, shutdown and maintenance support.

    As you will notice, this is NOT a Dictionary

     - my implementation of globals is totally different

       (due to the need to be able to access globals from c-code as well).

    However, it provides the known enumeration protocol.

    It may change to become a subclass of collection at some time ...

    Instance variables:

    Class variables:

"

! !

!Smalltalk class methodsFor:'initialization'!

initGlobalsFromEnvironment

    "setup globals from the shell-environment"

    |envString i langString terrString|

    "

     extract Language and LanguageTerritory from LANG variable.

     valid are for example: english_usa / us_us / us

			    english / en_en / en

			    german / de_de / de

			    german_austria

    "

    Language := #english.

    LanguageTerritory := #usa.

    envString := OperatingSystem getEnvironment:'LANG'.

    envString notNil ifTrue:[

	envString isEmpty ifFalse:[

	    i := envString indexOf:$_.

	    (i == 0) ifTrue:[

		langString := envString.

		terrString := envString

	    ] ifFalse:[

		langString := envString copyTo:(i - 1).

		terrString := envString copyFrom:(i + 1)

	    ].

	    Language := langString asLowercase asSymbol.

	    LanguageTerritory := terrString asLowercase asSymbol

	]

    ].

    "

     Smalltalk initGlobalsFromEnvironment

    "

!

initInterrupts

    "initialize interrupts"

    OperatingSystem enableUserInterrupts.

    OperatingSystem enableHardSignalInterrupts.

    OperatingSystem enableFpExceptionInterrupts.

    ObjectMemory userInterruptHandler:self.

    ObjectMemory signalInterruptHandler:self.

    ObjectMemory recursionInterruptHandler:self.

    "Smalltalk initInterrupts"

!

initStandardStreams

    "initialize some well-known streams"

    Stdout := NonPositionableExternalStream forStdout.

    Stderr := NonPositionableExternalStream forStderr.

    Stdin := NonPositionableExternalStream forStdin.

    Printer := PrinterStream.

    Transcript := Stderr

    "Smalltalk initStandardStreams"

!

initStandardTools

    "predefine some tools which we will need later

     - if the view-classes exist,

       they will redefine Inspector and Debugger for graphical interfaces"

    "redefine debug-tools, if view-classes exist"

    Display notNil ifTrue:[

	InspectorView notNil ifTrue:[

	    Inspector := InspectorView

	].

	DebugView notNil ifTrue:[

	    Debugger := DebugView

	].

	Display initialize

    ]

    "Smalltalk initStandardTools"

!

initSystemPath

    "setup path where system files are searched for.

     the default path is set to:

	    .

	    ..

	    $HOME                    (if defined)

	    $HOME/.smalltalk         (if defined & existing)

	    $SMALLTALK_LIBDIR        (if defined & existing)

	    $STX_LIBDIR              (if defined & existing)

	    /usr/local/lib/smalltalk (if existing)

	    /usr/lib/smalltalk       (if existing)

     of course, it is possible to add entries from the 'smalltalk.rc'

     startup file; add expressions such as:

	    Smalltalk systemPath addFirst:'/foo/bar/baz'.

	or: 

	    Smalltalk systemPath addLast:'/fee/foe/foo'.

    "

    |p homePath|

    SystemPath isNil ifTrue:[

	homePath := OperatingSystem getHomeDirectory.

	homePath isNil ifTrue:[

	    homePath := '.'

	].

	"

	 the path is set to search files first locally

	 - this allows private stuff to override global stuff

	"

	SystemPath := OrderedCollection new.

	SystemPath add:'.'.

	SystemPath add:'..'.

	SystemPath add:homePath.

	(OperatingSystem isDirectory:(p := homePath , '/.smalltalk')) ifTrue:[

	    SystemPath add:p

	].

	p := OperatingSystem getEnvironment:'SMALLTALK_LIBDIR'.

	p notNil ifTrue:[

	    SystemPath add:p

	].

	p := OperatingSystem getEnvironment:'STX_LIBDIR'.

	p notNil ifTrue:[

	    SystemPath add:p

	].

	(OperatingSystem isDirectory:'/usr/local/lib/smalltalk') ifTrue:[

	    SystemPath add:'/usr/local/lib/smalltalk'

	].

	(OperatingSystem isDirectory:'/usr/lib/smalltalk') ifTrue:[

	    SystemPath add:'/usr/lib/smalltalk'

	].

	self flushPathCaches

    ]

    "

     Smalltalk initSystemPath

     Smalltalk systemPath

    "

!

initUserPreferences

    "setup other stuff"

    LogDoits := false.

    LoadBinaries := false.

!

initializeModules

    "perform module specific initialization and

     send #initialize to all classes.

     Notice: this is not called when an image is restarted"

%{

    __init_registered_modules__(3 COMMA_CON);

%}

!

initializeSystem

    "initialize all other classes; setup dispatcher processes etc.

     This one is the first entry into the smalltalk world right after startup,

     ususally followed by Smalltalk>>start.

     Notice: this is not called when an image is restarted; in this

     case the show starts in Smalltalk>>restart."

    SilentLoading := false.

    Initializing := true.

    "

     define low-level debugging tools - graphical classes are not prepared yet

     to handle things. 

     This will bring us into the MiniDebugger when an error occurs

     during startup

    "

    Inspector := MiniInspector.

    Debugger := MiniDebugger.

    "

     start catching SIGSEGV and SIGBUS

    "

    OperatingSystem enableHardSignalInterrupts.

    self initGlobalsFromEnvironment.

    "

     sorry - there are some, which MUST be initialized before ..

     reason: if any error happens during init, we need Signals, Stdout etc. to be there

    "

    Object initialize.

    Signal initialize.

    ObjectMemory initialize.

    Stream initialize.

    ExternalStream initialize.

    self initStandardStreams.    "/ setup Stdin, Stdout etc.

    "

     sorry, path must be set before ...

     reason: some classes need it during initialize (they might need resources, bitmaps etc)

    "

    self initSystemPath.

    "

     must init display here - some classes (Color, Form) need it during initialize

    "

    Workstation notNil ifTrue:[

    ].

    Compiler := ByteCodeCompiler.

    Compiler isNil ifTrue:[

    ].

    "

     now, finally, initialize all other classes

    "

    self initializeModules.

"/    self allBehaviorsDo:[:aClass |

"/ 'init ' print. aClass name printNL.

"/      aClass initialize

"/    ].

    Display notNil ifTrue:[

    ].

    self initInterrupts.

!

isInitialized

    "this returns true, if the system is properly initialized;

     i.e. false during startup. Especially, the whole viewing stuff is

     not working correctly until initialized."

    ^ Initializing not

!

reinitStandardStreams

    "reinitialize some well-known streams.

     Tis must be done very early during startup, to allow for

     debug and trace messages to be output

     (otherwise, the file-descriptors are invalid)"

    Stdout reOpen. Stderr reOpen. Stdin reOpen.

! !

!Smalltalk class methodsFor:'accessing'!

at:aKey

    "retrieve the value stored under aKey, a symbol. 

     Return nil if not present (this will be changed to trigger an error)"

%{  /* NOCONTEXT */

    extern OBJ __GLOBAL_GET();

    RETURN ( __GLOBAL_GET(aKey) );

%}

!

at:aKey ifAbsent:aBlock

    "retrieve the value stored at aKey.

     If there is nothing stored under this key, return the value of

     the evaluation of aBlock."

    (self includesKey:aKey) ifTrue:[

	^ self at:aKey

    ].

    ^ aBlock value

    "

     Smalltalk at:#fooBar                       <- returns nil

     Smalltalk at:#fooBar ifAbsent:['sorry']    <- no error

    "

!

at:aKey put:aValue

    "store the argument aValue under aKey, a symbol"

    |oldValue|

%{

    extern OBJ __GLOBAL_SET();

    oldValue = __GLOBAL_SET(aKey, aValue, (OBJ *)0);

%}.

    CachedClasses notNil ifTrue:[

    ].

%{  /* NOCONTEXT */

    extern OBJ __GLOBAL_SET();

    (void) __GLOBAL_SET(aKey, aValue, (OBJ *)0);

%}.

    CachedClasses := nil.

    ^ aValue

!

includesKey:aKey

    "return true, if the key is known"

%{  /* NOCONTEXT */

    extern OBJ __GLOBAL_KEYKNOWN();

    RETURN ( __GLOBAL_KEYKNOWN(aKey) );

%}

!

keyAtValue:anObject

    "return the symbol under which anObject is stored - or nil"

    self keysDo:[:aKey |

	(self at:aKey) == anObject ifTrue:[^ aKey]

    ].

    ^ nil

    "Smalltalk keyAtValue:Object"

!

keys

    "return a collection with all keys in the Smalltalk dictionary"

    |keys|

    keys := IdentitySet new.

    self keysDo:[:k | keys add:k].

    ^ keys

!

removeKey:aKey

    "remove the argument from the globals dictionary"

    CachedClasses := nil.

%{  /* NOCONTEXT */

    extern OBJ __GLOBAL_REMOVE();

    RETURN ( __GLOBAL_REMOVE(aKey) );

%}

! !

!Smalltalk class methodsFor:'binary storage'!

addGlobalsTo: globalDictionary manager: manager

    |pools|

    pools := Set new.

    self associationsDo:[:assoc |

	assoc value == self ifFalse:[

	    assoc value isClass ifTrue:[

		assoc value addGlobalsTo:globalDictionary manager:manager.

		pools addAll:assoc value sharedPools

	    ] ifFalse:[

		globalDictionary at:assoc put:self

	    ].

	    assoc value isNil ifFalse:[

		globalDictionary at:assoc value put:self

	    ]

	]

    ].