hg/stx-libbasic: comparison AbstractOperatingSystem.st

equal deleted inserted replaced

-:0ab1deab8e9c
+:8d796ca8bd1d
 "
 COPYRIGHT (c) 1988 by Claus Gittinger
-All Rights Reserved
+	      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
 !AbstractOperatingSystem class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1988 by Claus Gittinger
-All Rights Reserved
+	      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
 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
+	ConcreteClass   <Class>         the real OS class
-LocaleInfo      <Dictionary>    if non nil, that is taken instead of the operating
+	LocaleInfo      <Dictionary>    if non nil, that is taken instead of the operating
-systems locale definitions (allows for overwriting
+					systems locale definitions (allows for overwriting
-these, or provide a compatible info on systems which do
+					these, or provide a compatible info on systems which do
-not support locales)
+					not support locales)
-LastErrorNumber <Integer>       the last value of errno
+	LastErrorNumber <Integer>       the last value of errno
-OSSignals       <Array>         Array of signals to be raised for corresponding
+	OSSignals       <Array>         Array of signals to be raised for corresponding
-OperatingSystem signals.
+					OperatingSystem signals.
-PipeFailed      <Boolean>       set if a fork (or popen) has failed;
+	PipeFailed      <Boolean>       set if a fork (or popen) has failed;
-ST/X will avoid doing more forks/popens
+					ST/X will avoid doing more forks/popens
-if this flag is set, for a slightly
+					if this flag is set, for a slightly
-smoother operation.
+					smoother operation.
-ErrorSignal     <Signal>        Parentsignal of all OS error signals.
+	ErrorSignal     <Signal>        Parentsignal of all OS error signals.
-not directly raised.
+					not directly raised.
-AccessDeniedErrorSignal         misc concrete error reporting signals
+	AccessDeniedErrorSignal         misc concrete error reporting signals
-FileNotFoundErrorSignal
+	FileNotFoundErrorSignal
-UnsupportedOperationSignal
+	UnsupportedOperationSignal
-InvalidArgumentsSignal
+	InvalidArgumentsSignal
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [see also:]
-OSProcessStatus
+	OSProcessStatus
-Filename Date Time
+	Filename Date Time
-ExternalStream FileStream PipeStream Socket
+	ExternalStream FileStream PipeStream Socket
 "
 !
 examples
 "
 various queries
-[exBegin]
+								[exBegin]
 Transcript
-showCR:'hello ' , (OperatingSystem getLoginName)
+	showCR:'hello ' , (OperatingSystem getLoginName)
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 OperatingSystem isUNIXlike ifTrue:[
-Transcript showCR:'this is some UNIX-like OS'
+	Transcript showCR:'this is some UNIX-like OS'
 ] ifFalse:[
-Transcript showCR:'this OS is not UNIX-like'
+	Transcript showCR:'this OS is not UNIX-like'
 ]
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 Transcript
-showCR:'this machine is called ' , OperatingSystem getHostName
+	showCR:'this machine is called ' , OperatingSystem getHostName
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 Transcript
-showCR:('this machine is in the '
+	showCR:('this machine is in the '
-, OperatingSystem getDomainName
+	       , OperatingSystem getDomainName
-, ' domain')
+	       , ' domain')
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 Transcript
-showCR:('this machine''s CPU is a '
+	showCR:('this machine''s CPU is a '
-, OperatingSystem getCPUType
+	       , OperatingSystem getCPUType
-)
+	       )
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 Transcript showCR:'executing ls command ...'.
 OperatingSystem executeCommand:'ls'.
 Transcript showCR:'... done.'.
-[exEnd]
+								[exEnd]
 locking a file
 (should be executed on two running smalltalks - not in two threads):
-[exBegin]
+								[exBegin]
 |f|
 f := 'testFile' asFilename readWriteStream.
 10 timesRepeat:[
-'about to lock ...' printCR.
+	'about to lock ...' printCR.
-[
+	[
-OperatingSystem
+	  OperatingSystem
-lockFD:(f fileDescriptor)
+	    lockFD:(f fileDescriptor)
-shared:false
+	    shared:false
-blocking:false
+	    blocking:false
-] whileFalse:[
+	] whileFalse:[
-'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
+	    'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
-Delay waitForSeconds:1
+	    Delay waitForSeconds:1
-].
+	].
-'LOCKED ...' printCR.
+	'LOCKED ...' printCR.
-Delay waitForSeconds:10.
+	Delay waitForSeconds:10.
-'unlock ...' printCR.
+	'unlock ...' printCR.
-(OperatingSystem
+	(OperatingSystem
-unlockFD:(f fileDescriptor)) printCR.
+	    unlockFD:(f fileDescriptor)) printCR.
-Delay waitForSeconds:3.
+	Delay waitForSeconds:3.
 ]
-[exBegin]
+								[exBegin]
 "
 ! !
 !AbstractOperatingSystem class methodsFor:'initialization'!
 initResources
 "/ allow for ResourcePack class to be missing (non-GUI smalltalks)
 ResourcePack notNil ifTrue:[
-Error handle:[:ex |
+	Error handle:[:ex |
-'OS [warning]: error when reading resources for libbasic:' errorPrintCR.
+	    'OS [warning]: error when reading resources for libbasic:' errorPrintCR.
-'OS [info]: 'errorPrint. ex description errorPrintCR.
+	    'OS [info]: 'errorPrint. ex description errorPrintCR.
-'OS [info]: backtrace: ' errorPrintCR.
+	    'OS [info]: backtrace: ' errorPrintCR.
-self withErrorStreamDo:[:s |
+	    self withErrorStreamDo:[:s |
-ex suspendedContext fullPrintAllOn:s.
+		ex suspendedContext fullPrintAllOn:s.
-].
+	    ].
-] do:[
+	] do:[
-Resources := ResourcePack forPackage:(self package).
+	    Resources := ResourcePack forPackage:(self package).
-].
+	].
 ]
 "Modified: / 21-04-2011 / 12:48:02 / cg"
 !
 "initialize the class"
 self initializeConcreteClass.
 ErrorSignal isNil ifTrue:[
-OSErrorHolder initialize.
+	OSErrorHolder initialize.
-ErrorSignal := OsError.
+	ErrorSignal := OsError.
-InvalidArgumentsSignal := OsInvalidArgumentsError.
+	InvalidArgumentsSignal := OsInvalidArgumentsError.
-AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
+	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
-FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
+	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
-UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
+	UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
 ].
 Smalltalk addDependent:self.    "/ to catch language changes
 !
 initializeConcreteClass
 |osType cls|
 osType := self getSystemType.
 osType = 'win32' ifTrue:[
-cls := Win32OperatingSystem
+	cls := Win32OperatingSystem
 ] ifFalse:[
-osType = 'os2' ifTrue:[
+	osType = 'os2' ifTrue:[
-cls := OS2OperatingSystem
+	    cls := OS2OperatingSystem
-] ifFalse:[
+	] ifFalse:[
-osType = 'macos' ifTrue:[
+	    osType = 'macos' ifTrue:[
-cls := MacOperatingSystem
+		cls := MacOperatingSystem
-] ifFalse:[
+	    ] ifFalse:[
-((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
+		((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
-cls := OpenVMSOperatingSystem
+		    cls := OpenVMSOperatingSystem
-] ifFalse:[
+		] ifFalse:[
-cls := UnixOperatingSystem
+		    cls := UnixOperatingSystem
-]
+		]
-]
+	    ]
-]
+	]
 ].
 OperatingSystem := ConcreteClass := cls.
 ! !
 !AbstractOperatingSystem class methodsFor:'OS signal constants'!
 update:something with:aParameter from:changedObject
 "Smalltalk notifies us about changes"
 ((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[
-self initResources
+	self initResources
 ]
 ! !
 !AbstractOperatingSystem class methodsFor:'dummy shell operations'!
 openApplicationForDocument:aFilenameOrString operation:operationSymbol
 "open a windows-shell application to present the document contained in aFilenameOrString.
 This looks for the files extension, and is typically used to present help-files,
 html documents, pdf documents etc.
 operationSymbol is one of:
-open
+	open
-edit
+	edit
-explore
+	explore
 "
 "/ use a fileBrowser
 UserPreferences current fileBrowserClass openOn:aFilenameOrString
 clearLastErrorNumber
 "return the last errors number.
 See also: #lastErrorSymbol and #lastErrorString.
 Notice: having a single error number is a bad idea in a multithreaded
-environment - this interface will change."
+	     environment - this interface will change."
 LastErrorNumber := nil.
 "
 AbstractOperatingSystem clearLastErrorNumber
 errorStringForSymbol:errorSymbol
 "return an errorMessage for an errorSymbol
 (as kept in an osErrorHolder)."
 Resources isNil ifTrue:[
-"/ do not care to load resource strings, if the error happens durig early initialization
+	"/ do not care to load resource strings, if the error happens durig early initialization
-Smalltalk isInitialized ifFalse:[
+	Smalltalk isInitialized ifFalse:[
-^ errorSymbol
+	    ^ errorSymbol
-].
+	].
-self initResources.
+	self initResources.
-Resources isNil ifTrue:[
+	Resources isNil ifTrue:[
-^ errorSymbol
+	    ^ errorSymbol
-]
+	]
 ].
 ^ Resources at:errorSymbol ifAbsent:errorSymbol
 "
 OperatingSystem errorStringForSymbol:#EPERM
 |holder errSym|
 holder := self errorHolderForNumber:errNr.
 errSym := holder errorSymbol.
 ^ Array
-with:errSym
+	with:errSym
-with:(self errorStringForSymbol:errSym)
+	with:(self errorStringForSymbol:errSym)
 "
 OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
 OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EIO)
 OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#ENXIO)
 lastErrorNumber
 "return the last errors number.
 See also: #lastErrorSymbol and #lastErrorString.
 Notice: having a single error number is a bad idea in a multithreaded
-environment - this interface will change."
+	     environment - this interface will change."
 ^ LastErrorNumber
 "
 OperatingSystem lastErrorNumber
 lastErrorString
 "return a message string describing the last error.
 See also: #lastErrorNumber and #lastErrorSymbol.
 Notice: having a single error number is a bad idea in a multithreaded
-environment - this interface will change."
+	     environment - this interface will change."
 LastErrorNumber isNil ifTrue:[^ nil].
 ^ self errorTextForNumber:LastErrorNumber
 "
 lastErrorSymbol
 "return a symbol (such as #EBADF or #EACCESS) describing the last error.
 See also: #lastErrorNumber and #lastErrorString.
 Notice: having a single error number is a bad idea in a multithreaded
-environment - this interface will change."
+	     environment - this interface will change."
 LastErrorNumber isNil ifTrue:[^ nil].
 ^ self errorSymbolForNumber:LastErrorNumber
 "
 !AbstractOperatingSystem class methodsFor:'executing OS commands-private'!
 shuffleAllFrom:anInStream to:anOutStream lineWise:lineWise lockWith:aLock
 lineWise ifFalse:[
-^ anInStream copyToEndInto:anOutStream.
+	^ anInStream copyToEndInto:anOutStream.
 ].
 [anInStream atEnd] whileFalse:[
-aLock critical:[
+	aLock critical:[
-self
+	    self
-shuffleFrom:anInStream
+		shuffleFrom:anInStream
-to:anOutStream
+		to:anOutStream
-lineWise:lineWise
+		lineWise:lineWise
-]
+	]
 ]
 !
 shuffleFrom:anInStream to:anOutStream lineWise:lineWise
 "copy data from anInStream to anOutStream.
 Caller makes sure, than anInStream does not block.
 anOutstream should have been set to non-blocking-mode"
 lineWise ifTrue:[
-|data|
+	|data|
-data := anInStream nextLine.
+	data := anInStream nextLine.
-data notNil ifTrue:[
+	data notNil ifTrue:[
-anOutStream nextPutLine:data
+	    anOutStream nextPutLine:data
-] .
+	] .
 ] ifFalse:[
-anInStream copyToEndInto:anOutStream.
+	anInStream copyToEndInto:anOutStream.
 ].
 !
 shuffleRestFrom:anInStream to:anOutStream lineWise:lineWise
 [anInStream atEnd] whileFalse:[
-self
+	self
-shuffleFrom:anInStream
+	    shuffleFrom:anInStream
-to:anOutStream
+	    to:anOutStream
-lineWise:lineWise.
+	    lineWise:lineWise.
 ].
 !
 startProcess:aCommandString
 "start executing the OS command as specified by the argument, aCommandString
 Return the processId if successful, nil otherwise.
 Use #waitForProcess: for synchronization and exec status return,
 or #killProcess: to stop it."
 ^ self
-startProcess:aCommandString
+	startProcess:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
 "
 |pid|
 pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
 "
 "
 |pid|
 pid := OperatingSystem
-startProcess:'dir/l'
+		startProcess:'dir/l'
-inputFrom:nil
+		inputFrom:nil
-outputTo:Stdout
+		outputTo:Stdout
-errorTo:nil
+		errorTo:nil
-inDirectory:nil.
+		inDirectory:nil.
 (Delay forSeconds:2) wait.
 OperatingSystem killProcess:pid.
 "
 "Modified: / 21.3.1997 / 10:04:35 / dq"
 Return the processId if successful, nil otherwise.
 Use #waitForProcess: for synchronization and exec status return,
 or #killProcess: to stop it."
 ^ self
-startProcess:aCommandString
+	startProcess:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
 "
 |pid|
 pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
 (Delay forSeconds:3) wait.
 Return the processId if successful, nil otherwise.
 Use #monitorPid:action: for synchronization and exec status return,
 or #killProcess: to stop it."
 ^ self
-startProcess:aCommandString
+	startProcess:aCommandString
-inputFrom:anExternalInStream
+	inputFrom:anExternalInStream
-outputTo:anExternalOutStream
+	outputTo:anExternalOutStream
-errorTo:anExternalErrStream
+	errorTo:anExternalErrStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
 "Modified: / 10.11.1998 / 20:59:05 / cg"
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
 errorTo:anExternalErrStream auxFrom:anAuxiliaryStream inDirectory:dir
 ^ self
-startProcess:aCommandString
+	startProcess:aCommandString
-inputFrom:anExternalInStream
+	inputFrom:anExternalInStream
-outputTo:anExternalOutStream
+	outputTo:anExternalOutStream
-errorTo:anExternalErrStream
+	errorTo:anExternalErrStream
-auxFrom:anAuxiliaryStream
+	auxFrom:anAuxiliaryStream
-environment:nil
+	environment:nil
-inDirectory:dir
+	inDirectory:dir
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
 "start executing the OS command as specified by the argument, aCommandString
 as a separate process; do not wait for the command to finish.
 Return the processId if successful, nil otherwise.
 Use #monitorPid:action: for synchronization and exec status return,
 or #killProcess: to stop it."
 ^ self
-startProcess:aCommandString
+	startProcess:aCommandString
-inputFrom:anExternalInStream
+	inputFrom:anExternalInStream
-outputTo:anExternalOutStream
+	outputTo:anExternalOutStream
-errorTo:anExternalErrStream
+	errorTo:anExternalErrStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:dir
+	inDirectory:dir
 ! !
 !AbstractOperatingSystem class methodsFor:'executing OS commands-public'!
 executeCommand:aCommandString
 The commandString is passed to a shell for execution - see the description of
 'sh -c' in your UNIX manual.
 Return true if successful, false otherwise."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "unix:
 OperatingSystem executeCommand:'sleep 30'.
 OperatingSystem executeCommand:'pwd'.
 The commandString is passed to a shell for execution - see the description of
 'sh -c' in your UNIX manual.
 Return true if successful, false otherwise."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:errorStream
+	errorTo:errorStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "unix:
 OperatingSystem executeCommand:'ls -l'                 errorTo:Transcript.
 OperatingSystem executeCommand:'invalidCommand'        errorTo:Transcript.
 The commandString is passed to a shell for execution - see the description of
 'sh -c' in your UNIX manual.
 Return true if successful, false otherwise."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:errorStream
+	errorTo:errorStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "unix:
 OperatingSystem executeCommand:'ls -l'                 errorTo:Transcript.
 OperatingSystem executeCommand:'invalidCommand'        errorTo:Transcript.
 The commandString is passed to a shell for execution - see the description of
 'sh -c' in your UNIX manual.
 Return true if successful, false otherwise."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:[:exitStatus| false]
+	onError:[:exitStatus| false]
 "Modified: / 10.11.1998 / 20:54:37 / cg"
 !
 executeCommand:aCommandString inDirectory:aDirectory onError:aBlock
 Return true if successful, the value from aBlock if not.
 If not successfull, aBlock is called with an OsProcessStatus
 (containing the exit status) as argument."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:aBlock
+	onError:aBlock
 "Modified: / 10.11.1998 / 20:54:37 / cg"
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream
 closeStreams|
 terminateLock := Semaphore forMutualExclusion.
 ((externalInStream := anInStream) notNil
 and:[externalInStream isExternalStream not]) ifTrue:[
-pIn := NonPositionableExternalStream makePipe.
+	pIn := NonPositionableExternalStream makePipe.
-inStreamToClose := externalInStream := pIn at:1.
+	inStreamToClose := externalInStream := pIn at:1.
-shuffledInStream := pIn at:2.
+	shuffledInStream := pIn at:2.
-anInStream isBinary ifTrue:[
+	anInStream isBinary ifTrue:[
-shuffledInStream binary
+	    shuffledInStream binary
-].
+	].
-lineWise ifFalse:[
+	lineWise ifFalse:[
-shuffledInStream blocking:false.
+	    shuffledInStream blocking:false.
-].
+	].
-"/ start a reader process, shuffling data from the given
+	"/ start a reader process, shuffling data from the given
-"/ inStream to the pipe (which is connected to the commands input)
+	"/ inStream to the pipe (which is connected to the commands input)
-inputShufflerProcess :=
+	inputShufflerProcess :=
-[
+	    [
-[
+		[
-[anInStream atEnd] whileFalse:[
+		    [anInStream atEnd] whileFalse:[
-self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
+			self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
-shuffledInStream flush
+			shuffledInStream flush
-]
+		    ]
-] ensure:[
+		] ensure:[
-shuffledInStream close
+		    shuffledInStream close
-]
+		]
-] newProcess
+	    ] newProcess
-name:'cmd input shuffler';
+		name:'cmd input shuffler';
 "/                beSystemProcess;
-resume.
+		resume.
 ].
 ((externalOutStream := anOutStream) notNil
 and:[externalOutStream isExternalStream not]) ifTrue:[
-pOut := NonPositionableExternalStream makePipe.
+	pOut := NonPositionableExternalStream makePipe.
-shuffledOutStream := (pOut at:1).
+	shuffledOutStream := (pOut at:1).
-anOutStream isBinary ifTrue:[
+	anOutStream isBinary ifTrue:[
-shuffledOutStream binary
+	    shuffledOutStream binary
-].
+	].
-outStreamToClose := externalOutStream := pOut at:2.
+	outStreamToClose := externalOutStream := pOut at:2.
-outputShufflerProcess :=
+	outputShufflerProcess :=
-[
+	    [
-WriteError handle:[:ex |
+		WriteError handle:[:ex |
-"/ ignored
+		    "/ ignored
-] do:[
+		] do:[
-self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
+		    self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
-].
+		].
-] newProcess
+	    ] newProcess
-name:'cmd output shuffler';
+		name:'cmd output shuffler';
 "/                beSystemProcess;
-resume.
+		resume.
 ].
 (externalErrStream := anErrStream) notNil ifTrue:[
-anErrStream == anOutStream ifTrue:[
+	anErrStream == anOutStream ifTrue:[
-externalErrStream := externalOutStream
+	    externalErrStream := externalOutStream
-] ifFalse:[
+	] ifFalse:[
-anErrStream isExternalStream ifFalse:[
+	    anErrStream isExternalStream ifFalse:[
-pErr := NonPositionableExternalStream makePipe.
+		pErr := NonPositionableExternalStream makePipe.
-shuffledErrStream := (pErr at:1).
+		shuffledErrStream := (pErr at:1).
-anErrStream isBinary ifTrue:[
+		anErrStream isBinary ifTrue:[
-shuffledErrStream binary
+		    shuffledErrStream binary
-].
+		].
-errStreamToClose := externalErrStream := pErr at:2.
+		errStreamToClose := externalErrStream := pErr at:2.
-errorShufflerProcess :=
+		errorShufflerProcess :=
-[
+		    [
-self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
+			self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
-] newProcess
+		    ] newProcess
-name:'cmd err-output shuffler';
+			name:'cmd err-output shuffler';
 "/                        beSystemProcess;
-resume.
+			resume.
-]
+	    ]
-]
+	]
 ].
 ((externalAuxStream := anAuxStream) notNil
 and:[externalAuxStream isExternalStream not]) ifTrue:[
-pAux := NonPositionableExternalStream makePipe.
+	pAux := NonPositionableExternalStream makePipe.
-auxStreamToClose := externalAuxStream := pAux at:1.
+	auxStreamToClose := externalAuxStream := pAux at:1.
-shuffledAuxStream := pAux at:2.
+	shuffledAuxStream := pAux at:2.
-shuffledAuxStream blocking:false.
+	shuffledAuxStream blocking:false.
-anAuxStream isBinary ifTrue:[
+	anAuxStream isBinary ifTrue:[
-shuffledAuxStream binary
+	    shuffledAuxStream binary
-].
+	].
-"/ start a reader process, shuffling data from the given
+	"/ start a reader process, shuffling data from the given
-"/ auxStream to the pipe (which is connected to the commands aux)
+	"/ auxStream to the pipe (which is connected to the commands aux)
-auxShufflerProcess :=
+	auxShufflerProcess :=
-[
+	    [
-[
+		[
-[anAuxStream atEnd] whileFalse:[
+		    [anAuxStream atEnd] whileFalse:[
-self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
+			self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
-shuffledAuxStream flush
+			shuffledAuxStream flush
-]
+		    ]
-] ensure:[
+		] ensure:[
-shuffledAuxStream close
+		    shuffledAuxStream close
-]
+		]
-] newProcess
+	    ] newProcess
-name:'cmd aux shuffler';
+		name:'cmd aux shuffler';
 "/                beSystemProcess;
-resume.
+		resume.
 ].
 stopShufflers := [
-inputShufflerProcess notNil ifTrue:[
+	inputShufflerProcess notNil ifTrue:[
-terminateLock critical:[inputShufflerProcess terminate].
+	    terminateLock critical:[inputShufflerProcess terminate].
-inputShufflerProcess waitUntilTerminated
+	    inputShufflerProcess waitUntilTerminated
-].
+	].
-auxShufflerProcess notNil ifTrue:[
+	auxShufflerProcess notNil ifTrue:[
-terminateLock critical:[auxShufflerProcess terminate].
+	    terminateLock critical:[auxShufflerProcess terminate].
-auxShufflerProcess waitUntilTerminated
+	    auxShufflerProcess waitUntilTerminated
-].
+	].
-outputShufflerProcess notNil ifTrue:[
+	outputShufflerProcess notNil ifTrue:[
-terminateLock critical:[outputShufflerProcess terminate].
+	    terminateLock critical:[outputShufflerProcess terminate].
-outputShufflerProcess waitUntilTerminated.
+	    outputShufflerProcess waitUntilTerminated.
-self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
+	    self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
-shuffledOutStream close.
+	    shuffledOutStream close.
-].
+	].
-errorShufflerProcess notNil ifTrue:[
+	errorShufflerProcess notNil ifTrue:[
-terminateLock critical:[errorShufflerProcess terminate].
+	    terminateLock critical:[errorShufflerProcess terminate].
-errorShufflerProcess waitUntilTerminated.
+	    errorShufflerProcess waitUntilTerminated.
-self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
+	    self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
-shuffledErrStream close.
+	    shuffledErrStream close.
-].
+	].
 ].
 closeStreams := [
-inStreamToClose notNil ifTrue:[
+	inStreamToClose notNil ifTrue:[
-inStreamToClose close
+	    inStreamToClose close
-].
+	].
-errStreamToClose notNil ifTrue:[
+	errStreamToClose notNil ifTrue:[
-errStreamToClose close
+	    errStreamToClose close
-].
+	].
-outStreamToClose notNil ifTrue:[
+	outStreamToClose notNil ifTrue:[
-outStreamToClose close
+	    outStreamToClose close
-].
+	].
-auxStreamToClose notNil ifTrue:[
+	auxStreamToClose notNil ifTrue:[
-auxStreamToClose close
+	    auxStreamToClose close
-].
+	].
 ].
 sema := Semaphore new name:'OS command wait'.
 [
-pid := Processor
+	pid := Processor
-monitor:[
+		    monitor:[
-self
+			self
-startProcess:aCommandString
+			    startProcess:aCommandString
-inputFrom:externalInStream
+			    inputFrom:externalInStream
-outputTo:externalOutStream
+			    outputTo:externalOutStream
-errorTo:externalErrStream
+			    errorTo:externalErrStream
-auxFrom:externalAuxStream
+			    auxFrom:externalAuxStream
-environment:environmentDictionary
+			    environment:environmentDictionary
-inDirectory:dirOrNil
+			    inDirectory:dirOrNil
-]
+		    ]
-action:[:status |
+		    action:[:status |
-status stillAlive ifFalse:[
+			status stillAlive ifFalse:[
-exitStatus := status.
+			    exitStatus := status.
-sema signal.
+			    sema signal.
-self closePid:pid
+			    self closePid:pid
-]
+			]
-].
+		    ].
-pid isNil ifTrue:[
+	pid isNil ifTrue:[
-exitStatus := self osProcessStatusClass processCreationFailure
+	    exitStatus := self osProcessStatusClass processCreationFailure
-] ifFalse:[
+	] ifFalse:[
-sema wait.
+	    sema wait.
-].
+	].
 ] ifCurtailed:[
-closeStreams value.
+	closeStreams value.
-pid notNil ifTrue:[
+	pid notNil ifTrue:[
-"/ terminate the os-command (and all of its forked commands)
+	    "/ terminate the os-command (and all of its forked commands)
-self terminateProcessGroup:pid.
+	    self terminateProcessGroup:pid.
-self terminateProcess:pid.
+	    self terminateProcess:pid.
-self closePid:pid.
+	    self closePid:pid.
-].
+	].
-stopShufflers value.
+	stopShufflers value.
 ].
 closeStreams value.
 stopShufflers value.
 exitStatus success ifFalse:[
-^ aBlock value:exitStatus
+	^ aBlock value:exitStatus
 ].
 ^ true
 "
-|outStream errStream|
+	|outStream errStream|
-outStream := '' writeStream.
+	outStream := '' writeStream.
-OperatingSystem executeCommand:'ls -l'
+	OperatingSystem executeCommand:'ls -l'
-inputFrom:'abc' readStream
+			inputFrom:'abc' readStream
-outputTo:outStream
+			outputTo:outStream
-errorTo:nil
+			errorTo:nil
-inDirectory:nil
+			inDirectory:nil
-lineWise:true
+			lineWise:true
-onError:[:exitStatus | ^ false].
+			onError:[:exitStatus | ^ false].
-outStream contents
+	outStream contents
 "
 "
-|outStream errStream|
+	|outStream errStream|
-outStream := #[] writeStream.
+	outStream := #[] writeStream.
-OperatingSystem executeCommand:'cat'
+	OperatingSystem executeCommand:'cat'
-inputFrom:(ByteArray new:5000000) readStream
+			inputFrom:(ByteArray new:5000000) readStream
-outputTo:outStream
+			outputTo:outStream
-errorTo:nil
+			errorTo:nil
-inDirectory:nil
+			inDirectory:nil
-lineWise:false
+			lineWise:false
-onError:[:exitStatus | ^ false].
+			onError:[:exitStatus | ^ false].
-outStream size
+	outStream size
 "
 "
-|outStream errStream|
+	|outStream errStream|
-outStream := '' writeStream.
+	outStream := '' writeStream.
-OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
+	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
-inputFrom:'bla' readStream
+			inputFrom:'bla' readStream
-outputTo:outStream
+			outputTo:outStream
-errorTo:nil
+			errorTo:nil
-inDirectory:nil
+			inDirectory:nil
-lineWise:true
+			lineWise:true
-onError:[:exitStatus |  false].
+			onError:[:exitStatus |  false].
-outStream contents
+	outStream contents
 "
 "Modified: / 11-02-2007 / 20:54:39 / cg"
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream auxFrom:anAuxStream inDirectory:dirOrNil lineWise:lineWise onError:aBlock
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:anInStream
+	inputFrom:anInStream
-outputTo:anOutStream
+	outputTo:anOutStream
-errorTo:anErrStream
+	errorTo:anErrStream
-auxFrom:anAuxStream
+	auxFrom:anAuxStream
-environment:nil
+	environment:nil
-inDirectory:dirOrNil
+	inDirectory:dirOrNil
-lineWise:lineWise
+	lineWise:lineWise
-onError:aBlock
+	onError:aBlock
 !
 executeCommand:aCommandString inputFrom:inputStreamOrNil outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
 "much like #executeCommand:, but changes the current directory
 for the command. Since this is OS specific, use this instead of
 hardwiring any 'cd ..' command strings into your applictions."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:inputStreamOrNil
+	inputFrom:inputStreamOrNil
-outputTo:outStreamOrNil
+	outputTo:outStreamOrNil
-errorTo:errStreamOrNil
+	errorTo:errStreamOrNil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "
 OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
 OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
 OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
 those internal stream(s).
 Nil stream args will execute the command connected to ST/X's standard input, output or
 error resp. - i.e. usually, i/o will be from/to the terminal"
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:anInStream
+	inputFrom:anInStream
-outputTo:anOutStream
+	outputTo:anOutStream
-errorTo:anErrStream
+	errorTo:anErrStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:dirOrNil
+	inDirectory:dirOrNil
-lineWise:lineWise
+	lineWise:lineWise
-onError:aBlock
+	onError:aBlock
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
 "execute the unix command specified by the argument, aCommandString.
 The commandString is passed to a shell for execution - see the description of
 those internal stream(s).
 Nil stream args will execute the command connected to ST/X's input, output or
 error resp. - i.e. i/o will be from/to the xterminal"
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:anInStream
+	inputFrom:anInStream
-outputTo:anOutStream
+	outputTo:anOutStream
-errorTo:anErrStream
+	errorTo:anErrStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:dirOrNil
+	inDirectory:dirOrNil
-lineWise:false
+	lineWise:false
-onError:aBlock
+	onError:aBlock
 "
 OperatingSystem
-executeCommand:'dir'
+	 executeCommand:'dir'
-inputFrom:nil
+	 inputFrom:nil
-outputTo:nil
+	 outputTo:nil
-errorTo:nil
+	 errorTo:nil
-inDirectory:'c:'
+	 inDirectory:'c:'
-onError:[:status | Transcript flash]
+	 onError:[:status | Transcript flash]
 OperatingSystem
-executeCommand:'foo'
+	 executeCommand:'foo'
-inputFrom:nil
+	 inputFrom:nil
-outputTo:nil
+	 outputTo:nil
-errorTo:nil
+	 errorTo:nil
-inDirectory:'/etc'
+	 inDirectory:'/etc'
-onError:[:status | Transcript flash]
+	 onError:[:status | Transcript flash]
 |s|
 s := '' writeStream.
 OperatingSystem
-executeCommand:'ls -l'
+	 executeCommand:'ls -l'
-inputFrom:nil
+	 inputFrom:nil
-outputTo:s
+	 outputTo:s
-errorTo:nil
+	 errorTo:nil
-onError:[:status | Transcript flash].
+	 onError:[:status | Transcript flash].
 Transcript showCR:s contents.
 |s|
 s := '' writeStream.
 OperatingSystem
-executeCommand:'sh foo'
+	 executeCommand:'sh foo'
-inputFrom:nil
+	 inputFrom:nil
-outputTo:s
+	 outputTo:s
-errorTo:s
+	 errorTo:s
-onError:[:status | Transcript flash].
+	 onError:[:status | Transcript flash].
 Transcript showCR:s contents.
 "
 "Modified: / 25.3.1997 / 11:02:02 / stefan"
 "Modified: / 28.1.1998 / 14:46:36 / md"
 Return true if successful, the value from aBlock if not.
 If not successfull, aBlock is called with an OsProcessStatus
 (containing the exit status) as argument."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:anInStream
+	inputFrom:anInStream
-outputTo:anOutStream
+	outputTo:anOutStream
-errorTo:anErrStream
+	errorTo:anErrStream
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-onError:aBlock
+	onError:aBlock
 "
-OperatingSystem
+	OperatingSystem
-executeCommand:'dir'
+	    executeCommand:'dir'
-inputFrom:nil
+	    inputFrom:nil
-outputTo:nil
+	    outputTo:nil
-errorTo:nil
+	    errorTo:nil
-onError:[:status | Transcript flash]
+	    onError:[:status | Transcript flash]
-OperatingSystem
+	OperatingSystem
-executeCommand:'foo'
+	    executeCommand:'foo'
-inputFrom:nil
+	    inputFrom:nil
-outputTo:nil
+	    outputTo:nil
-errorTo:nil
+	    errorTo:nil
-onError:[:status | Transcript flash]
+	    onError:[:status | Transcript flash]
 "
 "
-|outStr errStr|
+	|outStr errStr|
-outStr := '' writeStream.
+	outStr := '' writeStream.
-errStr := '' writeStream.
+	errStr := '' writeStream.
-OperatingSystem
+	OperatingSystem
-executeCommand:'ls'
+	    executeCommand:'ls'
-inputFrom:nil
+	    inputFrom:nil
-outputTo:outStr
+	    outputTo:outStr
-errorTo:errStr
+	    errorTo:errStr
-onError:[:status | Transcript flash].
+	    onError:[:status | Transcript flash].
-Transcript show:'out:'; showCR:outStr contents.
+	Transcript show:'out:'; showCR:outStr contents.
-Transcript show:'err:'; showCR:errStr contents.
+	Transcript show:'err:'; showCR:errStr contents.
 "
 "
-|outStr errStr|
+	|outStr errStr|
-outStr := '' writeStream.
+	outStr := '' writeStream.
-errStr := '' writeStream.
+	errStr := '' writeStream.
-OperatingSystem
+	OperatingSystem
-executeCommand:'ls /fooBar'
+	    executeCommand:'ls /fooBar'
-inputFrom:nil
+	    inputFrom:nil
-outputTo:outStr
+	    outputTo:outStr
-errorTo:errStr
+	    errorTo:errStr
-onError:[:status | Transcript flash].
+	    onError:[:status | Transcript flash].
-Transcript show:'out:'; showCR:outStr contents.
+	Transcript show:'out:'; showCR:outStr contents.
-Transcript show:'err:'; showCR:errStr contents.
+	Transcript show:'err:'; showCR:errStr contents.
 "
 "Modified: / 10.11.1998 / 20:51:39 / cg"
 !
 Return true if successful, the value from aBlock if not.
 If not successfull, aBlock is called with an OsProcessStatus
 (containing the exit status) as argument."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-onError:aBlock
+	onError:aBlock
 "unix:
 OperatingSystem executeCommand:'sleep 30' onError:[].
 OperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
 <resource:#obsolete>
 self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:aBlock
+	onError:aBlock
 "Modified: / 10.11.1998 / 20:54:37 / cg"
 !
 executeCommand:aCommandString outputTo:anOutStreamOrNil
 The commandString is passed to a shell for execution - see the description of
 'sh -c' in your UNIX manual.
 Return true if successful, false otherwise."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:anOutStreamOrNil
+	outputTo:anOutStreamOrNil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "
 String streamContents:[:s|OperatingSystem
-executeCommand:'ls'
+	executeCommand:'ls'
-outputTo:s
+	outputTo:s
 ]
 "
 "
 String streamContents:[:s|OperatingSystem
-executeCommand:'pwd'
+	executeCommand:'pwd'
-outputTo:s
+	outputTo:s
 ]
 "
 !
 executeCommand:aCommandString outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
 "much like #executeCommand:, but changes the current directory
 for the command. Since this is OS specific, use this instead of
 hardwiring any 'cd ..' command strings into your applictions."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:outStreamOrNil
+	outputTo:outStreamOrNil
-errorTo:errStreamOrNil
+	errorTo:errStreamOrNil
-auxFrom:nil
+	auxFrom:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-onError:[:status| false]
+	onError:[:status| false]
 "
 OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
 OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
 OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
 |result|
 result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
 result notNil ifTrue:[
-^ result firstIfEmpty:['']
+	^ result firstIfEmpty:['']
 ].
 ^ result
 "
 OperatingSystem getCommandOutputFrom:'hostname'
 Nil is treated like #stderr"
 |result|
 PipeFailed ~~ true ifTrue:[
-PipeStream openErrorSignal handle:[:ex |
+	PipeStream openErrorSignal handle:[:ex |
-PipeFailed := true.
+	    PipeFailed := true.
-'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
+	    'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
-ex return.
+	    ex return.
-] do:[
+	] do:[
-|p line|
+	    |p line|
-p := PipeStream
+	    p := PipeStream
-readingFrom:aCommand
+		    readingFrom:aCommand
-errorDisposition:errorDisposition
+		    errorDisposition:errorDisposition
-inDirectory:nil.
+		    inDirectory:nil.
-result := StringCollection new.
+	    result := StringCollection new.
-[p atEnd] whileFalse:[
+	    [p atEnd] whileFalse:[
-line := p nextLine.
+		line := p nextLine.
-(numLinesOrNil isNil
+		(numLinesOrNil isNil
-or:[result size < numLinesOrNil]) ifTrue:[
+		or:[result size < numLinesOrNil]) ifTrue:[
-result add:line
+		    result add:line
-].
+		].
-].
+	    ].
-p close.
+	    p close.
-(p exitStatus notNil
+	    (p exitStatus notNil
-and:[p exitStatus success]) ifFalse:[
+	    and:[p exitStatus success]) ifFalse:[
-result isEmpty ifTrue:[
+		result isEmpty ifTrue:[
-result := nil
+		    result := nil
-]
+		]
-].
+	    ].
-].
+	].
 ].
 ^ result
 "
 OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
 ^ fn exists and:[fn isExecutableProgram].
 "
 OperatingSystem canExecuteCommand:'fooBar'
 OperatingSystem canExecuteCommand:'ls'
 OperatingSystem canExecuteCommand:'cvs'
 OperatingSystem canExecuteCommand:'diff'
 OperatingSystem canExecuteCommand:'cvs.exe'
 "
 "Created: 4.11.1995 / 19:13:54 / cg"
 !
 If successful, this method does NOT return and smalltalk is gone.
 If not successful, it does return.
 Can be used on UNIX with fork or on other systems to chain to another program."
 ^ self
-exec:aCommandPath
+	exec:aCommandPath
-withArguments:argArray
+	withArguments:argArray
-environment:nil
+	environment:nil
-fileDescriptors:#(0 1 2)
+	fileDescriptors:#(0 1 2)
-fork:false
+	fork:false
-newPgrp:false
+	newPgrp:false
-inDirectory:nil
+	inDirectory:nil
 "/ never reached ...
 "Modified: / 12.11.1998 / 14:44:26 / cg"
 !
 exec:aCommandPath withArguments:argArray fileDescriptors:fileDescriptors fork:doFork newPgrp:newPgrp inDirectory:aDirectory
 ^ self
-exec:aCommandPath
+	exec:aCommandPath
-withArguments:argArray
+	withArguments:argArray
-environment:nil
+	environment:nil
-fileDescriptors:fileDescriptors
+	fileDescriptors:fileDescriptors
-fork:doFork
+	fork:doFork
-newPgrp:newPgrp
+	newPgrp:newPgrp
-inDirectory:aDirectory
+	inDirectory:aDirectory
 !
 exec:aCommandPath withArguments:argArray fork:doFork
 "execute an OS command without I/O redirection.
 The command reads its input and writes its output
 from/to whatever terminal device ST/X was started
 (typically, the terminal window)"
 ^ self
-exec:aCommandPath
+	exec:aCommandPath
-withArguments:argArray
+	withArguments:argArray
-environment:nil
+	environment:nil
-fileDescriptors:#(0 1 2)
+	fileDescriptors:#(0 1 2)
-fork:doFork
+	fork:doFork
-newPgrp:false
+	newPgrp:false
-inDirectory:nil
+	inDirectory:nil
 "
 |id|
 id := OperatingSystem fork.
 id == 0 ifTrue:[
-'I am the child'.
+	'I am the child'.
-OperatingSystem
+	OperatingSystem
-exec:'/bin/ls'
+	    exec:'/bin/ls'
-withArguments:#('ls' '/tmp')
+	    withArguments:#('ls' '/tmp')
-fork:false.
+	    fork:false.
-'not reached'.
+	'not reached'.
 ]
 "
 "
 |id|
 id := OperatingSystem fork.
 id == 0 ifTrue:[
-'I am the child'.
+	'I am the child'.
-OperatingSystem
+	OperatingSystem
-exec:'/bin/sh'
+	    exec:'/bin/sh'
-withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
+	    withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
-fork:false.
+	    fork:false.
-'not reached'.
+	'not reached'.
 ].
 id printNL.
 (Delay forSeconds:3.5) wait.
 'killing ...' printNL.
 OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
 The command reads its input and writes its output
 from/to whatever terminal device ST/X was started
 (typically, the terminal window)"
 ^ self
-exec:aCommandPath
+	exec:aCommandPath
-withArguments:argArray
+	withArguments:argArray
-environment:nil
+	environment:nil
-fileDescriptors:#(0 1 2)
+	fileDescriptors:#(0 1 2)
-fork:doFork
+	fork:doFork
-newPgrp:false
+	newPgrp:false
-inDirectory:aDirectory
+	inDirectory:aDirectory
 "
 |id|
 id := OperatingSystem fork.
 id == 0 ifTrue:[
-'I am the child'.
+	'I am the child'.
-OperatingSystem
+	OperatingSystem
-exec:'/bin/ls'
+	    exec:'/bin/ls'
-withArguments:#('ls' '/tmp')
+	    withArguments:#('ls' '/tmp')
-fork:false.
+	    fork:false.
-'not reached'.
+	'not reached'.
 ]
 "
 "
 |id|
 id := OperatingSystem fork.
 id == 0 ifTrue:[
-'I am the child'.
+	'I am the child'.
-OperatingSystem
+	OperatingSystem
-exec:'/bin/sh'
+	    exec:'/bin/sh'
-withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
+	    withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
-fork:false.
+	    fork:false.
-'not reached'.
+	'not reached'.
 ].
 id printNL.
 (Delay forSeconds:3.5) wait.
 'killing ...' printNL.
 OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
 files/directories recursively to destinationPathName.
 Return true if successful.
 Here, false is returned and the caller should be prepared
 for a fallBack solution.
 Notice:
-this is not a public interface; instead, it is used
+	this is not a public interface; instead, it is used
-internally by the Filename class, to try a fast copy
+	internally by the Filename class, to try a fast copy
-before doing things manually.
+	before doing things manually.
-Please use Filename recursiveCopyTo:"
+	Please use Filename recursiveCopyTo:"
 ^ false
 "
 OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
 is returned, a partial created tree may be left,
 which is not cleaned-up here."
 self createDirectory:dirName.
 (self isDirectory:dirName) ifFalse:[
-(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
+	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
-^ self createDirectory:dirName
+	^ self createDirectory:dirName
 ].
 ^ true
 "
 OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
 "remove the directory named 'fullPathName' and all contained files/directories.
 Return true if successful.
 Here, false is returned and the caller should be prepared
 for a fallBack solution.
 Notice:
-this is not a public interface; instead, it is used
+	this is not a public interface; instead, it is used
-internally by the Filename class, to try a fast remove
+	internally by the Filename class, to try a fast remove
-before doing things manually.
+	before doing things manually.
-Please use Filename recursiveRemoveDirectory:"
+	Please use Filename recursiveRemoveDirectory:"
 ^ false
 "
 OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
 Notice that the returned number is OS dependent - use the
 modeMasks as returned by OperatingSystem>>accessMaskFor:"
 "
 this could have been implemented as:
-(self infoOf:aPathName) at:#mode
+	(self infoOf:aPathName) at:#mode
 but for huge directory searches the code below is faster
 "
 ^ (self infoOf:aPathName) at:#mode
 getDiskInfoOf:aDirectoryPath
 "return some disk info.
 The amount of information returned depends upon the OS, and is
 not guaranteed to be consistent across architectures.
 On unix and msdos, the information returned is (at least):
-freeBytes
+	freeBytes
-totalBytes
+	totalBytes
 Do not depend on any information being present in the returned dictionary;
 users of this method should always use #at:ifAbsent:, and care for the absent case.
 Nil is returned if no such information can be obtained.
 "
 "/
 "/ default: return an array filled with
 "/ root, home and current directories.
 "/
 ^ Array
-with:'/'
+	with:'/'
-with:(self getHomeDirectory)
+	with:(self getHomeDirectory)
-with:(Filename currentDirectory pathName)
+	with:(Filename currentDirectory pathName)
 "Modified: / 5.5.1999 / 01:06:26 / cg"
 !
 getMountedVolumes
 "return info about mounted volumes.
 The amount of information returned depends upon the OS, and is
 not guaranteed to be consistent across architectures.
 On unix, the information returned is (at least):
-mountPoint - mount point
+	mountPoint - mount point
-fileSystem - device or NFS-remotePath
+	fileSystem - device or NFS-remotePath
 "
 ^ #()
 "
 infoOf:aPathName
 "return some object filled with info for the file 'aPathName';
 the info (for which corresponding access methods are understood by
 the returned object) is:
-type            - a symbol giving the files type
+	 type            - a symbol giving the files type
-mode            - numeric access mode
+	 mode            - numeric access mode
-uid             - owners user id
+	 uid             - owners user id
-gid             - owners group id
+	 gid             - owners group id
-size            - files size
+	 size            - files size
-id              - files number (i.e. inode number)
+	 id              - files number (i.e. inode number)
-accessed        - last access time (as Timestamp)
+	 accessed        - last access time (as Timestamp)
-modified        - last modification time (as Timestamp)
+	 modified        - last modification time (as Timestamp)
-statusChanged   - last status change time (as Timestamp)
+	 statusChanged   - last status change time (as Timestamp)
-alternativeName - (windows only: the MSDOS name of the file)
+	 alternativeName - (windows only: the MSDOS name of the file)
 Some of the fields may be returned as nil on systems which do not provide
 all of the information.
 Return nil if such a file does not exist.
 For symbolic links (if supported by the OS),
 !
 disableTimer
 "disable timer interrupts.
 WARNING:
-the system will not operate correctly with timer interrupts
+	the system will not operate correctly with timer interrupts
-disabled, because no scheduling or timeouts are possible."
+	disabled, because no scheduling or timeouts are possible."
 self subclassResponsibility
 !
 disableUserInterrupts
 "disable userInterrupt processing;
 when disabled, no ^C processing takes place.
 WARNING:
-If at all, use this only for debugged stand-alone applications, since
+	 If at all, use this only for debugged stand-alone applications, since
-no exit to the debugger is possible with user interrupts disabled.
+	 no exit to the debugger is possible with user interrupts disabled.
-We recommend setting up a handler for the signal instead of disabling it."
+	 We recommend setting up a handler for the signal instead of disabling it."
 self disableSignal:(self sigBREAK).
 self disableSignal:(self sigINT).
 !
 killProcess:processId
 "kill an OS process.
 The process has a no chance to do some cleanup.
 WARNING: in order to avoid zombie processes (on unix),
-you may have to fetch the processes exitstatus with
+	      you may have to fetch the processes exitstatus with
-OperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 self subclassResponsibility
 "Modified: / 10.6.1998 / 12:00:07 / cg"
 !
 killProcessGroup:processGroupId
 "kill an OS process group.
 The process has NO chance to do some cleanup.
 WARNING: in order to avoid zombie processes (on unix),
-you may have to fetch the processes exitstatus with
+	      you may have to fetch the processes exitstatus with
-OperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 self subclassResponsibility
 "Created: / 10.6.1998 / 12:00:26 / cg"
 !
 aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
 aSignalNumber == self sigSOUND   ifTrue:[^ 'HFT sound complete'].
 aSignalNumber == self sigDANGER  ifTrue:[^ 'low on paging space'].
 "notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
-therefore, keep SIGIO always above the two below"
+	     therefore, keep SIGIO always above the two below"
 aSignalNumber == self sigPOLL   ifTrue:[^ 'io available'].
 aSignalNumber == self sigURG    ifTrue:[^ 'urgent'].
 ^ 'unknown signal'
 operatingSystemSignal:signalNumber
 "return the signal to be raised when an
 operatingSystem-signal occurs, or nil"
 OSSignals notNil ifTrue:[
-^ OSSignals at:signalNumber ifAbsent:[nil]
+	^ OSSignals at:signalNumber ifAbsent:[nil]
 ].
 ^ nil
 !
 operatingSystemSignal:signalNumber install:aSignal
 "install a signal to be raised when an operatingSystem-signal occurs"
 OSSignals isNil ifTrue:[
-OSSignals := Array new:32
+	OSSignals := Array new:32
 ].
 OSSignals at:signalNumber put:aSignal
 !
 sendSignal:signalNumber to:processId
 Return true, if the spy-timerInterrupt was enabled.
 This was used by the old MessageTally for profiling.
 On systems, where no virtual timer is available, use the real timer
 (which is of course less correct).
 OBSOLETE: the new messageTally runs as a high prio process, not using
-spy interrupts."
+	       spy interrupts."
 ^ false
 !
 stopSpyTimer
 "stop spy timing - disable spy timer.
 OBSOLETE: the new messageTally runs as a high prio process, not using
-spy interrupts."
+	       spy interrupts."
 ^ false
 !
 terminateProcess:processId
 "terminate a unix process.
 The process has a chance to do some cleanup.
 WARNING: in order to avoid zombie processes (on unix),
-you may have to fetch the processes exitstatus with
+	      you may have to fetch the processes exitstatus with
-OperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 self subclassResponsibility
 !
 terminateProcessGroup:processGroupId
 "terminate a unix process group.
 The process has a chance to do some cleanup.
 WARNING: in order to avoid zombie processes (on unix),
-you may have to fetch the processes exitstatus with
+	      you may have to fetch the processes exitstatus with
-OperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 self subclassResponsibility
 !
 unblockInterrupts
 %{  /* NOCONTEXT */
 int code = 1;
 if (__isSmallInteger(exitCode)) {
-code = __intVal(exitCode);
+	code = __intVal(exitCode);
 }
 __mainExit(code);
 %}
 "OperatingSystem exit:1 - don't evaluate this"
 !
 !
 getDomainName
 "return the domain this host is in.
 Notice:
-not all systems support this; on some, 'unknown' is returned."
+	not all systems support this; on some, 'unknown' is returned."
 self subclassResponsibility
 !
 getEnvironment:aStringOrSymbol
 ^ self subclassResponsibility
 !
 getHostName
 "return the hostname we are running on -
 a fully qalified hostname at best.
 Notice:
-not all systems support this; on some, 'unknown' is returned."
+	not all systems support this; on some, 'unknown' is returned."
 self subclassResponsibility
 !
 getLanguage
 getLocaleInfo
 "return a dictionary filled with values from the locale information;
 Not all fields may be present, depending on the OS's setup and capabilities.
 Possible fields are:
-decimalPoint                    <String>
+	decimalPoint                    <String>
-thousandsSep                    <String>
+	thousandsSep                    <String>
-internationalCurrencySymbol     <String>
+	internationalCurrencySymbol     <String>
-currencySymbol                  <String>
+	currencySymbol                  <String>
-monetaryDecimalPoint            <String>
+	monetaryDecimalPoint            <String>
-monetaryThousandsSeparator      <String>
+	monetaryThousandsSeparator      <String>
-positiveSign                    <String>
+	positiveSign                    <String>
-negativeSign                    <String>
+	negativeSign                    <String>
-internationalFractionalDigits   <Integer>
+	internationalFractionalDigits   <Integer>
-fractionalDigits                <Integer>
+	fractionalDigits                <Integer>
-positiveSignPrecedesCurrencySymbol      <Boolean>
+	positiveSignPrecedesCurrencySymbol      <Boolean>
-negativeSignPrecedesCurrencySymbol      <Boolean>
+	negativeSignPrecedesCurrencySymbol      <Boolean>
-positiveSignSeparatedBySpaceFromCurrencySymbol  <Boolean>
+	positiveSignSeparatedBySpaceFromCurrencySymbol  <Boolean>
-negativeSignSeparatedBySpaceFromCurrencySymbol  <Boolean>
+	negativeSignSeparatedBySpaceFromCurrencySymbol  <Boolean>
-positiveSignPosition                            <Symbol>
+	positiveSignPosition                            <Symbol>
-one of: #parenthesesAround,
+							one of: #parenthesesAround,
-#signPrecedes,
+								#signPrecedes,
-#signSuceeds,
+								#signSuceeds,
-#signPrecedesCurrencySymbol,
+								#signPrecedesCurrencySymbol,
-#signSuceedsCurrencySymbol
+								#signSuceedsCurrencySymbol
-negativeSignPosition                            <like above>
+	negativeSignPosition                            <like above>
 it is up to the application to deal with undefined values.
 Notice, that (for now), the system does not use this information;
 it should be used by applications as required.
 self subclassResponsibility
 !
 getNetworkAddresses
 "return a dictionary with key:name of interface and
-value:the network address for each interface"
+			    value:the network address for each interface"
 self subclassResponsibility
 !
 getNetworkMACAddresses
 "return a dictionary with key:name of interface and
-value:the MAC adress for each interface"
+			    value:the MAC adress for each interface"
 self subclassResponsibility
 !
 getNetworkMACAddressesForIf:ifName
 getSystemID
 "if supported by the OS, return the systemID;
 a unique per machine identification.
 WARNING:
-not all systems support this; on some, 'unknown' is returned."
+	not all systems support this; on some, 'unknown' is returned."
 ^ 'unknown'
 "
 OperatingSystem getSystemID
 OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
 This method is mainly provided to augment error reports with some system
 information.
 (in case of system/version specific OS errors, conditional workarounds and patches
-may be based upon this info).
+	may be based upon this info).
 Your application should NOT depend upon this in any way.
 The returned info may (or may not) contain:
-#system -> some operating system identification (irix, Linux, nt, win32s ...)
+	#system -> some operating system identification (irix, Linux, nt, win32s ...)
-#version -> OS version (some os version identification)
+	#version -> OS version (some os version identification)
-#release -> OS release (3.5, 1.2.1 ...)
+	#release -> OS release (3.5, 1.2.1 ...)
-#node   -> some host identification (hostname)
+	#node   -> some host identification (hostname)
-#domain  -> domain name (hosts domain)
+	#domain  -> domain name (hosts domain)
-#machine -> type of machine (i586, mips ...)
+	#machine -> type of machine (i586, mips ...)
 "
 |info|
 info := IdentityDictionary new.
 getWindowsDirectory
 "internal interface - only for Windows based systems.
 Return the windows directory, which, depending on the system,
 may be
-'\WINNT', '\WINDOWS'
+	'\WINNT', '\WINDOWS'
 or whatever.
 On non-windows systems, nil is returned."
 ^ nil
 !
 getWindowsSystemDirectory
 "internal interface - only for Windows based systems.
 Return the windows system directory, which, depending on the system,
 may be
-'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
+	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
 or whatever.
 On non-windows systems, nil is returned."
 ^ nil
 "return a collection of strings as possibly returned by getPlatformName.
 Should be used instead of getOSType or getSystemType if multiple choice
 dialogs are presented to the user."
 ^#(
-win32
+	win32
-os2      "/ actually - this is no longer true
+	os2      "/ actually - this is no longer true
-macos    "/ actually - this is no longer true
+	macos    "/ actually - this is no longer true
-vms      "/ actually - this is no longer true
+	vms      "/ actually - this is no longer true
-beos     "/ actually - this was never true
+	beos     "/ actually - this was never true
-unix
+	unix
 )
 "
 OperatingSystem knownPlatformNames
 OperatingSystem platformName
 !
 maxFileNameLength
 "return the max number of characters in a filename.
 CAVEAT:
-Actually, the following is somewhat wrong - some systems
+	 Actually, the following is somewhat wrong - some systems
-support different sizes, depending on the volume.
+	 support different sizes, depending on the volume.
-We return a somewhat conservative number here.
+	 We return a somewhat conservative number here.
-Another entry, to query for volume specific max
+	 Another entry, to query for volume specific max
-will be added in the future."
+	 will be added in the future."
 self subclassResponsibility
 !
 maxNumberOfOpenFiles
 "
 "Modified: 20.6.1997 / 17:37:26 / cg"
 !
 randomBytesInto:bufferOrInteger
 "If bufferOrInteger is a String or a ByteArray,
-fill a given buffer with random bytes from the RtlGenRandom function
+	fill a given buffer with random bytes from the RtlGenRandom function
-and nswer the buffer.
+	and nswer the buffer.
 If bufferOrInteger is a SmallInteger,
-return this many bytes (max 4) as a SmallInteger.
+	return this many bytes (max 4) as a SmallInteger.
 Return nil on error (may raise PrimitiveFailure, too).
 NOTE: This is a private interface, please use RandomGenerator!!
 Subclasses should implement this, if the OperatingSystem supports a random generator."
 ^ nil  "not implemented"
 !
 setEnvironment:aStringOrSymbol to:newValueString
 "set an environment variable"
 "/ the executable's directory:
 "/      (/opt/stx/bin/stx -> /opt/stx/bin)
 "/
 appDirName := self pathOfSTXExecutable asFilename directory.
 (packagePath includes:appDirName) ifFalse:[
-packagePath add:appDirName.
+	packagePath add:appDirName.
 ].
 "/
 "/ the executable's parent directory:
 "/      (/opt/stx/bin/stx -> /opt/stx/packages)
 "/
 appDir := self pathOfSTXExecutable asFilename directory directory.
 dirName := appDir pathName.
 (packagePath includes:dirName) ifFalse:[
-packagePath add:dirName.
+	packagePath add:dirName.
 ].
 homeDirName := OperatingSystem getHomeDirectory.
 homeDirName notNil ifTrue:[
-"/
+	"/
-"/ a users private smalltalk directory in its home (login) directory:
+	"/ a users private smalltalk directory in its home (login) directory:
-"/      $HOME/.smalltalk/packages    or $HOME\smalltalk\packages
+	"/      $HOME/.smalltalk/packages    or $HOME\smalltalk\packages
-"/
+	"/
-OperatingSystem isUNIXlike ifTrue:[
+	OperatingSystem isUNIXlike ifTrue:[
-priv := '.smalltalk'.
+	    priv := '.smalltalk'.
-] ifFalse:[
+	] ifFalse:[
-priv := 'smalltalk'.
+	    priv := 'smalltalk'.
-].
+	].
-userPrivateSTXDir := homeDirName asFilename / priv.
+	userPrivateSTXDir := homeDirName asFilename / priv.
-(userPrivateSTXDir isDirectory) ifTrue:[
+	(userPrivateSTXDir isDirectory) ifTrue:[
-dirName :=  userPrivateSTXDir pathName.
+	    dirName :=  userPrivateSTXDir pathName.
-(packagePath includes:dirName) ifFalse:[
+	    (packagePath includes:dirName) ifFalse:[
-packagePath add:dirName
+		packagePath add:dirName
-]
+	    ]
-].
+	].
 ].
 "/
 "/ STX_TOPDIR from the environment:
 "/      $STX_TOPDIR/packages
 "/
 topDirName := OperatingSystem getEnvironment:'STX_TOPDIR'.
 topDirName notNil ifTrue:[
-(packagePath includes:topDirName) ifFalse:[
+	(packagePath includes:topDirName) ifFalse:[
-packagePath add:topDirName
+	    packagePath add:topDirName
-].
+	].
 ].
 packagePath := packagePath select:[:each | (each asFilename / 'packages') exists]
-thenCollect:[:each | (each asFilename constructString:'packages')].
+			       thenCollect:[:each | (each asFilename constructString:'packages')].
 "
 unconditionally prepend all directories from $STX_PACKAGEPATH
 "
 (dirName := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
-dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
+	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
-dirName reverseDo:[:eachDirectoryName|
+	dirName reverseDo:[:eachDirectoryName|
-(packagePath includes:eachDirectoryName) ifFalse:[
+	    (packagePath includes:eachDirectoryName) ifFalse:[
-packagePath addFirst:eachDirectoryName.
+		packagePath addFirst:eachDirectoryName.
-].
+	    ].
-].
+	].
 ].
 "maybe the sources are kept in a central place..."
 (appDir / 'source') isDirectory ifTrue:[
-packagePath add:(appDir / 'source') pathName.
+	packagePath add:(appDir / 'source') pathName.
 ].
 "maybe we are running in the build environment:  XXX/stx    /projects /smalltalk
-or:  XXX/exept  /expecco  /application
+						or:  XXX/exept  /expecco  /application
 - if XXX/stx/libbasic exists, add XXX to the package path"
 topDirName isNil ifTrue:[
-"appdir is now: projects"
+	"appdir is now: projects"
-appDir := appDir directory directory.
+	appDir := appDir directory directory.
-(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
+	(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
-packagePath add:appDir pathName.
+	    packagePath add:appDir pathName.
-].
+	].
 ].
 ^ packagePath
 "
 "/ the executable's directory
 "/    and the executables parent directory (if it is an installed version)
 "/
 appPath := self pathOfSTXExecutable.
 appPath notNil ifTrue:[
-appDir := appPath asFilename directory.
+	appDir := appPath asFilename directory.
-appPath := appDir pathName.
+	appPath := appDir pathName.
-(sysPath includes:appPath) ifFalse:[
+	(sysPath includes:appPath) ifFalse:[
-sysPath add:appPath.
+	    sysPath add:appPath.
-].
+	].
-appDir baseName = 'bin' ifTrue:[
+	appDir baseName = 'bin' ifTrue:[
-appPath := appDir directory pathName.
+	    appPath := appDir directory pathName.
-(sysPath includes:appPath) ifFalse:[
+	    (sysPath includes:appPath) ifFalse:[
-sysPath add:appPath.
+		sysPath add:appPath.
-].
+	    ].
-].
+	].
 ].
 "/
 "/ the users home (login) directory
 "/
 homePath := self getHomeDirectory.
 homePath notNil ifTrue:[
-"/
+	"/
-"/ a users private smalltalk directory in its home (login) directory
+	"/ a users private smalltalk directory in its home (login) directory
-"/
+	"/
-OperatingSystem isUNIXlike ifTrue:[
+	OperatingSystem isUNIXlike ifTrue:[
-priv := '.smalltalk'.
+	    priv := '.smalltalk'.
-] ifFalse:[
+	] ifFalse:[
-priv := 'smalltalk'.
+	    priv := 'smalltalk'.
-].
+	].
-userPrivateSTXDir := homePath asFilename construct:priv.
+	userPrivateSTXDir := homePath asFilename construct:priv.
-(userPrivateSTXDir isDirectory) ifTrue:[
+	(userPrivateSTXDir isDirectory) ifTrue:[
-userPrivateSTXDir := userPrivateSTXDir pathName.
+	    userPrivateSTXDir := userPrivateSTXDir pathName.
-(sysPath includes:userPrivateSTXDir) ifFalse:[
+	    (sysPath includes:userPrivateSTXDir) ifFalse:[
-sysPath add:userPrivateSTXDir
+		sysPath add:userPrivateSTXDir
-]
+	    ]
-].
+	].
 ].
 "/
 "/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
 "/
 #(
-'SMALLTALK_LIBDIR'
+	'SMALLTALK_LIBDIR'
-'STX_LIBDIR'
+	'STX_LIBDIR'
-'STX_TOPDIR'
+	'STX_TOPDIR'
 ) do:[:each |
-p := OperatingSystem getEnvironment:each.
+	p := OperatingSystem getEnvironment:each.
-p notNil ifTrue:[
+	p notNil ifTrue:[
-p := p asFilename pathName.
+	    p := p asFilename pathName.
-(p asFilename isDirectory) ifTrue:[
+	    (p asFilename isDirectory) ifTrue:[
-(sysPath includes:p) ifFalse:[
+		(sysPath includes:p) ifFalse:[
-sysPath add:p
+		     sysPath add:p
-]
+		]
-]
+	    ]
-].
+	].
 ].
 ^ sysPath
 "
-OperatingSystem defaultSystemPath
+	OperatingSystem defaultSystemPath
 "
 "Modified: / 24.12.1999 / 00:30:27 / cg"
 ! !
 |domainCode|
 %{  /*NOCONTEXT*/
 if (__isSmallInteger(aSymbolOrInteger) || aSymbolOrInteger == nil) {
-RETURN (aSymbolOrInteger);
+	RETURN (aSymbolOrInteger);
 }
 #ifdef AF_INET
 else if ((aSymbolOrInteger == @symbol(AF_INET)) || (aSymbolOrInteger == @symbol(inet)))
 domainCode = __mkSmallInteger(AF_INET);
 |domainSymbol|
 %{ /*NOCONTEXT*/
 if (__isSmallInteger(anInteger)) {
-switch(__intVal(anInteger)) {
+	switch(__intVal(anInteger)) {
 #ifdef AF_INET
-case AF_INET:
+	case AF_INET:
-domainSymbol = @symbol(AF_INET);
+	    domainSymbol = @symbol(AF_INET);
-break;
+	    break;
 #endif
 #ifdef AF_INET6
-case AF_INET6:
+	case AF_INET6:
-domainSymbol = @symbol(AF_INET6);
+	    domainSymbol = @symbol(AF_INET6);
-break;
+	    break;
 #endif
 #ifdef AF_UNIX
-case AF_UNIX:
+	case AF_UNIX:
-domainSymbol = @symbol(AF_UNIX);
+	    domainSymbol = @symbol(AF_UNIX);
-break;
+	    break;
 #endif
 #ifdef AF_APPLETALK
-case AF_APPLETALK:
+	case AF_APPLETALK:
-domainSymbol = @symbol(AF_APPLETALK);
+	    domainSymbol = @symbol(AF_APPLETALK);
-break;
+	    break;
 #endif
 #ifdef AF_DECnet
-case AF_DECnet:
+	case AF_DECnet:
-domainSymbol = @symbol(AF_DECnet);
+	    domainSymbol = @symbol(AF_DECnet);
-break;
+	    break;
 #endif
 #ifdef AF_NS
-case AF_NS:
+	case AF_NS:
-domainSymbol = @symbol(AF_NS);
+	    domainSymbol = @symbol(AF_NS);
-break;
+	    break;
 #endif
 #ifdef AF_X25
-case AF_X25:
+	case AF_X25:
-domainSymbol = @symbol(AF_X25);
+	    domainSymbol = @symbol(AF_X25);
-break;
+	    break;
 #endif
 #ifdef AF_SNA
-case AF_SNA:
+	case AF_SNA:
-domainSymbol = @symbol(AF_SNA);
+	    domainSymbol = @symbol(AF_SNA);
-break;
+	    break;
 #endif
 #ifdef AF_RAW
-case AF_RAW:
+	case AF_RAW:
-domainSymbol = @symbol(AF_RAW);
+	    domainSymbol = @symbol(AF_RAW);
-break;
+	    break;
 #endif
 #ifdef AF_ISO
-case AF_ISO:
+	case AF_ISO:
-domainSymbol = @symbol(AF_ISO);
+	    domainSymbol = @symbol(AF_ISO);
-break;
+	    break;
 #endif
 #ifdef AF_ECMA
-case AF_ECMA:
+	case AF_ECMA:
-domainSymbol = @symbol(AF_ECMA);
+	    domainSymbol = @symbol(AF_ECMA);
-break;
+	    break;
 #endif
 #ifdef AF_NETBIOS
-case AF_NETBIOS:
+	case AF_NETBIOS:
-domainSymbol = @symbol(AF_NETBIOS);
+	    domainSymbol = @symbol(AF_NETBIOS);
-break;
+	    break;
 #endif
 #ifdef AF_IPX
-case AF_IPX:
+	case AF_IPX:
-domainSymbol = @symbol(AF_IPX);
+	    domainSymbol = @symbol(AF_IPX);
-break;
+	    break;
 #endif
 #ifdef AF_AX25
-case AF_AX25:
+	case AF_AX25:
-domainSymbol = @symbol(AF_AX25);
+	    domainSymbol = @symbol(AF_AX25);
-break;
+	    break;
 #endif
 #ifdef AF_NETROM
-case AF_NETROM:
+	case AF_NETROM:
-domainSymbol = @symbol(AF_NETROM);
+	    domainSymbol = @symbol(AF_NETROM);
-break;
+	    break;
 #endif
 #ifdef AF_BRIDGE
-case AF_BRIDGE:
+	case AF_BRIDGE:
-domainSymbol = @symbol(AF_BRIDGE);
+	    domainSymbol = @symbol(AF_BRIDGE);
-break;
+	    break;
 #endif
 #ifdef AF_BSC
-case AF_BSC:
+	case AF_BSC:
-domainSymbol = @symbol(AF_BSC);
+	    domainSymbol = @symbol(AF_BSC);
-break;
+	    break;
 #endif
 #ifdef AF_ROSE
-case AF_ROSE:
+	case AF_ROSE:
-domainSymbol = @symbol(AF_ROSE);
+	    domainSymbol = @symbol(AF_ROSE);
-break;
+	    break;
 #endif
 #ifdef AF_IRDA
-case AF_IRDA:
+	case AF_IRDA:
-domainSymbol = @symbol(AF_IRDA);
+	    domainSymbol = @symbol(AF_IRDA);
-break;
+	    break;
 #endif
 #ifdef AF_BAN
-case AF_BAN:
+	case AF_BAN:
-domainSymbol = @symbol(AF_BAN);
+	    domainSymbol = @symbol(AF_BAN);
-break;
+	    break;
 #endif
 #ifdef AF_VOICEVIEW
-case AF_VOICEVIEW:
+	case AF_VOICEVIEW:
-domainSymbol = @symbol(AF_VOICEVIEW);
+	    domainSymbol = @symbol(AF_VOICEVIEW);
-break;
+	    break;
 #endif
 #ifdef AF_ATM
-case AF_ATM:
+	case AF_ATM:
-domainSymbol = @symbol(AF_ATM);
+	    domainSymbol = @symbol(AF_ATM);
-break;
+	    break;
 #endif
 #ifdef AF_ATMPVC
-case AF_ATMPVC:
+	case AF_ATMPVC:
-domainSymbol = @symbol(AF_ATMPVC);
+	    domainSymbol = @symbol(AF_ATMPVC);
-break;
+	    break;
 #endif
 #ifdef AF_ATMSVC
-case AF_ATMSVC:
+	case AF_ATMSVC:
-domainSymbol = @symbol(AF_ATMSVC);
+	    domainSymbol = @symbol(AF_ATMSVC);
-break;
+	    break;
 #endif
 #ifdef AF_SECURITY
-case AF_SECURITY:
+	case AF_SECURITY:
-domainSymbol = @symbol(AF_SECURITY);
+	    domainSymbol = @symbol(AF_SECURITY);
-break;
+	    break;
 #endif
 #ifdef AF_KEY
-case AF_KEY:
+	case AF_KEY:
-domainSymbol = @symbol(AF_KEY);
+	    domainSymbol = @symbol(AF_KEY);
-break;
+	    break;
 #endif
 #ifdef AF_NETLINK
-case AF_NETLINK:
+	case AF_NETLINK:
-domainSymbol = @symbol(AF_NETLINK);
+	    domainSymbol = @symbol(AF_NETLINK);
-break;
+	    break;
 #endif
 #ifdef AF_PACKET
-case AF_PACKET:
+	case AF_PACKET:
-domainSymbol = @symbol(AF_PACKET);
+	    domainSymbol = @symbol(AF_PACKET);
-break;
+	    break;
 #endif
 #ifdef AF_ASH
-case AF_ASH:
+	case AF_ASH:
-domainSymbol = @symbol(AF_ASH);
+	    domainSymbol = @symbol(AF_ASH);
-break;
+	    break;
 #endif
 #ifdef AF_ECONET
-case AF_ECONET:
+	case AF_ECONET:
-domainSymbol = @symbol(AF_ECONET);
+	    domainSymbol = @symbol(AF_ECONET);
-break;
+	    break;
 #endif
 #ifdef AF_IMPLINK
-case AF_IMPLINK:
+	case AF_IMPLINK:
-domainSymbol = @symbol(AF_IMPLINK);
+	    domainSymbol = @symbol(AF_IMPLINK);
-break;
+	    break;
 #endif
 #ifdef AF_PUP
-case AF_PUP:
+	case AF_PUP:
-domainSymbol = @symbol(AF_PUP);
+	    domainSymbol = @symbol(AF_PUP);
-break;
+	    break;
 #endif
 #ifdef AF_CHAOS
-case AF_CHAOS:
+	case AF_CHAOS:
-domainSymbol = @symbol(AF_CHAOS);
+	    domainSymbol = @symbol(AF_CHAOS);
-break;
+	    break;
 #endif
 #ifdef AF_DLI
-case AF_DLI:
+	case AF_DLI:
-domainSymbol = @symbol(AF_DLI);
+	    domainSymbol = @symbol(AF_DLI);
-break;
+	    break;
 #endif
 #ifdef AF_LAT
-case AF_LAT:
+	case AF_LAT:
-domainSymbol = @symbol(AF_LAT);
+	    domainSymbol = @symbol(AF_LAT);
-break;
+	    break;
 #endif
 #ifdef AF_HYLINK
-case AF_HYLINK:
+	case AF_HYLINK:
-domainSymbol = @symbol(AF_HYLINK);
+	    domainSymbol = @symbol(AF_HYLINK);
-break;
+	    break;
 #endif
 #ifdef AF_FIREFOX
-case AF_FIREFOX:
+	case AF_FIREFOX:
-domainSymbol = @symbol(AF_FIREFOX);
+	    domainSymbol = @symbol(AF_FIREFOX);
-break;
+	    break;
 #endif
 #ifdef AF_CLUSTER
-case AF_CLUSTER:
+	case AF_CLUSTER:
-domainSymbol = @symbol(AF_CLUSTER);
+	    domainSymbol = @symbol(AF_CLUSTER);
-break;
+	    break;
 #endif
 #ifdef AF_12844
-case AF_12844:
+	case AF_12844:
-domainSymbol = @symbol(AF_12844);
+	    domainSymbol = @symbol(AF_12844);
-break;
+	    break;
 #endif
 #ifdef AF_NETDES
-case AF_NETDES:
+	case AF_NETDES:
-domainSymbol = @symbol(AF_NETDES);
+	    domainSymbol = @symbol(AF_NETDES);
-break;
+	    break;
 #endif
-}
+	}
 }
 %}.
 ^ domainSymbol.
 |protocolCode|
 %{  /*NOCONTEXT*/
 if (__isSmallInteger(aSymbolOrInteger) || aSymbolOrInteger == nil) {
-RETURN (aSymbolOrInteger);
+	RETURN (aSymbolOrInteger);
 }
 #ifdef IPPROTO_IP
 else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) || (aSymbolOrInteger == @symbol(ip)))
 protocolCode = __mkSmallInteger(IPPROTO_IP);
 |protocolSymbol|
 %{ /*NOCONTEXT*/
 if (__isSmallInteger(anInteger)) {
-switch(__intVal(anInteger)) {
+	switch(__intVal(anInteger)) {
 #ifdef IPPROTO_IP
-case IPPROTO_IP:
+	case IPPROTO_IP:
-// protocolSymbol = @symbol(IPPROTO_IP);
+	    // protocolSymbol = @symbol(IPPROTO_IP);
-protocolSymbol = @symbol(ip);
+	    protocolSymbol = @symbol(ip);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_ICMP
-case IPPROTO_ICMP:
+	case IPPROTO_ICMP:
-// protocolSymbol = @symbol(IPPROTO_ICMP);
+	    // protocolSymbol = @symbol(IPPROTO_ICMP);
-protocolSymbol = @symbol(icmp);
+	    protocolSymbol = @symbol(icmp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_IGMP
-case IPPROTO_IGMP:
+	case IPPROTO_IGMP:
-// protocolSymbol = @symbol(IPPROTO_IGMP);
+	    // protocolSymbol = @symbol(IPPROTO_IGMP);
-protocolSymbol = @symbol(igmp);
+	    protocolSymbol = @symbol(igmp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_GGP
-case IPPROTO_GGP:
+	case IPPROTO_GGP:
-// protocolSymbol = @symbol(IPPROTO_GGP);
+	    // protocolSymbol = @symbol(IPPROTO_GGP);
-protocolSymbol = @symbol(ggp);
+	    protocolSymbol = @symbol(ggp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_TCP
-case IPPROTO_TCP:
+	case IPPROTO_TCP:
-// protocolSymbol = @symbol(IPPROTO_TCP);
+	    // protocolSymbol = @symbol(IPPROTO_TCP);
-protocolSymbol = @symbol(tcp);
+	    protocolSymbol = @symbol(tcp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_PUP
-case IPPROTO_PUP:
+	case IPPROTO_PUP:
-// protocolSymbol = @symbol(IPPROTO_PUP);
+	    // protocolSymbol = @symbol(IPPROTO_PUP);
-protocolSymbol = @symbol(pup);
+	    protocolSymbol = @symbol(pup);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_UDP
-case IPPROTO_UDP:
+	case IPPROTO_UDP:
-// protocolSymbol = @symbol(IPPROTO_UDP);
+	    // protocolSymbol = @symbol(IPPROTO_UDP);
-protocolSymbol = @symbol(udp);
+	    protocolSymbol = @symbol(udp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_IDP
-case IPPROTO_IDP:
+	case IPPROTO_IDP:
-// protocolSymbol = @symbol(IPPROTO_IDP);
+	    // protocolSymbol = @symbol(IPPROTO_IDP);
-protocolSymbol = @symbol(idp);
+	    protocolSymbol = @symbol(idp);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_ND
-case IPPROTO_ND:
+	case IPPROTO_ND:
-// protocolSymbol = @symbol(IPPROTO_ND);
+	    // protocolSymbol = @symbol(IPPROTO_ND);
-protocolSymbol = @symbol(nd);
+	    protocolSymbol = @symbol(nd);
-break;
+	    break;
 #endif
 #ifdef IPPROTO_RAW
-case IPPROTO_RAW:
+	case IPPROTO_RAW:
-// protocolSymbol = @symbol(IPPROTO_RAW);
+	    // protocolSymbol = @symbol(IPPROTO_RAW);
-protocolSymbol = @symbol(raw);
+	    protocolSymbol = @symbol(raw);
-break;
+	    break;
 #endif
-}
+	}
 }
 %}.
 ^ protocolSymbol.
 domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
 %{
 if (__isSmallInteger(domainCode)) {
-switch (__intVal(domainCode)) {
+	switch (__intVal(domainCode)) {
 #ifdef AF_INET
-case AF_INET:
+	    case AF_INET:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
-break;
+		break;
 #endif
 #ifdef AF_INET6
-case AF_INET6:
+	    case AF_INET6:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
-break;
+		break;
 #endif
 #ifdef AF_UNIX
-case AF_UNIX:
+	    case AF_UNIX:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
-break;
+		break;
 #endif
 #ifdef AF_APPLETALK
-case AF_APPLETALK:
+	    case AF_APPLETALK:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
-break;
+		break;
 #endif
 #ifdef AF_DECnet
-case AF_DECnet:
+	    case AF_DECnet:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
-break;
+		break;
 #endif
 #ifdef AF_NS
-case AF_NS:
+	    case AF_NS:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
-break;
+		break;
 #endif
 #ifdef AF_X25
-case AF_X25:
+	    case AF_X25:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
-break;
+		break;
 #endif
 #ifdef AF_SNA
-case AF_SNA:
+	    case AF_SNA:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
-break;
+		break;
 #endif
 #ifdef AF_RAW
-case AF_RAW:
+	    case AF_RAW:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
-break;
+		break;
 #endif
 #ifdef AF_ISO
-case AF_ISO:
+	    case AF_ISO:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
-break;
+		break;
 #endif
 #ifdef AF_ECMA
 # if 0
-case AF_ECMA:
+	    case AF_ECMA:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
-break;
+		break;
 # endif
 #endif
 #ifdef AF_NETBIOS
-case AF_NETBIOS:
+	    case AF_NETBIOS:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
-break;
+		break;
 #endif
 #ifdef AF_NETBEUI
-case AF_NETBEUI:
+	    case AF_NETBEUI:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
-break;
+		break;
 #endif
 #ifdef AF_IPX
-case AF_IPX:
+	    case AF_IPX:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
-break;
+		break;
 #endif
 #ifdef AF_AX25
-case AF_AX25:
+	    case AF_AX25:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
-break;
+		break;
 #endif
 #ifdef AF_NETROM
-case AF_NETROM:
+	    case AF_NETROM:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
-break;
+		break;
 #endif
 #ifdef AF_BRIDGE
-case AF_BRIDGE:
+	    case AF_BRIDGE:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
-break;
+		break;
 #endif
 #ifdef AF_BSC
-case AF_BSC:
+	    case AF_BSC:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
-break;
+		break;
 #endif
 #ifdef AF_ROSE
-case AF_ROSE:
+	    case AF_ROSE:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
-break;
+		break;
 #endif
 #ifdef AF_IRDA
-case AF_IRDA:
+	    case AF_IRDA:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
-break;
+		break;
 #endif
 #ifdef AF_BAN
-case AF_BAN:
+	    case AF_BAN:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
-break;
+		break;
 #endif
 #ifdef AF_VOICEVIEW
-case AF_VOICEVIEW:
+	    case AF_VOICEVIEW:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
-break;
+		break;
 #endif
 #ifdef AF_ATM
-case AF_ATM:
+	    case AF_ATM:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
-break;
+		break;
 #endif
 #ifdef AF_ATMPVC
-case AF_ATMPVC:
+	    case AF_ATMPVC:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
-break;
+		break;
 #endif
 #ifdef AF_ATMSVC
-case AF_ATMSVC:
+	    case AF_ATMSVC:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
-break;
+		break;
 #endif
 #ifdef AF_NETLINK
-case AF_NETLINK:
+	    case AF_NETLINK:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
-break;
+		break;
 #endif
 #ifdef AF_PACKET
-case AF_PACKET:
+	    case AF_PACKET:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
-break;
+		break;
 #endif
 #ifdef AF_ASH
-case AF_ASH:
+	    case AF_ASH:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
-break;
+		break;
 #endif
 #ifdef AF_ECONET
-case AF_ECONET:
+	    case AF_ECONET:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
-break;
+		break;
 #endif
 #ifdef AF_IMPLINK
-case AF_IMPLINK:
+	    case AF_IMPLINK:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
-break;
+		break;
 #endif
 #ifdef AF_PUP
 # if 0
-case AF_PUP:
+	    case AF_PUP:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
-break;
+		break;
 # endif
 #endif
 #ifdef AF_CHAOS
-case AF_CHAOS:
+	    case AF_CHAOS:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
-break;
+		break;
 #endif
 #ifdef AF_DLI
-case AF_DLI:
+	    case AF_DLI:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
-break;
+		break;
 #endif
 #ifdef AF_LAT
-case AF_LAT:
+	    case AF_LAT:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
-break;
+		break;
 #endif
 #ifdef AF_HYLINK
-case AF_HYLINK:
+	    case AF_HYLINK:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
-break;
+		break;
 #endif
 #ifdef AF_FIREFOX
-case AF_FIREFOX:
+	    case AF_FIREFOX:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
-break;
+		break;
 #endif
 #ifdef AF_CLUSTER
-case AF_CLUSTER:
+	    case AF_CLUSTER:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
-break;
+		break;
 #endif
 #ifdef AF_12844
-case AF_12844:
+	    case AF_12844:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
-break;
+		break;
 #endif
 #ifdef AF_NETDES
-case AF_NETDES:
+	    case AF_NETDES:
-socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
-break;
+		break;
 #endif
-}
+	}
 }
 %}.
 ^ socketSize
 "
 |typeCode|
 %{   /*NOCONTEXT*/
 if (__isSmallInteger(aSymbolOrInteger) || aSymbolOrInteger == nil) {
-typeCode = aSymbolOrInteger;
+	typeCode = aSymbolOrInteger;
 }
 #ifdef SOCK_STREAM
 else if ((aSymbolOrInteger == @symbol(stream)) || (aSymbolOrInteger == @symbol(SOCK_STREAM)))
-typeCode = __mkSmallInteger(SOCK_STREAM);
+	typeCode = __mkSmallInteger(SOCK_STREAM);
 #endif
 #ifdef SOCK_DGRAM
 else if ((aSymbolOrInteger == @symbol(datagram)) || (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
-typeCode = __mkSmallInteger(SOCK_DGRAM);
+	typeCode = __mkSmallInteger(SOCK_DGRAM);
 #endif
 #ifdef SOCK_RAW
 else if ((aSymbolOrInteger == @symbol(raw)) || (aSymbolOrInteger == @symbol(SOCK_RAW)))
-typeCode = __mkSmallInteger(SOCK_RAW);
+	typeCode = __mkSmallInteger(SOCK_RAW);
 #endif
 #ifdef SOCK_RDM
 else if ((aSymbolOrInteger == @symbol(rdm)) || (aSymbolOrInteger == @symbol(SOCK_RDM)))
-typeCode = __mkSmallInteger(SOCK_RDM);
+	typeCode = __mkSmallInteger(SOCK_RDM);
 #endif
 #ifdef SOCK_SEQPACKET
 else if ((aSymbolOrInteger == @symbol(seqpacket)) || (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
-typeCode = __mkSmallInteger(SOCK_SEQPACKET);
+	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
 #endif
 #ifdef SOCK_PACKET
 else if ((aSymbolOrInteger == @symbol(packet)) || (aSymbolOrInteger == @symbol(SOCK_PACKET)))
-typeCode = __mkSmallInteger(SOCK_PACKET);
+	typeCode = __mkSmallInteger(SOCK_PACKET);
 #endif
 %}.
 ^ typeCode.
 |socketTypeSymbol|
 %{  /*NOCONTEXT*/
 if (__isSmallInteger(anInteger)) {
-switch(__intVal(anInteger)) {
+	switch(__intVal(anInteger)) {
 #ifdef SOCK_STREAM
-case SOCK_STREAM:
+	case SOCK_STREAM:
-socketTypeSymbol = @symbol(SOCK_STREAM);
+	    socketTypeSymbol = @symbol(SOCK_STREAM);
-break;
+	    break;
 #endif
 #ifdef SOCK_DGRAM
-case SOCK_DGRAM:
+	case SOCK_DGRAM:
-socketTypeSymbol = @symbol(SOCK_DGRAM);
+	    socketTypeSymbol = @symbol(SOCK_DGRAM);
-break;
+	    break;
 #endif
 #ifdef SOCK_RAW
-case SOCK_RAW:
+	case SOCK_RAW:
-socketTypeSymbol = @symbol(SOCK_RAW);
+	    socketTypeSymbol = @symbol(SOCK_RAW);
-break;
+	    break;
 #endif
 #ifdef SOCK_RDM
-case SOCK_RDM:
+	case SOCK_RDM:
-socketTypeSymbol = @symbol(SOCK_RDM);
+	    socketTypeSymbol = @symbol(SOCK_RDM);
-break;
+	    break;
 #endif
 #ifdef SOCK_SEQPACKET
-case SOCK_SEQPACKET:
+	case SOCK_SEQPACKET:
-socketTypeSymbol = @symbol(SOCK_SEQPACKET);
+	    socketTypeSymbol = @symbol(SOCK_SEQPACKET);
-break;
+	    break;
 #endif
 #ifdef SOCK_PACKET
-case SOCK_PACKET:
+	case SOCK_PACKET:
-socketTypeSymbol = @symbol(SOCK_PACKET);
+	    socketTypeSymbol = @symbol(SOCK_PACKET);
-break;
+	    break;
 #endif
-}
+	}
 }
 %}.
 ^ socketTypeSymbol.
 !
 socket creation may still fail, if your system was built without it.
 For backward compatibility, the returned list includes the old
 (non-AF-prefixed) symbols; these will vanish."
 ^ #(
-#AF_INET        #inet
+	#AF_INET        #inet
-#AF_UNIX        #unix
+	#AF_UNIX        #unix
-#AF_INET6       #inet6
+	#AF_INET6       #inet6
-#AF_APPLETALK   #appletalk
+	#AF_APPLETALK   #appletalk
-#AF_DECnet      #decnet
+	#AF_DECnet      #decnet
-#AF_NS          #ns
+	#AF_NS          #ns
-#AF_X25         #x25
+	#AF_X25         #x25
-#AF_SNA
+	#AF_SNA
-#AF_RAW
+	#AF_RAW
-#AF_ISO
+	#AF_ISO
-#AF_ECMA
+	#AF_ECMA
-#AF_NETBIOS     #netbios
+	#AF_NETBIOS     #netbios
-#AF_IPX
+	#AF_IPX
-#AF_AX25
+	#AF_AX25
-#AF_NETROM
+	#AF_NETROM
-#AF_BRIDGE
+	#AF_BRIDGE
-#AF_BSC
+	#AF_BSC
-#AF_ROSE
+	#AF_ROSE
-#AF_IRDA        #irda
+	#AF_IRDA        #irda
-#AF_NETLINK
+	#AF_NETLINK
-#AF_NETLINK
+	#AF_NETLINK
-#AF_NETBEUI
+	#AF_NETBEUI
-#AF_ATM
+	#AF_ATM
-#AF_ATMPVC
+	#AF_ATMPVC
-#AF_ATMSVC
+	#AF_ATMSVC
-#AF_BAN
+	#AF_BAN
-#AF_VOICEVIEW
+	#AF_VOICEVIEW
-#AF_ECONET
+	#AF_ECONET
-#AF_IMPLINK
+	#AF_IMPLINK
-#AF_PUP
+	#AF_PUP
-#AF_CHAOS
+	#AF_CHAOS
-#AF_DLI
+	#AF_DLI
-#AF_LAT
+	#AF_LAT
-#AF_HYLINK
+	#AF_HYLINK
-#AF_FIREFOX
+	#AF_FIREFOX
-#AF_CLUSTER
+	#AF_CLUSTER
-#AF_12844
+	#AF_12844
-#AF_NETDES
+	#AF_NETDES
 ) select:[:sym | (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
 "
 AbstractOperatingSystem supportedProtocolFamilies
 "
 supportedSocketTypes
 "return the symbolic typeName of a given numeric SOCK_xxx socket type code.
 Return nil for invalid or unsupported socket types."
 ^ #(
-#SOCK_STREAM
+	#SOCK_STREAM
-#SOCK_DGRAM
+	#SOCK_DGRAM
-#SOCK_RAW
+	#SOCK_RAW
-#SOCK_RDM
+	#SOCK_RDM
-#SOCK_SEQPACKET
+	#SOCK_SEQPACKET
-#SOCK_PACKET
+	#SOCK_PACKET
 ) select:[:sym | (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
 "
 AbstractOperatingSystem supportedSocketTypes
 "
 i := self computeTimeAndDateFrom:osTime.
 aBlock value:i year value:i month value:i day
 "
 OperatingSystem computeDatePartsOf:0 for:[:y :m :d |
-y printCR. m printCR. d printCR
+	y printCR. m printCR. d printCR
 ]
 "
 !
 computeOSTimeFromUTCYear:y month:m day:d hour:h minute:min second:s millisecond:millis
 aBlock value:hours value:minutes value:seconds value:millis
 "
 OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli |
-Transcript show:h; space; show:m; space; show:s; space; showCR:milli.
+	Transcript show:h; space; show:m; space; show:s; space; showCR:milli.
 ]
 "
 !
 computeUTCTimeAndDateFrom:osTime
 "given an OS-dependent time in osTime, return an Array
 containing:
-(full-) year,
+	(full-) year,
-month,                          (1..)
+	month,                          (1..)
-day,                            (1..)
+	day,                            (1..)
-hour,                           (0..23)
+	hour,                           (0..23)
-minute                          (0..59)
+	minute                          (0..59)
-seconds,                        (0..59)
+	seconds,                        (0..59)
-offset to UTC,                  (seconds)
+	offset to UTC,                  (seconds)
-daylight savings time flag,
+	daylight savings time flag,
-milliseconds,                   (0..999)
+	milliseconds,                   (0..999)
-dayInYear                       (1..)
+	dayInYear                       (1..)
-dayInWeek                       (1..).
+	dayInWeek                       (1..).
 Conversion is to utc."
 |divMod ret|
 divMod := osTime divMod:1000.
 "get a CPU specific cycle counter value.
 Can be used for exact timing & performance measurements.
 Notice, that the # of cycles has to be multiplied by the cycle time (1/cpu-frequency).
 For x86:
-the CPU cycle count register value is returned (RDTSC instruction).
+	the CPU cycle count register value is returned (RDTSC instruction).
-Fails if RDTSC instruction is not supported (which is unlikely, nowadays).
+	Fails if RDTSC instruction is not supported (which is unlikely, nowadays).
 For others:
-currently fails"
+	currently fails"
 %{  /* NOCONTEXT */
 unsigned int low, high;
 #ifdef i386
 // use RDTSC instruction (retrieves 64bit cycle count; hi in EDX, lo in EAX)
 # if defined(__BORLANDC__)
 _asm { push edx };
 __emit__(0x0F,0x31);            /* RDTSC instruction */
 _asm { mov low,eax };
 _asm { mov high,edx };
 _asm { pop edx };
-# elif defined(_MSC_VER)
-_asm { push  edx };
-_asm { _emit 0fh }; _asm { _emit 031h };
-_asm { mov low,eax };
-_asm { mov high,edx };
-_asm { pop   edx };
 # elif defined(__MINGW_H) || defined(__GNUC__)
 asm volatile("rdtsc" : "=a"(low), "=d"(high));
 # else
 goto unsupported;
 # endif
 Since this value is wrapping around in regular intervals, this can only be used for
 short relative time deltas.
 Use the millisecondTimeXXX:-methods to compare and add time deltas - these know about the wrap.
 BAD DESIGN:
-This should be changed to return some instance of RelativeTime,
+	This should be changed to return some instance of RelativeTime,
-and these computations moved there.
+	and these computations moved there.
 Dont use this method in application code since it is an internal (private)
 interface. For compatibility with ST-80, use Time millisecondClockValue.
 "
 now := self getMillisecondTime.
 then := self millisecondTimeAdd:now and:millis.
 [(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
-self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
+	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
-now := self getMillisecondTime.
+	now := self getMillisecondTime.
 ]
 "
 OperatingSystem millisecondDelay:5000
 "
 (such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
 This should really be moved to some RelativeTime class."
 (msTime1 > msTime2) ifTrue:[
-((msTime1 - msTime2) < 16r10000000) ifTrue:[
+	((msTime1 - msTime2) < 16r10000000) ifTrue:[
-^ true
+	    ^ true
-].
+	].
 ] ifFalse:[
-((msTime2 - msTime1) > 16r10000000) ifTrue:[
+	((msTime2 - msTime1) > 16r10000000) ifTrue:[
-^ true
+	    ^ true
-].
+	].
 ].
 ^ false
 !
 millisecondTimeAdd:msTime1 and:msTime2
 |sum|
 sum := msTime1 + msTime2.
 (sum > 16r1FFFFFFF) ifTrue:[
-self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
+	self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
-^ sum - 16r20000000.
+	^ sum - 16r20000000.
 ].
 (sum < 0) ifTrue:[^ sum + 16r20000000].
 ^ sum
 !
 |diff|
 diff := msTime1 - msTime2.
 diff > 16r-10000000 ifTrue:[
-(diff < 16r10000000) ifTrue:[
+	(diff < 16r10000000) ifTrue:[
-^ diff.
+	    ^ diff.
-] ifFalse:[
+	] ifFalse:[
-^ diff - 16r20000000.
+	    ^ diff - 16r20000000.
-].
+	].
 ].
 ^ diff + 16r20000000
 "
 "{ Pragma: +optSpace }"
 ^ self getHomeDirectory asFilename constructString:('.',appName)
 "
 OperatingSystem getApplicationDataDirectoryFor:'expecco'
 "
 "Created: / 29-07-2010 / 12:07:25 / sr"
 !
 The fallback here returns the users home directory."
 ^ self getHomeDirectory
 "
 OperatingSystem getDesktopDirectory
 "
 "Created: / 16-05-2007 / 13:20:53 / cg"
 !
 "{ Pragma: +optSpace }"
 ^ self getHomeDirectory
 "
 OperatingSystem getDocumentsDirectory
 "
 !
 getEffectiveGroupID
 "{ Pragma: +optSpace }"
 This is the login name, not the fullName."
 "/ fallBack dummy
 aNumber == self getUserID ifTrue:[
-^ self getLoginName
+	^ self getLoginName
 ].
 ^ '? (' , aNumber printString , ')'
 "
 ^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
 !
 readCheck:fd
 "return true, if a read is possible without blocking.
 This is the case if data is available on a filedescriptor
 or the read would return an error.
 This depends on a working select or FIONREAD to be provided by the OS."
 |result|
 self supportsSelect ifFalse:[
-"/ mhmh - what should we do then ?
+	"/ mhmh - what should we do then ?
-"/ For now, return true as if data was present,
+	"/ For now, return true as if data was present,
-"/ and let the thread fall into the read.
+	"/ and let the thread fall into the read.
-"/ It will then (hopefully) be descheduled there and
+	"/ It will then (hopefully) be descheduled there and
-"/ effectively polling for input.
+	"/ effectively polling for input.
-^ true
+	^ true
 ].
 result := self
-selectOnAnyReadable:(Array with:fd)
+		selectOnAnyReadable:(Array with:fd)
-writable:nil
+		writable:nil
-exception:nil
+		exception:nil
-withTimeOut:0.
+		withTimeOut:0.
 "on select error, a read will immediately return, so answer true"
 ^ result == fd or:[result == #error].
 !
 readWriteCheck:fd
 "return true, if filedescriptor can be read or written without blocking.
 This is the case if data is available on a filedescriptor
 or the read or write would return an error.
 This is actually only used with sockets, to wait for a connect to
 be finished."
 |result|
 self supportsSelect ifFalse:[
-"/ mhmh - what should we do then ?
+	"/ mhmh - what should we do then ?
-"/ For now, return true as if data was present,
+	"/ For now, return true as if data was present,
-"/ and let the thread fall into the write.
+	"/ and let the thread fall into the write.
-"/ It will then (hopefully) be desceduled there and
+	"/ It will then (hopefully) be desceduled there and
-"/ effectively polling for output.
+	"/ effectively polling for output.
-^ true
+	^ true
 ].
 result := self selectOnAnyReadable:(Array with:fd)
-writable:(Array with:fd)
+		     writable:(Array with:fd)
-exception:nil
+		    exception:nil
-withTimeOut:0.
+		  withTimeOut:0.
 ^ result == fd or:[result == #error].
 !
 selectOn:fd1 and:fd2 withTimeOut:millis
 <resource: #obsolete>
 "wait for any fd to become ready; timeout after t milliseconds.
 A zero timeout-time will immediately return (i.e. poll).
 Return fd if i/o ok, nil if timed-out or interrupted.
 Obsolete:
-This is a leftover method and will vanish."
+	This is a leftover method and will vanish."
 ^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
-writable:(Array with:fd1 with:fd2)
+		      writable:(Array with:fd1 with:fd2)
-exception:nil
+		     exception:nil
-withTimeOut:millis
+		   withTimeOut:millis
 !
 selectOn:fd withTimeOut:millis
 "wait for aFileDesriptor to become ready; timeout after t milliseconds.
 Return true, if i/o ok, false if timed-out or interrupted.
 With 0 as timeout argument, this can be used to check for availability
 of read-data.
 Experimental."
 ^ self selectOnAnyReadable:(Array with:fd)
-writable:(Array with:fd)
+		      writable:(Array with:fd)
-exception:nil
+		     exception:nil
-withTimeOut:millis
+		   withTimeOut:millis
 !
 selectOnAny:fdArray withTimeOut:millis
 "wait for any fd in fdArray (an Array of integers) to become ready;
 timeout after t milliseconds. An empty set will always wait.
 Return first ready fd if i/o ok, nil if timed-out or interrupted.
 Experimental."
 ^ self selectOnAnyReadable:fdArray
-writable:fdArray
+		      writable:fdArray
-exception:nil
+		     exception:nil
-withTimeOut:millis
+		   withTimeOut:millis
 !
 selectOnAnyReadable:fdArray withTimeOut:millis
 "wait for any fd in fdArray (an Array of integers) to become ready for
 reading. Timeout after t milliseconds. An empty set will always wait.
 A zero timeout-time will immediately return (i.e. poll).
 Return first ready fd if i/o ok, nil if timed-out or interrupted.
 Experimental."
 ^ self selectOnAnyReadable:fdArray
-writable:nil
+		      writable:nil
-exception:nil
+		     exception:nil
-withTimeOut:millis
+		   withTimeOut:millis
 !
 selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
-readableInto:readableResultFdArray writableInto:writableResultFdArray
+	readableInto:readableResultFdArray writableInto:writableResultFdArray
-exceptionInto:exceptionResultFdArray
+	exceptionInto:exceptionResultFdArray
-withTimeOut:millis
+	withTimeOut:millis
 "wait for any fd in readFdArray (an Array of integers) to become ready for reading,
 writeFdArray to become ready for writing,
 or exceptFdArray to arrive exceptional data (i.e. out-of-band data).
 Timeout after t milliseconds or - if the timeout time is 0 - immediately..
 self subclassResponsibility
 !
 writeCheck:fd
 "return true, if filedescriptor can be written without blocking.
 This is the case if data can be written to a filedescriptor
 or the write would return an error."
 |result|
 self supportsSelect ifFalse:[
-"/ mhmh - what should we do then ?
+	"/ mhmh - what should we do then ?
-"/ For now, return true as if data was present,
+	"/ For now, return true as if data was present,
-"/ and let the thread fall into the write.
+	"/ and let the thread fall into the write.
-"/ It will then (hopefully) be desceduled there and
+	"/ It will then (hopefully) be desceduled there and
-"/ effectively polling for output.
+	"/ effectively polling for output.
-^ true
+	^ true
 ].
 result := self selectOnAnyReadable:nil
-writable:(Array with:fd)
+		     writable:(Array with:fd)
-exception:nil
+		    exception:nil
-withTimeOut:0.
+		  withTimeOut:0.
 ^ result == fd or:[result == #error].
 ! !
 !AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
 ^ d.
 "Created: / 31-07-2006 / 15:35:37 / fm"
 !
 paperSizeNumberToNameTable
 ^Dictionary withKeysAndValues:
-#(
+	#(
-'Letter, 8 1/2- by 11-inches'                   1       "/ Letter
+	    'Letter, 8 1/2- by 11-inches'                   1       "/ Letter
-'Legal 8 1/2- by 14-inches'                     5       "/ Legal
+	    'Legal 8 1/2- by 14-inches'                     5       "/ Legal
-'10- by 14-inch sheet'                          16       "/ 10x14
+	    '10- by 14-inch sheet'                          16       "/ 10x14
-'11- by 17-inch sheet'                          17       "/ 11x17
+	    '11- by 17-inch sheet'                          17       "/ 11x17
-"/ '12X11'             "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
+	    "/ '12X11'             "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
-'A3 sheet, 297- by 420-millimeters'             8       "/ A3
+	    'A3 sheet, 297- by 420-millimeters'             8       "/ A3
-'A3 rotated sheet, 420- by 297-millimeters'     67      "/ A3_rotated
+	    'A3 rotated sheet, 420- by 297-millimeters'     67      "/ A3_rotated
-'A4 sheet, 210- by 297-millimeters'             9       "/ A4
+	    'A4 sheet, 210- by 297-millimeters'             9       "/ A4
-'A4 rotated sheet, 297- by 210-millimeters'     55      "/ A4_rotated
+	    'A4 rotated sheet, 297- by 210-millimeters'     55      "/ A4_rotated
-'A4 small sheet, 210- by 297-millimeters'       10      "/ A4 small
+	    'A4 small sheet, 210- by 297-millimeters'       10      "/ A4 small
-'A5 sheet, 148- by 210-millimeters'             11      "/ A5
+	    'A5 sheet, 148- by 210-millimeters'             11      "/ A5
-'A5 rotated sheet, 210- by 148-millimeters'     61      "/ A5 rotated
+	    'A5 rotated sheet, 210- by 148-millimeters'     61      "/ A5 rotated
 "/            'a6'                "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
 "/          'a6_rotated'          "/ Windows 98/Me, Windows NT 4.0 and later: A6 rotated sheet, 148- by 105-millimeters
-'B4 sheet, 250- by 354-millimeters'             12      "/ B4
+	    'B4 sheet, 250- by 354-millimeters'             12      "/ B4
 "/ b4_jis_rotated  Windows 98/Me, Windows NT 4.0 and later: B4 (JIS) rotated sheet, 364- by 257-millimeters
-'B5 sheet, 182- by 257-millimeter paper'        13      "/ B5
+	    'B5 sheet, 182- by 257-millimeter paper'        13      "/ B5
 "/ b5_jis_rotated  Windows 98/Me, Windows NT 4.0 and later: B5 (JIS) rotated sheet, 257- by 182-millimeters
 "/ b6_jis  Windows 98/Me, Windows NT 4.0 and later: B6 (JIS) sheet, 128- by 182-millimeters
 "/ b6_jis_rotated  Windows 98/Me, Windows NT 4.0 and later: B6 (JIS) rotated sheet, 182- by 128-millimeters
 "/ csheet  C Sheet, 17- by 22-inches
 "/ dbl_japanese_postcard   Windows 98/Me, Windows NT 4.0 and later: Double Japanese Postcard, 200- by 148-millimeters
 "/ dbl_japanese_postcard_rotated   Windows 98/Me, Windows NT 4.0 and later: Double Japanese Postcard Rotated, 148- by 200-millimeters
 "/ dsheet  D Sheet, 22- by 34-inches
-'#9 Envelope, 3 7/8- by 8 7/8-inches'           19     "/  env_9
+	    '#9 Envelope, 3 7/8- by 8 7/8-inches'           19     "/  env_9
-'#10 Envelope, 4 1/8- by 9 1/2-inches'          20     "/  env_10
+	    '#10 Envelope, 4 1/8- by 9 1/2-inches'          20     "/  env_10
-'#11 Envelope, 4 1/2- by 10 3/8-inches'         21     "/  env_11
+	    '#11 Envelope, 4 1/2- by 10 3/8-inches'         21     "/  env_11
-'#12 Envelope, 4 3/4- by 11-inches'             22     "/  env_12
+	    '#12 Envelope, 4 3/4- by 11-inches'             22     "/  env_12
-'#14 Envelope, 5- by 11 1/2-inches'             23     "/  env_15
+	    '#14 Envelope, 5- by 11 1/2-inches'             23     "/  env_15
-'C5 Envelope, 162- by 229-millimeters'          28     "/  env_c5
+	    'C5 Envelope, 162- by 229-millimeters'          28     "/  env_c5
-'C3 Envelope, 324- by 458-millimeters'          29      "/ env_c3
+	    'C3 Envelope, 324- by 458-millimeters'          29      "/ env_c3
-'C4 Envelope, 229- by 324-millimeters'          30      "/ env_c4
+	    'C4 Envelope, 229- by 324-millimeters'          30      "/ env_c4
-'C6 Envelope, 114- by 162-millimeters'          31      "/ env_c6
+	    'C6 Envelope, 114- by 162-millimeters'          31      "/ env_c6
-'C65 Envelope, 114- by 229-millimeters'         32      "/ env_c65
+	    'C65 Envelope, 114- by 229-millimeters'         32      "/ env_c65
-'B4 Envelope, 250- by 353-millimeters'          33      "/ env_b4
+	    'B4 Envelope, 250- by 353-millimeters'          33      "/ env_b4
-'B5 Envelope, 176- by 250-millimeters'          34      "/  env_b5
+	    'B5 Envelope, 176- by 250-millimeters'          34      "/  env_b5
-'B6 Envelope, 176- by 125-millimeters'          35      "/  env_b6
+	    'B6 Envelope, 176- by 125-millimeters'          35      "/  env_b6
-'DL Envelope, 110- by 220-millimeters'          27      "/  env_dl
+	    'DL Envelope, 110- by 220-millimeters'          27      "/  env_dl
-'Italy Envelope, 110- by 230-millimeters'       36      "/  env_italy
+	    'Italy Envelope, 110- by 230-millimeters'       36      "/  env_italy
-'Monarch Envelope, 3 7/8- by 7 1/2-inches'      37      "/   env_monarch
+	    'Monarch Envelope, 3 7/8- by 7 1/2-inches'      37      "/   env_monarch
 "/ env_personal    6 3/4 Envelope, 3 5/8- by 6 1/2-inches
 "/ esheet  E Sheet, 34- by 44-inches
 "/ executive   Executive, 7 1/4- by 10 1/2-inches
 "/ fanfold_us  US Std Fanfold, 14 7/8- by 11-inches
 "/ fanfold_std_german  German Std Fanfold, 8 1/2- by 12-inches
 "/ jenv_kaku3  Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
 "/ jenv_kaku3_rotated  Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3 Rotated
 "/ jenv_you4   Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
 "/ jenv_you4_rotated   Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4 Rotated
 "/ last    Windows 2000/XP: PENV_10_ROTATED
-'Ledger, 17- by 11-inches'                      4    "/   ledger
+	    'Ledger, 17- by 11-inches'                      4    "/   ledger
-'Letter Rotated 11 by 8 1/2 11 inches'          54      "/    letter_rotated
+	    'Letter Rotated 11 by 8 1/2 11 inches'          54      "/    letter_rotated
 "/ lettersmall     Letter Small, 8 1/2- by 11-inches
 "/ note    Note, 8 1/2- by 11-inches
 "/ p16k    Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
 "/ p16k_rotated    Windows 98/Me, Windows NT 4.0 and later: PRC 16K Rotated, 215- by 146-millimeters
 "/ p32k    Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
 "/ penv_10     Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #10, 324- by 458-millimeters
 "/ penv_10_rotated     Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #10 Rotated, 458- by 324-millimeters
 "/ quarto  Quarto, 215- by 275-millimeter paper
 "/ statement   Statement, 5 1/2- by 8 1/2-inches
 "/ tabloid     Tabloid, 11- by 17-inches
-).
+	).
 "Created: / 31-07-2006 / 15:35:37 / fm"
 !
 statusNumberToDescriptionForNumber:aNumber
 ^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
 "
 self statusNumberToDescriptionForNumber:1
 "
 ^ d.
 "Created: / 01-08-2006 / 14:31:05 / fm"
 !
 statusNumberToDescriptionTable
 ^Dictionary withKeysAndValues:
-#( 'Ready'                     0                           "/ PRINTER_STATUS_READY
+	#( 'Ready'                     0                           "/ PRINTER_STATUS_READY
-'Paused'                    1                           "/ PRINTER_STATUS_PAUSED
+	   'Paused'                    1                           "/ PRINTER_STATUS_PAUSED
-'Error'                     2                           "/ PRINTER_STATUS_ERROR
+	   'Error'                     2                           "/ PRINTER_STATUS_ERROR
-'Deleting...'               4                           "/ PRINTER_STATUS_PENDING_DELETION
+	   'Deleting...'               4                           "/ PRINTER_STATUS_PENDING_DELETION
-'Paper Jam'                 8                           "/ PRINTER_STATUS_PAPER_JAM
+	   'Paper Jam'                 8                           "/ PRINTER_STATUS_PAPER_JAM
-'Paper Out'                 16                          "/ PRINTER_STATUS_PAPER_OUT
+	   'Paper Out'                 16                          "/ PRINTER_STATUS_PAPER_OUT
-'Manual Feed Required'      32                          "/ PRINTER_STATUS_MANUAL_FEED
+	   'Manual Feed Required'      32                          "/ PRINTER_STATUS_MANUAL_FEED
-'Paper Problem'             64                          "/ PRINTER_STATUS_PAPER_PROBLEM
+	   'Paper Problem'             64                          "/ PRINTER_STATUS_PAPER_PROBLEM
-'Offline'                   128                         "/ PRINTER_STATUS_OFFLINE
+	   'Offline'                   128                         "/ PRINTER_STATUS_OFFLINE
-'Downloading Job'           256                         "/ PRINTER_STATUS_IO_ACTIVE
+	   'Downloading Job'           256                         "/ PRINTER_STATUS_IO_ACTIVE
-'Busy'                      512                         "/ PRINTER_STATUS_BUSY
+	   'Busy'                      512                         "/ PRINTER_STATUS_BUSY
-'Printing'                  1024                        "/ PRINTER_STATUS_PRINTING
+	   'Printing'                  1024                        "/ PRINTER_STATUS_PRINTING
-'Output Bill Full'          2048                        "/ PRINTER_STATUS_OUTPUT_BIN_FULL
+	   'Output Bill Full'          2048                        "/ PRINTER_STATUS_OUTPUT_BIN_FULL
-'Not Available'             4096                         "/ PRINTER_STATUS_NOT_AVAILABLE
+	   'Not Available'             4096                         "/ PRINTER_STATUS_NOT_AVAILABLE
-'Waiting'                   8192                         "/ PRINTER_STATUS_WAITING
+	   'Waiting'                   8192                         "/ PRINTER_STATUS_WAITING
-'Processing Job'            16384                         "/ PRINTER_STATUS_PROCESSING
+	   'Processing Job'            16384                         "/ PRINTER_STATUS_PROCESSING
-'Initializing'              32768                         "/ PRINTER_STATUS_INITIALIZING
+	   'Initializing'              32768                         "/ PRINTER_STATUS_INITIALIZING
-'Warming Up'                65536                         "/ PRINTER_STATUS_WARMING_UP
+	   'Warming Up'                65536                         "/ PRINTER_STATUS_WARMING_UP
-'Toner Low'                 131072                         "/ PRINTER_STATUS_TONER_LOW
+	   'Toner Low'                 131072                         "/ PRINTER_STATUS_TONER_LOW
-'Toner Out'                 262144                         "/ PRINTER_STATUS_NO_TONER
+	   'Toner Out'                 262144                         "/ PRINTER_STATUS_NO_TONER
-'Page too Complex'          524288                         "/ PRINTER_STATUS_PAGE_PUNT
+	   'Page too Complex'          524288                         "/ PRINTER_STATUS_PAGE_PUNT
-'User Intervention Required'1048576                         "/ PRINTER_STATUS_USER_INTERVENTION
+	   'User Intervention Required'1048576                         "/ PRINTER_STATUS_USER_INTERVENTION
-'Out of Memory'             2097152                         "/ PRINTER_STATUS_OUT_OF_MEMORY
+	   'Out of Memory'             2097152                         "/ PRINTER_STATUS_OUT_OF_MEMORY
-'Door Open'                 4194304                         "/ PRINTER_STATUS_DOOR_OPEN
+	   'Door Open'                 4194304                         "/ PRINTER_STATUS_DOOR_OPEN
-'Unable to connect'         8388608                         "/ PRINTER_STATUS_SERVER_UNKNOWN
+	   'Unable to connect'         8388608                         "/ PRINTER_STATUS_SERVER_UNKNOWN
-'Power Save Mode'           16777216                         "/ PRINTER_STATUS_POWER_SAVE
+	   'Power Save Mode'           16777216                         "/ PRINTER_STATUS_POWER_SAVE
-).
+	    ).
 "Created: / 01-08-2006 / 14:23:33 / fm"
 ! !
 !AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
 !
 collate: aBoolean
 |integer|
 integer:= aBoolean
-ifTrue:[1]      "DMCOLLATE_TRUE"
+		ifTrue:[1]      "DMCOLLATE_TRUE"
-ifFalse:[0].    "DMCOLLATE_FALSE"
+		ifFalse:[0].    "DMCOLLATE_FALSE"
 self documentProperties collate: integer
 "Created: / 01-08-2006 / 09:56:01 / fm"
 "Modified: / 16-04-2007 / 12:01:30 / cg"
 !
 "Created: / 28-07-2006 / 11:50:04 / fm"
 "Modified: / 31-07-2006 / 13:06:24 / fm"
 !
 documentProperties: aDevModeStructure
 documentProperties := aDevModeStructure.
 "Created: / 28-07-2006 / 11:47:31 / fm"
 !
 "Created: / 28-07-2006 / 16:44:26 / fm"
 "Modified: / 18-10-2006 / 12:01:36 / User"
 !
 orientation:anInteger
 |properties|
 properties := self documentProperties.
 properties notNil ifTrue:[
-properties orientation:anInteger
+	properties orientation:anInteger
 ]
 "Created: / 28-07-2006 / 17:22:44 / fm"
 "Modified: / 18-10-2006 / 12:01:40 / User"
 !
 "Created: / 31-07-2006 / 15:23:29 / fm"
 "Modified: / 31-07-2006 / 16:25:58 / fm"
 "Modified: / 18-10-2006 / 12:01:45 / User"
 !
 paperSize:anInteger
 |properties|
 properties := self documentProperties.
 properties notNil ifTrue:[
-properties paperSize:anInteger
+	properties paperSize:anInteger
 ]
 "Created: / 31-07-2006 / 15:23:20 / fm"
 "Modified: / 18-10-2006 / 12:01:48 / User"
 !
 ^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
 "Created: / 31-07-2006 / 15:35:12 / fm"
 !
 paperSizeName:aString
 self paperSize:(self class paperSizeNumberForName:aString)
 "Modified: / 18-10-2006 / 12:01:56 / User"
 !
 ^ printerName
 "Created: / 27-07-2006 / 12:16:59 / fm"
 !
 printerName:printerNameArg attributes:attributesArg
 printerName := printerNameArg.
 attributes := attributesArg.
 "Created: / 27-07-2006 / 12:29:18 / fm"
 "Modified: / 16-04-2007 / 12:03:41 / cg"
 !
 userFriendlyName
 ^self remotePrinterName isEmpty
-ifTrue:[self printerName]
+	ifTrue:[self printerName]
-ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
+	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
 "Created: / 03-08-2006 / 12:50:09 / fm"
 ! !
 !AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
 driverName := self driverName.
 pName := self printerName.
 "/ Transcript show:driverName; show:' '; showCR:printerName.
 ^OperatingSystem createPrinterDC:driverName
-device:pName
+			device:pName
-output:self medium
+			output:self medium
-initData:self documentProperties.
+			initData:self documentProperties.
 "Created: / 02-08-2006 / 16:51:02 / fm"
 "Modified: / 16-04-2007 / 13:56:56 / cg"
 ! !
 "Returns true if the documentProperties have been accepted. Otherwise, returns false"
 |h newDocumentProperties|
 h := OperatingSystem openPrinter: self printerName.
 newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
-hPrinter:h
+	    hPrinter:h
-pDeviceName: self printerName
+	    pDeviceName: self printerName
-devModeInput:self documentProperties.
+	    devModeInput:self documentProperties.
 (newDocumentProperties contains:[:el | el ~= 0])
-ifFalse:[^false].
+	ifFalse:[^false].
 self documentProperties: newDocumentProperties.
 OperatingSystem closePrinter:h.
 ^true
 "Created: / 28-07-2006 / 11:44:01 / fm"
 |h devMode |
 h := OperatingSystem openPrinter: self printerName.
 devMode := OperatingSystem getDocumentProperties:nil
-hPrinter:h
+			    hPrinter:h
-pDeviceName: self printerName.
+			    pDeviceName: self printerName.
 OperatingSystem closePrinter: h.
 ^devMode
 "Created: / 28-07-2006 / 11:49:33 / fm"
 "Modified: / 31-07-2006 / 10:33:04 / fm"
 "Modified: / 16-04-2007 / 12:02:00 / cg"
 !
 getPrinterInfo2
 "Returns a aPrinterInfo2 structure"
 printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
 ^ printerInfo2
 "Created: / 01-08-2006 / 13:50:55 / fm"
 "Modified: / 01-08-2006 / 15:11:03 / fm"
 "Modified: / 18-10-2006 / 12:03:54 / User"
 !
 printerInfo2
 "Returns a aPrinterInfo2 structure"
 printerInfo2 isNil ifTrue:[
-self getPrinterInfo2.
+	self getPrinterInfo2.
 ].
 ^ printerInfo2
 "Created: / 01-08-2006 / 15:10:18 / fm"
 "Modified: / 18-10-2006 / 12:03:57 / User"
 !
 setDocumentProperties
 "Sets a aDevModeStructure or nil if the printer is not available"
 self documentProperties: self getDocumentProperties
 "Created: / 31-07-2006 / 13:04:58 / fm"
 ! !
 <resource: #obsolete>
 self obsoleteMethodWarning:'use accessor for index ', index printString.
 index == 1 ifTrue:[
-^ self year.
+	^ self year.
 ].
 index == 2 ifTrue:[
-^ self month.
+	^ self month.
 ].
 index == 3 ifTrue:[
-^ self day.
+	^ self day.
 ].
 index == 4 ifTrue:[
-^ self hours.
+	^ self hours.
 ].
 index == 5 ifTrue:[
-^ self minutes.
+	^ self minutes.
 ].
 index == 6 ifTrue:[
-^ self seconds.
+	^ self seconds.
 ].
 index == 7 ifTrue:[
-^ self utcOffset.
+	^ self utcOffset.
 ].
 index == 8 ifTrue:[
-^ self dst.
+	^ self dst.
 ].
 index == 9 ifTrue:[
-^ self milliseconds.
+	^ self milliseconds.
 ].
 index == 10 ifTrue:[
-^ self dayInYear.
+	^ self dayInYear.
 ].
 index == 11 ifTrue:[
-^ self dayInWeek.
+	^ self dayInWeek.
 ].
 self subscriptBoundsError:index
 !
 day
 (it is not set in windows)"
 |dayCount|
 dayInYear notNil ifTrue:[
-^ dayInYear.
+	^ dayInYear.
 ].
 dayCount := #(0 31 59 90 120 151 181 212 243 273 304 334) at:month.
 (month > 2
 and:[(year \\ 4 == 0)
 and:[(year \\ 100 ~~ 0)
 and:[(year \\ 400 == 0)]]]) ifTrue:[
-"leap year and month after February"
+	"leap year and month after February"
-dayCount := dayCount + 1.
+	dayCount := dayCount + 1.
 ].
 ^ dayCount + day.
 "
 |daysSoFar|
 daysSoFar := 0.
 #(0 31 28 31 30 31 30 31 31 30 31 30) collect:[:daysInMonth| daysSoFar := daysSoFar + daysInMonth. daysSoFar]
 "
 !AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
 documentation
 "
 Bias
 The current bias for local time translation on this computer, in minutes.
 The bias is the difference, in minutes, between Coordinated Universal Time (UTC)
 and local time.
 All translations between UTC and local time are based on the following formula:
-UTC = local time + bias
+	UTC = local time + bias
 StandardName
 A description for standard time. For example, 'EST' could indicate Eastern Standard Time.
 The string will be returned unchanged by the GetTimeZoneInformation function.
 This string can be empty.
 This is for information only - do not depend on the value of the string.
 StandardDate
 A Timestamp that contains a date and local time when the transition from daylight saving
 time to standard time occurs on this operating system.
 If the time zone does not support daylight saving time or if the caller needs to disable
 daylight saving time, the standardDate is nil.
 If this date is specified, the DaylightDate member of this structure must also be specified.
 Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
 To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members
 to the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
 the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
 during the month if that day of the week does not occur 5 times).
 Using this notation, specify 02:00 on the first Sunday in April as follows:
-wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
+	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
 Specify 02:00 on the last Thursday in October as follows:
-wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
+	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
 If the wYear member is not zero, the transition date is absolute; it will only occur one time.
 Otherwise, it is a relative date that occurs yearly.
 StandardBias
 The bias value to be used during local time translations that occur during standard time.
 This member is ignored if a value for the StandardDate member is not supplied.
 This value is added to the value of the Bias member to form the bias used during standard time.
 In most time zones, the value of this member is zero.
 DaylightName
 A description for daylight saving time. For example, 'PDT' could indicate Pacific Daylight Time.
 The string will be returned unchanged by the GetTimeZoneInformation function. This string can be empty.
 This is for information only - do not depend on the value of the string.
 DaylightDate
 A Timestamp structure that contains a date and local time when the transition from standard time
 to daylight saving time occurs on this operating system.
 If the time zone does not support daylight saving time or if the caller needs to disable daylight
 saving time, this entry is nil.
 If this date is specified, the StandardDate member in this structure must also be specified.
 Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
 To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members to
 the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
 the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
 during the month if that day of the week does not occur 5 times).
 If the wYear member is not zero, the transition date is absolute; it will only occur one time.
 Otherwise, it is a relative date that occurs yearly.
 DaylightBias
 The bias value to be used during local time translations that occur during daylight saving time.
 This member is ignored if a value for the DaylightDate member is not supplied.
 This value is added to the value of the Bias member to form the bias used during daylight saving time.
 In most time zones, the value of this member is -60
 "
 ! !
 !AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
 bias:something
 bias := something.
 !
 bias:biasArg name:nameArg standardBias:standardBiasArg daylightName:daylightNameArg daylightBias:daylightBiasArg
 bias := biasArg.
 name := nameArg.
 standardBias := standardBiasArg.
 daylightName := daylightNameArg.
 daylightBias := daylightBiasArg.
 !
 bias:biasArg name:nameArg standardDate:standardDateArg standardBias:standardBiasArg daylightName:daylightNameArg daylightDate:daylightDateArg daylightBias:daylightBiasArg
 bias := biasArg.
 name := nameArg.
 standardDate := standardDateArg.
 standardBias := standardBiasArg.
 daylightName := daylightNameArg.
 daylightYear:something
 daylightYear := something.
 !
 daylightYear:daylightYearArg daylightMonth:daylightMonthArg daylightDay:daylightDayArg daylightWeekDay:daylightWeekDayArg daylightHour:daylightHourArg daylightMinute:daylightMinuteArg
 daylightYear := daylightYearArg.
 daylightMonth := daylightMonthArg.
 daylightDay := daylightDayArg.
 daylightWeekDay := daylightWeekDayArg.
 daylightHour := daylightHourArg.
 standardYear:something
 standardYear := something.
 !
 standardYear:standardYearArg standardMonth:standardMonthArg standardDay:standardDayArg standardWeekDay:standardWeekDayArg standardHour:standardHourArg standardMinute:standardMinuteArg
 standardYear := standardYearArg.
 standardMonth := standardMonthArg.
 standardDay := standardDayArg.
 standardWeekDay := standardWeekDayArg.
 standardHour := standardHourArg.
 ! !
 !AbstractOperatingSystem class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.216 2012/01/05 13:08:45 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.217 2012/01/05 14:29:48 cg Exp $'
 !
 version_CVS
-^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.216 2012/01/05 13:08:45 cg Exp '
+^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.217 2012/01/05 14:29:48 cg Exp '
 !
 version_SVN
-^ '$Id: AbstractOperatingSystem.st 10754 2012-01-06 08:53:28Z vranyj1 $'
+^ '$Id: AbstractOperatingSystem.st 10758 2012-01-19 10:06:02Z vranyj1 $'
 ! !
 AbstractOperatingSystem initialize!

branch	jv
changeset 17910	8d796ca8bd1d
parent 17909	0ab1deab8e9c
child 17911	a99f15c5efa5