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

	instanceVariableNames:''

	classVariableNames:'ConcreteClass MyPid ErrorSignal LastErrorNumber LocaleInfo

		OSSignals PipeFailed Resources VoiceMapping DefaultVoice

		BestVoiceForLanguageMapping ConsoleOutputEncoder'

	poolDictionaries:''

	category:'System-Support'

!

Object subclass:#PrinterInfo

	instanceVariableNames:'printerName attributes documentProperties printerInfo2'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractOperatingSystem

!

Object subclass:#TimeInfo

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

		dayInYear dayInWeek'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractOperatingSystem

!

Object subclass:#TimeZoneInfo

	instanceVariableNames:'bias name standardYear standardMonth standardDay standardWeekDay

		standardHour standardMinute standardBias daylightName

		standardDate daylightDate daylightYear daylightMonth daylightDay

		daylightWeekDay daylightHour daylightMinute daylightBias'

	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.

					misc concrete error reporting signals

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

getConcreteClass

    "called at early startup to determine the kind of OS we are running on,

     and assigning a concrete subclass of me (remember: I am abstract) to the

     global 'OperatingSystem'.

     Programs should never refer to any of my concrete classes directly, as

     they may not (will not) be present when ST/X is executed under anther OS."

    |osType|

    osType := self getSystemType.

    osType = 'win32' ifTrue:[

	^ Win32OperatingSystem

    ].

    osType = 'osx' ifTrue:[

	^ OSXOperatingSystem

    ].

    osType = 'os2' ifTrue:[

	^ OS2OperatingSystem

    ].

    osType = 'macos' ifTrue:[

	^ MacOperatingSystem

    ].

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

	^ OpenVMSOperatingSystem

    ].

    ^ UnixOperatingSystem

!

initResources

    "/ allow for ResourcePack class to be missing (non-GUI smalltalks)

    ResourcePack notNil ifTrue:[

	Error handle:[:ex |

	    'OS [warning]: error when reading resources for libbasic:' errorPrintCR.

	    'OS [info]: 'errorPrint. ex description errorPrintCR.

	    'OS [info]: backtrace: ' errorPrintCR.

	    self withErrorStreamDo:[:s |

		ex suspendedContext fullPrintAllOn:s.

	    ].

	] do:[

	    Resources := ResourcePack forPackage:(self package).

	].

    ]

    "Modified: / 21-04-2011 / 12:48:02 / cg"

!

initialize

    "initialize the class"

    "/ protect against double initialization

    ErrorSignal isNil ifTrue:[

	self initializeConcreteClass.

	OSErrorHolder initialize.

	ErrorSignal := OsError.

	Smalltalk addDependent:self.    "/ to catch language changes

    ].

!

initializeConcreteClass

    OperatingSystem := ConcreteClass := self getConcreteClass.

!

reinitialize

    MyPid := nil.   "/ the cached pid is no longer valid after restart

    "Created: / 17-04-2020 / 09:46:15 / Stefan Vogel"

! !

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