fiddlerwoaroof/crawl - Change CJKLBIIM2ZTWTLGISXEZOGK2JANEYUSLOKG3BBOAYAY7AFG33ELQC

Move clua crawl_lib from clua to l_crawl.cc.

To avoid name clashes, rename dlua libs from *_lib to *_dlib.

Created by Robert Vollmert on October 20, 2009

CJKLBIIM2ZTWTLGISXEZOGK2JANEYUSLOKG3BBOAYAY7AFG33ELQC

Dependencies

In channels

main

Change contents

Replacement in crawl-ref/source/l_you.cc at line 44 [8.2866]
B:BD[8.3960] → [8.3960:3994]
```
const struct luaL_reg you_lib[] =
```
[8.3960]
[8.3994]
```
const struct luaL_reg you_dlib[] =
```
Replacement in crawl-ref/source/l_mapmrk.cc at line 24 [9.2870]
B:BD[9.3319] → [9.3319:3359]
```
const struct luaL_reg mapmarker_lib[] =
```
[9.3319]
[9.3359]
```
const struct luaL_reg mapmarker_dlib[] =
```

Replacement in crawl-ref/source/l_mapmrk.cc at line 33 [9.2870]

B:BD[9.3474] → [9.3474:3546]

    luaopen_setmeta(ls, "mapmarker", mapmarker_lib, MAPMARK_METATABLE);

[9.3474]

[9.3546]

    luaopen_setmeta(ls, "mapmarker", mapmarker_dlib, MAPMARK_METATABLE);

Replacement in crawl-ref/source/l_los.cc at line 44 [10.4668]
B:BD[10.5284] → [10.5284:5318]
```
const struct luaL_reg los_lib[] =
```
[10.5284]
[10.5318]
```
const struct luaL_reg los_dlib[] =
```
Replacement in crawl-ref/source/l_los.cc at line 91 [10.4668]
B:BD[10.6001] → [10.6001:6042]
```
static const struct luaL_reg ray_lib[] =
```
[10.6001]
[10.6042]
```
static const struct luaL_reg ray_dlib[] =
```

Replacement in crawl-ref/source/l_los.cc at line 103 [10.4668]

B:BD[10.6237] → [10.6237:6376]

//    luaopen_setmeta(ls, "ray", ray_lib, RAY_METATABLE);
    clua_register_metatable(ls, RAY_METATABLE, ray_lib, lua_object_gc<ray_def>);

[10.6237]

[10.6376]

    clua_register_metatable(ls, RAY_METATABLE, ray_dlib, lua_object_gc<ray_def>);

Insertion in crawl-ref/source/l_libs.h at line 12 [12.2907]
[11.2877]
[11.2877]
```
 * Loaders for clua.
 */
void cluaopen_crawl(lua_State *ls);
/*
```

Replacement in crawl-ref/source/l_libs.h at line 22 [12.2907]

B:BD[12.2927] → [12.2927:2969]

B:BD[12.2969] → [6.3254:3296]

∅:D[6.3296] → [12.2969:3009]

B:BD[12.2969] → [12.2969:3009]

B:BD[12.3009] → [13.2873:2919]

∅:D[13.2919] → [14.2859:2905]

B:BD[12.3009] → [14.2859:2905]

B:BD[14.2905] → [5.2873:2918]

∅:D[5.2918] → [15.2934:2979]

B:BD[14.2905] → [15.2934:2979]

B:BD[15.2979] → [16.2873:2919]

∅:D[16.2919] → [15.2979:3024]

B:BD[15.2979] → [15.2979:3024]

B:BD[15.3024] → [11.2942:2987]

∅:D[14.2905] → [12.3009:3090]

∅:D[17.2916] → [12.3009:3090]

∅:D[11.2987] → [12.3009:3090]

∅:D[15.3024] → [12.3009:3090]

B:BD[12.3009] → [12.3009:3090]

B:BD[12.3090] → [9.3587:3633]

∅:D[9.3633] → [8.4339:4379]

B:BD[12.3090] → [8.4339:4379]

extern const struct luaL_reg crawl_lib[];
extern const struct luaL_reg debug_lib[];
extern const struct luaL_reg dgn_lib[];
extern const struct luaL_reg dgn_build_lib[];
extern const struct luaL_reg dgn_event_lib[];
extern const struct luaL_reg dgn_grid_lib[];
extern const struct luaL_reg dgn_item_lib[];
extern const struct luaL_reg dgn_level_lib[];
extern const struct luaL_reg dgn_mons_lib[];
extern const struct luaL_reg dgn_tile_lib[];
extern const struct luaL_reg file_lib[];
extern const struct luaL_reg los_lib[];
extern const struct luaL_reg mapmarker_lib[];
extern const struct luaL_reg you_lib[];

[12.2927]

[12.3090]

extern const struct luaL_reg debug_dlib[];
extern const struct luaL_reg dgn_dlib[];
extern const struct luaL_reg dgn_build_dlib[];
extern const struct luaL_reg dgn_event_dlib[];
extern const struct luaL_reg dgn_grid_dlib[];
extern const struct luaL_reg dgn_item_dlib[];
extern const struct luaL_reg dgn_level_dlib[];
extern const struct luaL_reg dgn_mons_dlib[];
extern const struct luaL_reg dgn_tile_dlib[];
extern const struct luaL_reg file_dlib[];
extern const struct luaL_reg los_dlib[];
extern const struct luaL_reg mapmarker_dlib[];
extern const struct luaL_reg you_dlib[];

Insertion in crawl-ref/source/l_libs.h at line 43 [12.2907]
[18.2956]
[12.3169]
```
void dluaopen_crawl(lua_State *ls);
```
Replacement in crawl-ref/source/l_file.cc at line 129 [12.3210]
B:BD[12.6728] → [12.6728:6763]
```
const struct luaL_reg file_lib[] =
```
[12.6728]
[12.6763]
```
const struct luaL_reg file_dlib[] =
```
Replacement in crawl-ref/source/l_dgntil.cc at line 147 [4.2861]
B:BD[4.5522] → [4.5522:5561]
```
const struct luaL_reg dgn_tile_lib[] =
```
[4.5522]
[4.5561]
```
const struct luaL_reg dgn_tile_dlib[] =
```
Replacement in crawl-ref/source/l_dgnmon.cc at line 256 [15.3115]
B:BD[15.9556] → [15.9556:9595]
```
const struct luaL_reg dgn_mons_lib[] =
```
[15.9556]
[15.9595]
```
const struct luaL_reg dgn_mons_dlib[] =
```
Replacement in crawl-ref/source/l_dgnlvl.cc at line 145 [16.2973]
B:BD[16.6522] → [16.6522:6562]
```
const struct luaL_reg dgn_level_lib[] =
```
[16.6522]
[16.6562]
```
const struct luaL_reg dgn_level_dlib[] =
```
Replacement in crawl-ref/source/l_dgnit.cc at line 89 [15.9944]
B:BD[15.11795] → [15.11795:11834]
```
const struct luaL_reg dgn_item_lib[] =
```
[15.11795]
[15.11834]
```
const struct luaL_reg dgn_item_dlib[] =
```
Replacement in crawl-ref/source/l_dgngrd.cc at line 230 [5.3004]
B:BD[5.10367] → [5.10367:10406]
```
const struct luaL_reg dgn_grid_lib[] =
```
[5.10367]
[5.10406]
```
const struct luaL_reg dgn_grid_dlib[] =
```
Replacement in crawl-ref/source/l_dgnevt.cc at line 52 [17.2919]
B:BD[17.3738] → [14.2950:2996]
```
static const struct luaL_reg dgnevent_lib[] =
```
[17.3738]
[17.3777]
```
static const struct luaL_reg dgnevent_dlib[] =
```

Replacement in crawl-ref/source/l_dgnevt.cc at line 65 [17.2919]

B:BD[18.2998] → [18.2998:3067]

    luaopen_setmeta(ls, "dgnevent", dgnevent_lib, DEVENT_METATABLE);

[18.2998]

[14.2997]

    luaopen_setmeta(ls, "dgnevent", dgnevent_dlib, DEVENT_METATABLE);

Replacement in crawl-ref/source/l_dgnevt.cc at line 122 [17.2919]
B:BD[14.4445] → [14.4445:4485]
```
const struct luaL_reg dgn_event_lib[] =
```
[14.4445]
[14.4485]
```
const struct luaL_reg dgn_event_dlib[] =
```
Replacement in crawl-ref/source/l_dgnbld.cc at line 341 [13.2992]
B:BD[13.11595] → [13.11595:11635]
```
const struct luaL_reg dgn_build_lib[] =
```
[13.11595]
[13.11635]
```
const struct luaL_reg dgn_build_dlib[] =
```
Replacement in crawl-ref/source/l_dgn.cc at line 1494 [21.1232]
B:BD[19.21801] → [20.13648:13682]
```
const struct luaL_reg dgn_lib[] =
```
[19.21801]
[22.106533]
```
const struct luaL_reg dgn_dlib[] =
```
Replacement in crawl-ref/source/l_debug.cc at line 73 [6.3308]
B:BD[6.4713] → [6.4713:4749]
```
const struct luaL_reg debug_lib[] =
```
[6.4713]
[6.4749]
```
const struct luaL_reg debug_dlib[] =
```
Insertion in crawl-ref/source/l_crawl.cc at line 1 [23.2870]
[23.2870]
[23.2871]
```
/*
 * File:     l_crawl.cc
 * Summary:  General game bindings.
 */
```
Insertion in crawl-ref/source/l_crawl.cc at line 8 [23.2870]
[12.7101]
[23.2891]
```
#include "clua.h"
```
Insertion in crawl-ref/source/l_crawl.cc at line 11 [23.2870]
[12.7122]
[23.2909]
```
#include "cio.h"
#include "delay.h"
#include "directn.h"
#include "format.h"
```

Insertion in crawl-ref/source/l_crawl.cc at line 18 [23.2870]

[7.2893]

#include "macro.h"
#include "message.h"
#include "notes.h"
#include "player.h"

Insertion in crawl-ref/source/l_crawl.cc at line 29 [23.2870]

[24.2996]

[23.2949]


/////////////////////////////////////////////////////////////////////
// User accessible 
//
static int crawl_mpr(lua_State *ls)
{
    if (!crawl_state.io_inited)
        return (0);

Insertion in crawl-ref/source/l_crawl.cc at line 39 [23.2870]

[23.2950]

    const char *message = luaL_checkstring(ls, 1);
    if (!message)
        return (0);
    int ch = MSGCH_PLAIN;
    if (lua_isnumber(ls, 2))
        ch = luaL_checkint(ls, 2);
    else
    {
        const char *channel = lua_tostring(ls, 2);
        if (channel)
            ch = str_to_channel(channel);
    }
    if (ch < 0 || ch >= NUM_MESSAGE_CHANNELS)
        ch = MSGCH_PLAIN;
    mpr(message, static_cast<msg_channel_type>(ch));
    return (0);
}
static int crawl_formatted_mpr(lua_State *ls)
{
    if (!crawl_state.io_inited)
        return (0);
    const char *message = luaL_checkstring(ls, 1);
    if (!message)
        return (0);
    int ch = MSGCH_PLAIN;
    if (lua_isnumber(ls, 2))
        ch = luaL_checkint(ls, 2);
    else
    {
        const char *channel = lua_tostring(ls, 2);
        if (channel)
            ch = str_to_channel(channel);
    }
    if (ch < 0 || ch >= NUM_MESSAGE_CHANNELS)
        ch = MSGCH_PLAIN;
    formatted_mpr(formatted_string::parse_string(message),
                  static_cast<msg_channel_type>(ch));
    return (0);
}
LUAWRAP(crawl_more, more())
LUAWRAP(crawl_mesclr, mesclr())
LUAWRAP(crawl_redraw_screen, redraw_screen())
static int crawl_input_line(lua_State *ls)
{
    // This is arbitrary, but anybody entering so many characters is psychotic.
    char linebuf[500];
    get_input_line(linebuf, sizeof linebuf);
    lua_pushstring(ls, linebuf);
    return (1);
}
static int crawl_c_input_line(lua_State *ls)
{
    char linebuf[500];
    bool valid = !cancelable_get_line(linebuf, sizeof linebuf);
    if (valid)
        lua_pushstring(ls, linebuf);
    else
        lua_pushnil(ls);
    return (1);
}
LUARET1(crawl_getch, number, getch())
LUARET1(crawl_kbhit, number, kbhit())
LUAWRAP(crawl_flush_input, flush_input_buffer(FLUSH_LUA))
static char _lua_char(lua_State *ls, int ndx, char defval = 0)
{
    return (lua_isnone(ls, ndx) || !lua_isstring(ls, ndx)? defval
            : lua_tostring(ls, ndx)[0]);
}
static int crawl_yesno(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool clear_after =
        lua_isnone(ls, 4) ? true : lua_toboolean(ls, 4);
    const bool interrupt_delays =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    const bool noprompt =
        lua_isnone(ls, 6) ? false : lua_toboolean(ls, 6);
    cursor_control con(true);
    lua_pushboolean(ls, yesno(prompt, safe, safeanswer, clear_after,
                              interrupt_delays, noprompt));
    return (1);
}
static int crawl_yesnoquit(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool allow_all =
        lua_isnone(ls, 4) ? false : lua_toboolean(ls, 4);
    const bool clear_after =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    // Skipping the other params until somebody needs them.
    cursor_control con(true);
    lua_pushnumber(ls, yesnoquit(prompt, safe, safeanswer, allow_all,
                                 clear_after));
    return (1);
}
static void crawl_sendkeys_proc(lua_State *ls, int argi)
{
    if (lua_isstring(ls, argi))
    {
        const char *keys = luaL_checkstring(ls, argi);
        if (!keys)
            return;
        for ( ; *keys; ++keys)
            macro_buf_add(*keys);
    }
    else if (lua_istable(ls, argi))
    {
        for (int i = 1; ; ++i)
        {
            lua_rawgeti(ls, argi, i);
            if (lua_isnil(ls, -1))
            {
                lua_pop(ls, 1);
                return;
            }
            crawl_sendkeys_proc(ls, lua_gettop(ls));
            lua_pop(ls, 1);
        }
    }
    else if (lua_isnumber(ls, argi))
    {
        int key = luaL_checkint(ls, argi);
        macro_buf_add(key);
    }
}
static int crawl_sendkeys(lua_State *ls)
{
    int top = lua_gettop(ls);
    for (int i = 1; i <= top; ++i)
        crawl_sendkeys_proc(ls, i);
    return (0);
}
// Tell Crawl to process one command.
static int crawl_process_command(lua_State *ls)
{
    const bool will_process =
        current_delay_action() == DELAY_MACRO || !you_are_delayed();
    if (will_process)
    {
        // This should only be called from a macro delay, but run_macro
        // may not have started the macro delay; do so now.
        if (!you_are_delayed())
            start_delay(DELAY_MACRO, 1);
        start_delay(DELAY_MACRO_PROCESS_KEY, 1);
    }
    lua_pushboolean(ls, will_process);
    return (1);
}
static int crawl_playsound(lua_State *ls)
{
    const char *sf = luaL_checkstring(ls, 1);
    if (!sf)
        return (0);
    play_sound(sf);
    return (0);
}
static int crawl_runmacro(lua_State *ls)
{
    const char *macroname = luaL_checkstring(ls, 1);
    if (!macroname)
        return (0);
    run_macro(macroname);
    return (0);
}
static int crawl_setopt(lua_State *ls)
{
    if (!lua_isstring(ls, 1))
        return (0);
    const char *s = lua_tostring(ls, 1);
    if (s)
    {
        // Note that the conditional script can contain nested Lua[ ]Lua code.
        read_options(s, true);
    }
    return (0);
}
static int crawl_read_options(lua_State *ls)
{
    if (!lua_isstring(ls, 1))
        return (0);
    const char* filename = lua_tostring(ls, 1);
    Options.include(filename, true, true);
    return (0);
}
static int crawl_bindkey(lua_State *ls)
{
    const char *s = NULL;
    if (lua_isstring(ls, 1))
    {
        s = lua_tostring(ls, 1);
    }
    if (!s || !lua_isfunction(ls, 2) || lua_gettop(ls) != 2)
        return (0);
    lua_pushvalue(ls, 2);
    std::string name = clua.setuniqregistry();
    if (lua_gettop(ls) != 2)
    {
        fprintf(stderr, "Stack top has changed!\n");
        lua_settop(ls, 2);
    }
    macro_userfn(s, name.c_str());
    return (0);
}
static int crawl_msgch_num(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    int ch = str_to_channel(s);
    if (ch == -1)
        return (0);
    lua_pushnumber(ls, ch);
    return (1);
}
static int crawl_msgch_name(lua_State *ls)
{
    int num = luaL_checkint(ls, 1);
    std::string name = channel_to_str(num);
    lua_pushstring(ls, name.c_str());
    return (1);
}
static int crawl_take_note(lua_State *ls)
{
    const char* msg = luaL_checkstring(ls, 1);
    take_note(Note(NOTE_MESSAGE, 0, 0, msg));
    return (0);
}
#define REGEX_METATABLE "crawl.regex"
#define MESSF_METATABLE "crawl.messf"
static int crawl_regex(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    text_pattern **tpudata =
            clua_new_userdata< text_pattern* >(ls, REGEX_METATABLE);
    if (tpudata)
    {
        *tpudata = new text_pattern(s);
        return (1);
    }
    return (0);
}
static int crawl_regex_find(lua_State *ls)
{
    text_pattern **pattern =
            clua_get_userdata< text_pattern* >(ls, REGEX_METATABLE);
    if (!pattern)
        return (0);
    const char *text = luaL_checkstring(ls, -1);
    if (!text)
        return (0);
    lua_pushboolean(ls, (*pattern)->matches(text));
    return (1);
}
static const luaL_reg crawl_regex_ops[] =
{
    { "matches",        crawl_regex_find },
    { NULL, NULL }
};
static int crawl_message_filter(lua_State *ls)
{
    const char *pattern = luaL_checkstring(ls, 1);
    if (!pattern)
        return (0);
    int num = lua_isnumber(ls, 2)? luaL_checkint(ls, 2) : -1;
    message_filter **mf =
            clua_new_userdata< message_filter* >( ls, MESSF_METATABLE );
    if (mf)
    {
        *mf = new message_filter( num, pattern );
        return (1);
    }
    return (0);
}
static int crawl_messf_matches(lua_State *ls)
{
    message_filter **mf =
            clua_get_userdata< message_filter* >(ls, MESSF_METATABLE);
    if (!mf)
        return (0);
    const char *pattern = luaL_checkstring(ls, 2);
    int ch = luaL_checkint(ls, 3);
    if (pattern)
    {
        bool filt = (*mf)->is_filtered(ch, pattern);
        lua_pushboolean(ls, filt);
        return (1);
    }
    return (0);
}
static const luaL_reg crawl_messf_ops[] =
{
    { "matches",        crawl_messf_matches },
    { NULL, NULL }
};
static int crawl_trim(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    std::string text = s;
    trim_string(text);
    lua_pushstring(ls, text.c_str());
    return (1);
}
static int crawl_split(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1),
               *token = luaL_checkstring(ls, 2);
    if (!s || !token)
        return (0);
    std::vector<std::string> segs = split_string(token, s);
    lua_newtable(ls);
    for (int i = 0, count = segs.size(); i < count; ++i)
    {
        lua_pushstring(ls, segs[i].c_str());
        lua_rawseti(ls, -2, i + 1);
    }
    return (1);
}
static int _crawl_grammar(lua_State *ls)
{
    description_level_type ndesc = DESC_PLAIN;
    if (lua_isstring(ls, 2))
        ndesc = description_type_by_name(lua_tostring(ls, 2));
    PLUARET(string,
            thing_do_grammar(ndesc, false,
                             false, luaL_checkstring(ls, 1)).c_str());
}
static int crawl_article_a(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    bool lowercase = true;
    if (lua_isboolean(ls, 2))
        lowercase = lua_toboolean(ls, 2);
    lua_pushstring(ls, article_a(s, lowercase).c_str());
    return (1);
}
LUARET1(crawl_game_started, boolean, crawl_state.need_save)
LUARET1(crawl_random2, number, random2( luaL_checkint(ls, 1) ))
LUARET1(crawl_one_chance_in, boolean, one_chance_in( luaL_checkint(ls, 1) ))
LUARET1(crawl_random2avg, number,
        random2avg( luaL_checkint(ls, 1), luaL_checkint(ls, 2) ))
LUARET1(crawl_random_range, number,
        random_range( luaL_checkint(ls, 1), luaL_checkint(ls, 2),
                      lua_isnumber(ls, 3)? luaL_checkint(ls, 3) : 1 ))
LUARET1(crawl_coinflip, boolean, coinflip())
LUARET1(crawl_roll_dice, number,
        lua_gettop(ls) == 1
        ? roll_dice( 1, luaL_checkint(ls, 1) )
        : roll_dice( luaL_checkint(ls, 1), luaL_checkint(ls, 2) ))
static int crawl_random_element(lua_State *ls)
{
    const int table_idx = 1;
    const int value_idx = 2;
    if (lua_gettop(ls) == 0)
    {
        lua_pushnil(ls);
        return 1;
    }
    // Only the first arg does anything now.  Maybe this should
    // select from a variable number of table args?
    lua_pop(ls, lua_gettop(ls) - 1);
    // Keep max value on the stack, as it could be any type of value.
    lua_pushnil(ls);
    int rollsize = 0;
    lua_pushnil(ls);
    while (lua_next(ls, table_idx) != 0)
    {
        const int weight_idx = -1;
        const int key_idx = -2;
        int this_weight = lua_isnil(ls, weight_idx) ?
            1 : (int)lua_tonumber(ls, weight_idx);
        if (rollsize > 0)
        {
            rollsize += this_weight;
            if (x_chance_in_y(this_weight, rollsize))
            {
                lua_pushvalue(ls, key_idx);
                lua_replace(ls, value_idx);
            }
        }
        else
        {
            lua_pushvalue(ls, key_idx);
            lua_replace(ls, value_idx);
            rollsize = this_weight;
        }
        lua_pop(ls, 1);
    }
    lua_pushvalue(ls, value_idx);
    return 1;
}
static int crawl_err_trace(lua_State *ls)
{
    const int nargs = lua_gettop(ls);
    const int err = lua_pcall(ls, nargs - 1, LUA_MULTRET, 0);
    if (err)
    {
        // This code from lua.c:traceback() (mostly)
        const char *errs = lua_tostring(ls, 1);
        std::string errstr = errs? errs : "";
        lua_getfield(ls, LUA_GLOBALSINDEX, "debug");
        if (!lua_istable(ls, -1))
        {
            lua_pop(ls, 1);
            return lua_error(ls);
        }
        lua_getfield(ls, -1, "traceback");
        if (!lua_isfunction(ls, -1))
        {
            lua_pop(ls, 2);
            return lua_error(ls);
        }
        lua_pushvalue(ls, 1);
        lua_pushinteger(ls, 2); // Skip crawl_err_trace and traceback.
        lua_call(ls, 2, 1);
        // What's on top should be the error.
        lua_error(ls);
    }
    return (lua_gettop(ls));
}
static const struct luaL_reg crawl_clib[] =
{
    { "mpr",            crawl_mpr },
    { "formatted_mpr",  crawl_formatted_mpr },
    { "more",           crawl_more },
    { "mesclr",         crawl_mesclr },
    { "random2",        crawl_random2 },
    { "one_chance_in",  crawl_one_chance_in },
    { "random2avg"   ,  crawl_random2avg },
    { "coinflip",       crawl_coinflip },
    { "roll_dice",      crawl_roll_dice },
    { "random_range",   crawl_random_range },
    { "random_element", crawl_random_element },
    { "redraw_screen",  crawl_redraw_screen },
    { "input_line",     crawl_input_line },
    { "c_input_line",   crawl_c_input_line},
    { "getch",          crawl_getch },
    { "yesno",          crawl_yesno },
    { "yesnoquit",      crawl_yesnoquit },
    { "kbhit",          crawl_kbhit },
    { "flush_input",    crawl_flush_input },
    { "sendkeys",       crawl_sendkeys },
    { "process_command", crawl_process_command },
    { "playsound",      crawl_playsound },
    { "runmacro",       crawl_runmacro },
    { "bindkey",        crawl_bindkey },
    { "setopt",         crawl_setopt },
    { "read_options",   crawl_read_options },
    { "msgch_num",      crawl_msgch_num },
    { "msgch_name",     crawl_msgch_name },
    { "take_note",      crawl_take_note },
    { "regex",          crawl_regex },
    { "message_filter", crawl_message_filter },
    { "trim",           crawl_trim },
    { "split",          crawl_split },
    { "grammar",        _crawl_grammar },
    { "article_a",      crawl_article_a },
    { "game_started",   crawl_game_started },
    { "err_trace",      crawl_err_trace },
    { NULL, NULL },
};
void cluaopen_crawl(lua_State *ls)
{
    clua_register_metatable(ls, REGEX_METATABLE, crawl_regex_ops,
                            lua_object_gc<text_pattern>);
    clua_register_metatable(ls, MESSF_METATABLE, crawl_messf_ops,
                            lua_object_gc<message_filter>);
    luaL_openlib(ls, "crawl", crawl_clib, 0);
}
/////////////////////////////////////////////////////////////////////
// Non-user-accessible bindings (dlua).
//

Replacement in crawl-ref/source/l_crawl.cc at line 660 [23.2870]
∅:D[7.3846] → [23.3624:3660]
B:BD[23.3624] → [23.3624:3660]
```
const struct luaL_reg crawl_lib[] =
```
[7.3846]
[23.3660]
```
static const struct luaL_reg crawl_dlib[] =
```

Insertion in crawl-ref/source/l_crawl.cc at line 672 [23.2870]

[23.3833]

void dluaopen_crawl(lua_State *ls)
{
    luaL_openlib(ls, "crawl", crawl_dlib, 0);
}

Replacement in crawl-ref/source/dlua.cc at line 309 [20.19392]

B:BD[20.42035] → [20.42035:42078]

B:BD[20.42078] → [13.12680:12729]

∅:D[13.12729] → [14.4587:4636]

B:BD[20.42078] → [14.4587:4636]

B:BD[14.4636] → [5.11062:11110]

∅:D[5.11110] → [15.12256:12304]

B:BD[14.4636] → [15.12256:12304]

B:BD[15.12304] → [16.7209:7258]

∅:D[16.7258] → [15.12304:12352]

B:BD[15.12304] → [15.12304:12352]

B:BD[15.12352] → [11.5084:5132]

    luaL_openlib(dlua, "dgn", dgn_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_build_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_event_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_grid_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_item_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_level_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_mons_lib, 0);
    luaL_openlib(dlua, "dgn", dgn_tile_lib, 0);

[20.42035]

[6.5048]

    dluaopen_crawl(dlua);
    luaL_openlib(dlua, "dgn", dgn_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_build_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_event_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_grid_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_item_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_level_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_mons_dlib, 0);
    luaL_openlib(dlua, "dgn", dgn_tile_dlib, 0);

Replacement in crawl-ref/source/dlua.cc at line 320 [20.19392]

∅:D[6.5049] → [20.42130:42177]

B:BD[20.42130] → [20.42130:42177]

B:BD[20.42177] → [6.5050:5097]

∅:D[6.5097] → [20.42177:42308]

B:BD[20.42177] → [20.42177:42308]

    luaL_openlib(dlua, "crawl", crawl_lib, 0);
    luaL_openlib(dlua, "debug", debug_lib, 0);
    luaL_openlib(dlua, "file", file_lib, 0);
    luaL_openlib(dlua, "you", you_lib, 0);
    luaL_openlib(dlua, "los", los_lib, 0);

[6.5049]

[20.42308]

    luaL_openlib(dlua, "debug", debug_dlib, 0);
    luaL_openlib(dlua, "file", file_dlib, 0);
    luaL_openlib(dlua, "you", you_dlib, 0);
    luaL_openlib(dlua, "los", los_dlib, 0);

Insertion in crawl-ref/source/clua.cc at line 12 [25.483969]
[25.484031]
[25.484031]
```
#include "l_libs.h"
```
Deletion in crawl-ref/source/clua.cc at line 597 [25.483969]
B:BD[26.20068] → [26.20068:20103]
```
void luaopen_crawl(lua_State *ls);
```
Replacement in crawl-ref/source/clua.cc at line 626 [25.483969]
B:BD[26.20354] → [26.20354:20381]
```
    luaopen_crawl(_state);
```
[26.20354]
[26.20381]
```
    cluaopen_crawl(_state);
```

Deletion in crawl-ref/source/clua.cc at line 1785 [25.483969]

B:BD[25.520410] → [25.520410:520551]

B:BD[25.520551] → [27.12713:12765]

B:BD[27.12765] → [28.16303:16304]

∅:D[27.12770] → [25.520551:520667]

∅:D[28.16304] → [25.520551:520667]

B:BD[25.520551] → [25.520551:520667]

B:BD[25.520667] → [29.2233:2479]

∅:D[29.2479] → [25.520787:520814]

B:BD[25.520787] → [25.520787:520814]

B:BD[25.520814] → [30.2816:2869]

∅:D[30.2869] → [25.520837:520855]

B:BD[25.520837] → [25.520837:520855]

B:BD[25.520855] → [31.3924:4025]

∅:D[31.4025] → [25.520855:520856]

B:BD[25.520855] → [25.520855:520856]

B:BD[25.520856] → [31.4026:4547]

B:BD[31.4547] → [3.3188:3216]

∅:D[3.3216] → [25.520856:521083]

∅:D[31.4547] → [25.520856:521083]

B:BD[25.520856] → [25.520856:521083]

B:BD[25.521083] → [28.16305:16306]

∅:D[28.16306] → [25.521088:521255]

B:BD[25.521088] → [25.521088:521255]

B:BD[25.521255] → [28.16307:16308]

∅:D[28.16308] → [32.1206291:1206355]

B:BD[25.521260] → [32.1206291:1206355]

∅:D[32.1206355] → [25.521323:521562]

B:BD[25.521323] → [25.521323:521562]

B:BD[25.521562] → [33.7474:8851]

∅:D[33.8851] → [25.521562:522447]

B:BD[25.521562] → [25.521562:522447]

B:BD[25.522447] → [34.3630:4165]

∅:D[34.4165] → [25.522447:522790]

B:BD[25.522447] → [25.522447:522790]

}
/////////////////////////////////////////////////////////////////////
// General game bindings.
//
static int crawl_mpr(lua_State *ls)
{
    if (!crawl_state.io_inited)
        return (0);
    const char *message = luaL_checkstring(ls, 1);
    if (!message)
        return (0);
    int ch = MSGCH_PLAIN;
    if (lua_isnumber(ls, 2))
        ch = luaL_checkint(ls, 2);
    else
    {
        const char *channel = lua_tostring(ls, 2);
        if (channel)
            ch = str_to_channel(channel);
    }
    if (ch < 0 || ch >= NUM_MESSAGE_CHANNELS)
        ch = MSGCH_PLAIN;
    mpr(message, static_cast<msg_channel_type>(ch));
    return (0);
}
static int crawl_formatted_mpr(lua_State *ls)
{
    if (!crawl_state.io_inited)
        return (0);
    const char *message = luaL_checkstring(ls, 1);
    if (!message)
        return (0);
    int ch = MSGCH_PLAIN;
    if (lua_isnumber(ls, 2))
        ch = luaL_checkint(ls, 2);
    else
    {
        const char *channel = lua_tostring(ls, 2);
        if (channel)
            ch = str_to_channel(channel);
    }
    if (ch < 0 || ch >= NUM_MESSAGE_CHANNELS)
        ch = MSGCH_PLAIN;
    formatted_mpr(formatted_string::parse_string(message),
                  static_cast<msg_channel_type>(ch));
    return (0);
}
LUAWRAP(crawl_more, more())
LUAWRAP(crawl_mesclr, mesclr())
LUAWRAP(crawl_redraw_screen, redraw_screen())
static int crawl_input_line(lua_State *ls)
{
    // This is arbitrary, but anybody entering so many characters is psychotic.
    char linebuf[500];
    get_input_line(linebuf, sizeof linebuf);
    lua_pushstring(ls, linebuf);
    return (1);
}
static int crawl_c_input_line(lua_State *ls)
{
    char linebuf[500];
    bool valid = !cancelable_get_line(linebuf, sizeof linebuf);
    if (valid)
        lua_pushstring(ls, linebuf);
    else
        lua_pushnil(ls);
    return (1);
}
LUARET1(crawl_getch, number, getch())
LUARET1(crawl_kbhit, number, kbhit())
LUAWRAP(crawl_flush_input, flush_input_buffer(FLUSH_LUA))
static char _lua_char(lua_State *ls, int ndx, char defval = 0)
{
    return (lua_isnone(ls, ndx) || !lua_isstring(ls, ndx)? defval
            : lua_tostring(ls, ndx)[0]);
}
static int crawl_yesno(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool clear_after =
        lua_isnone(ls, 4) ? true : lua_toboolean(ls, 4);
    const bool interrupt_delays =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    const bool noprompt =
        lua_isnone(ls, 6) ? false : lua_toboolean(ls, 6);
    cursor_control con(true);
    lua_pushboolean(ls, yesno(prompt, safe, safeanswer, clear_after,
                              interrupt_delays, noprompt));
    return (1);
}
static int crawl_yesnoquit(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool allow_all =
        lua_isnone(ls, 4) ? false : lua_toboolean(ls, 4);
    const bool clear_after =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    // Skipping the other params until somebody needs them.
    cursor_control con(true);
    lua_pushnumber(ls, yesnoquit(prompt, safe, safeanswer, allow_all,
                                 clear_after));
    return (1);
}
static void crawl_sendkeys_proc(lua_State *ls, int argi)
{
    if (lua_isstring(ls, argi))
    {
        const char *keys = luaL_checkstring(ls, argi);
        if (!keys)
            return;
        for ( ; *keys; ++keys)
            macro_buf_add(*keys);
    }
    else if (lua_istable(ls, argi))
    {
        for (int i = 1; ; ++i)
        {
            lua_rawgeti(ls, argi, i);
            if (lua_isnil(ls, -1))
            {
                lua_pop(ls, 1);
                return;
            }
            crawl_sendkeys_proc(ls, lua_gettop(ls));
            lua_pop(ls, 1);
        }
    }
    else if (lua_isnumber(ls, argi))
    {
        int key = luaL_checkint(ls, argi);
        macro_buf_add(key);
    }
}
static int crawl_sendkeys(lua_State *ls)
{
    int top = lua_gettop(ls);
    for (int i = 1; i <= top; ++i)
        crawl_sendkeys_proc(ls, i);
    return (0);
}
// Tell Crawl to process one command.
static int crawl_process_command(lua_State *ls)
{
    const bool will_process =
        current_delay_action() == DELAY_MACRO || !you_are_delayed();
    if (will_process)
    {
        // This should only be called from a macro delay, but run_macro
        // may not have started the macro delay; do so now.
        if (!you_are_delayed())
            start_delay(DELAY_MACRO, 1);
        start_delay(DELAY_MACRO_PROCESS_KEY, 1);
    }
    lua_pushboolean(ls, will_process);
    return (1);
}
static int crawl_playsound(lua_State *ls)
{
    const char *sf = luaL_checkstring(ls, 1);
    if (!sf)
        return (0);
    play_sound(sf);
    return (0);
}
static int crawl_runmacro(lua_State *ls)
{
    const char *macroname = luaL_checkstring(ls, 1);
    if (!macroname)
        return (0);
    run_macro(macroname);
    return (0);

Deletion in crawl-ref/source/clua.cc at line 1787 [25.483969]

B:BD[25.522793] → [25.522793:522884]

static int crawl_setopt(lua_State *ls)
{
    if (!lua_isstring(ls, 1))
        return (0);

Deletion in crawl-ref/source/clua.cc at line 1788 [25.483969]

∅:D[28.16310] → [25.522889:523057]

B:BD[25.522889] → [25.522889:523057]

B:BD[25.523057] → [35.2685:2808]

B:BD[35.2808] → [28.16311:16312]

∅:D[28.16312] → [35.2813:2861]

B:BD[35.2813] → [35.2813:2861]

B:BD[35.2861] → [36.15307:15350]

∅:D[36.15350] → [25.523064:523226]

B:BD[25.523064] → [25.523064:523226]

B:BD[25.523226] → [2.2719:2780]

∅:D[2.2780] → [25.523288:523748]

B:BD[25.523288] → [25.523288:523748]

B:BD[25.523748] → [28.16313:16314]

∅:D[28.16314] → [25.523753:523979]

B:BD[25.523753] → [25.523753:523979]

B:BD[25.523979] → [37.3034:3190]

∅:D[37.3190] → [25.523979:524177]

B:BD[25.523979] → [25.523979:524177]

B:BD[25.524177] → [28.16315:16345]

∅:D[28.16345] → [25.524212:524434]

B:BD[25.524212] → [25.524212:524434]

B:BD[25.524434] → [28.16346:16375]

∅:D[28.16375] → [25.524464:524571]

B:BD[25.524464] → [25.524464:524571]

B:BD[25.524571] → [28.16376:16377]

∅:D[28.16377] → [25.524576:524729]

B:BD[25.524576] → [25.524576:524729]

B:BD[25.524932] → [25.524932:525247]

B:BD[25.525247] → [28.16442:16468]

∅:D[28.16468] → [25.525274:525508]

B:BD[25.525274] → [25.525274:525508]

B:BD[25.525508] → [28.16469:16495]

∅:D[28.16495] → [25.525535:525639]

B:BD[25.525535] → [25.525535:525639]

B:BD[25.525639] → [28.16496:16497]

∅:D[28.16497] → [25.525644:525886]

B:BD[25.525644] → [25.525644:525886]

B:BD[25.526093] → [25.526093:526605]

B:BD[25.526605] → [28.16498:16499]

∅:D[28.16499] → [25.526614:526862]

B:BD[25.526614] → [25.526614:526862]

B:BD[25.526862] → [38.3525:3527]

B:BD[38.3527] → [37.3191:3192]

B:BD[37.3192] → [39.10533:10852]

∅:D[39.10852] → [37.3192:3281]

B:BD[37.3192] → [37.3192:3281]

∅:D[37.3281] → [38.3527:3528]

B:BD[38.3527] → [38.3527:3528]

B:BD[38.3528] → [37.3282:3459]

∅:D[37.3459] → [38.3528:3588]

B:BD[38.3528] → [38.3528:3588]

B:BD[38.3588] → [40.13751:13815]

B:BD[40.13815] → [41.717:894]

B:BD[41.894] → [19.37144:37317]

∅:D[19.37317] → [41.894:939]

B:BD[41.894] → [41.894:939]

B:BD[41.939] → [33.8852:9027]

∅:D[33.9027] → [42.19267:19460]

B:BD[41.939] → [42.19267:19460]

∅:D[41.939] → [38.3588:3589]

∅:D[40.13815] → [38.3588:3589]

∅:D[42.19460] → [38.3588:3589]

B:BD[38.3588] → [38.3588:3589]

B:BD[38.3589] → [42.19461:20044]

B:BD[42.20044] → [43.14704:14758]

∅:D[43.14758] → [42.20093:20452]

B:BD[42.20093] → [42.20093:20452]

∅:D[42.20452] → [38.3589:4436]

B:BD[38.3589] → [38.3589:4436]

B:BD[38.4436] → [40.13816:13846]

∅:D[38.4474] → [25.526862:526947]

∅:D[40.13846] → [25.526862:526947]

B:BD[25.526862] → [25.526862:526947]

B:BD[25.526947] → [31.4548:4595]

B:BD[31.4595] → [3.3217:3255]

∅:D[3.3255] → [25.526947:526987]

∅:D[31.4595] → [25.526947:526987]

B:BD[25.526947] → [25.526947:526987]

B:BD[25.526987] → [40.13847:13888]

B:BD[40.13888] → [41.940:1073]

B:BD[41.1073] → [33.9028:9071]

∅:D[33.9071] → [19.37318:37364]

B:BD[41.1073] → [19.37318:37364]

B:BD[19.37364] → [42.20453:20501]

∅:D[41.1073] → [25.526987:527162]

∅:D[40.13888] → [25.526987:527162]

∅:D[42.20501] → [25.526987:527162]

∅:D[19.37364] → [25.526987:527162]

B:BD[25.526987] → [25.526987:527162]

B:BD[25.527162] → [33.9072:9154]

∅:D[33.9154] → [25.527162:527288]

B:BD[25.527162] → [25.527162:527288]

B:BD[25.527288] → [34.4166:4216]

∅:D[34.4216] → [25.527288:527454]

B:BD[25.527288] → [25.527288:527454]

B:BD[25.527454] → [35.3108:3154]

∅:D[35.3154] → [25.527454:527541]

B:BD[25.527454] → [25.527454:527541]

B:BD[25.527541] → [37.3460:3503]

∅:D[37.3503] → [25.527541:527706]

B:BD[25.527541] → [25.527541:527706]

B:BD[25.527706] → [39.10853:10895]

∅:D[39.10895] → [37.3504:3547]

B:BD[25.527706] → [37.3504:3547]

∅:D[37.3547] → [38.4475:4565]

B:BD[25.527706] → [38.4475:4565]

∅:D[38.4565] → [25.527706:527730]

B:BD[25.527706] → [25.527706:527730]

B:BD[25.527730] → [26.20598:20632]

∅:D[26.20632] → [25.527765:527767]

B:BD[25.527765] → [25.527765:527767]

B:BD[25.527767] → [44.10532:10782]

∅:D[44.10782] → [25.527989:528038]

∅:D[45.31080] → [25.527989:528038]

B:BD[25.527989] → [25.527989:528038]

    const char *s = lua_tostring(ls, 1);
    if (s)
    {
        // Note that the conditional script can contain nested Lua[ ]Lua code.
        read_options(s, true);
    }
    return (0);
}
static int crawl_read_options(lua_State *ls)
{
    if (!lua_isstring(ls, 1))
        return (0);
    const char* filename = lua_tostring(ls, 1);
    Options.include(filename, true, true);
    return (0);
}
static int crawl_bindkey(lua_State *ls)
{
    const char *s = NULL;
    if (lua_isstring(ls, 1))
    {
        s = lua_tostring(ls, 1);
    }
    if (!s || !lua_isfunction(ls, 2) || lua_gettop(ls) != 2)
        return (0);
    lua_pushvalue(ls, 2);
    std::string name = clua.setuniqregistry();
    if (lua_gettop(ls) != 2)
    {
        fprintf(stderr, "Stack top has changed!\n");
        lua_settop(ls, 2);
    }
    macro_userfn(s, name.c_str());
    return (0);
}
static int crawl_msgch_num(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    int ch = str_to_channel(s);
    if (ch == -1)
        return (0);
    lua_pushnumber(ls, ch);
    return (1);
}
static int crawl_msgch_name(lua_State *ls)
{
    int num = luaL_checkint(ls, 1);
    std::string name = channel_to_str(num);
    lua_pushstring(ls, name.c_str());
    return (1);
}
static int crawl_take_note(lua_State *ls)
{
    const char* msg = luaL_checkstring(ls, 1);
    take_note(Note(NOTE_MESSAGE, 0, 0, msg));
    return (0);
}
#define REGEX_METATABLE "crawl.regex"
#define MESSF_METATABLE "crawl.messf"
static int crawl_regex(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    text_pattern **tpudata =
            clua_new_userdata< text_pattern* >(ls, REGEX_METATABLE);
    if (tpudata)
    {
        *tpudata = new text_pattern(s);
        return (1);
    }
    return (0);
}
static int crawl_regex_find(lua_State *ls)
{
    text_pattern **pattern =
            clua_get_userdata< text_pattern* >(ls, REGEX_METATABLE);
    if (!pattern)
        return (0);
    const char *text = luaL_checkstring(ls, -1);
    if (!text)
        return (0);
    lua_pushboolean(ls, (*pattern)->matches(text));
    return (1);
}
static const luaL_reg crawl_regex_ops[] =
{
    { "matches",        crawl_regex_find },
    { NULL, NULL }
};
static int crawl_message_filter(lua_State *ls)
{
    const char *pattern = luaL_checkstring(ls, 1);
    if (!pattern)
        return (0);
    int num = lua_isnumber(ls, 2)? luaL_checkint(ls, 2) : -1;
    message_filter **mf =
            clua_new_userdata< message_filter* >( ls, MESSF_METATABLE );
    if (mf)
    {
        *mf = new message_filter( num, pattern );
        return (1);
    }
    return (0);
}
static int crawl_messf_matches(lua_State *ls)
{
    message_filter **mf =
            clua_get_userdata< message_filter* >(ls, MESSF_METATABLE);
    if (!mf)
        return (0);
    const char *pattern = luaL_checkstring(ls, 2);
    int ch = luaL_checkint(ls, 3);
    if (pattern)
    {
        bool filt = (*mf)->is_filtered(ch, pattern);
        lua_pushboolean(ls, filt);
        return (1);
    }
    return (0);
}
static const luaL_reg crawl_messf_ops[] =
{
    { "matches",        crawl_messf_matches },
    { NULL, NULL }
};
static int crawl_trim(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s)
        return (0);
    std::string text = s;
    trim_string(text);
    lua_pushstring(ls, text.c_str());
    return (1);
}
static int crawl_split(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1),
               *token = luaL_checkstring(ls, 2);
    if (!s || !token)
        return (0);
    std::vector<std::string> segs = split_string(token, s);
    lua_newtable(ls);
    for (int i = 0, count = segs.size(); i < count; ++i)
    {
        lua_pushstring(ls, segs[i].c_str());
        lua_rawseti(ls, -2, i + 1);
    }
    return (1);
}
static int _crawl_grammar(lua_State *ls)
{
    description_level_type ndesc = DESC_PLAIN;
    if (lua_isstring(ls, 2))
        ndesc = description_type_by_name(lua_tostring(ls, 2));
    PLUARET(string,
            thing_do_grammar(ndesc, false,
                             false, luaL_checkstring(ls, 1)).c_str());
}
static int crawl_article_a(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    bool lowercase = true;
    if (lua_isboolean(ls, 2))
        lowercase = lua_toboolean(ls, 2);
    lua_pushstring(ls, article_a(s, lowercase).c_str());
    return (1);
}
LUARET1(crawl_game_started, boolean, crawl_state.need_save)
LUARET1(crawl_random2, number, random2( luaL_checkint(ls, 1) ))
LUARET1(crawl_one_chance_in, boolean, one_chance_in( luaL_checkint(ls, 1) ))
LUARET1(crawl_random2avg, number,
        random2avg( luaL_checkint(ls, 1), luaL_checkint(ls, 2) ))
LUARET1(crawl_random_range, number,
        random_range( luaL_checkint(ls, 1), luaL_checkint(ls, 2),
                      lua_isnumber(ls, 3)? luaL_checkint(ls, 3) : 1 ))
LUARET1(crawl_coinflip, boolean, coinflip())
LUARET1(crawl_roll_dice, number,
        lua_gettop(ls) == 1
        ? roll_dice( 1, luaL_checkint(ls, 1) )
        : roll_dice( luaL_checkint(ls, 1), luaL_checkint(ls, 2) ))
static int crawl_random_element(lua_State *ls)
{
    const int table_idx = 1;
    const int value_idx = 2;
    if (lua_gettop(ls) == 0)
    {
        lua_pushnil(ls);
        return 1;
    }
    // Only the first arg does anything now.  Maybe this should
    // select from a variable number of table args?
    lua_pop(ls, lua_gettop(ls) - 1);
    // Keep max value on the stack, as it could be any type of value.
    lua_pushnil(ls);
    int rollsize = 0;
    lua_pushnil(ls);
    while (lua_next(ls, table_idx) != 0)
    {
        const int weight_idx = -1;
        const int key_idx = -2;
        int this_weight = lua_isnil(ls, weight_idx) ?
            1 : (int)lua_tonumber(ls, weight_idx);
        if (rollsize > 0)
        {
            rollsize += this_weight;
            if (x_chance_in_y(this_weight, rollsize))
            {
                lua_pushvalue(ls, key_idx);
                lua_replace(ls, value_idx);
            }
        }
        else
        {
            lua_pushvalue(ls, key_idx);
            lua_replace(ls, value_idx);
            rollsize = this_weight;
        }
        lua_pop(ls, 1);
    }
    lua_pushvalue(ls, value_idx);
    return 1;
}
static int crawl_err_trace(lua_State *ls)
{
    const int nargs = lua_gettop(ls);
    const int err = lua_pcall(ls, nargs - 1, LUA_MULTRET, 0);
    if (err)
    {
        // This code from lua.c:traceback() (mostly)
        const char *errs = lua_tostring(ls, 1);
        std::string errstr = errs? errs : "";
        lua_getfield(ls, LUA_GLOBALSINDEX, "debug");
        if (!lua_istable(ls, -1))
        {
            lua_pop(ls, 1);
            return lua_error(ls);
        }
        lua_getfield(ls, -1, "traceback");
        if (!lua_isfunction(ls, -1))
        {
            lua_pop(ls, 2);
            return lua_error(ls);
        }
        lua_pushvalue(ls, 1);
        lua_pushinteger(ls, 2); // Skip crawl_err_trace and traceback.
        lua_call(ls, 2, 1);
        // What's on top should be the error.
        lua_error(ls);
    }
    return (lua_gettop(ls));
}
static const struct luaL_reg crawl_lib[] =
{
    { "mpr",            crawl_mpr },
    { "formatted_mpr",  crawl_formatted_mpr },
    { "more",           crawl_more },
    { "mesclr",         crawl_mesclr },
    { "random2",        crawl_random2 },
    { "one_chance_in",  crawl_one_chance_in },
    { "random2avg"   ,  crawl_random2avg },
    { "coinflip",       crawl_coinflip },
    { "roll_dice",      crawl_roll_dice },
    { "random_range",   crawl_random_range },
    { "random_element", crawl_random_element },
    { "redraw_screen",  crawl_redraw_screen },
    { "input_line",     crawl_input_line },
    { "c_input_line",   crawl_c_input_line},
    { "getch",          crawl_getch },
    { "yesno",          crawl_yesno },
    { "yesnoquit",      crawl_yesnoquit },
    { "kbhit",          crawl_kbhit },
    { "flush_input",    crawl_flush_input },
    { "sendkeys",       crawl_sendkeys },
    { "process_command", crawl_process_command },
    { "playsound",      crawl_playsound },
    { "runmacro",       crawl_runmacro },
    { "bindkey",        crawl_bindkey },
    { "setopt",         crawl_setopt },
    { "read_options",   crawl_read_options },
    { "msgch_num",      crawl_msgch_num },
    { "msgch_name",     crawl_msgch_name },
    { "take_note",      crawl_take_note },
    { "regex",          crawl_regex },
    { "message_filter", crawl_message_filter },
    { "trim",           crawl_trim },
    { "split",          crawl_split },
    { "grammar",        _crawl_grammar },
    { "article_a",      crawl_article_a },
    { "game_started",   crawl_game_started },
    { "err_trace",      crawl_err_trace },
    { NULL, NULL },
};
void luaopen_crawl(lua_State *ls)
{
    clua_register_metatable(ls, REGEX_METATABLE, crawl_regex_ops,
                            lua_object_gc<text_pattern>);
    clua_register_metatable(ls, MESSF_METATABLE, crawl_messf_ops,
                            lua_object_gc<message_filter>);
    luaL_openlib(ls, "crawl", crawl_lib, 0);
}

Move clua crawl_lib from clua to l_crawl.cc.

Dependencies

In channels

Change contents

Replacement in crawl-ref/source/l_you.cc at line 44 [8.2866]

Replacement in crawl-ref/source/l_mapmrk.cc at line 24 [9.2870]

Replacement in crawl-ref/source/l_mapmrk.cc at line 33 [9.2870]

Replacement in crawl-ref/source/l_los.cc at line 44 [10.4668]

Replacement in crawl-ref/source/l_los.cc at line 91 [10.4668]

Replacement in crawl-ref/source/l_los.cc at line 103 [10.4668]

Insertion in crawl-ref/source/l_libs.h at line 12 [12.2907]

Replacement in crawl-ref/source/l_libs.h at line 22 [12.2907]

Insertion in crawl-ref/source/l_libs.h at line 43 [12.2907]

Replacement in crawl-ref/source/l_file.cc at line 129 [12.3210]

Replacement in crawl-ref/source/l_dgntil.cc at line 147 [4.2861]

Replacement in crawl-ref/source/l_dgnmon.cc at line 256 [15.3115]

Replacement in crawl-ref/source/l_dgnlvl.cc at line 145 [16.2973]

Replacement in crawl-ref/source/l_dgnit.cc at line 89 [15.9944]

Replacement in crawl-ref/source/l_dgngrd.cc at line 230 [5.3004]

Replacement in crawl-ref/source/l_dgnevt.cc at line 52 [17.2919]

Replacement in crawl-ref/source/l_dgnevt.cc at line 65 [17.2919]

Replacement in crawl-ref/source/l_dgnevt.cc at line 122 [17.2919]

Replacement in crawl-ref/source/l_dgnbld.cc at line 341 [13.2992]

Replacement in crawl-ref/source/l_dgn.cc at line 1494 [21.1232]

Replacement in crawl-ref/source/l_debug.cc at line 73 [6.3308]

Insertion in crawl-ref/source/l_crawl.cc at line 1 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 8 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 11 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 18 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 29 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 39 [23.2870]

Replacement in crawl-ref/source/l_crawl.cc at line 660 [23.2870]

Insertion in crawl-ref/source/l_crawl.cc at line 672 [23.2870]

Replacement in crawl-ref/source/dlua.cc at line 309 [20.19392]

Replacement in crawl-ref/source/dlua.cc at line 320 [20.19392]

Insertion in crawl-ref/source/clua.cc at line 12 [25.483969]

Deletion in crawl-ref/source/clua.cc at line 597 [25.483969]

Replacement in crawl-ref/source/clua.cc at line 626 [25.483969]

Deletion in crawl-ref/source/clua.cc at line 1785 [25.483969]

Deletion in crawl-ref/source/clua.cc at line 1787 [25.483969]

Deletion in crawl-ref/source/clua.cc at line 1788 [25.483969]