static void DaoMutex_Lib_Protect( DaoProcess *proc, DaoValue *p[], int n )
{
DaoMutex *self = (DaoMutex*) p[0];
DaoVmCode *sect = DaoGetSectionCode( proc->activeCode );
if( sect == NULL || DaoMT_PushSectionFrame( proc ) == 0 ) return;
DaoMutex_Lock( self );
DaoProcess_Execute( proc );
DaoMutex_Unlock( self );
DaoProcess_PopFrame( proc );
}
static void DaoState_Waitlist( DaoProcess *proc, DaoValue *p[], int N )
{
DaoState *self = (DaoState*)DaoValue_CastCstruct( p[0], NULL );
DaoList *list = DaoProcess_PutList( proc );
DNode *node;
DaoMutex_Lock( self->lock );
node = DaoMap_First( self->demands );
while( node ){
DaoList_PushBack( list, DNode_Key( node ) );
node = DaoMap_Next( self->demands, node );
}
DaoMutex_Unlock( self->lock );
}
static void DaoState_Set( DaoProcess *proc, DaoValue *p[], int N )
{
DaoState *self = (DaoState*)DaoValue_CastCstruct( p[0], NULL );
DNode *node;
DaoMutex_Lock( self->lock );
DaoValue_Copy( p[1], &self->state );
node = DaoMap_First( self->demands );
while( node && DaoValue_Compare( DNode_Key( node ), self->state ) )
node = DaoMap_Next( self->demands, node );
if( node ){
DaoCondVar_BroadCast( (DaoCondVar*)DNode_Value( node ) );
DaoMap_Erase( self->demands, DNode_Key( node ) );
}
DaoMutex_Unlock( self->lock );
}
static void DaoState_TestSet( DaoProcess *proc, DaoValue *p[], int N )
{
DaoState *self = (DaoState*)DaoValue_CastCstruct( p[0], NULL );
int set = 0;
DNode *node;
DaoMutex_Lock( self->lock );
if( !DaoValue_Compare( self->state, p[1] ) ){
DaoValue_Copy( p[2], &self->state );
set = 1;
node = DaoMap_First( self->demands );
while( node && DaoValue_Compare( DNode_Key( node ), self->state ) )
node = DaoMap_Next( self->demands, node );
if( node )
DaoCondVar_BroadCast( (DaoCondVar*)DNode_Value( node ) );
}
DaoMutex_Unlock( self->lock );
DaoProcess_PutInteger( proc, set );
}
static void DaoQueue_Pop( DaoProcess *proc, DaoValue *p[], int N )
{
DaoQueue *self = (DaoQueue*)DaoValue_CastCstruct( p[0], NULL );
QueueItem *item = NULL;
DaoMutex_Lock( self->mtx );
while( !self->size )
DaoCondVar_Wait( self->popvar, self->mtx );
item = self->head;
self->head = item->next;
if( !self->head )
self->tail = NULL;
else
self->head->previous = NULL;
if( self->capacity && self->size == self->capacity )
DaoCondVar_Signal( self->pushvar );
self->size--;
DaoMutex_Unlock( self->mtx );
DaoProcess_PutValue( proc, item->value );
DaoGC_DecRC( item->value );
dao_free( item );
}
static void DaoQueue_Push( DaoProcess *proc, DaoValue *p[], int N )
{
DaoQueue *self = (DaoQueue*)DaoValue_CastCstruct( p[0], NULL );
QueueItem *item = (QueueItem*)dao_malloc( sizeof(QueueItem) );
item->value = NULL;
DaoValue_Copy( p[1], &item->value );
item->next = NULL;
DaoMutex_Lock( self->mtx );
while( self->capacity && self->size == self->capacity )
DaoCondVar_Wait( self->pushvar, self->mtx );
item->previous = self->tail;
if( self->tail )
self->tail->next = item;
else{
self->head = item;
DaoCondVar_Signal( self->popvar );
}
self->tail = item;
self->size++;
DaoMutex_Unlock( self->mtx );
}
static void DaoQueue_TryPush( DaoProcess *proc, DaoValue *p[], int N )
{
DaoQueue *self = (DaoQueue*)DaoValue_CastCstruct( p[0], NULL );
QueueItem *item = (QueueItem*)dao_malloc( sizeof(QueueItem) );
float timeout = DaoValue_TryGetFloat( p[2] );
int pushable = 0, timed = 0;
item->value = NULL;
DaoValue_Copy( p[1], &item->value );
item->next = NULL;
DaoMutex_Lock( self->mtx );
if( timeout == 0 )
pushable = ( !self->capacity || self->size < self->capacity );
else if( timeout < 0 ){
while( self->capacity && self->size == self->capacity )
DaoCondVar_Wait( self->pushvar, self->mtx );
pushable = 1;
}
else{
while( !timed && self->capacity && self->size == self->capacity )
timed = DaoCondVar_TimedWait( self->pushvar, self->mtx, timeout );
pushable = !timed;
}
if( pushable ){
item->previous = self->tail;
if( self->tail )
self->tail->next = item;
else{
self->head = item;
DaoCondVar_Signal( self->popvar );
}
self->tail = item;
self->size++;
}
DaoMutex_Unlock( self->mtx );
if( !pushable ){
DaoGC_DecRC( item->value );
dao_free( item );
}
DaoProcess_PutInteger( proc, pushable );
}
static void DaoQueue_TryPop( DaoProcess *proc, DaoValue *p[], int N )
{
DaoQueue *self = (DaoQueue*)DaoValue_CastCstruct( p[0], NULL );
QueueItem *item = NULL;
float timeout = DaoValue_TryGetFloat( p[1] );
int popable = 0, timed = 0;
DaoMutex_Lock( self->mtx );
if( timeout == 0 )
popable = self->size;
else if( timeout < 0 ){
while( !self->size )
DaoCondVar_Wait( self->popvar, self->mtx );
popable = 1;
}
else{
while( !timed && !self->size )
timed = DaoCondVar_TimedWait( self->popvar, self->mtx, timeout );
popable = !timed;
}
if( popable ){
item = self->head;
self->head = item->next;
if( !self->head )
self->tail = NULL;
else
self->head->previous = NULL;
if( self->capacity && self->size == self->capacity )
DaoCondVar_Signal( self->pushvar );
self->size--;
}
DaoMutex_Unlock( self->mtx );
DaoProcess_PutValue( proc, item? item->value : dao_none_value );
if( item ){
DaoGC_DecRC( item->value );
dao_free( item );
}
}
static void DaoMutex_Lib_Lock( DaoProcess *proc, DaoValue *par[], int N )
{
DaoMutex *self = (DaoMutex*) par[0];
DaoMutex_Lock( self );
}
