Function db_csv_to_table

lua/sp.c:3984–4025

** local csv=[[a,b,"hello, world!","is ""quoted"" back there"]] ** local tbl = db:csv_to_table(csv) ** => #tbl = 4 ** tbl[1] = a ** tbl[2] = b ** tbl[3] = hello, world! ** tbl[4] = is "quoted" back there */

**    tbl[4] = is "quoted" back there
*/
static int db_csv_to_table(Lua L)
{
    luaL_checkudata(L, 1, dbtypes.db);
    lua_remove(L, 1);

    CSVReader csv = {0};
    csv.in = luaL_checkstring(L, 1);
    csv.nLine = 1;
    csv.lua = L;
    csv.cSeparator = ',';
    csv_append_char(&csv, 0); /* To ensure sCsv.z is allocated */

    lua_newtable(L);
    int cols = 0, lines = 0;
    lua_newtable(L);
    while (csv_read_one_field(&csv)) {
        lua_pushstring(L, csv.z);
        lua_rawseti(L, -2, ++cols);
        if (csv.cTerm != csv.cSeparator) {
            lua_rawseti(L, -2, ++lines);
            if (csv.cTerm == 0) break;
            cols = 0;
            lua_newtable(L);
        }
    }
    free(csv.z);
    // Expected Lua stack:
    //   2: Array of parsed values
    //   1: CSV string
    if (lua_gettop(L) > 2) { // clean up any left-overs
        if (cols) {
            lua_rawseti(L, -2, ++lines);
        } else {
            lua_pop(L, 1); //new-line (EOF)
        }
    }
    if (lua_gettop(L) != 2) {
        return luaL_error(L, "csv_to_table failed");
    }
    if (lines == 1) lua_rawgeti(L, -1, 1);
    return 1;
}

static int cson_to_table_annotated(Lua, cson_value *, int);
static int db_json_to_table(Lua lua)