hg/stx-libbasic: comparison Process.st

equal deleted inserted replaced

-:af82888ceb72
+:1f5aa87f6170
 name := aString
 !
 priority
-"return the receivers priority"
+"return the receiver's priority"
 ^ prio
 !
 priority:aNumber
 prio := aNumber
 !
 setStartBlock:aBlock
-"set the receivers startup block"
+"set the receiver's startup block"
 startBlock := aBlock
 !
 setStateTo:newState if:oldState
 Use #stop for a hard-suspend, which is not affected by interrupts.
 Should be called with interrupts disabled."
 suspendSemaphore notNil ifTrue:[suspendSemaphore signalForAll].
 suspendActions notNil ifTrue:[
-	|savedState|
+|savedState|
-	savedState := state.
+savedState := state.
-	state := #aboutToSuspend.
+state := #aboutToSuspend.
-	suspendActions do:[:action | action value].
+suspendActions do:[:action | action value].
-	state ~~ #aboutToSuspend ifTrue:[
+state ~~ #aboutToSuspend ifTrue:[
-	    "/ mhmh - one of the suspendActions lead to making me active again;
+"/ mhmh - one of the suspendActions lead to making me active again;
-	    "/ bail out.
+"/ bail out.
-	    "/ This fixes the Semaphore was signalled, but process did not run error,
+"/ This fixes the Semaphore was signalled, but process did not run error,
-	    "/ which can happen when a process with a suspend action goes into a readWait,
+"/ which can happen when a process with a suspend action goes into a readWait,
-	    "/ and the suspend action does a thread switch, and the readWait semaphore gets
+"/ and the suspend action does a thread switch, and the readWait semaphore gets
-	    "/ signalled before we come back here. Then the semaphore wakeup will have already
+"/ signalled before we come back here. Then the semaphore wakeup will have already
-	    "/ place me back into the run state, so I should not go into a suspend below.
+"/ place me back into the run state, so I should not go into a suspend below.
-	    ^ self.
+^ self.
-	].
+].
-	state := savedState.
+state := savedState.
 ].
 "
 this is a bit of a kludge: allow someone else to
 set the state to something like #ioWait etc.
-In this case, do not set the receivers state to #suspend.
+In this case, do not set the receiver's state to #suspend.
 (All of this to enhance the output of the process monitor ...)
 "
 (state == #active
 or:[state == #run
 or:[aStateSymbol == #stopped]]) ifTrue:[
-	state := aStateSymbol.
+state := aStateSymbol.
 ].
 Processor suspend:self
 !
 terminate
 "Modified: / 24.8.1998 / 18:29:46 / cg"
 !
 terminateAllGUISubprocesses
-"terminate all the receivers gui subprocesses and their children as well
+"terminate all the receiver's gui subprocesses and their children as well
 (i.e. all processes which are offsprings of the receiver, except for
 the receiver itself)."
 id isNil ifTrue:[
-	"/ problem:
+"/ problem:
-	"/ if receiver is already dead, its id is nil.
+"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
+"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
+"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
+"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
+"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
+"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
+ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
+errorString:'process is already dead - cannot determine child processes'.
-	^ self
+^ self
 ].
 ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
+aProcess ~~ self ifTrue:[
-	    aProcess creatorId == id ifTrue:[
+aProcess creatorId == id ifTrue:[
-		aProcess isGUIProcess ifTrue:[
+aProcess isGUIProcess ifTrue:[
-		    aProcess terminateWithAllGUISubprocesses
+aProcess terminateWithAllGUISubprocesses
-		]
+]
-	    ]
+]
-	]
+]
 ].
 "Created: / 28-10-1996 / 20:43:32 / cg"
 "Modified: / 26-10-2012 / 13:16:35 / cg"
 !
 terminateAllSubprocessesInGroup
 "terminate all subprocesses which have the receiver process as groupID,
 and their group-children as well.
-(i.e. all processes in the receivers process group, except for the receiver itself,
+(i.e. all processes in the receiver's process group, except for the receiver itself,
 and recursively oll of their group processes.)."
 id isNil ifTrue:[
-	"/ problem:
+"/ problem:
-	"/ if receiver is already dead, its id is nil.
+"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
+"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
+"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
+"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
+"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
+"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
+ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
+errorString:'process is already dead - cannot determine child processes'.
-	^ self
+^ self
 ].
 self terminateAllSubprocessesInGroup:id
 !
 terminateAllSubprocessesInGroup:aGroup
 "terminate all subprocesses which have aGroup as groupID,
 and their group-children as well.
-(i.e. all processes in the receivers process group, except for the receiver itself,
+(i.e. all processes in the receiver's process group, except for the receiver itself,
 and recursively oll of their group processes.)."
 ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
+aProcess ~~ self ifTrue:[
-	    (aProcess processGroupId == aGroup) ifTrue:[
+(aProcess processGroupId == aGroup) ifTrue:[
-		aProcess terminateWithAllSubprocessesInGroup
+aProcess terminateWithAllSubprocessesInGroup
-	    ]
+]
-	]
+]
 ].
 "Created: / 28.10.1996 / 20:43:32 / cg"
 "Modified: / 3.11.1997 / 00:28:06 / cg"
 !
 terminateGroup
 "terminate the receiver with all of its created subprocesses
-that are in the receivers process group."
+that are in the receiver's process group."
 id isNil ifTrue:[
-	"/ problem:
+"/ problem:
-	"/ if receiver is already dead, its id is nil.
+"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
+"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
+"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
+"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
+"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
+"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
+ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
+errorString:'process is already dead - cannot determine child processes'.
-	^ self
+^ self
 ].
 ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
+aProcess ~~ self ifTrue:[
-	    aProcess processGroupId == id ifTrue:[
+aProcess processGroupId == id ifTrue:[
-		aProcess terminate
+aProcess terminate
-	    ]
+]
-	]
+]
 ].
 self terminate
 !
 terminateNoSignal
 "Modified: 12.2.1997 / 12:41:38 / cg"
 !
 terminateSubprocesses
 "terminate all the receivers subprocesses
-(i.e. all processes in the receivers process group, except for
+(i.e. all processes in the receiver's process group, except for
 the receiver itself)."
 id isNil ifTrue:[
-	"/ problem:
+"/ problem:
-	"/ if receiver is already dead, its id is nil.
+"/ if receiver is already dead, its id is nil.
-	"/ children are found by looking for processes with a parentID identical to
+"/ children are found by looking for processes with a parentID identical to
-	"/ mine - ifNil, system processes are found, which is probably not what you
+"/ mine - ifNil, system processes are found, which is probably not what you
-	"/ want ...
+"/ want ...
-	"/ FIX: remember the id (or dont nil it when terminating)
+"/ FIX: remember the id (or dont nil it when terminating)
-	"/ requires VM changes.
+"/ requires VM changes.
-	ProcessorScheduler invalidProcessSignal
+ProcessorScheduler invalidProcessSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-	    errorString:'process is already dead - cannot determine child processes'.
+errorString:'process is already dead - cannot determine child processes'.
-	^ self
+^ self
 ].
 processGroupId == 0 ifTrue:[
-	ProcessorScheduler invalidProcessSignal
+ProcessorScheduler invalidProcessSignal
-	    raiseWith:self errorString:'trying to terminate the system process group'.
+raiseWith:self errorString:'trying to terminate the system process group'.
 ].
 ProcessorScheduler knownProcesses do:[:aProcess |
-	aProcess ~~ self ifTrue:[
+aProcess ~~ self ifTrue:[
-	    (aProcess processGroupId == processGroupId
+(aProcess processGroupId == processGroupId
-	    or:[aProcess processGroupId == id]) ifTrue:[
+or:[aProcess processGroupId == id]) ifTrue:[
-		aProcess terminate
+aProcess terminate
-	    ]
+]
-	]
+]
 ].
 "Created: 28.10.1996 / 20:41:49 / cg"
 "Modified: 26.8.1997 / 03:09:57 / cg"
 !
 "Created: 28.10.1996 / 20:44:07 / cg"
 !
 terminateWithAllSubprocessesInGroup
 "terminate the receiver with
-all subprocesses which have the receivers process ID as groupID,
+all subprocesses which have the receiver's process ID as groupID,
 and their group-children as well.
 (i.e. the receiver plus all processes in the receivers process group,
 and recursively all of their group processes)."
 self terminateAllSubprocessesInGroup.

branch	jv
changeset 19478	1f5aa87f6170
parent 19410	f9d7cb8bd74c
parent 19452	b884f7087b9f
child 19811	65fec19facb0