Function nhl_text

src/nhlua.c:809–851

text("foo\nbar\nbaz") */

/* text("foo\nbar\nbaz") */
staticfn int
nhl_text(lua_State *L)
{
    int argc = lua_gettop(L);

    if (argc > 0) {
        menu_item *picks = (menu_item *) 0;
        winid tmpwin;

        tmpwin = create_nhwindow(NHW_MENU);
        start_menu(tmpwin, MENU_BEHAVE_STANDARD);

        while (lua_gettop(L) > 0) {
            char *ostr = dupstr(luaL_checkstring(L, 1));
            char *ptr, *str = ostr;
            char *lstr = str + strlen(str) - 1;

            do {
                char *nlp = strchr(str, '\n');

                if (nlp && (nlp - str) <= 76) {
                    ptr = nlp;
                } else {
                    ptr = str + 76;
                    if (ptr > lstr)
                        ptr = lstr;
                }
                while ((ptr > str) && !(*ptr == ' ' || *ptr == '\n'))
                    ptr--;
                *ptr = '\0';
                add_menu_str(tmpwin, str);
                str = ptr + 1;
            } while (*str && str <= lstr);
            lua_pop(L, 1);
            free(ostr);
        }

        end_menu(tmpwin, (char *) 0);
        (void) select_menu(tmpwin, PICK_NONE, &picks);
        destroy_nhwindow(tmpwin);
    }
    return 0;
}

/* makeplural("zorkmid") */
staticfn int