/***
Fetch the label for a soft label key.
@function slk_label
@int labnum
@treturn string current label for *labnum*
@see slk_label(3x)
*/
static int
Pslk_label(lua_State *L)
{
int labnum = checkint(L, 1);
#if LCURSES_POSIX_COMPLIANT
return pushstringresult(slk_label(labnum));
#else
return binding_notimplemented(L, "slk_label", "curses");
#endif
}
SCM
gucu_slk_label (SCM labnum)
{
SCM_ASSERT (scm_is_integer (labnum), labnum, SCM_ARG1, "slk-label");
int c_labnum = scm_to_int (labnum);
char *ret = slk_label (c_labnum);
SCM s_ret = scm_from_locale_string (ret);
return s_ret;
}
