/* send a message to a lua process */
static int luaproc_send( lua_State *L ) {
int ret;
channel *chan;
luaproc *dstlp, *self;
const char *chname = luaL_checkstring( L, 1 );
chan = channel_locked_get( chname );
/* if channel is not found, return an error to lua */
if ( chan == NULL ) {
lua_pushnil( L );
lua_pushfstring( L, "channel '%s' does not exist", chname );
return 2;
}
/* remove first lua process, if any, from channel's receive list */
dstlp = list_remove( &chan->recv );
if ( dstlp != NULL ) { /* found a receiver? */
/* try to move values between lua states' stacks */
ret = luaproc_copyvalues( L, dstlp->lstate );
/* -1 because channel name is on the stack */
dstlp->args = lua_gettop( dstlp->lstate ) - 1;
if ( dstlp->lstate == mainlp.lstate ) {
/* if sending process is the parent (main) Lua state, unblock it */
pthread_mutex_lock( &mutex_mainls );
pthread_cond_signal( &cond_mainls_sendrecv );
pthread_mutex_unlock( &mutex_mainls );
} else {
/* schedule receiving lua process for execution */
sched_queue_proc( dstlp );
}
/* unlock channel access */
luaproc_unlock_channel( chan );
if ( ret == TRUE ) { /* was send successful? */
lua_pushboolean( L, TRUE );
return 1;
} else { /* nil and error msg already in stack */
return 2;
}
} else {
if ( L == mainlp.lstate ) {
/* sending process is the parent (main) Lua state - block it */
mainlp.chan = chan;
luaproc_queue_sender( &mainlp );
luaproc_unlock_channel( chan );
pthread_mutex_lock( &mutex_mainls );
pthread_cond_wait( &cond_mainls_sendrecv, &mutex_mainls );
pthread_mutex_unlock( &mutex_mainls );
return mainlp.args;
} else {
/* sending process is a standard luaproc - set status, block and yield */
self = luaproc_getself( L );
if ( self != NULL ) {
self->status = LUAPROC_STATUS_BLOCKED_SEND;
self->chan = chan;
}
/* yield. channel will be unlocked by the scheduler */
return lua_yield( L, lua_gettop( L ));
}
}
}
/* worker thread main function */
void *workermain( void *args ) {
luaproc *lp;
int procstat;
/* main worker loop */
while ( TRUE ) {
/*
wait until instructed to wake up (because there's work to do
or because workers must be destroyed)
*/
pthread_mutex_lock( &mutex_sched );
while (( list_count( &ready_lp_list ) == 0 ) && ( destroyworkers <= 0 )) {
pthread_cond_wait( &cond_wakeup_worker, &mutex_sched );
}
if ( destroyworkers > 0 ) { /* check whether workers should be destroyed */
destroyworkers--; /* decrease workers to be destroyed count */
workerscount--; /* decrease active workers count */
/* remove worker from workers table */
lua_getglobal( workerls, LUAPROC_SCHED_WORKERS_TABLE );
lua_pushlightuserdata( workerls, (void *)pthread_self( ));
lua_pushnil( workerls );
lua_rawset( workerls, -3 );
lua_pop( workerls, 1 );
pthread_cond_signal( &cond_wakeup_worker ); /* wake other workers up */
pthread_mutex_unlock( &mutex_sched );
pthread_exit( NULL ); /* destroy itself */
}
/* remove lua process from the ready queue */
lp = list_remove( &ready_lp_list );
pthread_mutex_unlock( &mutex_sched );
/* execute the lua code specified in the lua process struct */
procstat = luaproc_resume( luaproc_get_state( lp ), NULL,
luaproc_get_numargs( lp ));
/* reset the process argument count */
luaproc_set_numargs( lp, 0 );
/* has the lua process sucessfully finished its execution? */
if ( procstat == 0 ) {
luaproc_set_status( lp, LUAPROC_STATUS_FINISHED );
luaproc_recycle_insert( lp ); /* try to recycle finished lua process */
sched_dec_lpcount(); /* decrease active lua process count */
}
/* has the lua process yielded? */
else if ( procstat == LUA_YIELD ) {
/* yield attempting to send a message */
if ( luaproc_get_status( lp ) == LUAPROC_STATUS_BLOCKED_SEND ) {
luaproc_queue_sender( lp ); /* queue lua process on channel */
/* unlock channel */
luaproc_unlock_channel( luaproc_get_channel( lp ));
}
/* yield attempting to receive a message */
else if ( luaproc_get_status( lp ) == LUAPROC_STATUS_BLOCKED_RECV ) {
luaproc_queue_receiver( lp ); /* queue lua process on channel */
/* unlock channel */
luaproc_unlock_channel( luaproc_get_channel( lp ));
}
/* yield on explicit coroutine.yield call */
else {
/* re-insert the job at the end of the ready process queue */
pthread_mutex_lock( &mutex_sched );
list_insert( &ready_lp_list, lp );
pthread_mutex_unlock( &mutex_sched );
}
}
/* or was there an error executing the lua process? */
else {
/* print error message */
fprintf( stderr, "close lua_State (error: %s)\n",
luaL_checkstring( luaproc_get_state( lp ), -1 ));
lua_close( luaproc_get_state( lp )); /* close lua state */
sched_dec_lpcount(); /* decrease active lua process count */
}
}
}
