// PicoC: adc_setblocking(id, mode); static void adc_setblocking(pstate *p, val *r, val **param, int n) { unsigned id, mode; id = param[0]->Val->UnsignedInteger; MOD_CHECK_ID(adc, id); mode = param[1]->Val->UnsignedInteger; platform_adc_set_blocking(id, mode); }
// Lua: setblocking( id, mode ) static int adc_setblocking( lua_State* L ) { unsigned id, mode; id = luaL_checkinteger( L, 1 ); MOD_CHECK_ID( adc, id ); mode = luaL_checkinteger( L, 2 ); platform_adc_set_blocking( id, mode ); return 0; }
// (adc-setblocking 'num 'num) -> Nil any plisp_adc_setblocking(any ex) { unsigned id, mode; any x, y; x = cdr(ex); NeedNum(ex, y = EVAL(car(x))); id = unBox(y); // get id. MOD_CHECK_ID(ex, adc, id); x = cdr(x); NeedNum(ex, y = EVAL(car(x))); mode = unBox(y); // get mode. platform_adc_set_blocking(id, mode); return Nil; }