static const UBuffer* _execBuf( UThread* ut, const UCell* cell, int fd )
{
static const char* name[3] = { "input", "output", "error" };
const UBuffer* buf;
if( fd == 0 )
buf = ur_bufferSer(cell);
else if( ! (buf = ur_bufferSerM(cell)) )
return 0;
if( buf->type == UT_BINARY )
{
return buf;
}
else if( buf->type == UT_STRING )
{
if( ! ur_strIsUcs2(buf) )
return buf;
ur_error( ut, UR_ERR_TYPE, "execute does not handle UCS2 strings" );
}
else
{
ur_error( ut, UR_ERR_TYPE, "execute expected binary!/string! for %s",
name[fd] );
}
return 0;
}
static int thread_write( UThread* ut, UBuffer* port, const UCell* data )
{
UBuffer* buf;
ThreadExt* ext = (ThreadExt*) port->ptr.v;
ThreadQueue* queue;
int type = ur_type(data);
if( ur_isSeriesType(type) && ! ur_isShared( data->series.buf ) )
{
buf = ur_bufferSerM( data );
if( ! buf )
return UR_THROW;
if( ur_isBlockType(type) )
{
UCell* it = buf->ptr.cell;
UCell* end = it + buf->used;
while( it != end )
{
type = ur_type(it);
if( ur_isWordType(type) )
{
if( ur_binding(it) == UR_BIND_THREAD )
ur_unbind(it);
}
else if( ur_isSeriesType(type) )
{
return ur_error( ut, UR_ERR_INTERNAL,
"Cannot write block containing series to thread port" );
}
++it;
}
}
}
else
buf = 0;
queue = (port->SIDE == SIDE_A) ? &ext->A : &ext->B;
mutexLock( queue->mutex );
if( queue->END_OPEN )
{
thread_queue( &queue->buf, data, buf );
condSignal( queue->cond );
writeEvent( queue );
}
mutexUnlock( queue->mutex );
return UR_OK;
}
static GWidget* itemview_make( UThread* ut, UBlockIter* bi,
const GWidgetClass* wclass )
{
GItemView* ep;
UIndex itemBlkN;
const UCell* arg[3];
//int ok;
if( ! gui_parseArgs( ut, bi, wclass, itemview_args, arg ) )
return 0;
ep = (GItemView*) gui_allocWidget( sizeof(GItemView), wclass );
assert( sizeof(GLint) == sizeof(GLsizei) );
ur_arrInit( ep->fc + 0, sizeof(GLint), 0 );
ur_arrInit( ep->fc + 1, sizeof(GLint), 0 );
glGenBuffers( 2, ep->vbo );
ep->vboSize[0] = ep->vboSize[1] = 0;
ep->use_color = -1;
ep->selCol = -1;
ep->selRow = -1;
ep->itemCount = 0;
ep->itemWidth = 0;
ep->itemHeight = 0;
ep->scrollY = 0;
ep->modVbo = 0;
ep->updateMethod = IV_UPDATE_2;
ep->layoutBlkN = UR_INVALID_BUF;
ep->selectBgBlkN = UR_INVALID_BUF;
ep->bindCtxN = UR_INVALID_BUF;
ep->actionBlkN = UR_INVALID_BUF;
itemBlkN = arg[0]->series.buf;
if( ur_isShared( itemBlkN ) )
ep->dataBlkN = UR_INVALID_BUF;
else
ep->dataBlkN = itemBlkN;
// Optional action block.
if( arg[2] )
ep->actionBlkN = arg[2]->series.buf;
//--------------------------------------------
// Parse layout block [size coord! item block! selected block!]
{
UBlockIterM bi;
UBuffer* ctx;
if( ur_blkSliceM( ut, &bi, arg[1] ) != UR_OK )
goto fail;
if( (bi.end - bi.it) < 3 )
goto bad_layout;
ctx = gui_styleContext( ut );
if( ctx )
ur_bind( ut, bi.buf, ctx, UR_BIND_THREAD );
if( ur_is(bi.it, UT_COORD) )
{
// Fixed layout.
static char itemStr[] = "item";
UBuffer* blk;
if( ! ur_is(bi.it + 1, UT_BLOCK) || ! ur_is(bi.it + 2, UT_BLOCK) )
goto bad_layout;
ep->itemWidth = bi.it->coord.n[0];
ep->itemHeight = bi.it->coord.n[1];
//printf( "KR item dim %d,%d\n", ep->itemWidth, ep->itemHeight );
++bi.it;
ep->layoutBlkN = bi.it->series.buf;
ep->bindCtxN = ur_makeContext( ut, 1 ); // gc!
ctx = ur_buffer( ep->bindCtxN );
ur_ctxAppendWord( ctx, ur_intern( ut, itemStr, 4 ) );
if( ! (blk = ur_bufferSerM( bi.it )) )
goto fail;
ur_bind( ut, blk, ctx, UR_BIND_THREAD );
++bi.it;
ep->selectBgBlkN = bi.it->series.buf;
}
#ifdef ITEMVIEW_BOX_LAYOUT
else
{
// Automatic layout.
glEnv.guiParsingItemView = 1;
ok = gui_makeWidgets( ut, arg[1], &ep->wid, 0 );
glEnv.guiParsingItemView = 0;
if( ! ok )
goto fail;
//ep->wid.child->flags |= GW_HIDDEN;
}
#endif
}
return (GWidget*) ep;
bad_layout:
ur_error( ut, UR_ERR_SCRIPT, "Invalid item-view layout" );
fail:
itemview_free( (GWidget*) ep );
return 0;
}
