Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Process.st
branchjv
changeset 21024 8734987eb5c7
parent 20728 83c74234945e
parent 20808 e7c52f36bc73
child 21027 ad86468de3a0 
--- a/Process.st	Wed Oct 26 23:35:39 2016 +0100
+++ b/Process.st	Fri Nov 18 20:48:04 2016 +0000
@@ -94,7 +94,7 @@
     situations, when soft termination fails. (for example, if some error was
     coded into a handler or unwind block).
 
-    Leaving the processes startBlock has the same effct as a soft-terminate
+    Leaving the processes startBlock has the same effect as a soft-terminate
     (i.e. there is no need to send an explicit terminate).
 
     Notice:
@@ -531,7 +531,6 @@
     "Created: 15.11.1996 / 11:41:06 / cg"
 ! !
 
-
 !Process methodsFor:'accessing'!
 
 beGUIProcess
@@ -1006,16 +1005,16 @@
     "/ and will be redelivered.
 
     interruptsDisabled == true ifTrue:[
-	"/ no, I dont want interrupts right now;
-	"/ try again later.
-	^ false
+        "/ no, I don't want interrupts right now;
+        "/ try again later.
+        ^ false
     ].
 
     "/ I tend to disable interrupts, while processing interrupt actions;
     "/ however, this leads to a blocking Debugger sometimes (scroll).
 "/    [
 "/        interruptsDisabled := true.
-	self evaluateInterruptActionsWithContext:aContext.
+        self evaluateInterruptActionsWithContext:aContext.
 "/    ] ensure:[
 "/        interruptsDisabled := false.
 "/    ].
@@ -1917,26 +1916,26 @@
       the receiver itself)."
 
     id isNil ifTrue:[
-	"/ problem:
-	"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
-	^ self
+        "/ problem:
+        "/ if receiver is already dead, its id is nil.
+        "/ children are found by looking for processes with a parentID identical to
+        "/ mine - ifNil, system processes are found, which is probably not what you
+        "/ want ...
+        "/ FIX: remember the id (or don't nil it when terminating)
+        "/ requires VM changes.
+        ProcessorScheduler invalidProcessSignal
+            raiseRequestWith:self
+            errorString:'process is already dead - cannot determine child processes'.
+        ^ self
     ].
     ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
-	    aProcess creatorId == id ifTrue:[
-		aProcess isGUIProcess ifTrue:[
-		    aProcess terminateWithAllGUISubprocesses
-		]
-	    ]
-	]
+        aProcess ~~ self ifTrue:[
+            aProcess creatorId == id ifTrue:[
+                aProcess isGUIProcess ifTrue:[
+                    aProcess terminateWithAllGUISubprocesses
+                ]
+            ]
+        ]
     ].
 
     "Created: / 28-10-1996 / 20:43:32 / cg"
@@ -1950,17 +1949,17 @@
       and recursively oll of their group processes.)."
 
     id isNil ifTrue:[
-	"/ problem:
-	"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
-	^ self
+        "/ problem:
+        "/ if receiver is already dead, its id is nil.
+        "/ children are found by looking for processes with a parentID identical to
+        "/ mine - ifNil, system processes are found, which is probably not what you
+        "/ want ...
+        "/ FIX: remember the id (or don't nil it when terminating)
+        "/ requires VM changes.
+        ProcessorScheduler invalidProcessSignal
+            raiseRequestWith:self
+            errorString:'process is already dead - cannot determine child processes'.
+        ^ self
     ].
     self terminateAllSubprocessesInGroup:id
 !
@@ -1988,24 +1987,24 @@
      that are in the receiver's process group."
 
     id isNil ifTrue:[
-	"/ problem:
-	"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
-	^ self
+        "/ problem:
+        "/ if receiver is already dead, its id is nil.
+        "/ children are found by looking for processes with a parentID identical to
+        "/ mine - ifNil, system processes are found, which is probably not what you
+        "/ want ...
+        "/ FIX: remember the id (or don't nil it when terminating)
+        "/ requires VM changes.
+        ProcessorScheduler invalidProcessSignal
+            raiseRequestWith:self
+            errorString:'process is already dead - cannot determine child processes'.
+        ^ self
     ].
     ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
-	    aProcess processGroupId == id ifTrue:[
-		aProcess terminate
-	    ]
-	]
+        aProcess ~~ self ifTrue:[
+            aProcess processGroupId == id ifTrue:[
+                aProcess terminate
+            ]
+        ]
     ].
     self terminate
 !
@@ -2045,29 +2044,29 @@
       the receiver itself)."
 
     id isNil ifTrue:[
-	"/ problem:
-	"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
-	^ self
+        "/ problem:
+        "/ if receiver is already dead, its id is nil.
+        "/ children are found by looking for processes with a parentID identical to
+        "/ mine - ifNil, system processes are found, which is probably not what you
+        "/ want ...
+        "/ FIX: remember the id (or don't nil it when terminating)
+        "/ requires VM changes.
+        ProcessorScheduler invalidProcessSignal
+            raiseRequestWith:self
+            errorString:'process is already dead - cannot determine child processes'.
+        ^ self
     ].
     processGroupId == 0 ifTrue:[
-	ProcessorScheduler invalidProcessSignal
-	    raiseWith:self errorString:'trying to terminate the system process group'.
+        ProcessorScheduler invalidProcessSignal
+            raiseWith:self errorString:'trying to terminate the system process group'.
     ].
     ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
-	    (aProcess processGroupId == processGroupId
-	    or:[aProcess processGroupId == id]) ifTrue:[
-		aProcess terminate
-	    ]
-	]
+        aProcess ~~ self ifTrue:[
+            (aProcess processGroupId == processGroupId
+            or:[aProcess processGroupId == id]) ifTrue:[
+                aProcess terminate
+            ]
+        ]
     ].
 
     "Created: 28.10.1996 / 20:41:49 / cg"
@@ -2098,7 +2097,6 @@
     "Created: 28.10.1996 / 20:44:07 / cg"
 ! !
 
-
 !Process methodsFor:'thread local storage'!
 
 environment
hg/stx-libbasic