// PicoC: data = adc_isdone(id); static void adc_isdone(pstate *p, val *r, val **param, int n) { unsigned id; id = param[0]->Val->UnsignedInteger; MOD_CHECK_ID(adc, id); r->Val->UnsignedInteger = platform_adc_is_done(id); }
// Lua: data = isdone( id ) static int adc_isdone( lua_State* L ) { unsigned id; id = luaL_checkinteger( L, 1 ); MOD_CHECK_ID( adc, id ); lua_pushinteger( L, platform_adc_is_done( id ) ); return 1; }
// (adc-isdone) -> T | Nil any plisp_adc_isdone(any ex) { unsigned id; any x, y; x = cdr(ex); NeedNum(ex, y = EVAL(car(x))); id = unBox(y); // get id. MOD_CHECK_ID(ex, adc, id); return platform_adc_is_done(id) == 0 ? T : Nil; }