"

 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:#AbstractOperatingSystem

	instanceVariableNames:''

	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed

		ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal

		InvalidArgumentsSignal UnsupportedOperationSignal'

	poolDictionaries:''

	category:'System-Support'

!

!AbstractOperatingSystem primitiveDefinitions!

%{

#define UNIX_LIKE       /* assumption: a real operatingSystem */

#if defined(MSWINDOWS) || defined(OS2) || defined(MSDOS) || defined(WIN32)

# ifndef MSDOS_LIKE

#  define MSDOS_LIKE

# endif

# undef UNIX_LIKE       /* oops - we were too optimistic - no OS */

# ifdef i386

#  ifndef _X86_

#   define _X86_

#  endif

# endif

#endif /* any MS-non-OS */

#if defined(transputer)

# undef MSDOS_LIKE

# undef UNIX_LIKE       /* oops - we were too optimistic - no OS */

#endif

%}

! !

!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 access to most (all ?) required operating system services;

    some of it is very specific for unix, so do not depend on

    things available here in your applications 

    - some may not be found in other OS's or be slightly different ...

    (On the other hand: I do not want to hide all features

     from you - in some situations it MAY be interesting to be

     able to get down to a select or fork system call easily (at least on Unix systems).

     You decide - portability vs. functionality)

    [Class variables:]

	HostName        <String>        remembered hostname

	DomainName      <String>        remembered domainname

	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.

	SlowFork        <Boolean>       if set, fork and popen are avoided;

					(more or less obsolete now)

	ErrorSignal     <Signal>        Parentsignal of all OS error signals.

					not directly raised.

	AccessDeniedErrorSignal

	FileNotFoundErrorSignal

	UnsupportedOperationSignal

	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)

	CurrentDirectory <String>       remembered currentDirectories path

    [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'!

initialize

    "initialize the class"

    self initializeConcreteClass.

    ErrorSignal isNil ifTrue:[

        ErrorSignal := Object errorSignal 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 OS'.

    ]

!

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