Esempio n. 1
0
// picoc: columns = term_getcols();
static void pterm_getcols(pstate *p, val *r, val **param, int n)
{
  r->Val->UnsignedInteger = term_get_cols();
}
Esempio n. 2
0
// Lua: columns = getcols()
static int luaterm_getcols( lua_State* L )
{
  lua_pushinteger( L, term_get_cols() );
  return 1;
}
Esempio n. 3
0
// (term-getcols) -> num
any plisp_term_getcols(any x) {
  x = box(term_get_cols());
  return x;
}