hg/stx-libbasic: comparison OpenVMSOperatingSystem.st

equal deleted inserted replaced

-:aff27e755ffd
+:ac9a76e16fef
 examples
 "
 various queries
 								[exBegin]
 Transcript
-	showCR:'hello ' , (OpenVMSOperatingSystem getLoginName)
+	showCR:'hello ' , (OperatingSystem getLoginName)
 								[exEnd]
 								[exBegin]
-OpenVMSOperatingSystem isUNIXlike ifTrue:[
+OperatingSystem isUNIXlike ifTrue:[
 	Transcript showCR:'this is some UNIX-like OS'
 ] ifFalse:[
 	Transcript showCR:'this OS is not UNIX-like'
 ]
 								[exEnd]
 								[exBegin]
 Transcript
-	showCR:'this machine is called ' , OpenVMSOperatingSystem getHostName
+	showCR:'this machine is called ' , OperatingSystem getHostName
 								[exEnd]
 								[exBegin]
 Transcript
 	showCR:('this machine is in the '
-	       , OpenVMSOperatingSystem getDomainName
+	       , OperatingSystem getDomainName
 	       , ' domain')
 								[exEnd]
 								[exBegin]
 Transcript
 	showCR:('this machine''s CPU is a '
-	       , OpenVMSOperatingSystem getCPUType
+	       , OperatingSystem getCPUType
 	       )
 								[exEnd]
 								[exBegin]
 Transcript showCR:'executing ls command ...'.
-OpenVMSOperatingSystem executeCommand:'ls'.
+OperatingSystem executeCommand:'ls'.
 Transcript showCR:'... done.'.
 								[exEnd]
 locking a file
 (should be executed on two running smalltalks - not in two threads):
 f := 'testFile' asFilename readWriteStream.
 10 timesRepeat:[
 	'about to lock ...' printCR.
 	[
-	  OpenVMSOperatingSystem
+	  OperatingSystem
 	    lockFD:(f fileDescriptor)
 	    shared:false
 	    blocking:false
 	] whileFalse:[
-	    'process ' print. OpenVMSOperatingSystem getProcessId print. ' is waiting' printCR.
+	    'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
 	    Delay waitForSeconds:1
 	].
 	'LOCKED ...' printCR.
 	Delay waitForSeconds:10.
 	'unlock ...' printCR.
-	(OpenVMSOperatingSystem
+	(OperatingSystem
 	    unlockFD:(f fileDescriptor)) printCR.
 	Delay waitForSeconds:3.
 ]
 								[exBegin]
 "
 %{  /* NOCONTEXT */
 RETURN ( __MKSMALLINT(errno) );
 %}
 "
-OpenVMSOperatingSystem currentErrorNumber
+OperatingSystem currentErrorNumber
 "
 !
 errorNumberFor:aSymbol
 "given a symbolic error, return the numeric;
 }
 %}.
 ^ Array with:sym with:text
 "
-OpenVMSOperatingSystem errorSymbolAndTextForNumber:4
+OperatingSystem errorSymbolAndTextForNumber:4
 "
 ! !
 !OpenVMSOperatingSystem class methodsFor:'executing OS commands'!
 !
 exec:aCommandPath withArguments:argArray fileDescriptors:fdArray closeDescriptors:closeFdArray fork:doFork newPgrp:newPgrp inDirectory:aDirectory
 "Internal lowLevel entry for combined fork & exec for WIN32"
-|path|
-self isMSWINDOWSlike ifTrue:[
-	aDirectory isNil ifTrue:[
-	  path := nil.
-	] ifFalse:[
-	  path := aDirectory asFilename pathName asFilename osNameForDirectory.
-	  (path endsWith:':') ifTrue:[
-	     path := path , '\'.
-	  ].
-	].
-	^ self primExec:aCommandPath withArguments:argArray fileDescriptors:fdArray closeDescriptors:closeFdArray fork:doFork newPgrp:newPgrp inPath:path
-].
 ^ self primitiveFailed
 "Modified: 31.1.1998 / 10:54:24 / md"
 !
 	^ aBlock value:exitStatus
 ].
 ^ true.
 "
-OpenVMSOperatingSystem executeCommand:'sleep 30' onError:[].
+OperatingSystem executeCommand:'sleep 30' onError:[].
-OpenVMSOperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
+OperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
-OpenVMSOperatingSystem executeCommand:'ls -l' onError:[].
+OperatingSystem executeCommand:'ls -l' onError:[].
-OpenVMSOperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
+OperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
-OpenVMSOperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
+OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
 "
 "Created: 22.12.1995 / 14:49:59 / stefan"
 "Modified: 25.3.1997 / 11:06:43 / stefan"
 "Modified: 19.4.1997 / 18:14:41 / cg"
 	^ aBlock value:exitStatus
 ].
 ^ true.
 "
-OpenVMSOperatingSystem executeCommand:'sleep 30' onError:[].
+OperatingSystem executeCommand:'sleep 30' onError:[].
-OpenVMSOperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
+OperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
-OpenVMSOperatingSystem executeCommand:'ls -l' onError:[].
+OperatingSystem executeCommand:'ls -l' onError:[].
-OpenVMSOperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
+OperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
-OpenVMSOperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
+OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
 "
 "Created: 28.1.1998 / 14:12:15 / md"
 !
 |in out err shellAndArgs|
 anExternalInStream notNil ifTrue:[
 	in := anExternalInStream fileDescriptor.
-] ifFalse:[
+"/    ] ifFalse:[
-	self isUNIXlike ifTrue:[
+"/	self isUNIXlike ifTrue:[
-	    in := '/dev/null' asFilename readStream fileDescriptor
+"/	    in := '/dev/null' asFilename readStream fileDescriptor
-	]
+"/	]
 ].
 anExternalOutStream notNil ifTrue:[
 	out := anExternalOutStream fileDescriptor.
 ].
 anExternalErrStream notNil ifTrue:[
 "/    ^ self executeCommand:('mkdir ', newPathName)
 self primitiveFailed
 "
-OpenVMSOperatingSystem createDirectory:'foo'
+OperatingSystem createDirectory:'foo'
 "
 "Modified: 20.12.1995 / 11:24:13 / stefan"
 "Modified: 29.6.1996 / 14:06:54 / cg"
 !
 "/ this OperatingSystem does not support links
 "/
 ^ false.
 "
-OpenVMSOperatingSystem recursiveCreateDirectory:'foo/bar/baz'
+OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
-OpenVMSOperatingSystem recursiveRemoveDirectory:'foo'
+OperatingSystem recursiveRemoveDirectory:'foo'
 "
 "Modified: 7.3.1996 / 15:26:30 / cg"
 !
 "/ or not supported by OS
 "/
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem createDirectory:'foo'
+OperatingSystem createDirectory:'foo'
-OpenVMSOperatingSystem removeDirectory:'foo'
+OperatingSystem removeDirectory:'foo'
 "
 !
 removeFile:fullPathName
 "remove the file named 'fullPathName'; return true if successful.
 }
 %}.
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem renameFile:'foo' to:'bar'
+OperatingSystem renameFile:'foo' to:'bar'
 "
 !
 truncateFile:aPathName to:newSize
 "change a files size return true on success, false on failure.
 !OpenVMSOperatingSystem class methodsFor:'file access rights'!
 accessMaskFor:aSymbol
 "return the access bits mask for numbers as returned by
-OpenVMSOperatingSystem>>accessModeOf:
+OperatingSystem>>accessModeOf:
-and expected by OpenVMSOperatingSystem>>changeAccessModeOf:to:.
+and expected by OperatingSystem>>changeAccessModeOf:to:.
 Since these numbers are OS dependent, always use the mask
 (never hardcode 8rxxx into your code)."
 %{  /* NOCONTEXT */
 #   ifndef S_IRUSR
 }
 %}.
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem accessMaskFor:#readUser
+OperatingSystem accessMaskFor:#readUser
 "
 !
 accessModeOf:aPathName
 "return a number representing access rights rwxrwxrwx for owner,
 group and others. Return nil if such a file does not exist.
 Notice that the returned number is OS dependent - use the
-modeMasks as returned by OpenVMSOperatingSystem>>accessMaskFor:"
+modeMasks as returned by OperatingSystem>>accessMaskFor:"
 "
 this could have been implemented as:
 	(self infoOf:aPathName) at:#mode
 but for huge directory searches the code below is faster
 }
 %}.
 ^ self primitiveFailed
 "
-(OpenVMSOperatingSystem accessModeOf:'/') printStringRadix:8
+(OperatingSystem accessModeOf:'/') printStringRadix:8
 "
 !
 changeAccessModeOf:aPathName to:modeBits
 "change the access rights of aPathName to the OS dependent modeBits.
 #endif
 %}.
 ^ false
 "
-OpenVMSOperatingSystem supportsFileLocks
+OperatingSystem supportsFileLocks
 "
 !
 supportsNonBlockingFileLocks
 "return true, if the OS supports nonBlocking file locking
 #endif
 %}.
 ^ false
 "
-OpenVMSOperatingSystem supportsNonBlockingFileLocks
+OperatingSystem supportsNonBlockingFileLocks
 "
 !
 supportsSharedLocks
 "return true, if the OS supports shared (i.e. multiple reader)
 #endif
 %}.
 ^ false
 "
-OpenVMSOperatingSystem supportsNonBlockingFileLocks
+OperatingSystem supportsNonBlockingFileLocks
 "
 !
 supportsSymbolicLinks
 "return true, if the OS supports symbolic links on files/directories.
 		    from:1
 		    to:n
 		    compressTabs:false final:nil
 "
-OpenVMSOperatingSystem compressPath:'./..'
+OperatingSystem compressPath:'./..'
-OpenVMSOperatingSystem compressPath:'/foo/bar/baz/..'
+OperatingSystem compressPath:'/foo/bar/baz/..'
-OpenVMSOperatingSystem compressPath:'foo/bar/baz/..'
+OperatingSystem compressPath:'foo/bar/baz/..'
-OpenVMSOperatingSystem compressPath:'foo/bar/baz/../'
+OperatingSystem compressPath:'foo/bar/baz/../'
-OpenVMSOperatingSystem compressPath:'foo/bar/baz/..///'
+OperatingSystem compressPath:'foo/bar/baz/..///'
-OpenVMSOperatingSystem compressPath:'///foo/bar/baz/..///'
+OperatingSystem compressPath:'///foo/bar/baz/..///'
 "
 "Modified: 1.11.1996 / 20:13:48 / cg"
 !
 	^ info
 ].
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem infoOf:'/'
+OperatingSystem infoOf:'/'
-(OpenVMSOperatingSystem infoOf:'/') uid
+(OperatingSystem infoOf:'/') uid
-(OpenVMSOperatingSystem infoOf:'/') accessed
+(OperatingSystem infoOf:'/') accessed
 "
 !
 isDirectory:aPathName
 "return true, if 'aPathName' is a valid directory path name.
 "return true, if the given file is a symbolic link"
 ^ (self linkInfoOf:aPathName) notNil
 "
-OpenVMSOperatingSystem isSymbolicLink:'Make.proto'
+OperatingSystem isSymbolicLink:'Make.proto'
-OpenVMSOperatingSystem isSymbolicLink:'Makefile'
+OperatingSystem isSymbolicLink:'Makefile'
 "
 !
 isValidPath:aPathName
 "return true, if 'aPathName' is a valid path name
 	path := self compressPath:path
 ].
 ^ path.
 "
-OpenVMSOperatingSystem pathNameOf:'.'
+OperatingSystem pathNameOf:'.'
-OpenVMSOperatingSystem pathNameOf:'../smalltalk/../smalltalk'
+OperatingSystem pathNameOf:'../smalltalk/../smalltalk'
-OpenVMSOperatingSystem pathNameOf:'../../..'
+OperatingSystem pathNameOf:'../../..'
-OpenVMSOperatingSystem pathNameOf:'..'
+OperatingSystem pathNameOf:'..'
-OpenVMSOperatingSystem pathNameOf:'/tmp////'
+OperatingSystem pathNameOf:'/tmp////'
-OpenVMSOperatingSystem pathNameOf:'/foo/bar'
+OperatingSystem pathNameOf:'/foo/bar'
-OpenVMSOperatingSystem pathNameOf:'/foo/bar/'
+OperatingSystem pathNameOf:'/foo/bar/'
-OpenVMSOperatingSystem pathNameOf:'/foo/bar//'
+OperatingSystem pathNameOf:'/foo/bar//'
 "
 "Modified: 29.11.1996 / 18:02:12 / stefan"
 "Modified: 10.1.1997 / 19:10:42 / cg"
 !
 i := self infoOf:aPathName.
 i notNil ifTrue:[^ i accessed].
 ^ nil.
 "
-OpenVMSOperatingSystem timeOfLastAccess:'/'
+OperatingSystem timeOfLastAccess:'/'
 "
 !
 timeOfLastChange:aPathName
 "return the time, when the file was last changed.
 i := self infoOf:aPathName.
 i notNil ifTrue:[^ i modified].
 ^ nil.
 "
-OpenVMSOperatingSystem timeOfLastChange:'/'
+OperatingSystem timeOfLastChange:'/'
 "
 !
 typeOf:aPathName
 "return the type of a file as a symbol; for nonexistent files,
 i := self infoOf:aPathName.
 i notNil ifTrue:[^ i type].
 ^ nil.
 "
-OpenVMSOperatingSystem typeOf:'/'
+OperatingSystem typeOf:'/'
-OpenVMSOperatingSystem typeOf:'.'
+OperatingSystem typeOf:'.'
-OpenVMSOperatingSystem typeOf:'Make.proto'
+OperatingSystem typeOf:'Make.proto'
-OpenVMSOperatingSystem typeOf:'resources/motif.style'
+OperatingSystem typeOf:'resources/motif.style'
 "
 !
 volumeNameOf:aPathString
 "return the volumeName of the argument, aPath
 - thats the name of the volume where aPath is.
-Not all OpenVMSOperatingSystem support/use volumes; on unix,
+Not all OperatingSystems support/use volumes; on unix,
 this always returns an empty string."
 |idx|
-self isVMSlike ifTrue:[
+idx := aPathString indexOf:$:.
-	idx := aPathString indexOf:$:.
+idx ~~ 0 ifTrue:[
-	idx ~~ 0 ifTrue:[
+	^ aPathString copyTo:(idx - 1).
-	    ^ aPathString copyTo:(idx - 1).
-	].
-	^ ''
-].
-self isMSDOSlike ifTrue:[
-	(aPathString at:2) == $: ifTrue:[
-	    ^ (aPathString at:1) asString.
-	]
 ].
 ^ ''
 ! !
 !OpenVMSOperatingSystem class methodsFor:'interrupts & signals'!
 Dont confuse Unix signals with smalltalk signals.
 WARNING: for some signals, it is no good idea to revert to default;
 for example, the default for SIGINT (i.e. ^C) is to exit; while the
 default for SIGQUIT (^ \) is to dump core.
 Also, NOTICE that signal numbers are not portable between unix
-systems - use OpenVMSOperatingSystem sigXXX to get the numeric value for
+systems - use OperatingSystem sigXXX to get the numeric value for
 a signal."
 %{  /* NOCONTEXT */
 if (__isSmallInteger(signalNumber)) {
 ^ self primitiveFailed
 "you better save a snapshot image before trying this ..."
 "
 'if you hit ^C now, Smalltalk will exit immediately' printNewline.
-OpenVMSOperatingSystem defaultSignal:(OpenVMSOperatingSystem sigINT).
+OperatingSystem defaultSignal:(OperatingSystem sigINT).
 1 to:1000000 do:[:i| ].
-OpenVMSOperatingSystem enableSignal:(OpenVMSOperatingSystem sigINT).
+OperatingSystem enableSignal:(OperatingSystem sigINT).
 'normal ^C handling again.' printNewline
 "
 !
 disableIOInterruptsOn:fd
 Dont confuse Unix signals with smalltalk signals.
 WARNING: for some signals, it is no good idea to disable
 them; for example, disabling the SIGINT signal turns off ^C
 handling.
 Also, NOTICE that signal numbers are not portable between unix
-systems - use OpenVMSOperatingSystem sigXXX to get the numeric value for
+systems - use OperatingSystem sigXXX to get the numeric value for
 a signal.
 Use only for fully debugged stand alone applications."
 %{  /* NOCONTEXT */
 "
 ^ self primitiveFailed
 "
 'now, ^C is totally ignored ...' printNewline.
-OpenVMSOperatingSystem disableSignal:(OpenVMSOperatingSystem sigINT).
+OperatingSystem disableSignal:(OperatingSystem sigINT).
 1 to:1000000 do:[:i| ].
-OpenVMSOperatingSystem enableSignal:(OpenVMSOperatingSystem sigINT).
+OperatingSystem enableSignal:(OperatingSystem sigINT).
 '^C handled again.' printNewline
 "
 !
 disableTimer
 The signal will be delivered to one of the standard handlers
 (SIGINT, SIGQUIT, etc) or to a general handler, which
 sends #signalInterrupt:.
 NOTICE that signal numbers are not portable between unix
-systems - use OpenVMSOperatingSystem sigXXX to get the numeric value for
+systems - use OperatingSystem sigXXX to get the numeric value for
 a signal."
 %{  /* NOCONTEXT */
 #ifdef NSIG
 "kill a unix process.
 The process terminates immediately and has no chance to perform any cleanup actions.
 WARNING: in order to avoid zombie processes (on unix),
 	      you have to fetch the processes exitstatus with
-	      OpenVMSOperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
-self isMSWINDOWSlike ifTrue:[
+self sendSignal:(self sigKILL) to:processId.
-self primTerminateProcess:processId
-] ifFalse:[
-self sendSignal:(self sigKILL) to:processId.
-].
 "Modified: 28.12.1995 / 15:06:18 / stefan"
 !
 sendSignal:signalNumber to:processId
 "send a unix signal to some process (maybe myself).
 Do not confuse UNIX signals with Smalltalk-Signals.
 WARNING: in order to avoid zombie processes (on unix),
 	      you may have to fetch the processes exitstatus with
-	      OpenVMSOperatingSystem>>getStatusOfProcess:aProcessId
+	      OperatingSystem>>getStatusOfProcess:aProcessId
 	      if the signal terminates that process."
 %{
 if (__bothSmallInteger(signalNumber, processId)) {
 	if (kill(__intVal(processId), __intVal(signalNumber)) < 0) {
 "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
-	      OpenVMSOperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 ^ UnsupportedOperationSignal raise.
 !
 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
-	      OpenVMSOperatingSystem>>getStatusOfProcess:aProcessId."
+	      OperatingSystem>>getStatusOfProcess:aProcessId."
 ^ UnsupportedOperationSignal raise.
 ! !
 !OpenVMSOperatingSystem class methodsFor:'ipc support - UNIX'!
 # endif
 #endif
 %}.
 name isNil ifTrue:[
 	name := self getEnvironment:'DOMAIN'.
-	name isNil ifTrue:[
+"/	name isNil ifTrue:[
-	    OpenVMSOperatingSystem isUNIXlike ifTrue:[
+"/	    OperatingSystem isUNIXlike ifTrue:[
-		name := self getCommandOutputFrom:'domainname'
+"/		name := self getCommandOutputFrom:'domainname'
-	    ]
+"/	    ]
-	]
+"/	]
 ].
 name isNil ifTrue:[
 	"/ sometimes, we can extract the domainName from the hostName ...
 	hostName := self getHostName.
 	hostName notNil ifTrue:[
 ].
 DomainName := name.
 ^ name
 "
-OpenVMSOperatingSystem getDomainName
+OperatingSystem getDomainName
 "
 "Modified: 26.4.1996 / 10:04:54 / stefan"
 !
 %}
 .
 ^ nil
 "
-OpenVMSOperatingSystem getEnvironment:'LANG'
+OperatingSystem getEnvironment:'LANG'
-OpenVMSOperatingSystem getEnvironment:'LOGIN'
+OperatingSystem getEnvironment:'LOGIN'
-OpenVMSOperatingSystem getEnvironment:'HOME'
+OperatingSystem getEnvironment:'HOME'
-OpenVMSOperatingSystem getEnvironment:'NNTPSERVER'
+OperatingSystem getEnvironment:'NNTPSERVER'
-OpenVMSOperatingSystem getEnvironment:'MAIL'
+OperatingSystem getEnvironment:'MAIL'
-OpenVMSOperatingSystem getEnvironment:'PATH'
+OperatingSystem getEnvironment:'PATH'
 "
 !
 getHostName
 "return the hostname we are running on - if there is
 # endif
 #endif
 %}.
 name isNil ifTrue:[
 	name := self getEnvironment:'HOST'.
-	name isNil ifTrue:[
+"/	name isNil ifTrue:[
-	    OpenVMSOperatingSystem isUNIXlike ifTrue:[
+"/	    OperatingSystem isUNIXlike ifTrue:[
-		name := self getCommandOutputFrom:'hostname'
+"/		name := self getCommandOutputFrom:'hostname'
-	    ]
+"/	    ]
-	]
+"/	]
 ].
 name isNil ifTrue:[
 	'OpenVMSOperatingSystem [warning]: cannot find out hostname' errorPrintCR.
 	name := 'unknown'.
 ] ifFalse:[
 ].
 HostName := name.
 ^ name
 "
-OpenVMSOperatingSystem getHostName
+OperatingSystem getHostName
 "
 !
 getLocaleInfo
 "return a dictionary filled with values from the locale information;
 }
 %}.
 ^ info
 "
-OpenVMSOperatingSystem getLocaleInfo
+OperatingSystem getLocaleInfo
 "
 "Created: 23.12.1995 / 14:19:20 / cg"
 !
 pid = getpid();
 #endif
 RETURN ( __MKSMALLINT(pid) );
 %}
 "
-OpenVMSOperatingSystem getProcessId
+OperatingSystem getProcessId
 "
 !
 getSystemID
 "if supported by the OS, return the systemID;
 #endif
 %}.
 ^ 'unknown'
 "
-OpenVMSOperatingSystem getSystemID
+OperatingSystem getSystemID
 "
 !
 getSystemInfo
 "return info on the system weare running on.
 dom notNil ifTrue:[info at:#domain put:dom].
 info at:#osType put:(self getOSType).
 ^ info
 "
-OpenVMSOperatingSystem getSystemInfo
+OperatingSystem getSystemInfo
 "
-!
-getSystemType
-"return a string giving the type of system we're running on.
-This is almost the same as getOSType, but the returned string
-is slightly different for some systems (i.e. iris vs. irix).
-Dont depend on this - use getOSType. I dont really see a point
-here ...
-(except for slight differences between next/mach and other machs)"
-^ self getOSType
-"
-OpenVMSOperatingSystem getSystemType
-"
-!
-getWindowsDirectory
-"internal interface - only for Windows based systems.
-Return the windows directory
-(which - depending on the system - may be \WINNT, \WINDOWS or whatever)
-On non-windows systems, nil is returned."
-^ nil
-"
-OpenVMSOperatingSystem getWindowsDirectory
-"
-!
-getWindowsSystemDirectory
-"internal interface - only for Windows based systems.
-Return the windows system directory
-(which - depending on the system - may be \WINNT\SYSTEM32,
-\WINDOWS\SYSTEM or whatever)
-On non-windows systems, nil is returned."
-^ nil
-"
-OpenVMSOperatingSystem getWindowsSystemDirectory
-"
-!
-isBSDlike
-"return true, if the OS we're running on is a 'real' unix."
-^ false
-!
-isMAClike
-"return true, if running on a macOS (but not on A/UX)"
-^ false
-!
-isMSDOSlike
-"return true, if the OS we're running on is msdos like
-(in contrast to unix-like).
-This returns true for any of msdos, win32s, win95,
-winNT and os/2."
-^ false
-!
-isMSWINDOWSlike
-"return true, if running on a MS-Windows like system.
-This returns true for any of win32s, win95 and winNT."
-^ false
-!
-isOS2like
-"return true, if the OS we're running on is OS2 like.
-Only returns true for a plain OS/2 system."
-^ false
-!
-isUNIXlike
-"return true, if the OS we're running on is a unix like."
-^ false
 !
 isVMSlike
 "return true, if the OS we're running in is VMS (or openVMS)."
 %{  /* NOCONTEXT */
 RETURN ( __MKSMALLINT(MAXPATHLEN) );
 %}
 "
-OpenVMSOperatingSystem maxPathLength
+OperatingSystem maxPathLength
 "
 !
 pathSeparator
 "return the character which separates items in the PATH variable"
 I.e. it is much less specific than getOSType or getSystemType."
 ^ #vms
 "
-OpenVMSOperatingSystem platformName
+OperatingSystem platformName
 "
 "Modified: 20.6.1997 / 17:37:26 / cg"
 !
 d at:#fractionalDigits             put:2           .
 d at:#positiveSign                 put:'+'         .
 d at:#negativeSign                 put:'-'         .
 d at:#positiveSignPrecedesCurrencySymbol put:true          .
 d at:#negativeSignPrecedesCurrencySymbol put:false         .
-OpenVMSOperatingSystem setLocaleInfo:d
+OperatingSystem setLocaleInfo:d
 "
 !
 supportsChildInterrupts
 "return true, if the OS supports childProcess termination signalling
 through interrupts (i.e. SIGCHILD)"
 ^ true
 "
-OpenVMSOperatingSystem supportsChildInterrupts
+OperatingSystem supportsChildInterrupts
 "
 !
 supportsIOInterrupts
 "return true, if the OS supports IO availability interrupts
 "
 ^ false
 "
-OpenVMSOperatingSystem supportsIOInterrupts
+OperatingSystem supportsIOInterrupts
 "
 !
 supportsNonBlockingIO
 "return true, if the OS supports nonblocking IO."
 #endif
 %}.
 ^ false
 "
-OpenVMSOperatingSystem supportsNonBlockingIO
+OperatingSystem supportsNonBlockingIO
 "
 !
 supportsSelect
 "return true, if the OS supports selecting on multiple
 intervals for I/O becoming ready."
 ^ false "/ for now ...
 "
-OpenVMSOperatingSystem supportsSelect
+OperatingSystem supportsSelect
 "
 ! !
 !OpenVMSOperatingSystem class methodsFor:'private'!
 day = __MKSMALLINT(tmPtr->tm_mday);
 %}.
 aBlock value:year value:month value:day
 "
-OpenVMSOperatingSystem computeDatePartsOf:0 for:[:y :m :d |
+OperatingSystem computeDatePartsOf:0 for:[:y :m :d |
 	y printCR. m printCR. d printCR
 ]
 "
 !
 	^ osSeconds * 1000 + millis
 ].
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem computeOSTimeFromYear:1970 month:1 day:1 hour:0 minute:0 seconds:0 millis:0
+OperatingSystem computeOSTimeFromYear:1970 month:1 day:1 hour:0 minute:0 seconds:0 millis:0
 "
 !
 computeTimeAndDateFrom:osTime
 ret at:10 put:yDay.
 ret at:11 put:wDay.
 ^ ret
 "
-OpenVMSOperatingSystem computeTimeAndDateFrom:0
+OperatingSystem computeTimeAndDateFrom:0
 "
 !
 computeTimePartsOf:osTime for:aBlock
 "compute hours, minutes, seconds and milliseconds from the osTime
 seconds = __MKSMALLINT(tmPtr->tm_sec);
 %}.
 aBlock value:hours value:minutes value:seconds value:millis
 "
-OpenVMSOperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli |
+OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli |
 	h printCR. m printCR. s printCR. millis printCR
 ]
 "
 !
 ret at:10 put:yDay.
 ret at:11 put:wDay.
 ^ ret
 "
-OpenVMSOperatingSystem computeUTCTimeAndDateFrom:0
+OperatingSystem computeUTCTimeAndDateFrom:0
 "
 !
 computeUTCTimePartsOf:osTime for:aBlock
 "compute hours, minutes, seconds and milliseconds from the osTime
 seconds = __MKSMALLINT(tmPtr->tm_sec);
 %}.
 aBlock value:hours value:minutes value:seconds value:millis
 "
-OpenVMSOperatingSystem computeUTCTimePartsOf:100 for:[:h :m :s :milli |
+OperatingSystem computeUTCTimePartsOf:100 for:[:h :m :s :milli |
 	h printCR. m printCR. s printCR. milli printCR
 ]
 "
 !
 %}.
 ^ (seconds * 1000) + millis
 "
-OpenVMSOperatingSystem getOSTime printCR.
+OperatingSystem getOSTime printCR.
 Delay waitForSeconds:0.2.
-OpenVMSOperatingSystem getOSTime printCR.
+OperatingSystem getOSTime printCR.
 "
 !
 millisecondDelay:millis
 "delay execution for millis milliseconds or until the next event
 	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
 	now := OpenVMSOperatingSystem getMillisecondTime.
 ]
 "
-OpenVMSOperatingSystem millisecondDelay:2000
+OperatingSystem millisecondDelay:2000
 "
 !
 sleep:numberOfSeconds
 "{ Pragma: +optSpace }"
 "cease ANY action for some time. This suspends the whole smalltalk
 (unix-) process for some time.
 Not really useful since not even low-prio processes and interrupt
 handling will run during the sleep.
-Use either OpenVMSOperatingSystem>>millisecondDelay: (which makes all
+Use either OperatingSystem>>millisecondDelay: (which makes all
 threads sleep, but handles interrupts) or use a Delay (which makes
 only the calling thread sleep)."
 %{  /* NOCONTEXT */
 argument not integer
 "
 ^ self primitiveFailed
 "
-OpenVMSOperatingSystem sleep:2
+OperatingSystem sleep:2
 "
 ! !
 !OpenVMSOperatingSystem class methodsFor:'users & groups'!
 /* --- return same as getGroupID --- */
 %}.
 ^ self getGroupID
 "
-OpenVMSOperatingSystem getEffectiveGroupID
+OperatingSystem getEffectiveGroupID
 "
 !
 getEffectiveUserID
 "{ Pragma: +optSpace }"
 /* --- return same as getUserID --- */
 %}.
 ^ self getUserID
 "
-OpenVMSOperatingSystem getEffectiveUserID
+OperatingSystem getEffectiveUserID
 "
 !
 getFullUserNameFromID:userID
 "{ Pragma: +optSpace }"
 	^ gecos
 ].
 ^ self getUserNameFromID:userID
 "
-OpenVMSOperatingSystem getFullUserNameFromID:0
+OperatingSystem getFullUserNameFromID:0
-OpenVMSOperatingSystem getFullUserNameFromID:(OpenVMSOperatingSystem getUserID)
+OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
-OpenVMSOperatingSystem getUserNameFromID:(OpenVMSOperatingSystem getUserID)
+OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
 "
 "Modified: 15.7.1996 / 12:44:21 / cg"
 !
 #endif
 %}.
 ^ 1 "just a dummy for systems which do not have userIDs"
 "
-OpenVMSOperatingSystem getGroupID
+OperatingSystem getGroupID
 "
 !
 getGroupNameFromID:aNumber
 "{ Pragma: +optSpace }"
 #endif /* unix-like */
 %}.
 ^ '???'
 "
-OpenVMSOperatingSystem getGroupNameFromID:0
+OperatingSystem getGroupNameFromID:0
-OpenVMSOperatingSystem getGroupNameFromID:10
+OperatingSystem getGroupNameFromID:10
 "
 !
 getHomeDirectory
 "{ Pragma: +optSpace }"
 (i.e. yours)"
 ^ OpenVMSOperatingSystem getEnvironment:'HOME'
 "
-OpenVMSOperatingSystem getHomeDirectory
+OperatingSystem getHomeDirectory
 "
 "Modified: 24.1.1997 / 11:32:13 / cg"
 !
 }
 RETURN ( __MKSTRING(name) );
 %}.
 "
-OpenVMSOperatingSystem getLoginName
+OperatingSystem getLoginName
 "
 !
 getUserID
 "{ Pragma: +optSpace }"
 #endif
 %}.
 ^ 1 "just a dummy for systems which do not have userIDs"
 "
-OpenVMSOperatingSystem getUserID
+OperatingSystem getUserID
 "
 !
 getUserNameFromID:aNumber
 "{ Pragma: +optSpace }"
 ].
 ^ '? (' , aNumber printString , ')'
 "
-OpenVMSOperatingSystem getUserNameFromID:0
+OperatingSystem getUserNameFromID:0
-OpenVMSOperatingSystem getUserNameFromID:100
+OperatingSystem getUserNameFromID:100
-OpenVMSOperatingSystem getUserNameFromID:9991
+OperatingSystem getUserNameFromID:9991
 "
 !
 userInfoOf:aNameOrID
 "{ Pragma: +optSpace }"
 uid notNil ifTrue:[info at:#uid put:uid].
 gid  notNil ifTrue:[info at:#gid put:gid].
 ^ info
 "
-OpenVMSOperatingSystem userInfoOf:'root'
+OperatingSystem userInfoOf:'root'
-OpenVMSOperatingSystem userInfoOf:1
+OperatingSystem userInfoOf:1
-OpenVMSOperatingSystem userInfoOf:'claus'
+OperatingSystem userInfoOf:'claus'
-OpenVMSOperatingSystem userInfoOf:'fooBar'
+OperatingSystem userInfoOf:'fooBar'
-OpenVMSOperatingSystem userInfoOf:(OpenVMSOperatingSystem getUserID)
+OperatingSystem userInfoOf:(OperatingSystem getUserID)
 "
 ! !
 !OpenVMSOperatingSystem class methodsFor:'waiting for events'!
 "/ show:' code: '; show:code; show:' core:'; showCR:core.
 ^ OSProcessStatus pid:pid status:status code:code core:core
 "
-OpenVMSOperatingSystem childProcessWait:false
+OperatingSystem childProcessWait:false
 "
 "Created: 5.1.1996 / 16:39:14 / stefan"
 !
 	FD_ZERO(&wset);
 	FD_ZERO(&eset);
 	maxF = -1;
 	if (__isNonNilObject(readFdArray)) {
-	    if (! __isArray(readFdArray)) {
+	    if (! __isArrayLike(readFdArray)) {
 		goto fail;
 	    }
 	    count = __arraySize(readFdArray);
 	    for (i=0; i<count;i++) {
 		}
 	    }
 	}
 	if (__isNonNilObject(writeFdArray)) {
-	    if (! __isArray(writeFdArray)) {
+	    if (! __isArrayLike(writeFdArray)) {
 		goto fail;
 	    }
 	    count = __arraySize(writeFdArray);
 	    for (i=0; i<count;i++) {
 		fd = __ArrayInstPtr(writeFdArray)->a_element[i];
 		}
 	    }
 	}
 	if (__isNonNilObject(exceptFdArray)) {
-	    if (! __isArray(exceptFdArray)) {
+	    if (! __isArrayLike(exceptFdArray)) {
 		goto fail;
 	    }
 	    count = __arraySize(exceptFdArray);
 	    for (i=0; i<count;i++) {
 		fd = __ArrayInstPtr(exceptFdArray)->a_element[i];
 ! !
 !OpenVMSOperatingSystem class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/OpenVMSOperatingSystem.st,v 1.6 1998-06-12 16:02:03 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/OpenVMSOperatingSystem.st,v 1.7 1998-08-27 14:24:42 cg Exp $'
 ! !
 OpenVMSOperatingSystem initialize!

changeset 3794	ac9a76e16fef
parent 3563	16ccd4cefcbe
child 3801	b4b3d6a6e48f