diff -r aff27e755ffd -r ac9a76e16fef OpenVMSOperatingSystem.st --- 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!