add file.create_zip(...)

src/io/devices/ZipFileDevice.cpp

@@ -392,7 +392,7 @@ static size_t write_zip(
 ) {
     size_t entries = 0;
     for (const auto& entry : io::directory_iterator(folder)) {
-        auto name = entry.pathPart().substr(root.length() + 1);
+        auto name = entry.pathPart().substr(root.length());
         auto last_write_time = io::last_write_time(entry);
         if (io::is_directory(entry)) {
             name = name + "/";

src/logic/scripting/lua/libs/libfile.cpp

@@ -6,6 +6,7 @@
 #include "engine/Engine.hpp"
 #include "io/engine_paths.hpp"
 #include "io/io.hpp"
+#include "io/devices/ZipFileDevice.hpp"
 #include "util/stringutil.hpp"
 #include "api_lua.hpp"
 #include "../lua_engine.hpp"
@@ -249,6 +250,16 @@ static int l_unmount(lua::State* L) {
     return 0;
 }
 
+static int l_create_zip(lua::State* L) {
+    io::path folder = lua::require_string(L, 1);
+    io::path outFile = lua::require_string(L, 2);
+    if (!is_writeable(outFile.entryPoint())) {
+        throw std::runtime_error("access denied");
+    }
+    io::write_zip(folder, outFile);
+    return 0;
+}
+
 const luaL_Reg filelib[] = {
     {"exists", lua::wrap<l_exists>},
     {"find", lua::wrap<l_find>},
@@ -272,5 +283,6 @@ const luaL_Reg filelib[] = {
     {"is_writeable", lua::wrap<l_is_writeable>},
     {"mount", lua::wrap<l_mount>},
     {"unmount", lua::wrap<l_unmount>},
+    {"create_zip", lua::wrap<l_create_zip>},
     {NULL, NULL}
 };