"{ Encoding: utf8 }"

"

 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.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

Object subclass:#Smalltalk

	instanceVariableNames:''

	classVariableNames:'StartBlocks ImageStartBlocks ExitBlocks CachedClasses

		NumberOfClassesHint SystemPath StartupClass StartupSelector

		StartupArguments CommandLine CommandName CommandLineArguments

		CachedAbbreviations VerboseLoading SilentLoading Initializing

		StandAlone HeadlessOperation IsPlugin IsSharedLibraryComponent

		IsSTScript DebuggingStandAlone LogDoits LoadBinaries

		RealSystemPath ResourcePath SourcePath BinaryPath FileInPath

		PackagePath BinaryDirName ResourceDirName SourceDirName

		BitmapDirName PackageDirName FileInDirName ChangeFileName

		ImageStartTime ImageRestartTime DemoMode SaveEmergencyImage

		SpecialObjectArray CallbackSignal ClassesFailedToInitialize

		HasNoConsole IgnoreHalt PackageToPathMapping IgnoreAssertions'

	poolDictionaries:''

	category:'System-Support'

!

Smalltalk comment:''

!

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

    Also global variables are (conceptionally) 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,

      I do not use associations for globals, but instead keep the

      name<->value relations in the VM and access globals via utility

      functions found there.

    However, it provides the known enumeration protocol.

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

    to inherit more collection stuff ...

    [Instance variables:]

    [Class variables:]

    strictly private classVariables (helpers):

    [author:]

    [see also:]

"

!

readme_resources

"

    What is a resource file:

	resource files contain language transformation and sometimes

	UI-look specifics such as icons etc.

    Where are resources stored in the image:

	Resource files are only read on demand (i.e. when needed) and only read once

	i.e. they are cached in the image).

	The cached data is held in a per-class class-instVar named 'ClassResources'.

	With only a few exceptions, the only classes which need resources are the GUI

	classes under the SimpleView hierarchy.

    How does the system find resources:

	The idea is that the system-provided resource files can be overwritten

	by the user or an application configuration.

	This works via a hierarchy of directories where resources are searched for,

	with the systems standard resource-files being at the end of that chain.

	When searching for a resource file for class X, the following files are searched

	in order:

		{ResourcePath} / resources / X.rs

		{SystemPath} / (CLASSES-PACKAGE-PATH) / X.rs

		{ResourcePath} / (CLASSES-PACKAGE-PATH) / X.rs

"

! !

!Smalltalk class methodsFor:'initialization'!

basicInitializeSystem

    "initialize all other classes.

     This one is the very first entry into the smalltalk world

     [with error handling, via the initializeSystem],

     right after startup, usually immediately followed by Smalltalk>>start.

     Notice:

        this is NOT called when an image is restarted; in this

        case the show starts in Smalltalk>>restart."

    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

    ].

    "/

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

    "/

    SmallInteger initialize.

    Object initialize.

    OperatingSystem initialize.

    Stream initialize.

    PositionableStream initialize.

    Filename initialize.

    ObjectMemory initialize.

    ExternalStream initialize.

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

    "/

    "/ but, on OSX we need the CharacterEncoder to be initialized

    CharacterEncoder initialize.

    self initSystemPath.

    "/

    "/ in case, someone needs the objectFileLoader early

    "/

    ObjectFileLoader notNil ifTrue:[

        ObjectFileLoader initialize.

    ].

    "/

    "/ now, finally, initialize all other classes

    "/

    self initializeModules.

    ImageStartTime := Timestamp now.

    self initInterrupts.

    self initUserPreferences.

    "/ just to make sure: if any prefs affect any resources,

    "/ flush them here, so they are reread in any case.

    "/ required for some apps, for example to show the menu correctly (see launcher's help menu)

    ApplicationModel notNil ifTrue:[

        ApplicationModel flushAllClassResources.

    ].

    "/

    "/ give classes a chance to perform 2nd-level initialization

    "/ now, we are certain, that all other classes have been initialized

    "/ (especially: streams and signals can now be used)

    "/

    ObjectMemory changed:#initialized.

    "Modified: / 08-01-1997 / 19:58:12 / stefan"

    "Modified: / 05-12-2006 / 21:48:58 / cg"

    "Modified: / 24-10-2012 / 18:45:15 / sr"

!

initGlobalsFromEnvironment

    "setup globals from the shell-environment"

    |envString i langString terrString|

    StandAlone isNil ifTrue:[

	StandAlone := false.

    ].

    HeadlessOperation isNil ifTrue:[

	HeadlessOperation := false.

    ].

    "

     extract Language and LanguageTerritory from LANG variable.

     valid are for example:

			    en_en / en

			    en_us

			    en_gb

			    de_de / de

			    de_at       (for Austria)

    "

    Language := #en.

    LanguageTerritory := #us.

    "Format of LANG is: language[_territory][.codeset][@modifier]

	language        ISO-639  Language code

	territory       ISO-3166 Contry code"

    envString := OperatingSystem getLanguage.

    envString size > 0 ifTrue:[

	i := envString indexOf:$@.

	(i ~~ 0) ifTrue:[

	    LanguageModifier := (envString copyFrom:(i + 1)) asLowercase asSymbol.

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

	] ifFalse:[

	    LanguageModifier := nil.

	].

	i := envString indexOf:$..

	(i ~~ 0) ifTrue:[

	    LanguageCodeset := (envString copyFrom:(i + 1)) asLowercase asSymbol.

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

	] ifFalse:[

	    LanguageCodeset := #'iso8859-1'.

	].

	i := envString indexOf:$_.

	(i == 0) ifTrue:[

	    langString := envString.

	    terrString := envString

	] ifFalse:[

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

	    terrString := envString copyFrom:(i + 1)

	].

	langString := langString asLowercase.

	terrString := terrString asLowercase.

	(langString = 'c' or:[terrString = 'c']) ifTrue:[

	    ('Smalltalk [info]: ignoring wrong LANG setting (',langString,'_',terrString,') - using english') infoPrintCR.

	] ifFalse:[

	    Language := langString asSymbol.

	    LanguageTerritory := terrString asSymbol

	]

    ].

    "

     Smalltalk initGlobalsFromEnvironment

    "

    "Modified: / 14-02-2012 / 15:25:08 / cg"

!

initInterrupts

    "initialize interrupts"

    OperatingSystem enableUserInterrupts.

    OperatingSystem enableHardSignalInterrupts.

    OperatingSystem enableCrashSignalInterrupts.

    ObjectMemory userInterruptHandler:self.

    ObjectMemory signalInterruptHandler:self.

    ObjectMemory recursionInterruptHandler:self.

    OperatingSystem isOSXlike ifTrue:[

	"/ OSX sends SIGABRT for NSExceptions

	OperatingSystem operatingSystemSignal:(OperatingSystem sigABRT) install:NSException.

	OperatingSystem enableAbortInterrupts.

    ].

    "

     Smalltalk initInterrupts

    "

    "Modified: 20.8.1997 / 09:35:49 / stefan"

!

initStandardStreams

    "initialize some well-known streams"

    Stdout := NonPositionableExternalStream forStdout.

    Stderr := NonPositionableExternalStream forStderr.

    Stdin := NonPositionableExternalStream forStdin.

    PrinterStream notNil ifTrue:[

	Printer := PrinterStream defaultPrinter.

    ].

    Transcript := Stderr

    "

     Smalltalk initStandardStreams

    "

    "Modified: / 25-10-2006 / 17:36:46 / cg"

!

initStandardTools

    "predefine some tools which we might need later

     - if the view-classes exist,

       they will redefine Inspector and Debugger for graphical interfaces"

    Display notNil ifTrue:[

	InspectorView notNil ifTrue:[

	    Inspector := InspectorView

	].

	DebugView notNil ifTrue:[

	    Debugger := DebugView

	].

	"/ Display initialize

    ].

    "/ make the changeFilePath an absolute one,

    "/ in case some stupid windows fileDialog changes the current directory...

    ObjectMemory

	nameForChanges:(Filename currentDirectory / ObjectMemory nameForChangesLocal)

			    asAbsoluteFilename pathName

    "

     Smalltalk initStandardTools

    "

    "Modified: / 09-02-2011 / 20:44:47 / cg"

!

initSystemPath

    "setup path where system files are searched for.

     the default path is set to:

	    .

	    <directory of exe>       (WIN32 only)

	    $HOME                    (if defined)

	    $HOME/.smalltalk         (if defined & existing)

	    $SMALLTALK_LIBDIR        (if defined & existing)

	    $STX_LIBDIR              (if defined & existing)

	    $STX_TOPDIR              (if defined & existing)

	    REGISTRY('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\<CurrentVersion>\LibDir') (WIN32 only)

	    REGISTRY('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\LibDir')                  (WIN32 only)

	    <standard places>

     standard places (unix):

	    /opt/smalltalk/<release> (if existing)

	    /opt/smalltalk           (if existing)

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

	    /usr/lib/smalltalk       (if existing)

	    /lib/smalltalk           (if existing)

     win32:

	    \programs\exept\smalltalk (if existing)

	    \programs\smalltalk       (if existing)

	    \smalltalk                (if existing)

     vms:

	    $stx:lib                 (if existing)

	    $stx:root                (if existing)