int main ()
{
matrix A (10);
matrix rhs (10, 1);
for (unsigned int i = 0; i < 10; ++i)
{
rhs (i, 0) = 1.;
for (unsigned int j = 0; j < 10; ++j)
{
if (j+1 == i)
A(i, j) = -1.;
else if (j == i+1)
A(i, j) = -1.;
else if (i == j)
A(i, j) = 2.;
}
}
matrix uh (rhs);
A.solve (uh);
matrix f = A * uh;
for (unsigned int i = 0; i < 10; ++i)
{
std::cout << "x (" << i+1 << ") = " << uh(i, 0) << ";"
<< " y (" << i+1 << ") = " << f(i, 0) << ";"
<< " b (" << i+1 << ") = " << rhs(i, 0) << ";"
<< std::endl;
}
return 0;
}
XBOX::VError XMLHttpRequest::Open(const XBOX::VString& inMethod, const XBOX::VString& inUrl, bool inAsync,
const XBOX::VString& inUser, const XBOX::VString& inPasswd)
{
if(fReadyState!=UNSENT)
return VE_XHRQ_INVALID_STATE_ERROR; //Doesn't follow the spec, but behave roughly as FireFox
if(!fCWImpl)
return VE_XHRQ_IMPL_FAIL_ERROR;
MethodHelper mh(inMethod);
if(!mh.IsValid())
return VE_XHRQ_SYNTAX_ERROR;
if(mh.IsDangerous())
return VE_XHRQ_SECURITY_ERROR;
UrlHelper uh(inUrl);
if(!uh.IsSupportedScheme())
return VE_XHRQ_NOT_SUPPORTED_ERROR;
if(uh.IsUserInfoSet() && !uh.DoesSchemeSupportUserInfo())
return VE_XHRQ_SYNTAX_ERROR;
if(fCWImpl->fReq)
delete fCWImpl->fReq;
fCWImpl->fReq=new CW::HttpRequest(uh.DropFragment(), mh.GetMethod());
if(!fCWImpl->fReq)
return VE_XHRQ_IMPL_FAIL_ERROR;
fReadyState=OPENED;
if(fChangeHandler)
fChangeHandler->Execute();
return XBOX::VE_OK;
}
void PenWindow::layout()
{
CEGUI::UDim ux(0,10);
CEGUI::UDim uy(0,0);
CEGUI::UDim uw(0,0);
CEGUI::UDim uh(0,0);
CEGUI::Size size = getPixelSize();
{
CEGUI::UVector2 bsize;
bsize.d_x = CEGUI::UDim(0,BUTTON_SIZE);
bsize.d_y = CEGUI::UDim(0,BUTTON_SIZE);
const int cellsize = (BUTTON_SIZE + SPACE_SIZE);
int nx = (int)(size.d_width - (2*MARGIN_SIZE)) / cellsize;
if (nx < 1) { nx = 1; }
int xi = 0;
int yi = 0;
CEGUI::UDim x(0,0),y(0,0);
for (size_t i=0; i<_button.size(); ++i) {
for (size_t j=0; j<_button[i].size(); ++j) {
x.d_offset = MARGIN_SIZE + (0.5f * SPACE_SIZE) + xi*cellsize;
y.d_offset = MARGIN_SIZE + (0.5f * SPACE_SIZE) + yi*cellsize;
_button[i][j]->setSize(bsize);
_button[i][j]->setPosition(CEGUI::UVector2(x,y));
xi++;
if (xi == nx) {
xi = 0;
yi++;
}
}
yi++;
xi = 0;
}
}
}
/**
* Remove duplicate elements from list, preserving order
*
* @param list Linked list
* @param uh Unique handler (return object to remove)
*
* @return Number of elements removed
*
* @note: O (n ^ 2)
*/
uint32_t ice_list_unique(struct list *list, list_unique_h *uh)
{
struct le *le1 = list_head(list);
uint32_t n = 0;
while (le1 && le1 != list->tail) {
struct le *le2 = le1->next;
void *data = NULL;
while (le2) {
data = uh(le1, le2);
le2 = le2->next;
if (!data)
continue;
if (le1->data == data)
break;
else {
data = mem_deref(data);
++n;
}
}
le1 = le1->next;
if (data) {
mem_deref(data);
++n;
}
}
return n;
}
int main (int argc, char **argv)
{
GetPot cl (argc, argv);
if (cl.search (2, "-h", "--help"))
{
std::cerr << help_text << std::endl;
return 0;
}
const double a = cl.follow (0.0, "-a");
const double b = cl.follow (1.0, "-b");
const unsigned int nnodes = cl.follow (100, 2, "-n", "-nnodes");
mesh m (a, b, nnodes);
matrix A(nnodes);
matrix mloc(2);
for (unsigned int iel = 0; iel < m.nels; ++iel)
{
std::fill (mloc.get_data (),
mloc.get_data () + 4,
0.0);
for (unsigned int inode = 0; inode < 2; ++inode)
{
double igrad = (inode == 0 ? 1.0 / m.h : -1.0 / m.h);
for (unsigned int jnode = 0; jnode < 2; ++jnode)
{
double jgrad = (jnode == 0 ? 1.0 / m.h : -1.0 / m.h);
mloc(inode,jnode) = igrad * jgrad * m.h;
A(m.elements[iel][inode],m.elements[iel][jnode]) +=
mloc(inode,jnode);
}
}
}
matrix f(nnodes, 1);
matrix vloc(2, 1);
for (unsigned int iel = 0; iel < m.nels; ++iel)
{
std::fill (mloc.get_data (),
mloc.get_data () + 2,
0.0);
for (unsigned int inode = 0; inode < 2; ++inode)
{
vloc(inode, 0) = m.h / 2.0;
f(m.elements[iel][inode], 0) += vloc(inode, 0);
}
}
f(0, 0) = 0;
f(nnodes - 1, 0) = 0;
A(0,0) = 1.0;
A(nnodes-1,nnodes-1) = 1.0;
for (unsigned int ii = 1; ii < nnodes; ++ii)
{
A(0, ii) = 0.0;
A(nnodes-1, nnodes-1-ii) = 0.0;
}
matrix uh(f);
A.solve (uh);
for (unsigned int ii = 0; ii < nnodes; ++ii)
std::cout << uh(ii, 0) << std:: endl;
return 0;
};
extern "C" int chuck_main( int argc, const char ** argv )
#endif
{
Chuck_Compiler * compiler = NULL;
Chuck_VM * vm = NULL;
Chuck_VM_Code * code = NULL;
Chuck_VM_Shred * shred = NULL;
t_CKBOOL enable_audio = TRUE;
t_CKBOOL vm_halt = TRUE;
t_CKUINT srate = SAMPLING_RATE_DEFAULT;
t_CKUINT buffer_size = BUFFER_SIZE_DEFAULT;
t_CKUINT num_buffers = NUM_BUFFERS_DEFAULT;
t_CKUINT dac = 0;
t_CKUINT adc = 0;
t_CKUINT dac_chans = 2;
t_CKUINT adc_chans = 2;
t_CKBOOL dump = FALSE;
t_CKBOOL probe = FALSE;
t_CKBOOL set_priority = FALSE;
t_CKBOOL auto_depend = FALSE;
t_CKBOOL block = FALSE;
t_CKBOOL enable_shell = FALSE;
t_CKBOOL no_vm = FALSE;
t_CKBOOL load_hid = FALSE;
t_CKBOOL enable_server = TRUE;
t_CKBOOL do_watchdog = TRUE;
t_CKINT adaptive_size = 0;
t_CKINT log_level = CK_LOG_CORE;
t_CKINT deprecate_level = 1; // warn
string filename = "";
vector<string> args;
#if defined(__DISABLE_WATCHDOG__)
do_watchdog = FALSE;
#elif defined(__MACOSX_CORE__)
do_watchdog = TRUE;
#elif defined(__PLATFORM_WIN32__) && !defined(__WINDOWS_PTHREAD__)
do_watchdog = TRUE;
#else
do_watchdog = FALSE;
#endif
t_CKUINT files = 0;
t_CKUINT count = 1;
t_CKINT i;
// set log level
EM_setlog( log_level );
// parse command line args
for( i = 1; i < argc; i++ )
{
if( argv[i][0] == '-' || argv[i][0] == '+' ||
argv[i][0] == '=' || argv[i][0] == '^' || argv[i][0] == '@' )
{
if( !strcmp(argv[i], "--dump") || !strcmp(argv[i], "+d")
|| !strcmp(argv[i], "--nodump") || !strcmp(argv[i], "-d") )
continue;
else if( get_count( argv[i], &count ) )
continue;
else if( !strcmp(argv[i], "--audio") || !strcmp(argv[i], "-a") )
enable_audio = TRUE;
else if( !strcmp(argv[i], "--silent") || !strcmp(argv[i], "-s") )
enable_audio = FALSE;
else if( !strcmp(argv[i], "--halt") || !strcmp(argv[i], "-t") )
vm_halt = TRUE;
else if( !strcmp(argv[i], "--loop") || !strcmp(argv[i], "-l") )
{ vm_halt = FALSE; enable_server = TRUE; }
else if( !strcmp(argv[i], "--server") )
enable_server = TRUE;
else if( !strcmp(argv[i], "--standalone") )
enable_server = FALSE;
else if( !strcmp(argv[i], "--callback") )
block = FALSE;
else if( !strcmp(argv[i], "--blocking") )
block = TRUE;
else if( !strcmp(argv[i], "--hid") )
load_hid = TRUE;
else if( !strcmp(argv[i], "--shell") || !strcmp( argv[i], "-e" ) )
{ enable_shell = TRUE; vm_halt = FALSE; }
else if( !strcmp(argv[i], "--empty") )
no_vm = TRUE;
else if( !strncmp(argv[i], "--srate", 7) )
srate = atoi( argv[i]+7 ) > 0 ? atoi( argv[i]+7 ) : srate;
else if( !strncmp(argv[i], "-r", 2) )
srate = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : srate;
else if( !strncmp(argv[i], "--bufsize", 9) )
buffer_size = atoi( argv[i]+9 ) > 0 ? atoi( argv[i]+9 ) : buffer_size;
else if( !strncmp(argv[i], "-b", 2) )
buffer_size = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : buffer_size;
else if( !strncmp(argv[i], "--bufnum", 8) )
num_buffers = atoi( argv[i]+8 ) > 0 ? atoi( argv[i]+8 ) : num_buffers;
else if( !strncmp(argv[i], "-n", 2) )
num_buffers = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : num_buffers;
else if( !strncmp(argv[i], "--dac", 5) )
dac = atoi( argv[i]+5 ) > 0 ? atoi( argv[i]+5 ) : 0;
else if( !strncmp(argv[i], "--adc", 5) )
adc = atoi( argv[i]+5 ) > 0 ? atoi( argv[i]+5 ) : 0;
else if( !strncmp(argv[i], "--channels", 10) )
dac_chans = adc_chans = atoi( argv[i]+10 ) > 0 ? atoi( argv[i]+10 ) : 2;
else if( !strncmp(argv[i], "-c", 2) )
dac_chans = adc_chans = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : 2;
else if( !strncmp(argv[i], "--out", 5) )
dac_chans = atoi( argv[i]+5 ) > 0 ? atoi( argv[i]+5 ) : 2;
else if( !strncmp(argv[i], "-o", 2) )
dac_chans = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : 2;
else if( !strncmp(argv[i], "--in", 4) )
adc_chans = atoi( argv[i]+4 ) > 0 ? atoi( argv[i]+4 ) : 2;
else if( !strncmp(argv[i], "-i", 2) )
adc_chans = atoi( argv[i]+2 ) > 0 ? atoi( argv[i]+2 ) : 2;
else if( !strncmp(argv[i], "--level", 7) )
{ g_priority = atoi( argv[i]+7 ); set_priority = TRUE; }
else if( !strncmp(argv[i], "--watchdog", 10) )
{ g_watchdog_timeout = atof( argv[i]+10 );
if( g_watchdog_timeout <= 0 ) g_watchdog_timeout = 0.5;
do_watchdog = TRUE; }
else if( !strncmp(argv[i], "--nowatchdog", 12) )
do_watchdog = FALSE;
else if( !strncmp(argv[i], "--remote", 8) )
strcpy( g_host, argv[i]+8 );
else if( !strncmp(argv[i], "@", 1) )
strcpy( g_host, argv[i]+1 );
else if( !strncmp(argv[i], "--port", 6) )
g_port = atoi( argv[i]+6 );
else if( !strncmp(argv[i], "-p", 2) )
g_port = atoi( argv[i]+2 );
else if( !strncmp(argv[i], "--auto", 6) )
auto_depend = TRUE;
else if( !strncmp(argv[i], "-u", 2) )
auto_depend = TRUE;
else if( !strncmp(argv[i], "--log", 5) )
log_level = argv[i][5] ? atoi( argv[i]+5 ) : CK_LOG_INFO;
else if( !strncmp(argv[i], "--verbose", 9) )
log_level = argv[i][9] ? atoi( argv[i]+9 ) : CK_LOG_INFO;
else if( !strncmp(argv[i], "-v", 2) )
log_level = argv[i][2] ? atoi( argv[i]+2 ) : CK_LOG_INFO;
else if( !strncmp(argv[i], "--adaptive", 10) )
adaptive_size = argv[i][10] ? atoi( argv[i]+10 ) : -1;
else if( !strncmp(argv[i], "--deprecate", 11) )
{
// get the rest
string arg = argv[i]+11;
if( arg == ":stop" ) deprecate_level = 0;
else if( arg == ":warn" ) deprecate_level = 1;
else if( arg == ":ignore" ) deprecate_level = 2;
else
{
// error
fprintf( stderr, "[chuck]: invalid arguments for '--deprecate'...\n" );
fprintf( stderr, "[chuck]: ... (looking for :stop, :warn, or :ignore)\n" );
exit( 1 );
}
}
else if( !strcmp( argv[i], "--probe" ) )
probe = TRUE;
else if( !strcmp( argv[i], "--poop" ) )
uh();
else if( !strcmp( argv[i], "--caution-to-the-wind" ) )
g_enable_system_cmd = TRUE;
else if( !strcmp(argv[i], "--help") || !strcmp(argv[i], "-h")
|| !strcmp(argv[i], "--about") )
{
usage();
exit( 2 );
}
else if( !strcmp( argv[i], "--version" ) )
{
version();
exit( 2 );
}
else
{
// boost log level
g_otf_log = CK_LOG_CORE;
// flag
int is_otf = FALSE;
// log level
EM_setlog( log_level );
// do it
if( otf_send_cmd( argc, argv, i, g_host, g_port, &is_otf ) )
exit( 0 );
// is otf
if( is_otf ) exit( 1 );
// done
fprintf( stderr, "[chuck]: invalid flag '%s'\n", argv[i] );
usage();
exit( 1 );
}
}
else
files++;
}
// log level
EM_setlog( log_level );
// probe
if( probe )
{
Digitalio::probe();
#ifndef __DISABLE_MIDI__
EM_error2b( 0, "" );
probeMidiIn();
EM_error2b( 0, "" );
probeMidiOut();
EM_error2b( 0, "" );
#endif // __DISABLE_MIDI__
// HidInManager::probeHidIn();
// exit
exit( 0 );
}
// check buffer size
buffer_size = ensurepow2( buffer_size );
// check mode and blocking
if( !enable_audio && !block ) block = TRUE;
// audio, boost
if( !set_priority && !block ) g_priority = g_priority_low;
if( !set_priority && !enable_audio ) g_priority = 0x7fffffff;
// set priority
Chuck_VM::our_priority = g_priority;
// set watchdog
g_do_watchdog = do_watchdog;
// set adaptive size
if( adaptive_size < 0 ) adaptive_size = buffer_size;
if ( !files && vm_halt && !enable_shell )
{
fprintf( stderr, "[chuck]: no input files... (try --help)\n" );
exit( 1 );
}
// shell initialization without vm
if( enable_shell && no_vm )
{
// instantiate
g_shell = new Chuck_Shell;
// initialize
if( !init_shell( g_shell, new Chuck_Console, NULL ) )
exit( 1 );
// no vm is needed, just start running the shell now
g_shell->run();
// clean up
SAFE_DELETE( g_shell );
// done
exit( 0 );
}
// make sure vm
if( no_vm )
{
fprintf( stderr, "[chuck]: '--empty' can only be used with shell...\n" );
exit( 1 );
}
// allocate the vm - needs the type system
vm = g_vm = new Chuck_VM;
if( !vm->initialize( enable_audio, vm_halt, srate, buffer_size,
num_buffers, dac, adc, dac_chans, adc_chans,
block, adaptive_size ) )
{
fprintf( stderr, "[chuck]: %s\n", vm->last_error() );
exit( 1 );
}
// allocate the compiler
compiler = g_compiler = new Chuck_Compiler;
// initialize the compiler
if( !compiler->initialize( vm ) )
{
fprintf( stderr, "[chuck]: error initializing compiler...\n" );
exit( 1 );
}
// enable dump
compiler->emitter->dump = dump;
// set auto depend
compiler->set_auto_depend( auto_depend );
// vm synthesis subsystem - needs the type system
if( !vm->initialize_synthesis( ) )
{
fprintf( stderr, "[chuck]: %s\n", vm->last_error() );
exit( 1 );
}
#ifndef __ALTER_HID__
// pre-load hid
if( load_hid ) HidInManager::init();
#endif // __ALTER_HID__
// catch SIGINT
signal( SIGINT, signal_int );
#ifndef __PLATFORM_WIN32__
// catch SIGPIPE
signal( SIGPIPE, signal_pipe );
#endif
// shell initialization
if( enable_shell )
{
// instantiate
g_shell = new Chuck_Shell;
// initialize
if( !init_shell( g_shell, new Chuck_Console, vm ) )
exit( 1 );
}
// set deprecate
compiler->env->deprecate_level = deprecate_level;
// reset count
count = 1;
// log
EM_log( CK_LOG_SEVERE, "starting compilation..." );
// push indent
EM_pushlog();
// loop through and process each file
for( i = 1; i < argc; i++ )
{
// make sure
if( argv[i][0] == '-' || argv[i][0] == '+' )
{
if( !strcmp(argv[i], "--dump") || !strcmp(argv[i], "+d" ) )
compiler->emitter->dump = TRUE;
else if( !strcmp(argv[i], "--nodump") || !strcmp(argv[i], "-d" ) )
compiler->emitter->dump = FALSE;
else
get_count( argv[i], &count );
continue;
}
// parse out command line arguments
if( !extract_args( argv[i], filename, args ) )
{
// error
fprintf( stderr, "[chuck]: malformed filename with argument list...\n" );
fprintf( stderr, " --> '%s'", argv[i] );
return 1;
}
// log
EM_log( CK_LOG_FINE, "compiling '%s'...", filename.c_str() );
// push indent
EM_pushlog();
// parse, type-check, and emit
if( !compiler->go( filename, NULL ) )
return 1;
// get the code
code = compiler->output();
// name it
code->name += string(argv[i]);
// log
EM_log( CK_LOG_FINE, "sporking %d %s...", count,
count == 1 ? "instance" : "instances" );
// spork it
while( count-- )
{
// spork
shred = vm->spork( code, NULL );
// add args
shred->args = args;
}
// pop indent
EM_poplog();
// reset count
count = 1;
}
// pop indent
EM_poplog();
// reset the parser
reset_parse();
// boost priority
if( Chuck_VM::our_priority != 0x7fffffff )
{
// try
if( !Chuck_VM::set_priority( Chuck_VM::our_priority, vm ) )
{
// error
fprintf( stderr, "[chuck]: %s\n", vm->last_error() );
exit( 1 );
}
}
// server
if( enable_server )
{
#ifndef __DISABLE_OTF_SERVER__
// log
EM_log( CK_LOG_SYSTEM, "starting listener on port: %d...", g_port );
// start tcp server
g_sock = ck_tcp_create( 1 );
if( !g_sock || !ck_bind( g_sock, g_port ) || !ck_listen( g_sock, 10 ) )
{
fprintf( stderr, "[chuck]: cannot bind to tcp port %i...\n", g_port );
ck_close( g_sock );
g_sock = NULL;
}
else
{
#if !defined(__PLATFORM_WIN32__) || defined(__WINDOWS_PTHREAD__)
pthread_create( &g_tid_otf, NULL, otf_cb, NULL );
#else
g_tid_otf = CreateThread( NULL, 0, (LPTHREAD_START_ROUTINE)otf_cb, NULL, 0, 0 );
#endif
}
#endif // __DISABLE_OTF_SERVER__
}
else
{
// log
EM_log( CK_LOG_SYSTEM, "OTF server/listener: OFF" );
}
// start shell on separate thread
if( enable_shell )
{
#if !defined(__PLATFORM_WIN32__) || defined(__WINDOWS_PTHREAD__)
pthread_create( &g_tid_shell, NULL, shell_cb, g_shell );
#else
g_tid_shell = CreateThread( NULL, 0, (LPTHREAD_START_ROUTINE)shell_cb, g_shell, 0, 0 );
#endif
}
// run the vm
vm->run();
// detach
all_detach();
// free vm
vm = NULL; SAFE_DELETE( g_vm );
// free the compiler
compiler = NULL; SAFE_DELETE( g_compiler );
// wait for the shell, if it is running
// does the VM reset its priority to normal before exiting?
if( enable_shell )
while( g_shell != NULL )
usleep(10000);
return 0;
}
