hg/stx-libbasic: comparison AbstractOperatingSystem.st

equal deleted inserted replaced

-:69016b4e8952
+:4876615e4e0e
 "called at early startup to determine the kind of OS we are running on,
 and assigning a concrete subclass of me (remember: I am abstract) to the
 global 'OperatingSystem'.
 Programs should never refer to any of my concrete classes directly, as
 they may not (will not) be present when ST/X is executed under anther OS."
 |osType|
 osType := self getSystemType.
 osType = 'win32' ifTrue:[
-^ Win32OperatingSystem
+	^ Win32OperatingSystem
 ].
 osType = 'osx' ifTrue:[
-^ OSXOperatingSystem
+	^ OSXOperatingSystem
 ].
 osType = 'os2' ifTrue:[
-^ OS2OperatingSystem
+	^ OS2OperatingSystem
 ].
 osType = 'macos' ifTrue:[
-^ MacOperatingSystem
+	^ MacOperatingSystem
 ].
 ((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
-^ OpenVMSOperatingSystem
+	^ OpenVMSOperatingSystem
 ].
 ^ UnixOperatingSystem
 !
 initResources
 openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil
 "open a windows-shell/mac finder/desktop application to present the document contained in aFilenameOrString.
 This is typically used to present help-files, html documents, pdf documents etc.
 operationSymbol is one of:
-open
+	open
-edit
+	edit
-explore
+	explore
 mimeTypeStringArgOrNil is e.g. 'text/html' or: 'application/pdf'.
 If nil is passed in, the file's suffix is used to guess the mime type.
 "
 self
-openApplicationForDocument:aFilenameOrString
+	openApplicationForDocument:aFilenameOrString
-operation:operationSymbol
+	operation:operationSymbol
-mimeType:mimeTypeStringArgOrNil
+	mimeType:mimeTypeStringArgOrNil
-inDirectory:nil
+	inDirectory:nil
-ifNone:[
+	ifNone:[
-"/ last resort: use a fileBrowser
+	    "/ last resort: use a fileBrowser
-UserPreferences fileBrowserClass openOn:aFilenameOrString
+	    UserPreferences fileBrowserClass openOn:aFilenameOrString
-].
+	].
 "
 self openApplicationForDocument: Filename currentDirectory operation:#open
 self openApplicationForDocument: '..\..\doc\books\ArtOfSmalltalk\artMissing186187Fix1.pdf' asFilename operation:#open
 openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil ifNone:exceptionBlock
 "open a windows-shell/mac finder/desktop application to present the document contained in aFilenameOrString.
 This is typically used to present help-files, html documents, pdf documents etc.
 operationSymbol is one of:
-open
+	open
-edit
+	edit
-explore
+	explore
 mimeTypeStringArgOrNil is e.g. 'text/html' or: 'application/pdf';
 if nil is passed in, the file's suffix is used to guess it.
 "
 ^ self
-openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil
+	openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil
-inDirectory:nil ifNone:exceptionBlock
+	inDirectory:nil ifNone:exceptionBlock
 !
 openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil
 inDirectory:directoryStringOrFilenameOrNil
 "open a windows-shell/mac finder/desktop application to present the document contained in aFilenameOrString.
 This is typically used to present help-files, html documents, pdf documents etc.
 operationSymbol is one of:
-open
+	open
-edit
+	edit
-explore
+	explore
 mimeTypeStringArgOrNil is e.g. 'text/html' or: 'application/pdf';
 if nil is passed in, the file's suffix is used to guess it.
 "
 |openCommand mimeTypeString|
 mimeTypeString := mimeTypeStringArgOrNil.
 MIMETypes notNil ifTrue:[
-mimeTypeString isNil ifTrue:[
+	mimeTypeString isNil ifTrue:[
-mimeTypeString := MIMETypes mimeTypeForFilename:aFilenameOrString.
+	    mimeTypeString := MIMETypes mimeTypeForFilename:aFilenameOrString.
-].
+	].
-mimeTypeString notNil ifTrue:[
+	mimeTypeString notNil ifTrue:[
-openCommand := MIMETypes defaultCommandTemplateToOpenMimeType:mimeTypeString.
+	    openCommand := MIMETypes defaultCommandTemplateToOpenMimeType:mimeTypeString.
-].
+	].
 ].
 openCommand notEmptyOrNil ifTrue:[
-(openCommand includesSubString:'%1') ifTrue:[
+	(openCommand includesSubString:'%1') ifTrue:[
-openCommand := openCommand bindWith:aFilenameOrString asString.
+	    openCommand := openCommand bindWith:aFilenameOrString asString.
-] ifFalse:[
+	] ifFalse:[
-openCommand := openCommand, ' "', aFilenameOrString asString, '"'.
+	    openCommand := openCommand, ' "', aFilenameOrString asString, '"'.
-].
+	].
-(self
+	(self
-startProcess:openCommand
+		startProcess:openCommand
-inputFrom:nil outputTo:nil
+		inputFrom:nil outputTo:nil
-errorTo:nil auxFrom:nil
+		errorTo:nil auxFrom:nil
-environment:nil inDirectory:directoryStringOrFilenameOrNil) notNil
+		environment:nil inDirectory:directoryStringOrFilenameOrNil) notNil
-ifTrue:[
+	ifTrue:[
-^ self.
+	    ^ self.
-].
+	].
 ].
 ExecutionError raiseErrorString:'execution of command failed: ', openCommand.
 "
 self openApplicationForDocument: Filename currentDirectory operation:#open
 "Created: / 29-10-2010 / 12:16:38 / cg"
 "Modified: / 05-02-2011 / 16:13:42 / cg"
 !
 openApplicationForDocument:aFilenameOrString operation:operationSymbol mimeType:mimeTypeStringArgOrNil
 inDirectory:directoryStringOrFilenameOrNil ifNone:exceptionBlock
 "open a windows-shell/mac finder/desktop application to present the document contained in aFilenameOrString.
 This is typically used to present help-files, html documents, pdf documents etc.
 operationSymbol is one of:
-open
+	open
-edit
+	edit
-explore
+	explore
 mimeTypeStringArgOrNil is e.g. 'text/html' or: 'application/pdf';
 if nil is passed in, the file's suffix is used to guess it.
 "
 [
-^ self
+	^ self
-openApplicationForDocument:aFilenameOrString
+	    openApplicationForDocument:aFilenameOrString
-operation:operationSymbol mimeType:mimeTypeStringArgOrNil
+	    operation:operationSymbol mimeType:mimeTypeStringArgOrNil
-inDirectory:directoryStringOrFilenameOrNil.
+	    inDirectory:directoryStringOrFilenameOrNil.
 ] on:ExecutionError do:[:ex|
-exceptionBlock value.
+	exceptionBlock value.
 ].
 ! !
 !AbstractOperatingSystem class methodsFor:'error messages'!
 "
 ! !
 !AbstractOperatingSystem class methodsFor:'executing OS commands-implementation'!
 exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork
-newPgrp:newGrp inDirectory:aDirectory showWindow:showWindowBooleanOrNil
+		  newPgrp:newGrp inDirectory:aDirectory showWindow:showWindowBooleanOrNil
 "execute an OS command"
 ^ self subclassResponsibility
 "Created: / 12.11.1998 / 14:46:15 / cg"
 |nullStream in out err shellAndArgs pid auxFd|
 aCommandString isNil ifTrue:[^ nil].
 (in := anExternalInStream) isNil ifTrue:[
-nullStream := Filename nullDevice readWriteStream.
+	nullStream := Filename nullDevice readWriteStream.
-in := nullStream.
+	in := nullStream.
 ].
 (out := anExternalOutStream) isNil ifTrue:[
-nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
+	nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
-out := nullStream.
+	out := nullStream.
 ].
 (err := anExternalErrStream) isNil ifTrue:[
-err := out
+	err := out
 ].
 anAuxiliaryStream notNil ifTrue:[
-auxFd := anAuxiliaryStream fileHandle.
+	auxFd := anAuxiliaryStream fileHandle.
 ].
 shellAndArgs := self commandAndArgsForOSCommand:aCommandString.
 pid := self
-exec:(shellAndArgs at:1)
+	exec:(shellAndArgs at:1)
-withArguments:(shellAndArgs at:2)
+	withArguments:(shellAndArgs at:2)
-environment:anEvironmentDictionary
+	environment:anEvironmentDictionary
-fileDescriptors:(Array with:in fileHandle
+	fileDescriptors:(Array with:in fileHandle
-with:out fileHandle
+			       with:out fileHandle
-with:err fileHandle
+			       with:err fileHandle
-with:auxFd)
+			       with:auxFd)
-fork:true
+	fork:true
-newPgrp:newPgrp
+	newPgrp:newPgrp
-inDirectory:dir
+	inDirectory:dir
-showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
+	showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
 nullStream notNil ifTrue:[
-nullStream close.
+	nullStream close.
 ].
 ^ pid
 "blocking at current prio (i.e. only higher prio threads execute):
 pid := OperatingSystem startProcess:'sleep 10; grep drw' inputFrom:in outputTo:out errorTo:err.
 The following will no longer work. monitorPid has disappeared
 pid notNil ifTrue:[
-Processor monitorPid:pid action:[:osStatus | sema signal ].
+	 Processor monitorPid:pid action:[:osStatus | sema signal ].
 ].
 in close.
 out close.
 err close.
 sema wait.
 |pid sema|
 sema := Semaphore new.
 Processor
-monitor:[
+	    monitor:[
-pid := OperatingSystem startProcess:'(sleep 2; ls -l) > out 2>err'
+		pid := OperatingSystem startProcess:'(sleep 2; ls -l) > out 2>err'
-]
+	    ]
-action:[:osStatus | sema signal ].
+	    action:[:osStatus | sema signal ].
 sema wait.
 Transcript showCR:'finished'
 "
 |pid sema|
 sema := Semaphore new.
 Processor
-monitor:[
+	    monitor:[
-pid := OperatingSystem startProcess:'(sleep 1; echo 1; sleep 9; ls -l) > out 2>err'
+		pid := OperatingSystem startProcess:'(sleep 1; echo 1; sleep 9; ls -l) > out 2>err'
-]
+	    ]
-action:[:osStatus | sema signal ].
+	    action:[:osStatus | sema signal ].
 Delay waitForSeconds:2.
 OperatingSystem terminateProcess:pid.
 Transcript showCR:'terminated'
 "
 pid := OperatingSystem startProcess:'sleep 10; grep drw' inputFrom:in outputTo:out errorTo:err.
 The following will no longer work. monitorPid has disappeared
 pid notNil ifTrue:[
-Processor monitorPid:pid action:[:OSstatus | sema signal ].
+	 Processor monitorPid:pid action:[:OSstatus | sema signal ].
 ].
 in close.
 out close.
 err close.
 sema wait.
 |pid sema|
 sema := Semaphore new.
 Processor
-monitor:[
+	    monitor:[
-pid := OperatingSystem startProcess:'dir > out 2>err'
+		pid := OperatingSystem startProcess:'dir > out 2>err'
-]
+	    ]
-action:[:osStatus | sema signal ].
+	    action:[:osStatus | sema signal ].
 sema wait.
 Transcript showCR:'finished'
 "
 |pid sema|
 sema := Semaphore new.
 Processor
-monitor:[
+	    monitor:[
-pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
+		pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
-]
+	    ]
-action:[:osStatus | sema signal ].
+	    action:[:osStatus | sema signal ].
 Delay waitForSeconds:5.
 OperatingSystem terminateProcessGroup:pid.
 Transcript showCR:'terminated'
 END"
 |pid sema|
 sema := Semaphore new.
 Processor
-monitor:[
+	    monitor:[
-pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
+		pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
-]
+	    ]
-action:[:osStatus | sema signal ].
+	    action:[:osStatus | sema signal ].
 Delay waitForSeconds:5.
 OperatingSystem terminateProcess:pid.
 Transcript showCR:'terminated'
 END"
 If aCommandString is an Array, the first element is the command to be executed,
 and the other elements are the arguments to the command. No shell is invoked in this case.
 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
-environment:nil
+	environment:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-showWindow:showWindow
+	showWindow:showWindow
-onError:[:exitStatus| false]
+	onError:[:exitStatus| false]
 "Created: / 18-10-2016 / 15:55:29 / cg"
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream
 Set lineWise to true, if both error and output is sent to the same stream
 and you don't want lines to be mangled. Set lineWise = false to
 avoid blocking on pipes.
 Special for windows:
-you can control (have to - sigh) if a window should be shown for the command or not.
+	you can control (have to - sigh) if a window should be shown for the command or not.
-This is the OS's H_SHOWWINDOW argument.
+	This is the OS's H_SHOWWINDOW argument.
-If you pass nil as showWindow-argument, the OS's default is used for the particular
+	If you pass nil as showWindow-argument, the OS's default is used for the particular
-command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
+	command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
-executables will not.
+	executables will not.
-However, some command-line executables show a window, even if they should not.
+	However, some command-line executables show a window, even if they should not.
-(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
+	(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
-a shell command opens a cmd-window, whereas in windows7 it did not)
+	 a shell command opens a cmd-window, whereas in windows7 it did not)
-In this case, pass an explicit false argument to suppress it.
+	In this case, pass an explicit false argument to suppress it.
-This argument is ignored on Unix systems.
+	This argument is ignored on Unix systems.
-See examples below."
+	See examples below."
-|osProcess|
+	|osProcess|
-osProcess := OSProcess new
+	osProcess := OSProcess new
-command:aCommandStringOrArray;
+	    command:aCommandStringOrArray;
-inStream:anInStream;
+	    inStream:anInStream;
-outStream:anOutStream;
+	    outStream:anOutStream;
-errorStream:anErrStream;
+	    errorStream:anErrStream;
-auxStream:anAuxStream;
+	    auxStream:anAuxStream;
-environment:environmentDictionary;
+	    environment:environmentDictionary;
-directory:dirOrNil;
+	    directory:dirOrNil;
-lineWise:lineWise;
+	    lineWise:lineWise;
-showWindow:showWindowBooleanOrNil.
+	    showWindow:showWindowBooleanOrNil.
-osProcess execute ifFalse:[
+	osProcess execute ifFalse:[
-aBlock value:osProcess exitStatus.
+	    aBlock value:osProcess exitStatus.
-^ false.
+	    ^ false.
-].
+	].
-^ true.
+	^ true.
 !
 executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
 errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
 inDirectory:dirOrNil lineWise:lineWise onError:aBlock
 Set lineWise to true, if both error and output is sent to the same stream
 and you don't want lines to be mangled. Set lineWise = false to
 avoid blocking on pipes"
 ^ self
-executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
+	executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
-errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
+	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
-inDirectory:dirOrNil lineWise:lineWise showWindow:false onError:aBlock
+	inDirectory:dirOrNil lineWise:lineWise showWindow:false onError:aBlock
 "
-|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"
 !
 Set lineWise to true, if both error and output is sent to the same stream
 and you don't want lines to be mangled. Set lineWise = false to
 avoid blocking on pipes.
 Special for windows:
-you can control (have to - sigh) if a window should be shown for the command or not.
+	you can control (have to - sigh) if a window should be shown for the command or not.
-This is the OS's H_SHOWWINDOW argument.
+	This is the OS's H_SHOWWINDOW argument.
-If you pass nil as showWindow-argument, the OS's default is used for the particular
+	If you pass nil as showWindow-argument, the OS's default is used for the particular
-command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
+	command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
-executables will not.
+	executables will not.
-However, some command-line executables show a window, even if they should not.
+	However, some command-line executables show a window, even if they should not.
-(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
+	(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
-a shell command opens a cmd-window, whereas in windows7 it did not)
+	 a shell command opens a cmd-window, whereas in windows7 it did not)
-In this case, pass an explicit false argument to suppress it.
+	In this case, pass an explicit false argument to suppress it.
-This argument is ignored on Unix systems.
+	This argument is ignored on Unix systems.
-See examples below."
+	See examples below."
 ^ self
-executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
+	executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
-errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
+	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
-inDirectory:dirOrNil lineWise:lineWise newPgrp:true showWindow:showWindowBooleanOrNil onError:aBlock
+	inDirectory:dirOrNil lineWise:lineWise newPgrp:true showWindow:showWindowBooleanOrNil onError:aBlock
 "
-|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: / 08-11-2016 / 21:33:00 / cg"
 !
 	onError:aBlock
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream auxFrom:anAuxStream inDirectory:dirOrNil lineWise:lineWise showWindow:showWindow 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
-showWindow:showWindow
+	showWindow:showWindow
-onError:aBlock
+	onError:aBlock
 !
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream environment:env onError:aBlock
 "execute the unix command specified by the argument, aCommandString.
 If aCommandString is a String, the commandString is passed to a shell for execution
 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
-environment:env
+	environment:env
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-showWindow:showWindow
+	showWindow:showWindow
-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"
 !
 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
-environment:nil
+	environment:nil
-inDirectory:dirOrNil
+	inDirectory:dirOrNil
-lineWise:lineWise
+	lineWise:lineWise
-showWindow:showWindow
+	showWindow:showWindow
-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.
 If aCommandString is a String, the commandString is passed to a shell for execution
 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
-environment:nil
+	environment:nil
-inDirectory:dir
+	inDirectory:dir
-lineWise:false
+	lineWise:false
-showWindow:showWindow
+	showWindow:showWindow
-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:anInStream
+	inputFrom:anInStream
-outputTo:anOutStream
+	outputTo:anOutStream
-errorTo:anErrStream
+	errorTo:anErrStream
-auxFrom:nil
+	auxFrom:nil
-environment:nil
+	environment:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-showWindow:showWindow
+	showWindow:showWindow
-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"
 !
 "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.
 Special for windows:
-you can control (have to - sigh) if a window should be shown for the command or not.
+	you can control (have to - sigh) if a window should be shown for the command or not.
-This is the OS's H_SHOWWINDOW argument.
+	This is the OS's H_SHOWWINDOW argument.
-If you pass nil as showWindow-argument, the OS's default is used for the particular
+	If you pass nil as showWindow-argument, the OS's default is used for the particular
-command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
+	command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
-executables will not.
+	executables will not.
-However, some command-line executables show a window, even if they should not.
+	However, some command-line executables show a window, even if they should not.
-(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
+	(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
-a shell command opens a cmd-window, whereas in windows7 it did not)
+	 a shell command opens a cmd-window, whereas in windows7 it did not)
-In this case, pass an explicit false argument to suppress it.
+	In this case, pass an explicit false argument to suppress it.
-This argument is ignored on Unix systems.
+	This argument is ignored on Unix systems.
-See examples below."
+	See examples below."
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:outStreamOrNil
+	outputTo:outStreamOrNil
-errorTo:errStreamOrNil
+	errorTo:errStreamOrNil
-auxFrom:nil
+	auxFrom:nil
-environment:nil
+	environment:nil
-inDirectory:aDirectory
+	inDirectory:aDirectory
-lineWise:false
+	lineWise:false
-newPgrp:true
+	newPgrp:true
-showWindow:showWindowBooleanOrNil
+	showWindow:showWindowBooleanOrNil
-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:\'.
 executeCommand:aCommandString showWindow:aBooleanOrNil
 "execute the OS command specified by the argument, aCommandString.
 If aCommandString is a String, the commandString is passed to a shell for execution
 - see the description of 'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
 If aCommandString is an Array, the first element is the command to be executed,
 and the other elements are the arguments to the command.
 No shell is invoked in this case.
 This blocks the current thread until the command has finished.
 Return true if successful, false otherwise.
 Special for windows:
-you can control (have to - sigh) if a window should be shown for the command or not.
+	you can control (have to - sigh) if a window should be shown for the command or not.
-This is the OS's H_SHOWWINDOW argument.
+	This is the OS's H_SHOWWINDOW argument.
-If you pass nil as showWindow-argument, the OS's default is used for the particular
+	If you pass nil as showWindow-argument, the OS's default is used for the particular
-command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
+	command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
-executables will not.
+	executables will not.
-However, some command-line executables show a window, even if they should not.
+	However, some command-line executables show a window, even if they should not.
-(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
+	(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
-a shell command opens a cmd-window, whereas in windows7 it did not)
+	 a shell command opens a cmd-window, whereas in windows7 it did not)
-In this case, pass an explicit false argument to suppress it.
+	In this case, pass an explicit false argument to suppress it.
-This argument is ignored on Unix systems.
+	This argument is ignored on Unix systems.
-See examples below.
+	See examples below.
 "
 ^ self
-executeCommand:aCommandString
+	executeCommand:aCommandString
-inputFrom:nil
+	inputFrom:nil
-outputTo:nil
+	outputTo:nil
-errorTo:nil
+	errorTo:nil
-auxFrom:nil
+	auxFrom:nil
-environment:nil
+	environment:nil
-inDirectory:nil
+	inDirectory:nil
-lineWise:false
+	lineWise:false
-showWindow:aBooleanOrNil
+	showWindow:aBooleanOrNil
-onError:[:status| false]
+	onError:[:status| false]
 "unix:
 OperatingSystem executeCommand:'sleep 30'.
 OperatingSystem executeCommand:'pwd'.
 |path|
 path := self pathOfCommand:(self nameOfSTXExecutable).
 path isNil ifTrue:[
-'./stx' asFilename exists ifTrue:[
+	'./stx' asFilename exists ifTrue:[
-path := './stx'
+	    path := './stx'
-].
+	].
-path isNil ifTrue:[
+	path isNil ifTrue:[
-'OperatingSystem [warning]: cannot figure out my executable''s path' infoPrintCR.
+	     'OperatingSystem [warning]: cannot figure out my executable''s path' infoPrintCR.
-].
+	].
 ].
 ^ path
 "
 OperatingSystem pathOfSTXExecutable
 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
-showWindow:false
+	showWindow:false
 "/ never reached ...
 "Modified: / 12.11.1998 / 14:44:26 / cg"
 !
 exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork newPgrp:newGrp inDirectory:aDirectory
 <resource: #obsolete>
 "execute an OS command"
 ^ self
-exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork
+	exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork
-newPgrp:newGrp inDirectory:aDirectory showWindow:false
+	newPgrp:newGrp inDirectory:aDirectory showWindow:false
 "Created: / 12.11.1998 / 14:46:15 / cg"
 !
 exec:aCommandPath withArguments:argArray fileDescriptors:fileDescriptors fork:doFork newPgrp:newPgrp inDirectory:aDirectory
 <resource: #obsolete>
 ^ 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
-showWindow:false
+	showWindow:false
 !
 exec:aCommandPath withArguments:argArray fork:doFork
 <resource: #obsolete>
 "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
-showWindow:false
+	showWindow:false
 "
 |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
-showWindow:false
+	showWindow:false
 "
 |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.
 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
-showWindow:showWindowBooleanOrNil
+	showWindow:showWindowBooleanOrNil
 "/ never reached ...
 "Modified: / 12.11.1998 / 14:44:26 / cg"
 !
 startProcess:aCommandString
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:nil outputTo:nil
+	startProcess:aCommandString inputFrom:nil outputTo:nil
-errorTo:nil auxFrom:nil environment:nil
+	errorTo:nil auxFrom:nil environment:nil
-inDirectory:nil newPgrp:true showWindow:nil
+	inDirectory:nil newPgrp:true showWindow: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"
 startProcess:aCommandString inDirectory:aDirectory
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:nil outputTo:nil
+	startProcess:aCommandString inputFrom:nil outputTo:nil
-errorTo:nil auxFrom:nil environment:nil
+	errorTo:nil auxFrom:nil environment:nil
-inDirectory:aDirectory newPgrp:true showWindow:nil
+	inDirectory:aDirectory newPgrp:true showWindow:nil
 "
 |pid|
 pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
 (Delay forSeconds:3) wait.
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
+	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
-errorTo:anExternalErrStream auxFrom:nil environment:nil
+	errorTo:anExternalErrStream auxFrom:nil environment:nil
-inDirectory:nil newPgrp:true showWindow:nil
+	inDirectory:nil newPgrp:true showWindow:nil
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
 errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment inDirectory:dir
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
+	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
-errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment
+	errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment
-inDirectory:dir newPgrp:true showWindow:nil
+	inDirectory:dir newPgrp:true showWindow:nil
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
 errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment
 inDirectory:dir showWindow:showWindowBooleanOrNil
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
+	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
-errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment
+	errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment
-inDirectory:dir newPgrp:true showWindow:showWindowBooleanOrNil
+	inDirectory:dir newPgrp:true showWindow:showWindowBooleanOrNil
 "Modified: / 08-11-2016 / 21:24:27 / cg"
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
 errorTo:anExternalErrStream auxFrom:anAuxiliaryStream inDirectory:dir
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
+	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
-errorTo:anExternalErrStream auxFrom:nil environment:nil
+	errorTo:anExternalErrStream auxFrom:nil environment:nil
-inDirectory:dir newPgrp:true showWindow:nil
+	inDirectory:dir newPgrp:true showWindow:nil
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
 <resource: #obsolete>
 ^ self
-startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
+	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
-errorTo:anExternalErrStream auxFrom:nil environment:nil
+	errorTo:anExternalErrStream auxFrom:nil environment:nil
-inDirectory:dir newPgrp:true showWindow:nil
+	inDirectory:dir newPgrp:true showWindow:nil
 ! !
 !AbstractOperatingSystem class methodsFor:'file access'!
 closeFd:anInteger
 |osErrorHolder nextDirName|
 self createDirectory:dirName.
 (self isDirectory:dirName) ifFalse:[
-nextDirName := dirName asFilename directoryName.
+	nextDirName := dirName asFilename directoryName.
-dirName ~= nextDirName ifTrue:[
+	dirName ~= nextDirName ifTrue:[
-osErrorHolder := self recursiveCreateDirectory:nextDirName.
+	    osErrorHolder := self recursiveCreateDirectory:nextDirName.
-osErrorHolder notNil ifTrue:[
+	    osErrorHolder notNil ifTrue:[
-^ osErrorHolder.
+		^ osErrorHolder.
-].
+	    ].
-].
+	].
-^ self createDirectory:dirName.
+	^ self createDirectory:dirName.
 ].
 ^ nil.
 "
 OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
 or throw an error if given file is not a valid an executable now
 shared object.
 The info object returned is OS-specific, however it responds to at
 least
-#isFor32BitArchitecture
+	#isFor32BitArchitecture
-#isFor64BitArchitecture ... returns true, if the given object is for
+	#isFor64BitArchitecture ... returns true, if the given object is for
-32bit, 64bit architecture respectively
+				     32bit, 64bit architecture respectively
 "
 ^ self subclassResponsibility
 "Modified: / 26-03-2015 / 11:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !AbstractOperatingSystem class methodsFor:'os queries'!
 getCCDefine
 <resource: #obsolete>
 "return a string which was used to identify the C-Compiler used
 when STX was compiled, and which should be passed down when compiling methods.
 For example, on linux, this is '__GNUC__';
 on windows, this could be '__VISUALC__', '__BORLANDC__' or '__MINGW__'"
 self subclassResponsibility
 !
 getNetworkMACAddresses
 "return a dictionary with key:name of interface and
-value:the MAC address for each interface"
+			    value:the MAC address for each interface"
 self subclassResponsibility
 !
 getNetworkMACAddressesForIf:ifName
 self subclassResponsibility
 !
 getOSDefine
 <resource: #obsolete>
 "return a string which was used to identify this machine when stx was
 compiled, and which should be passed down when compiling methods.
 For example, on linux, this is '-D__linux__'."
 self obsoleteMethodWarning.
 "
 !
 getPlatformDefine
 <resource: #obsolete>
 "return a string which defines the platform,
 and which should be passed down when compiling methods.
 For example, on all unices, this is '-DUNIX'."
 %{  /* NOCONTEXT */
 packagePath add:('.' "Filename currentDirectory pathName").
 "/ accept the fact that sometimes, we cannot figure out, where I im
 execPath := self pathOfSTXExecutable.
 execPath notNil ifTrue:[
-"/
+	"/
-"/ the executable's directory:
+	"/ the executable's directory:
-"/      (/opt/stx/bin/stx -> /opt/stx/bin)
+	"/      (/opt/stx/bin/stx -> /opt/stx/bin)
-"/
+	"/
-appDir := execPath asFilename directory.
+	appDir := execPath asFilename directory.
-dirName := appDir pathName.
+	dirName := appDir pathName.
-(packagePath includes:dirName) ifFalse:[
+	(packagePath includes:dirName) ifFalse:[
-packagePath add:dirName.
+	    packagePath add:dirName.
-].
+	].
-"/
+	"/
-"/ the executable's parent directory:
+	"/ the executable's parent directory:
-"/      (/opt/stx/bin/stx -> /opt/stx)
+	"/      (/opt/stx/bin/stx -> /opt/stx)
-"/
+	"/
-appDir := appDir directory.
+	appDir := appDir directory.
-dirName := appDir pathName.
+	dirName := appDir pathName.
-(packagePath includes:dirName) ifFalse:[
+	(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
-collect:[:each |
+		    collect:[:each |
-|p|
+			|p|
-(p := each asFilename / 'packages') exists ifTrue:[
+			(p := each asFilename / 'packages') exists ifTrue:[
-p pathName
+			    p pathName
-] ifFalse:[
+			] ifFalse:[
-(p := each asFilename / 'Packages') exists ifTrue:[
+			    (p := each asFilename / 'Packages') exists ifTrue:[
-p pathName
+				p pathName
-] ifFalse:[
+			    ] ifFalse:[
-nil
+				nil
-].
+			    ].
-].
+			].
-]
+		    ]
-thenSelect:[:each | each notNil].
+		    thenSelect:[:each | each notNil].
 "
 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.
-].
+	    ].
-].
+	].
 ].
 false ifTrue:[
 appDir notNil ifTrue:[
-"maybe the sources are kept in a central place..."
+	"maybe the sources are kept in a central place..."
-(appDir / 'source') isDirectory ifTrue:[
+	(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"
 false ifTrue:[
 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:[
-appDir pathName = homeDirName ifTrue:[
+	    appDir pathName = homeDirName ifTrue:[
-"but take care, it may be directly in the home directory"
+		"but take care, it may be directly in the home directory"
-appDir := appDir / 'stx'.
+		appDir := appDir / 'stx'.
-].
+	    ].
-packagePath add:appDir pathName.
+	    packagePath add:appDir pathName.
-].
+	].
 ].
 ].
 ^ packagePath
 "
 #ifdef AF_PACKET
 	case AF_PACKET:
 	    domainSymbol = @symbol(AF_PACKET);
 	    break;
 #endif
+#ifdef AF_LINK
+# if AF_LINK != AF_PACKET
+	case AF_LINK:
+	    domainSymbol = @symbol(AF_LINK);
+	    break;
+# endif
+#endif
 #ifdef AF_ASH
 	case AF_ASH:
 	    domainSymbol = @symbol(AF_ASH);
 	    break;
 #endif
 		break;
 #endif
 #ifdef WANT__AF_ISDN
 	    case AF_ISDN:
 		socketSize = __mkSmallInteger( sizeof(struct sockaddr_isdn) );
+		break;
+#endif
+#ifdef WANT__AF_PACKET
+	    case AF_PACKET:
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_ll) );
+		break;
+#endif
+#ifdef WANT__AF_LINK
+	    case AF_LINK:
+		socketSize = __mkSmallInteger( sizeof(struct sockaddr_dl) );
 		break;
 #endif
 #ifdef WANT__AF_SYSTEM
 	    case AF_SYSTEM:
 		socketSize = __mkSmallInteger( sizeof(struct sockaddr_sys) );
 	#AF_HYLINK
 	#AF_FIREFOX
 	#AF_CLUSTER
 	#AF_12844
 	#AF_NETDES
+	#AF_PACKET
+	#AF_LINK
 ) select:[:sym | (AbstractOperatingSystem domainCodeOf:sym) isInteger ]
 "
 AbstractOperatingSystem supportedProtocolFamilies
 "
 "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).
-answer 0 if RDTSC instruction is not supported (which is unlikely, nowadays).
+	answer 0 if RDTSC instruction is not supported (which is unlikely, nowadays).
 For others:
-answer 0"
+	answer 0"
 %{  /* NOCONTEXT */
 unsigned INT low, high;
 #if defined(__x86_64__) && (defined(__GNUC__) || defined(__CLANG__) || defined(__MINGW64__))
 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.
 Do not use this method in application code since it is an internal (private)
 interface. For compatibility with ST-80, use Time millisecondClockValue.
 "
 (such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
 This should really be moved to some RelativeTime class."
 (msTime1 > msTime2) ifTrue:[
-^ (msTime1 - msTime2) <= (SmallInteger maxVal // 4).
+	^ (msTime1 - msTime2) <= (SmallInteger maxVal // 4).
 ] ifFalse:[
-^ (msTime2 - msTime1) > ((SmallInteger maxVal // 4) + 1)
+	^ (msTime2 - msTime1) > ((SmallInteger maxVal // 4) + 1)
 ].
 !
 millisecondTimeAdd:msTime1 and:msTime2
 "Add two millisecond times (such as returned getMillisecondTime).
 |sum|
 sum := msTime1 + msTime2.
 (sum > (SmallInteger maxVal // 2)) ifTrue:[
-self assert:(sum <= SmallInteger maxVal) message:'overflow in timer computation'.
+	self assert:(sum <= SmallInteger maxVal) message:'overflow in timer computation'.
-^ sum - (SmallInteger maxVal // 2 + 1).
+	^ sum - (SmallInteger maxVal // 2 + 1).
 ].
 (sum < 0) ifTrue:[^ sum + (SmallInteger maxVal // 2 + 1)].
 ^ sum
 !
 |diff|
 diff := msTime1 - msTime2.
 diff < (SmallInteger maxVal // -4) ifTrue:[
-^ diff + (SmallInteger maxVal // 2) + 1.
+	^ diff + (SmallInteger maxVal // 2) + 1.
 ].
 diff <= (SmallInteger maxVal // 4) ifTrue:[
-^ diff.
+	^ diff.
 ] ifFalse:[
-^ diff - (SmallInteger maxVal // 2 + 1).
+	^ diff - (SmallInteger maxVal // 2 + 1).
 ].
 "
 OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
 This is the login name, not the fullName."
 "/ fallBack dummy
 aNumber == self getUserID ifTrue:[
-^ self getLoginName
+	^ self getLoginName
 ].
 ^ '? (' , aNumber printString , ')'
 "

changeset 21328	4876615e4e0e
parent 21279	1a289f0af818
child 21387	e3865533e6a6
child 21396	f2a4828a45e7