/*** 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; }