"

 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

       instanceVariableNames:''

       classVariableNames:'ExitBlocks CachedClasses SystemPath 

			   StartupClass StartupSelector StartupArguments

			   CachedAbbreviations

			   SilentLoading Initializing

			   StandAlone

			   LogDoits LoadBinaries

			   RealSystemPath ResourcePath SourcePath BitmapPath BinaryPath FileInPath'

       poolDictionaries:''

       category:'System-Support'

!

Smalltalk comment:'

COPYRIGHT (c) 1988 by Claus Gittinger

	     All Rights Reserved

$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.64 1995-08-31 03:15:46 claus Exp $

'!

"

 dont depend on these being global - they will become

 class variables of some class ...

 Being global is a historical leftover ...

"

Smalltalk at:#Language put:#english!

Smalltalk at:#LanguageTerritory put:#usa!

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

"

!

version

"

$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.64 1995-08-31 03:15:46 claus Exp $

"

!

documentation

"

    This is one of the central classes in the system;

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

    Also global variables are kept here.

    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:

					none - all handling is done in the VM

    Class variables:

	ExitBlocks      <Collection>    blocks to evaluate before system is

					left. Not currently used.

	CachedClasses   <Collection>    known classes (cached for faster enumeration)

	SystemPath      <Collection>    path to search for system files (sources, bitmaps etc)

	StartupClass    <Class>         class, which gets initial message 

					(right after VM initialization)

	StartupSelector <Symbol>        message sent to StartupClass

	CachedAbbreviations

			<Dictionary>    className to filename mappings

	SilentLoading   <Boolean>       suppresses messages during fileIn and in compiler

					(can be set to true from a customized main)

	LogDoits        <Boolean>       if true, doits are also logged in the changes

					file. Default is false, since the changes file

					may become huge ...

	LoadBinaries    <Boolean>       if true, we attempt to load classes rom a binary

					file, if present. If false, this is always suppressed.

	SourcePath      <Collection>    cached names of really existing directories

	BitmapPath                      These are remembered, since in NFS systems,

	ResourcePath                    the time to lookup files may become long

	BinaryPath                      (especially, if some directories are on machines

	FileInPath                      which are not up ...). Therefore, the set of really

					existing directories is cached when the SystemPath

					is walked the first time.

"

! !

!Smalltalk class methodsFor:'time-versions'!

majorVersionNr

    "return the major version number.

     This is only incremented for very fundamental changes,

     which make old object files totally incompatible

     (for example, if the layout/representation of fundamental

      classes changes)."

    ^ 2

    "

     Smalltalk majorVersionNr

    "

!

minorVersionNr

    "return the minor version number.

     This is incremented for changes which make some old object

     files incompatible, or the protocol changes such that some

     classes need rework."

    ^ 10

    "

     Smalltalk minorVersionNr

    "

!

revisionNr

    "return the revision number.

     Incremented for releases which fix bugs/add features

     and represent a stable workable version which got published

     to the outside world."

    ^ 7

    " 

     Smalltalk revisionNr

    "

!

releaseNr

    "return the revision number.

     Incremented for releases which fix bugs/add features."

    ^ 1

    " 

     Smalltalk releaseNr 

    "

!

versionString

    "return the version string"

    ^ (self majorVersionNr printString ,

       '.',

       self minorVersionNr printString ,

       '.',

       self revisionNr printString)

    "

     Smalltalk versionString

    "

!

versionDate

    "return the version date - thats the date when the smalltalk

     executable was linked."

%{

#ifdef VERSIONDATE_STRING

    RETURN ( _MKSTRING(VERSIONDATE_STRING COMMA_SND) );

#endif

%}.

    ^ '16-aug-1995'

    "

     Smalltalk versionDate

    "

!      

configuration

    "for developers only: return the configuration, with which

     this smalltalk was compiled."

%{

#ifdef CONFIGURATION_STRING

    RETURN ( _MKSTRING(CONFIGURATION_STRING COMMA_SND) );

#endif

%}.

    ^ 'unknown'

    "

     Smalltalk configuration

    "

!

copyrightString

    "return a copyright string"

    ^ 'Copyright (c) 1988-95 by Claus Gittinger'

    "

     Smalltalk copyrightString

    "

!

hello

    "return a greeting string"

    "stupid: this should come from a resource file ...

     but I dont use it here, to allow mini-systems without

     Resource-stuff."

    (Language == #german) ifTrue:[

	^ 'Willkommen bei SmallTalk/X - Version '

	  , self versionString , ' vom ' , self versionDate

    ].

    (Language == #french) ifTrue:[

	^ 'Bienvenue ` SmallTalk/X - version '

	  , self versionString , ' de ' , self versionDate

    ].

    ^ 'Hello World - here is SmallTalk/X version '

      , self versionString , ' of ' , self versionDate

    "

     Smalltalk hello

    "

!

timeStamp

    "return a string useful for timestamping a file.

     The returned string is padded with spaces for a constant

     length (to avoid changing a files size in fileOut with unchanged

     class)."

    ^ ('''From Smalltalk/X, Version:' , (Smalltalk versionString) , ' on '

       , Date today printString , ' at ' , Time now printString

       , '''') paddedTo:80 with:(Character space)

! !

!Smalltalk class methodsFor:'initialization'!

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.

    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.

    ObjectMemory 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:[

	Workstation initialize

    ].

    Compiler := ByteCodeCompiler.

    Compiler isNil ifTrue:[

	"

	 ByteCodeCompiler is not in the system (i.e. has not been linked in)

	 this allows at least immediate evaluations for runtime systems without compiler

	 NOTICE: a parser is always needed, otherwise we cannot read resource files etc.

	"

	Compiler := Parser

    ].

    "

     now, finally, initialize all other classes

    "

    self initializeModules.

"/    self allBehaviorsDo:[:aClass |

"/ 'init ' print. aClass name printNL.

"/      aClass initialize

"/    ].

    Display notNil ifTrue:[

	Display initialize.

    ].

    self initInterrupts.

    self initUserPreferences.    

!

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);

%}

!

initUserPreferences

    "setup other stuff"

    LogDoits := false.

    LoadBinaries := false.

!

initGlobalsFromEnvironment

    "setup globals from the shell-environment"

    |envString i langString terrString|

    "

     extract Language and LanguageTerritory from LANG variable.

     the language and territory must not be abbreviated,

     valid are for example: english_usa

			    english

			    german

			    german_austria

    "

    Language := #english.

    LanguageTerritory := #usa.

    envString := OperatingSystem getEnvironment:'LANG'.

    envString notNil ifTrue:[

	i := envString indexOf:$_.

	(i == 0) ifTrue:[

	    langString := envString.

	    terrString := envString

	] ifFalse:[

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

	    terrString := envString copyFrom:(i + 1)

	].

	Language := langString asSymbol.

	LanguageTerritory := terrString asSymbol

    ].

    "

     Smalltalk initGlobalsFromEnvironment

    "

!

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"

!

initStandardStreams

    "initialize some well-known streams"

    Stdout := NonPositionableExternalStream forStdout.

    Stderr := NonPositionableExternalStream forStderr.

    Stdin := NonPositionableExternalStream forStdin.

    Printer := PrinterStream.

    Transcript := Stderr

    "Smalltalk initStandardStreams"

!

initInterrupts

    "initialize interrupts"

    OperatingSystem enableUserInterrupts.

    OperatingSystem enableHardSignalInterrupts.

    OperatingSystem enableFpExceptionInterrupts.

    ObjectMemory userInterruptHandler:self.

    ObjectMemory signalInterruptHandler:self.

    ObjectMemory recursionInterruptHandler:self.

    "Smalltalk initInterrupts"

!

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)

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

    homePath := OperatingSystem getHomeDirectory.

    "

     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

    ].

    (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

    "

!

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

! !

!Smalltalk class methodsFor:'startup'!

start

    "main startup, if there is a Display, initialize it

     and start dispatching; otherwise go into a read-eval-print loop"

    |idx|