Esempio n. 1
0
// picoc: cursory = term_getcy();
static void pterm_getcy(pstate *p, val *r, val **param, int n)
{
  r->Val->UnsignedInteger = term_get_cy();
}
Esempio n. 2
0
// Lua: cursory = getcy()
static int luaterm_getcy( lua_State* L )
{
  lua_pushinteger( L, term_get_cy() );
  return 1;
}
Esempio n. 3
0
// (term-getcy) -> num
any plisp_term_getcy(any x) {
  x = box(term_get_cy());
  return x;
}