touching up some classes

This commit is contained in:
hyunghwan.chung 2018-05-16 16:24:43 +00:00
parent 53739821b2
commit c5362f86a9

View File

@ -73,9 +73,9 @@ class(#pointer,#final,#limited) Process(Object)
class Semaphore(Object) class Semaphore(Object)
{ {
var waiting_head := nil, var waiting_head := nil,
waiting_tail := nil, waiting_tail := nil.
count := 0. ## semaphore signal count
var count := 0. ## semaphore signal count
var(#get,#set) heapIndex := -1. var(#get,#set) heapIndex := -1.
var fireTimeSec := 0, var fireTimeSec := 0,
@ -105,9 +105,12 @@ class Semaphore(Object)
## ================================================================== ## ==================================================================
## ------------------------------------------
## TODO: either put fireTimeNsec into implementation of fireTime, and related methods.
## ------------------------------------------
method fireTime method fireTime
{ {
^fireTimeSec ^self.fireTimeSec
} }
method fireTime: anInteger method fireTime: anInteger
@ -155,9 +158,11 @@ TODO: how to prohibit wait and signal???
class SemaphoreGroup(Object) class SemaphoreGroup(Object)
{ {
## the first two variables must match those of Semaphore.
var waiting_head := nil, var waiting_head := nil,
waiting_tail := nil, waiting_tail := nil,
first_sem := nil,
var first_sem := nil,
last_sem := nil, last_sem := nil,
first_sigsem := nil, first_sigsem := nil,
last_sigsem := nil, last_sigsem := nil,