WAProcessMonitor

Seaside-Utilities

Comment: 






Hierarchy:




ProtoObject

Object

WAProcessMonitor









Summary:






instance variables:








mutex

process

responseSem

timeout











methods:








instance
class


as yet unclassified


as yet unclassified






Detail:






instance variables:








mutex








InitialValue:
a Semaphore()









inferredType:
Semaphore










process








inferredType:
UndefinedObject










responseSem








inferredType:
UndefinedObject










timeout








InitialValue:
5









inferredType:
SmallInteger












instance methods:








as yet unclassified




critical: aBlock ifError: errorBlock







	|value|
	mutex critical:
		[responseSem _ Semaphore new.
		process _ [[value _ aBlock on: Error do: errorBlock]
			ensure: [responseSem signal]] fork.
		responseSem wait].
	process _ nil.
	^ value






initialize







	timeout _ 5.
	mutex _ Semaphore forMutualExclusion.






terminate







	process ifNotNil: [process terminate]






timeout







	^ timeout






timeoutSeconds: aNumber







	timeout _ aNumber












class methods:








as yet unclassified




new







	^ super new initialize











^top






- made by Dandelion -