Function autobutcher_getWatchList

plugins/autobutcher.cpp:922–975

push the watchlist vector as nested table on the lua stack

// push the watchlist vector as nested table on the lua stack
static int autobutcher_getWatchList(lua_State *L) {
    color_ostream *out = Lua::GetOutput(L);
    if (!out)
        out = &Core::getInstance().getConsole();

    lua_newtable(L);
    int entry_index = 0;
    for (auto wr : watched_races) {
        lua_newtable(L);
        int ctable = lua_gettop(L);

        WatchedRace * w = wr.second;
        int id = w->raceId;
        Lua::SetField(L, id, ctable, "id");
        Lua::SetField(L, w->isWatched, ctable, "watched");
        Lua::SetField(L, Units::getRaceNamePluralById(id), ctable, "name");
        Lua::SetField(L, w->fk, ctable, "fk");
        Lua::SetField(L, w->mk, ctable, "mk");
        Lua::SetField(L, w->fa, ctable, "fa");
        Lua::SetField(L, w->ma, ctable, "ma");

        WatchedRace *tally = checkRaceStocksTotal(*out, id);
        Lua::SetField(L, tally->fk_units.size(), ctable, "fk_total");
        Lua::SetField(L, tally->mk_units.size(), ctable, "mk_total");
        Lua::SetField(L, tally->fa_units.size(), ctable, "fa_total");
        Lua::SetField(L, tally->ma_units.size(), ctable, "ma_total");
        delete tally;

        tally = checkRaceStocksProtected(*out, id);
        Lua::SetField(L, tally->fk_units.size(), ctable, "fk_protected");
        Lua::SetField(L, tally->mk_units.size(), ctable, "mk_protected");
        Lua::SetField(L, tally->fa_units.size(), ctable, "fa_protected");
        Lua::SetField(L, tally->ma_units.size(), ctable, "ma_protected");
        delete tally;

        tally = checkRaceStocksButcherable(*out, id);
        Lua::SetField(L, tally->fk_units.size(), ctable, "fk_butcherable");
        Lua::SetField(L, tally->mk_units.size(), ctable, "mk_butcherable");
        Lua::SetField(L, tally->fa_units.size(), ctable, "fa_butcherable");
        Lua::SetField(L, tally->ma_units.size(), ctable, "ma_butcherable");
        delete tally;

        tally = checkRaceStocksButcherFlag(*out, id);
        Lua::SetField(L, tally->fk_units.size(), ctable, "fk_butcherflag");
        Lua::SetField(L, tally->mk_units.size(), ctable, "mk_butcherflag");
        Lua::SetField(L, tally->fa_units.size(), ctable, "fa_butcherflag");
        Lua::SetField(L, tally->ma_units.size(), ctable, "ma_butcherflag");
        delete tally;

        lua_rawseti(L, -2, ++entry_index);
    }

    return 1;
}

DFHACK_PLUGIN_LUA_FUNCTIONS {
    DFHACK_LUA_FUNCTION(autowatch_isEnabled),