ar.c

#include <archive.h>
#include <archive_entry.h>
#include <ctype.h>
#include <lauxlib.h>
#include <lua.h>
#include <stdlib.h>
#include <string.h>

#include "ar_registry.h"
#include "ar_read.h"
#include "ar_write.h"
#include "ar_entry.h"

//////////////////////////////////////////////////////////////////////
static int ar_version(lua_State *L) {
    const char* version = archive_version_string();
    int         count   = strlen(version) + 1;
    char*       cur     = (char*)memcpy(lua_newuserdata(L, count),
                                        version, count);

    count = 0;
    while ( *cur ) {
        char* begin = cur;
        // Find all digits:
        while ( isdigit(*cur) ) cur++;
        if ( begin != cur ) {
            int is_end = *cur == '\0';
            *cur = '\0';
            lua_pushnumber(L, atoi(begin));
            count++;
            if ( is_end ) break;
            cur++;
        }
        while ( *cur && ! isdigit(*cur) ) cur++;
    }

    return count;
}

//////////////////////////////////////////////////////////////////////
LUALIB_API int luaopen_archive(lua_State *L) {
    static luaL_Reg fns[] = {
        { "version",     ar_version },
        { NULL, NULL }
    };
    lua_newtable(L);
    luaL_register(L, NULL, fns);

    ar_registry_init(L);
    ar_read_init(L);
    ar_write_init(L);
    ar_entry_init(L);

    return 1;
}