Beispiel #1
0
// 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);
}
Beispiel #2
0
// 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;
}
Beispiel #3
0
// (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;
}