"

 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' }"

Object subclass:#AbstractOperatingSystem

	instanceVariableNames:''

	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed

		ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal

		InvalidArgumentsSignal UnsupportedOperationSignal Resources'

	poolDictionaries:''

	category:'System-Support'

!

Object subclass:#TimeInfo

	instanceVariableNames:'year month day hours minutes seconds utcOffset dst milliseconds

		dayInYear dayInWeek'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractOperatingSystem

!

!AbstractOperatingSystem primitiveDefinitions!

%{

#include "stxOSDefs.h"

%}

! !

!AbstractOperatingSystem 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 class realizes services common to the supported operating systems;

    typically, services which can be implemented based upon more primitive

    functions, or which can be implemented in a portable way (but probably

    less performant) are implemented here.

    [Class variables:]

        ConcreteClass   <Class>         the real OS class

        LocaleInfo      <Dictionary>    if non nil, that is taken instead of the operating

                                        systems locale definitions (allows for overwriting

                                        these, or provide a compatible info on systems which do

                                        not support locales)

        LastErrorNumber <Integer>       the last value of errno

        OSSignals       <Array>         Array of signals to be raised for corresponding

                                        OperatingSystem signals.

        PipeFailed      <Boolean>       set if a fork (or popen) has failed;

                                        ST/X will avoid doing more forks/popens

                                        if this flag is set, for a slightly

                                        smoother operation.

        ErrorSignal     <Signal>        Parentsignal of all OS error signals.

                                        not directly raised.

        AccessDeniedErrorSignal         misc concrete error reporting signals

        FileNotFoundErrorSignal

        UnsupportedOperationSignal

        InvalidArgumentsSignal

    [author:]

        Claus Gittinger

    [see also:]

        OSProcessStatus

        Filename Date Time

        ExternalStream FileStream PipeStream Socket

"

!

examples

"

  various queries

                                                                [exBegin]

    Transcript 

        showCR:'hello ' , (OperatingSystem getLoginName)

                                                                [exEnd]

                                                                [exBegin]

    OperatingSystem isUNIXlike ifTrue:[

        Transcript showCR:'this is some UNIX-like OS'

    ] ifFalse:[

        Transcript showCR:'this OS is not UNIX-like'

    ]

                                                                [exEnd]

                                                                [exBegin]

    Transcript 

        showCR:'this machine is called ' , OperatingSystem getHostName

                                                                [exEnd]

                                                                [exBegin]

    Transcript 

        showCR:('this machine is in the '

               , OperatingSystem getDomainName

               , ' domain')

                                                                [exEnd]

                                                                [exBegin]

    Transcript 

        showCR:('this machine''s CPU is a '

               , OperatingSystem getCPUType

               )

                                                                [exEnd]

                                                                [exBegin]

    Transcript showCR:'executing ls command ...'.

    OperatingSystem executeCommand:'ls'.

    Transcript showCR:'... done.'.

                                                                [exEnd]

  locking a file 

  (should be executed on two running smalltalks - not in two threads):

                                                                [exBegin]

    |f|

    f := 'testFile' asFilename readWriteStream.

    10 timesRepeat:[

        'about to lock ...' printCR.

        [

          OperatingSystem 

            lockFD:(f fileDescriptor)

            shared:false

            blocking:false

        ] whileFalse:[

            'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.

            Delay waitForSeconds:1

        ].

        'LOCKED ...' printCR.

        Delay waitForSeconds:10.

        'unlock ...' printCR.

        (OperatingSystem 

            unlockFD:(f fileDescriptor)) printCR.

        Delay waitForSeconds:3.

    ]

                                                                [exBegin]

"

! !

!AbstractOperatingSystem class methodsFor:'initialization'!

initResources

    Resources := ResourcePack for:self

!

initialize

    "initialize the class"

    self initializeConcreteClass.

    ErrorSignal isNil ifTrue:[

        ErrorSignal := Error newSignalMayProceed:true.

        ErrorSignal nameClass:self message:#errorSignal.

        ErrorSignal notifierString:'OS error encountered'.

        AccessDeniedErrorSignal := ErrorSignal newSignalMayProceed:true.

        AccessDeniedErrorSignal nameClass:self message:#accessDeniedError.

        AccessDeniedErrorSignal notifierString:'OS access denied'.

        FileNotFoundErrorSignal := ErrorSignal newSignalMayProceed:true.

        FileNotFoundErrorSignal nameClass:self message:#fileNotFoundErrorSignal.

        FileNotFoundErrorSignal notifierString:'OS file not found'.

        InvalidArgumentsSignal := ErrorSignal newSignalMayProceed:true.

        InvalidArgumentsSignal nameClass:self message:#invalidArgumentsSignal.

        InvalidArgumentsSignal notifierString:'bad arg to OS call'.

        UnsupportedOperationSignal := ErrorSignal newSignalMayProceed:true.

        UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal.

        UnsupportedOperationSignal notifierString:'operation not supported by this OS'.

    ].

    Smalltalk addDependent:self.    "/ to catch language changes

!

initializeConcreteClass

    |osType cls|

    osType := self getSystemType.

    osType = 'win32' ifTrue:[

        cls := Win32OperatingSystem

    ] ifFalse:[

        osType = 'os2' ifTrue:[

            cls := OS2OperatingSystem

        ] ifFalse:[

            osType = 'macos' ifTrue:[

                cls := MacOperatingSystem

            ] ifFalse:[

                ((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[

                    cls := OpenVMSOperatingSystem

                ] ifFalse:[

                    cls := UnixOperatingSystem

                ]

            ]

        ]

    ].

    OperatingSystem := ConcreteClass := cls.

! !

!AbstractOperatingSystem class methodsFor:'OS signal constants'!

sigABRT

    "return the signal number for SIGABRT - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigALRM

    "return the signal number for SIGALRM - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigBREAK

    "return the signal number for SIGBREAK - 0 if not supported.

     This is an MSDOS specific signal"

    ^ 0

!

sigBUS

    "return the signal number for SIGBUS - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigCHLD

    "return the signal number for SIGCHLD - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigCONT

    "return the signal number for SIGCONT - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigDANGER

    "return the signal number for SIGDANGER - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigEMT

    "return the signal number for SIGEMT - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigFP

    "return the signal number for SIGFP - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigGRANT

    "return the signal number for SIGGRANT - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigHUP

    "return the signal number for SIGHUP

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigILL

    "return the signal number for SIGILL - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigINT

    "return the signal number for SIGINT

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigIO

    "return the signal number for SIGIO - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigIOT

    "return the signal number for SIGIOT - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigKILL

    "return the signal number for SIGKILL

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigLOST

    "return the signal number for SIGLOST - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigMIGRATE

    "return the signal number for SIGMIGRATE - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigMSG

    "return the signal number for SIGMSG - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigPIPE

    "return the signal number for SIGPIPE - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigPOLL

    "return the signal number for SIGPOLL - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigPRE

    "return the signal number for SIGPRE - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigPROF

    "return the signal number for SIGPROF - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigPWR

    "return the signal number for SIGPWR - 0 if not supported

     (not available on all systems)"

    ^ 0

!

sigQUIT

    "return the signal number for SIGQUIT

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigRETRACT

    "return the signal number for SIGRETRACT - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigSAK

    "return the signal number for SIGSAK - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigSEGV

    "return the signal number for SIGSEGV - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigSOUND

    "return the signal number for SIGSOUND - 0 if not supported

     (seems to be an AIX special)"

    ^ 0

!

sigSTOP

    "return the signal number for SIGSTOP - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigSYS

    "return the signal number for SIGSYS - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigTERM

    "return the signal number for SIGTERM - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigTRAP

    "return the signal number for SIGTRAP - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigTSTP

    "return the signal number for SIGTSTP - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigTTIN

    "return the signal number for SIGTTIN - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigTTOU

    "return the signal number for SIGTTOU - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigURG

    "return the signal number for SIGURG - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigUSR1

    "return the signal number for SIGUSR1 - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigUSR2

    "return the signal number for SIGUSR2 - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigVTALRM

    "return the signal number for SIGVTALRM - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!

sigWINCH

    "return the signal number for SIGWINCH - 0 if not supported

     (the numeric value is not the same across unix-systems)"

    ^ 0

!