static GWidget* slider_make( UThread* ut, UBlockIter* bi,
const GWidgetClass* wclass )
{
GSlider* ep;
const UCell* arg[4];
if( ! gui_parseArgs( ut, bi, wclass, slider_args, arg ) )
return 0;
ep = (GSlider*) gui_allocWidget( sizeof(GSlider), wclass );
ep->state = BTN_STATE_UP;
// Optional orientaion.
if( arg[0] )
{
const char* word = ur_atomCStr( ut, arg[0]->word.atom );
ep->orient = (word[0] == 'h') ? HORIZONTAL : VERTICAL;
}
else if( wclass == &wclass_scrollbar )
{
ep->orient = VERTICAL;
}
if( ur_is(arg[1], UT_COORD) )
{
ep->data.val =
ep->data.min = (float) arg[1]->coord.n[0];
ep->data.max = (float) arg[1]->coord.n[1];
ep->data.vsize = (float) arg[1]->coord.n[2];
ep->dataType = UT_INT;
}
else
{
ep->data.val =
ep->data.min = arg[1]->vec3.xyz[0];
ep->data.max = arg[1]->vec3.xyz[1];
ep->data.vsize = arg[1]->vec3.xyz[2];
ep->dataType = UT_DECIMAL;
}
slider_setValue( ep, arg[2] );
// Optional action block.
if( arg[3] )
ep->actionN = arg[3]->series.buf;
return (GWidget*) ep;
}
void setUniform( UThread* ut, UAtom name, UCell* cell )
{
GLint loc;
loc = glGetUniformLocation( grState.shaderProg, ur_atomCStr(name, 0) );
if( loc == -1 )
{
printf( "KR setUniform failed %d\n", grState.shaderProg );
return;
}
switch( ur_type(cell) )
{
case UT_LOGIC:
case UT_INT:
glUniform1i( loc, ur_int(cell) );
break;
}
}
int main( int argc, char** argv )
{
char cmd[ 2048 ];
BoronApp app( argc, argv );
UThread* ut;
UBuffer rstr;
int fileN = 0;
int ret = 0;
{
UEnvParameters param;
ut = boron_makeEnv( boron_envParam(¶m) );
}
if( ! ut )
{
printf( "boron_makeEnv failed\n" );
return -1;
}
ur_freezeEnv( ut );
boron_initQt( ut );
if( argc > 1 )
{
int i;
char* arg;
for( i = 1; i < argc; ++i )
{
arg = argv[i];
if( arg[0] == '-' )
{
switch( arg[1] )
{
case 's':
//ur_disable( env, UR_ENV_SECURE );
break;
case 'h':
usage( argv[0] );
return 0;
}
}
else
{
fileN = i;
break;
}
}
}
ur_strInit( &rstr, UR_ENC_UTF8, 0 );
#ifdef _WIN32
{
WORD wsver;
WSADATA wsdata;
wsver = MAKEWORD( 2, 2 );
WSAStartup( wsver, &wsdata );
}
#endif
if( fileN )
{
char* pos;
pos = cmd;
cmd[ sizeof(cmd) - 1 ] = -1;
// Create args block for any command line parameters.
if( (argc - fileN) > 1 )
{
int i;
pos = str_copy( pos, "args: [" );
for( i = fileN + 1; i < argc; ++i )
{
*pos++ = '"';
pos = str_copy( pos, argv[i] );
*pos++ = '"';
*pos++ = ' ';
}
*pos++ = ']';
}
else
{
pos = str_copy( pos, "args: none " );
}
pos = str_copy( pos, "do load {" );
pos = str_copy( pos, argv[fileN] );
*pos++ = '}';
assert( cmd[ sizeof(cmd) - 1 ] == -1 && "cmd buffer overflow" );
if( ! boron_evalUtf8( ut, cmd, pos - cmd ) )
{
UCell* ex = ur_exception( ut );
if( ur_is(ex, UT_ERROR) )
{
OPEN_CONSOLE
reportError( ut, ex, &rstr );
goto prompt;
}
else if( ur_is(ex, UT_WORD) )
{
switch( ur_atom(ex) )
{
case UR_ATOM_QUIT:
goto quit;
case UR_ATOM_HALT:
goto prompt;
break;
}
}
}
}
else
{
OPEN_CONSOLE
printf( APPNAME " %s (%s)\n", UR_VERSION_STR, __DATE__ );
prompt:
while( 1 )
{
printf( ")> " );
fflush( stdout ); /* Required on Windows. */
fgets( cmd, sizeof(cmd), stdin );
#if 0
{
char* cp = cmd;
while( *cp != '\n' )
printf( " %d", (int) *cp++ );
printf( "\n" );
}
#endif
if( cmd[0] == ESC )
{
// Up 27 91 65
// Down 27 91 66
printf( "\n" );
}
else if( cmd[0] != '\n' )
{
#if 0
if( cmd[0] == 'q' )
goto quit;
#endif
UCell* val = boron_evalUtf8( ut, cmd, -1 );
if( val )
{
if( ur_is(val, UT_UNSET) ||
ur_is(val, UT_CONTEXT) )
goto prompt;
rstr.used = 0;
ur_toStr( ut, val, &rstr, 0 );
if( rstr.ptr.c )
{
ur_strTermNull( &rstr );
if( rstr.used > PRINT_MAX )
{
char* cp = str_copy( rstr.ptr.c + PRINT_MAX - 4,
"..." );
*cp = '\0';
}
printf( "== %s\n", rstr.ptr.c );
}
}
else
{
UCell* ex = ur_exception( ut );
if( ur_is(ex, UT_ERROR) )
{
reportError( ut, ex, &rstr );
}
else if( ur_is(ex, UT_WORD) )
{
switch( ur_atom(ex) )
{
case UR_ATOM_QUIT:
goto quit;
case UR_ATOM_HALT:
printf( "**halt\n" );
break;
default:
printf( "**unhandled excepetion %s\n",
ur_atomCStr(ut,ur_atom(ex)) );
break;
}
}
boron_reset( ut );
}
}
}
}
quit:
ur_strFree( &rstr );
boron_freeQt();
boron_freeEnv( ut );
#ifdef _WIN32
WSACleanup();
#endif
return ret;
}
