--- a/OpenVMSOperatingSystem.st Thu Aug 27 16:15:11 1998 +0200
+++ b/OpenVMSOperatingSystem.st Thu Aug 27 16:24:42 1998 +0200
@@ -640,11 +640,11 @@
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'
@@ -653,26 +653,26 @@
[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]
@@ -686,18 +686,18 @@
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.
]
@@ -1319,7 +1319,7 @@
RETURN ( __MKSMALLINT(errno) );
%}
"
- OpenVMSOperatingSystem currentErrorNumber
+ OperatingSystem currentErrorNumber
"
!
@@ -2342,7 +2342,7 @@
^ Array with:sym with:text
"
- OpenVMSOperatingSystem errorSymbolAndTextForNumber:4
+ OperatingSystem errorSymbolAndTextForNumber:4
"
! !
@@ -2603,18 +2603,6 @@
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"
@@ -2716,11 +2704,11 @@
^ true.
"
- OpenVMSOperatingSystem executeCommand:'sleep 30' onError:[].
- OpenVMSOperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
- OpenVMSOperatingSystem executeCommand:'ls -l' onError:[].
- OpenVMSOperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
- OpenVMSOperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
+ OperatingSystem executeCommand:'sleep 30' onError:[].
+ OperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
+ OperatingSystem executeCommand:'ls -l' onError:[].
+ OperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
+ OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
"
"Created: 22.12.1995 / 14:49:59 / stefan"
@@ -2762,11 +2750,11 @@
^ true.
"
- OpenVMSOperatingSystem executeCommand:'sleep 30' onError:[].
- OpenVMSOperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
- OpenVMSOperatingSystem executeCommand:'ls -l' onError:[].
- OpenVMSOperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
- OpenVMSOperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
+ OperatingSystem executeCommand:'sleep 30' onError:[].
+ OperatingSystem executeCommand:'pwd' onError:[:status|status inspect].
+ OperatingSystem executeCommand:'ls -l' onError:[].
+ OperatingSystem executeCommand:'invalidCommand' onError:[:status| status inspect].
+ OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status | status inspect].
"
"Created: 28.1.1998 / 14:12:15 / md"
@@ -2898,10 +2886,10 @@
anExternalInStream notNil ifTrue:[
in := anExternalInStream fileDescriptor.
- ] ifFalse:[
- self isUNIXlike ifTrue:[
- in := '/dev/null' asFilename readStream fileDescriptor
- ]
+"/ ] ifFalse:[
+"/ self isUNIXlike ifTrue:[
+"/ in := '/dev/null' asFilename readStream fileDescriptor
+"/ ]
].
anExternalOutStream notNil ifTrue:[
out := anExternalOutStream fileDescriptor.
@@ -2998,7 +2986,7 @@
self primitiveFailed
"
- OpenVMSOperatingSystem createDirectory:'foo'
+ OperatingSystem createDirectory:'foo'
"
"Modified: 20.12.1995 / 11:24:13 / stefan"
@@ -3044,8 +3032,8 @@
^ false.
"
- OpenVMSOperatingSystem recursiveCreateDirectory:'foo/bar/baz'
- OpenVMSOperatingSystem recursiveRemoveDirectory:'foo'
+ OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
+ OperatingSystem recursiveRemoveDirectory:'foo'
"
"Modified: 7.3.1996 / 15:26:30 / cg"
@@ -3083,8 +3071,8 @@
^ self primitiveFailed
"
- OpenVMSOperatingSystem createDirectory:'foo'
- OpenVMSOperatingSystem removeDirectory:'foo'
+ OperatingSystem createDirectory:'foo'
+ OperatingSystem removeDirectory:'foo'
"
!
@@ -3145,7 +3133,7 @@
^ self primitiveFailed
"
- OpenVMSOperatingSystem renameFile:'foo' to:'bar'
+ OperatingSystem renameFile:'foo' to:'bar'
"
!
@@ -3205,8 +3193,8 @@
accessMaskFor:aSymbol
"return the access bits mask for numbers as returned by
- OpenVMSOperatingSystem>>accessModeOf:
- and expected by OpenVMSOperatingSystem>>changeAccessModeOf:to:.
+ OperatingSystem>>accessModeOf:
+ and expected by OperatingSystem>>changeAccessModeOf:to:.
Since these numbers are OS dependent, always use the mask
(never hardcode 8rxxx into your code)."
@@ -3256,7 +3244,7 @@
^ self primitiveFailed
"
- OpenVMSOperatingSystem accessMaskFor:#readUser
+ OperatingSystem accessMaskFor:#readUser
"
!
@@ -3264,7 +3252,7 @@
"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:
@@ -3296,7 +3284,7 @@
^ self primitiveFailed
"
- (OpenVMSOperatingSystem accessModeOf:'/') printStringRadix:8
+ (OperatingSystem accessModeOf:'/') printStringRadix:8
"
!
@@ -3445,7 +3433,7 @@
^ false
"
- OpenVMSOperatingSystem supportsFileLocks
+ OperatingSystem supportsFileLocks
"
!
@@ -3465,7 +3453,7 @@
^ false
"
- OpenVMSOperatingSystem supportsNonBlockingFileLocks
+ OperatingSystem supportsNonBlockingFileLocks
"
!
@@ -3485,7 +3473,7 @@
^ false
"
- OpenVMSOperatingSystem supportsNonBlockingFileLocks
+ OperatingSystem supportsNonBlockingFileLocks
"
!
@@ -3614,12 +3602,12 @@
compressTabs:false final:nil
"
- OpenVMSOperatingSystem compressPath:'./..'
- OpenVMSOperatingSystem compressPath:'/foo/bar/baz/..'
- OpenVMSOperatingSystem compressPath:'foo/bar/baz/..'
- OpenVMSOperatingSystem compressPath:'foo/bar/baz/../'
- OpenVMSOperatingSystem compressPath:'foo/bar/baz/..///'
- OpenVMSOperatingSystem compressPath:'///foo/bar/baz/..///'
+ OperatingSystem compressPath:'./..'
+ OperatingSystem compressPath:'/foo/bar/baz/..'
+ OperatingSystem compressPath:'foo/bar/baz/..'
+ OperatingSystem compressPath:'foo/bar/baz/../'
+ OperatingSystem compressPath:'foo/bar/baz/..///'
+ OperatingSystem compressPath:'///foo/bar/baz/..///'
"
"Modified: 1.11.1996 / 20:13:48 / cg"
@@ -3876,9 +3864,9 @@
^ self primitiveFailed
"
- OpenVMSOperatingSystem infoOf:'/'
- (OpenVMSOperatingSystem infoOf:'/') uid
- (OpenVMSOperatingSystem infoOf:'/') accessed
+ OperatingSystem infoOf:'/'
+ (OperatingSystem infoOf:'/') uid
+ (OperatingSystem infoOf:'/') accessed
"
!
@@ -3972,8 +3960,8 @@
^ (self linkInfoOf:aPathName) notNil
"
- OpenVMSOperatingSystem isSymbolicLink:'Make.proto'
- OpenVMSOperatingSystem isSymbolicLink:'Makefile'
+ OperatingSystem isSymbolicLink:'Make.proto'
+ OperatingSystem isSymbolicLink:'Makefile'
"
!
@@ -4087,14 +4075,14 @@
^ path.
"
- OpenVMSOperatingSystem pathNameOf:'.'
- OpenVMSOperatingSystem pathNameOf:'../smalltalk/../smalltalk'
- OpenVMSOperatingSystem pathNameOf:'../../..'
- OpenVMSOperatingSystem pathNameOf:'..'
- OpenVMSOperatingSystem pathNameOf:'/tmp////'
- OpenVMSOperatingSystem pathNameOf:'/foo/bar'
- OpenVMSOperatingSystem pathNameOf:'/foo/bar/'
- OpenVMSOperatingSystem pathNameOf:'/foo/bar//'
+ OperatingSystem pathNameOf:'.'
+ OperatingSystem pathNameOf:'../smalltalk/../smalltalk'
+ OperatingSystem pathNameOf:'../../..'
+ OperatingSystem pathNameOf:'..'
+ OperatingSystem pathNameOf:'/tmp////'
+ OperatingSystem pathNameOf:'/foo/bar'
+ OperatingSystem pathNameOf:'/foo/bar/'
+ OperatingSystem pathNameOf:'/foo/bar//'
"
"Modified: 29.11.1996 / 18:02:12 / stefan"
@@ -4233,7 +4221,7 @@
^ nil.
"
- OpenVMSOperatingSystem timeOfLastAccess:'/'
+ OperatingSystem timeOfLastAccess:'/'
"
!
@@ -4276,7 +4264,7 @@
^ nil.
"
- OpenVMSOperatingSystem timeOfLastChange:'/'
+ OperatingSystem timeOfLastChange:'/'
"
!
@@ -4345,32 +4333,24 @@
^ nil.
"
- OpenVMSOperatingSystem typeOf:'/'
- OpenVMSOperatingSystem typeOf:'.'
- OpenVMSOperatingSystem typeOf:'Make.proto'
- OpenVMSOperatingSystem typeOf:'resources/motif.style'
+ OperatingSystem typeOf:'/'
+ OperatingSystem typeOf:'.'
+ OperatingSystem typeOf:'Make.proto'
+ 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 ~~ 0 ifTrue:[
- ^ aPathString copyTo:(idx - 1).
- ].
- ^ ''
- ].
- self isMSDOSlike ifTrue:[
- (aPathString at:2) == $: ifTrue:[
- ^ (aPathString at:1) asString.
- ]
+ idx := aPathString indexOf:$:.
+ idx ~~ 0 ifTrue:[
+ ^ aPathString copyTo:(idx - 1).
].
^ ''
! !
@@ -4384,7 +4364,7 @@
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 */
@@ -4404,9 +4384,9 @@
"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
"
!
@@ -4453,7 +4433,7 @@
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."
@@ -4478,9 +4458,9 @@
"
'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
"
!
@@ -4650,7 +4630,7 @@
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 */
@@ -4961,13 +4941,10 @@
WARNING: in order to avoid zombie processes (on unix),
you have to fetch the processes exitstatus with
- OpenVMSOperatingSystem>>getStatusOfProcess:aProcessId."
-
- self isMSWINDOWSlike ifTrue:[
- self primTerminateProcess:processId
- ] ifFalse:[
- self sendSignal:(self sigKILL) to:processId.
- ].
+ OperatingSystem>>getStatusOfProcess:aProcessId."
+
+ self sendSignal:(self sigKILL) to:processId.
+
"Modified: 28.12.1995 / 15:06:18 / stefan"
!
@@ -4979,7 +4956,7 @@
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."
%{
@@ -5068,7 +5045,7 @@
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.
!
@@ -5079,7 +5056,7 @@
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.
! !
@@ -5313,11 +5290,11 @@
%}.
name isNil ifTrue:[
name := self getEnvironment:'DOMAIN'.
- name isNil ifTrue:[
- OpenVMSOperatingSystem isUNIXlike ifTrue:[
- name := self getCommandOutputFrom:'domainname'
- ]
- ]
+"/ name isNil ifTrue:[
+"/ OperatingSystem isUNIXlike ifTrue:[
+"/ name := self getCommandOutputFrom:'domainname'
+"/ ]
+"/ ]
].
name isNil ifTrue:[
"/ sometimes, we can extract the domainName from the hostName ...
@@ -5337,7 +5314,7 @@
^ name
"
- OpenVMSOperatingSystem getDomainName
+ OperatingSystem getDomainName
"
"Modified: 26.4.1996 / 10:04:54 / stefan"
@@ -5362,12 +5339,12 @@
^ nil
"
- OpenVMSOperatingSystem getEnvironment:'LANG'
- OpenVMSOperatingSystem getEnvironment:'LOGIN'
- OpenVMSOperatingSystem getEnvironment:'HOME'
- OpenVMSOperatingSystem getEnvironment:'NNTPSERVER'
- OpenVMSOperatingSystem getEnvironment:'MAIL'
- OpenVMSOperatingSystem getEnvironment:'PATH'
+ OperatingSystem getEnvironment:'LANG'
+ OperatingSystem getEnvironment:'LOGIN'
+ OperatingSystem getEnvironment:'HOME'
+ OperatingSystem getEnvironment:'NNTPSERVER'
+ OperatingSystem getEnvironment:'MAIL'
+ OperatingSystem getEnvironment:'PATH'
"
!
@@ -5411,11 +5388,11 @@
%}.
name isNil ifTrue:[
name := self getEnvironment:'HOST'.
- name isNil ifTrue:[
- OpenVMSOperatingSystem isUNIXlike ifTrue:[
- name := self getCommandOutputFrom:'hostname'
- ]
- ]
+"/ name isNil ifTrue:[
+"/ OperatingSystem isUNIXlike ifTrue:[
+"/ name := self getCommandOutputFrom:'hostname'
+"/ ]
+"/ ]
].
name isNil ifTrue:[
'OpenVMSOperatingSystem [warning]: cannot find out hostname' errorPrintCR.
@@ -5433,7 +5410,7 @@
^ name
"
- OpenVMSOperatingSystem getHostName
+ OperatingSystem getHostName
"
!
@@ -5683,7 +5660,7 @@
^ info
"
- OpenVMSOperatingSystem getLocaleInfo
+ OperatingSystem getLocaleInfo
"
"Created: 23.12.1995 / 14:19:20 / cg"
@@ -5703,7 +5680,7 @@
RETURN ( __MKSMALLINT(pid) );
%}
"
- OpenVMSOperatingSystem getProcessId
+ OperatingSystem getProcessId
"
!
@@ -5738,7 +5715,7 @@
^ 'unknown'
"
- OpenVMSOperatingSystem getSystemID
+ OperatingSystem getSystemID
"
!
@@ -5840,91 +5817,8 @@
^ info
"
- OpenVMSOperatingSystem 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
+ OperatingSystem getSystemInfo
+ "
!
isVMSlike
@@ -5964,7 +5858,7 @@
RETURN ( __MKSMALLINT(MAXPATHLEN) );
%}
"
- OpenVMSOperatingSystem maxPathLength
+ OperatingSystem maxPathLength
"
!
@@ -5984,7 +5878,7 @@
^ #vms
"
- OpenVMSOperatingSystem platformName
+ OperatingSystem platformName
"
"Modified: 20.6.1997 / 17:37:26 / cg"
@@ -6014,7 +5908,7 @@
d at:#negativeSign put:'-' .
d at:#positiveSignPrecedesCurrencySymbol put:true .
d at:#negativeSignPrecedesCurrencySymbol put:false .
- OpenVMSOperatingSystem setLocaleInfo:d
+ OperatingSystem setLocaleInfo:d
"
!
@@ -6025,7 +5919,7 @@
^ true
"
- OpenVMSOperatingSystem supportsChildInterrupts
+ OperatingSystem supportsChildInterrupts
"
!
@@ -6040,7 +5934,7 @@
^ false
"
- OpenVMSOperatingSystem supportsIOInterrupts
+ OperatingSystem supportsIOInterrupts
"
!
@@ -6055,7 +5949,7 @@
^ false
"
- OpenVMSOperatingSystem supportsNonBlockingIO
+ OperatingSystem supportsNonBlockingIO
"
!
@@ -6068,7 +5962,7 @@
^ false "/ for now ...
"
- OpenVMSOperatingSystem supportsSelect
+ OperatingSystem supportsSelect
"
! !
@@ -6136,7 +6030,7 @@
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
]
"
@@ -6175,7 +6069,7 @@
^ 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
"
!
@@ -6241,7 +6135,7 @@
^ ret
"
- OpenVMSOperatingSystem computeTimeAndDateFrom:0
+ OperatingSystem computeTimeAndDateFrom:0
"
!
@@ -6270,7 +6164,7 @@
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
]
"
@@ -6335,7 +6229,7 @@
^ ret
"
- OpenVMSOperatingSystem computeUTCTimeAndDateFrom:0
+ OperatingSystem computeUTCTimeAndDateFrom:0
"
!
@@ -6362,7 +6256,7 @@
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
]
"
@@ -6554,9 +6448,9 @@
^ (seconds * 1000) + millis
"
- OpenVMSOperatingSystem getOSTime printCR.
+ OperatingSystem getOSTime printCR.
Delay waitForSeconds:0.2.
- OpenVMSOperatingSystem getOSTime printCR.
+ OperatingSystem getOSTime printCR.
"
!
@@ -6603,7 +6497,7 @@
]
"
- OpenVMSOperatingSystem millisecondDelay:2000
+ OperatingSystem millisecondDelay:2000
"
!
@@ -6614,7 +6508,7 @@
(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)."
@@ -6631,7 +6525,7 @@
^ self primitiveFailed
"
- OpenVMSOperatingSystem sleep:2
+ OperatingSystem sleep:2
"
! !
@@ -6657,7 +6551,7 @@
^ self getGroupID
"
- OpenVMSOperatingSystem getEffectiveGroupID
+ OperatingSystem getEffectiveGroupID
"
!
@@ -6681,7 +6575,7 @@
^ self getUserID
"
- OpenVMSOperatingSystem getEffectiveUserID
+ OperatingSystem getEffectiveUserID
"
!
@@ -6705,10 +6599,10 @@
^ self getUserNameFromID:userID
"
- OpenVMSOperatingSystem getFullUserNameFromID:0
- OpenVMSOperatingSystem getFullUserNameFromID:(OpenVMSOperatingSystem getUserID)
-
- OpenVMSOperatingSystem getUserNameFromID:(OpenVMSOperatingSystem getUserID)
+ OperatingSystem getFullUserNameFromID:0
+ OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
+
+ OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
"
"Modified: 15.7.1996 / 12:44:21 / cg"
@@ -6735,7 +6629,7 @@
^ 1 "just a dummy for systems which do not have userIDs"
"
- OpenVMSOperatingSystem getGroupID
+ OperatingSystem getGroupID
"
!
@@ -6762,8 +6656,8 @@
^ '???'
"
- OpenVMSOperatingSystem getGroupNameFromID:0
- OpenVMSOperatingSystem getGroupNameFromID:10
+ OperatingSystem getGroupNameFromID:0
+ OperatingSystem getGroupNameFromID:10
"
!
@@ -6776,7 +6670,7 @@
^ OpenVMSOperatingSystem getEnvironment:'HOME'
"
- OpenVMSOperatingSystem getHomeDirectory
+ OperatingSystem getHomeDirectory
"
"Modified: 24.1.1997 / 11:32:13 / cg"
@@ -6834,7 +6728,7 @@
RETURN ( __MKSTRING(name) );
%}.
"
- OpenVMSOperatingSystem getLoginName
+ OperatingSystem getLoginName
"
!
@@ -6859,7 +6753,7 @@
^ 1 "just a dummy for systems which do not have userIDs"
"
- OpenVMSOperatingSystem getUserID
+ OperatingSystem getUserID
"
!
@@ -6894,9 +6788,9 @@
^ '? (' , aNumber printString , ')'
"
- OpenVMSOperatingSystem getUserNameFromID:0
- OpenVMSOperatingSystem getUserNameFromID:100
- OpenVMSOperatingSystem getUserNameFromID:9991
+ OperatingSystem getUserNameFromID:0
+ OperatingSystem getUserNameFromID:100
+ OperatingSystem getUserNameFromID:9991
"
!
@@ -6978,11 +6872,11 @@
^ info
"
- OpenVMSOperatingSystem userInfoOf:'root'
- OpenVMSOperatingSystem userInfoOf:1
- OpenVMSOperatingSystem userInfoOf:'claus'
- OpenVMSOperatingSystem userInfoOf:'fooBar'
- OpenVMSOperatingSystem userInfoOf:(OpenVMSOperatingSystem getUserID)
+ OperatingSystem userInfoOf:'root'
+ OperatingSystem userInfoOf:1
+ OperatingSystem userInfoOf:'claus'
+ OperatingSystem userInfoOf:'fooBar'
+ OperatingSystem userInfoOf:(OperatingSystem getUserID)
"
! !
@@ -7042,7 +6936,7 @@
^ OSProcessStatus pid:pid status:status code:code core:core
"
- OpenVMSOperatingSystem childProcessWait:false
+ OperatingSystem childProcessWait:false
"
"Created: 5.1.1996 / 16:39:14 / stefan"
@@ -7158,7 +7052,7 @@
maxF = -1;
if (__isNonNilObject(readFdArray)) {
- if (! __isArray(readFdArray)) {
+ if (! __isArrayLike(readFdArray)) {
goto fail;
}
count = __arraySize(readFdArray);
@@ -7177,7 +7071,7 @@
}
if (__isNonNilObject(writeFdArray)) {
- if (! __isArray(writeFdArray)) {
+ if (! __isArrayLike(writeFdArray)) {
goto fail;
}
count = __arraySize(writeFdArray);
@@ -7195,7 +7089,7 @@
}
if (__isNonNilObject(exceptFdArray)) {
- if (! __isArray(exceptFdArray)) {
+ if (! __isArrayLike(exceptFdArray)) {
goto fail;
}
count = __arraySize(exceptFdArray);
@@ -7615,6 +7509,6 @@
!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!