// Lua: data = maxval( id ) static int adc_maxval( lua_State* L ) { unsigned id; u32 res; id = luaL_checkinteger( L, 1 ); MOD_CHECK_ID( adc, id ); res = platform_adc_get_maxval( id ); lua_pushinteger( L, res ); return 1; }
// PicoC: data = adc_maxval(id); static void adc_maxval(pstate *p, val *r, val **param, int n) { unsigned id; u32 res; id = param[0]->Val->UnsignedInteger; MOD_CHECK_ID(adc, id); res = platform_adc_get_maxval(id); r->Val->UnsignedLongInteger = res; }
// (adc-maxval 'num) -> num any plisp_adc_maxval(any ex) { unsigned id; u32 res; any x, y; x = cdr(ex); NeedNum(ex, y = EVAL(car(x))); id = unBox(y); // get id. MOD_CHECK_ID(ex, adc, id); res = platform_adc_get_maxval(id); return box(res); }