Commit c0e3b603 authored by dave griffiths's avatar dave griffiths
Browse files

added sleep

parent 790841c1
......@@ -174,7 +174,7 @@ void KeyboardUpCallback(unsigned char key,int x, int y)
void repl_loop() {
char cmd_str[80];
do {
printf("fluxus> ");
printf("jellyfish> ");
fgets( cmd_str, 80, stdin );
pthread_mutex_lock(render_mutex);
appEval(cmd_str);
......
......@@ -208,6 +208,7 @@
_OP_DEF(opexe_6, "synth-create", 3, 3, 0, OP_SYNTH_CRT )
_OP_DEF(opexe_6, "synth-connect", 3, 3, 0, OP_SYNTH_CON )
_OP_DEF(opexe_6, "synth-play", 3, 3, 0, OP_SYNTH_PLY )
_OP_DEF(opexe_6, "sleep", 1, 1, 0, OP_SLEEP )
_OP_DEF(opexe_6, "push", 0, 0, 0, OP_PUSH )
......
......@@ -4551,6 +4551,10 @@ static pointer opexe_6(scheme *sc, enum scheme_opcodes op) {
rvalue(caddr(sc->args)));
s_return(sc,sc->F);
} break;
case OP_SLEEP: {
usleep(ivalue(car(sc->args)));
s_return(sc,sc->F);
} break;
//////////////////// fluxus /////////////////////////////////////////
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment