Ejemplo n.º 1
0
// 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);
}
Ejemplo n.º 2
0
Archivo: adc.c Proyecto: ARMinARM/elua
// 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;
}
Ejemplo n.º 3
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;
}