Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make OSProcesStatus private to OperatingSystem.
authorStefan Vogel <sv@exept.de>
Mon, 11 Nov 1996 22:35:15 +0100
changeset 1966 8b14cce1442b
parent 1965 4ca38574df3b
child 1967 e8a6fb1e14ce
Make OSProcesStatus private to OperatingSystem.
Make.proto file | annotate | diff | comparison | revisions
OSProcStat.st file | annotate | diff | comparison | revisions
Unix.st file | annotate | diff | comparison | revisions 
--- a/Make.proto	Mon Nov 11 22:29:03 1996 +0100
+++ b/Make.proto	Mon Nov 11 22:35:15 1996 +0100
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libbasic/Make.proto,v 1.84 1996-11-06 20:42:04 cg Exp $
+# $Header: /cvs/stx/stx/libbasic/Make.proto,v 1.85 1996-11-11 21:34:59 stefan Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -104,7 +104,6 @@
       Message.$(O)           \
       MiniDebug.$(O)         \
       MiniIns.$(O)           \
-      OSProcStat.$(O)        \
       ObjMem.$(O)            \
       ProcSched.$(O)         \
       Geometric.$(O)         \
@@ -278,7 +277,6 @@
 NPExtStr.o: NPExtStr.st $(STCHDR) ../include/ExtStream.H ../include/RWStream.H ../include/WriteStr.H ../include/PosStream.H ../include/PeekStr.H ../include/Stream.H ../include/Object.H
 Number.o: Number.st $(STCHDR) ../include/ArithVal.H ../include/Magnitude.H ../include/Object.H
 Namespace.o: Namespace.st $(STCHDR) ../include/Object.H
-OSProcStat.o: OSProcStat.st $(STCHDR) ../include/Object.H
 ObjMem.o: ObjMem.st $(STCHDR) ../include/Object.H
 Object.o: Object.st $(STCHDR)
 Obsolete.o: Obsolete.st $(STCHDR) ../include/Object.H
--- a/OSProcStat.st	Mon Nov 11 22:29:03 1996 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,170 +0,0 @@
-Object subclass:#OSProcessStatus
-	instanceVariableNames:'pid status code core'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'System-Support'
-!
-
-!OSProcessStatus class methodsFor:'documentation'!
-
-documentation
-"
-    This is an auxillary class, that holds information about status changes of
-    operating system processes (these are no smalltalk processes!!).
-
-    [Instance variables:]
-
-        pid     <Integer>       OS-Process identifier
-
-        status  <Symbol>        either #exit #signal #stop #continue
-
-        code    <Integer>       either exitcode or signalnumber
-
-        core    <Boolean>       true if core has been dumped
-
-
-    [author:]
-        Stefan Vogel
-
-    [see also:]
-        OperatingSystem
-"
-! !
-
-!OSProcessStatus class methodsFor:'instance creation'!
-
-pid:pid status:status code:code core:core
-    "private interface for OperatingSystem"
-
-    ^ self new pid:pid status:status code:code core:core
-
-    "Created: 28.12.1995 / 14:16:14 / stefan"
-    "Modified: 30.4.1996 / 18:25:00 / cg"
-!
-
-processCreationFailure
-    "private interface for OperatingSystem"
-
-    ^ self new pid:-1 status:#failure code:-1 core:false
-
-    "Created: 28.12.1995 / 14:35:29 / stefan"
-    "Modified: 30.4.1996 / 18:25:05 / cg"
-! !
-
-!OSProcessStatus methodsFor:'accessing'!
-
-code
-    "return the exitcode / signalNumber"
-
-    ^ code
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-    "Modified: 30.4.1996 / 18:26:23 / cg"
-!
-
-core
-    "return true if core has been dumped, false otherwise"
-
-    ^ core == true
-
-    "Modified: 28.12.1995 / 14:14:38 / stefan"
-!
-
-pid
-    "return the pid"
-
-    ^ pid
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-    "Modified: 30.4.1996 / 18:26:30 / cg"
-!
-
-status
-    "return status as a Symbol;
-     one of #exit #signal #stop #continue"
-
-    ^ status
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-    "Modified: 30.4.1996 / 18:26:54 / cg"
-! !
-
-!OSProcessStatus methodsFor:'initialization'!
-
-pid:newPid status:newStatus code:newCode core:newCore
-    pid := newPid.
-    status := newStatus.
-    code := newCode.
-    core := newCore.
-
-    "Created: 28.12.1995 / 14:18:22 / stefan"
-! !
-
-!OSProcessStatus methodsFor:'private-OS interface'!
-
-code:something
-    "set the exitCode"
-
-    code := something.
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-    "Modified: 30.4.1996 / 18:25:18 / cg"
-!
-
-core:something
-    "set core"
-
-    core := something.
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-!
-
-pid:something
-    "set pid"
-
-    pid := something.
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-!
-
-status:something
-    "set status"
-
-    status := something.
-
-    "Created: 28.12.1995 / 14:05:07 / stefan"
-! !
-
-!OSProcessStatus methodsFor:'queries'!
-
-couldNotExecute
-    "return true when a command could not be executed"
-
-    ^ status == #exit and:[code = 127].
-
-    "Created: 28.12.1995 / 15:43:17 / stefan"
-    "Modified: 30.4.1996 / 18:27:03 / cg"
-!
-
-stillAlive
-    "true if process is still alive"
-
-    ^ status == #stop or:[status == #continue]
-
-    "Created: 28.12.1995 / 14:27:26 / stefan"
-!
-
-success
-    "true if process terminated successfully"
-
-    ^ status == #exit and:[code = 0]
-
-    "Created: 28.12.1995 / 14:13:05 / stefan"
-    "Modified: 28.12.1995 / 14:13:41 / stefan"
-! !
-
-!OSProcessStatus class methodsFor:'documentation'!
-
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/OSProcStat.st,v 1.5 1996-10-22 19:34:02 cg Exp $'
-! !
--- a/Unix.st	Mon Nov 11 22:29:03 1996 +0100
+++ b/Unix.st	Mon Nov 11 22:35:15 1996 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.1 on 11-nov-1996 at 15:45:18'                    !
+
 Object subclass:#OperatingSystem
 	instanceVariableNames:''
 	classVariableNames:'HostName DomainName LastErrorNumber LastExecStatus OSSignals
@@ -19,6 +21,13 @@
 	category:'System-Support'
 !
 
+Object subclass:#OSProcessStatus
+	instanceVariableNames:'pid status code core'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:OperatingSystem
+!
+
 Object subclass:#FileStatusInfo
 	instanceVariableNames:'type mode uid gid size id accessed modified statusChanged path'
 	classVariableNames:''
@@ -7996,6 +8005,164 @@
     ^ false
 ! !
 
+!OperatingSystem::OSProcessStatus class methodsFor:'documentation'!
+
+documentation
+"
+    This is an auxillary class, that holds information about status changes of
+    operating system processes (these are no smalltalk processes!!).
+
+    [Instance variables:]
+
+	pid     <Integer>       OS-Process identifier
+
+	status  <Symbol>        either #exit #signal #stop #continue
+
+	code    <Integer>       either exitcode or signalnumber
+
+	core    <Boolean>       true if core has been dumped
+
+
+    [author:]
+	Stefan Vogel
+
+    [see also:]
+	OperatingSystem
+"
+! !
+
+!OperatingSystem::OSProcessStatus class methodsFor:'instance creation'!
+
+pid:pid status:status code:code core:core
+    "private interface for OperatingSystem"
+
+    ^ self new pid:pid status:status code:code core:core
+
+    "Created: 28.12.1995 / 14:16:14 / stefan"
+    "Modified: 30.4.1996 / 18:25:00 / cg"
+!
+
+processCreationFailure
+    "private interface for OperatingSystem"
+
+    ^ self new pid:-1 status:#failure code:-1 core:false
+
+    "Created: 28.12.1995 / 14:35:29 / stefan"
+    "Modified: 30.4.1996 / 18:25:05 / cg"
+! !
+
+!OperatingSystem::OSProcessStatus methodsFor:'accessing'!
+
+code
+    "return the exitcode / signalNumber"
+
+    ^ code
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+    "Modified: 30.4.1996 / 18:26:23 / cg"
+!
+
+core
+    "return true if core has been dumped, false otherwise"
+
+    ^ core == true
+
+    "Modified: 28.12.1995 / 14:14:38 / stefan"
+!
+
+pid
+    "return the pid"
+
+    ^ pid
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+    "Modified: 30.4.1996 / 18:26:30 / cg"
+!
+
+status
+    "return status as a Symbol;
+     one of #exit #signal #stop #continue"
+
+    ^ status
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+    "Modified: 30.4.1996 / 18:26:54 / cg"
+! !
+
+!OperatingSystem::OSProcessStatus methodsFor:'initialization'!
+
+pid:newPid status:newStatus code:newCode core:newCore
+    pid := newPid.
+    status := newStatus.
+    code := newCode.
+    core := newCore.
+
+    "Created: 28.12.1995 / 14:18:22 / stefan"
+! !
+
+!OperatingSystem::OSProcessStatus methodsFor:'private-OS interface'!
+
+code:something
+    "set the exitCode"
+
+    code := something.
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+    "Modified: 30.4.1996 / 18:25:18 / cg"
+!
+
+core:something
+    "set core"
+
+    core := something.
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+!
+
+pid:something
+    "set pid"
+
+    pid := something.
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+!
+
+status:something
+    "set status"
+
+    status := something.
+
+    "Created: 28.12.1995 / 14:05:07 / stefan"
+! !
+
+!OperatingSystem::OSProcessStatus methodsFor:'queries'!
+
+couldNotExecute
+    "return true when a command could not be executed"
+
+    ^ status == #exit and:[code = 127].
+
+    "Created: 28.12.1995 / 15:43:17 / stefan"
+    "Modified: 30.4.1996 / 18:27:03 / cg"
+!
+
+stillAlive
+    "true if process is still alive"
+
+    ^ status == #stop or:[status == #continue]
+
+    "Created: 28.12.1995 / 14:27:26 / stefan"
+!
+
+success
+    "true if process terminated successfully"
+
+    ^ status == #exit and:[code = 0]
+
+    "Created: 28.12.1995 / 14:13:05 / stefan"
+    "Modified: 28.12.1995 / 14:13:41 / stefan"
+! !
+
 !OperatingSystem::FileStatusInfo class methodsFor:'instance creation'!
 
 type:t mode:m uid:u gid:g size:s id:i accessed:aT modified:mT statusChanged:sT path:lP
@@ -8089,6 +8256,6 @@
 !OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.177 1996-11-05 16:54:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.178 1996-11-11 21:35:01 stefan Exp $'
 ! !
 OperatingSystem initialize!
hg/stx-libbasic