int do_main(VM* vm, VAL* oldbase) { INITFRAME; RESERVE(2); ADDTOP(2); LOC(0) = MKCON(vm, 0, 0); LOC(0) = MKCON(vm, 1, 1, LOC(0)); LOC(0) = MKCON(vm, 1, 1, LOC(0)); dumpVal(LOC(0)); printf("\n"); LOC(1) = MKCON(vm, 0, 0); LOC(1) = MKCON(vm, 1, 1, LOC(1)); LOC(1) = MKCON(vm, 1, 1, LOC(1)); RESERVE(2); TOP(0) = LOC(0); TOP(1) = LOC(1); STOREOLD; BASETOP(0); ADDTOP(2); CALL(plus); LOC(0) = RVAL; RESERVE(1); TOP(0) = LOC(0); SLIDE(vm, 1); TOPBASE(1); TAILCALL(natToInt); /* STOREOLD; BASETOP(0); ADDTOP(1); CALL(natToInt); TOPBASE(0); REBASE; */ }
#define SLIDE(name, param) {name##_render, name##_init, name##_deinit, param} DECLARE_SLIDE(pong); DECLARE_SLIDE(videotracer); DECLARE_SLIDE(cubes); DECLARE_SLIDE(metaballs); DECLARE_SLIDE(showilda); DECLARE_SLIDE(paintilda); DECLARE_SLIDE(diag); DECLARE_SLIDE(urls); DECLARE_SLIDE(libol); DECLARE_SLIDE(circlescope); slide_t slides[] = { SLIDE(paintilda, "openlase-logo.ild"), SLIDE(diag, NULL), SLIDE(showilda, "jack-logo.ild"), SLIDE(showilda, "output.ild"), SLIDE(libol, NULL), SLIDE(cubes, NULL), SLIDE(pong, NULL), SLIDE(circlescope, "/home/marcansoft/media/midi/smb1.mp3"), SLIDE(metaballs, NULL), SLIDE(videotracer, &vparms), SLIDE(showilda, "27c3-logo.ild"), SLIDE(urls, NULL), }; OLRenderParams master_params;