void tex::append_kern ()
{
int s;
s = cur_chr;
scan_dimen(s == MU_GLUE, FALSE, FALSE);
tail_append(new_kern(cur_val));
subtype(tail) = s;
}
static int run_scan_dimen(lua_State * L)
{
saved_tex_scanner texstate;
int v = 0, o = 0;
int inf = false, mu = false;
int t = lua_gettop(L);
if (t>0)
inf = lua_toboolean(L,1); /* inf values allowed ?*/
if (t>1)
mu = lua_toboolean(L,2); /* mu units required ?*/
save_tex_scanner(texstate);
scan_dimen(mu,inf, false); /* arg3 = shortcut */
v = cur_val;
o = cur_order;
unsave_tex_scanner(texstate);
lua_pushinteger(L,v);
if (inf) {
lua_pushinteger(L,(lua_Number)o);
return 2;
} else {
return 1;
}
}
