lua 文件编译相关工具

-- 编译一个代码文件
-- loadfile (lua_State *L, const char *filename);
-- 将一个文件加载为lua代码块,仅编译不执行,返回值为编译后的
-- 代码块函数和错误信息。
function COMPILE(file)
    local fun, err = loadfile(file);
    return fun;
end

-- 编译并运行一个代码文件
function LOAD_RUN(file)
    return require(file);
end

-- 载入一个目录下的所有代码文件(list.lua指明了有哪些文件)
function LOAD_PATH(path)
    -- 取得list.lua的地址
    local listPath = path .. "/" .. "list";

    -- 加载list，需要加载的所有文件名字
    local fileNames = LOAD_RUN(listPath);

    -- 进行加载
    local file = {};
    for i = 1, #fileNames do
        local bin = path .. "/" .. fileNames[i];
        file[fileNames[i]] = LOAD_RUN(bin);
    end
    return file;
end

-- 卸载目录下的所有文件
function UNLOAD_PATH(path)
   local listPath  = path .. "/" .. "list";
   local fileNames = LOAD_RUN(listPath);
   local file = {};
   for i = 1, #fileNames do
        -- 设置已经被加载的fileNames[i]为空
       package.loaded[path .. "/" .. fileNames[i]] = nil;
   end

   -- 回收内存（"collect"做一次完整的垃圾收集循环）
   collectgarbage("collect");
end

-- 重新载入某个文件
function update(file)
    local pos = string.find(file,"[^%/.]*$");
    local module_name = string.sub(file, pos);
    local mod = package.loaded[module_name];
    if not mod then
        mod = package.loaded[module_name.."M"];
    end

    -- 若该文件为模块，且存在 destruct 方法，则先调用析构方法，再重新加载
    if type(mod) == "table" and type(mod.destruct) == "function" then
        mod.destruct();
    end

    package.loaded[file] = false;
    local ret = require(file);

    mod = package.loaded[module_name];
    if not mod then
        mod = package.loaded[module_name.."M"];
    end

    -- 若该文件为模块，且存在 destruct 方法，则先调用析构方法，再重新加载
    if type(mod) == "table" and type(mod.init) == "function" then
        mod.init();
    end

    -- 回收垃圾
    -- 无须开启 gc，否则会导致客户端启动速度变慢，见 SLIMEC-7396
    --collectgarbage("collect");
    return ret;
end

-- 使用代码更新指定文件
function updateByScript(file, script)
    local pos = string.find(file,"[^%/.]*$");
    local module_name = string.sub(file, pos);
    local mod = package.loaded[module_name];
    if not mod then
        mod = package.loaded[module_name.."M"];
    end

    -- 若该文件为模块，且存在 destruct 方法，则先调用析构方法，再重新加载
    if type(mod) == "table" and type(mod.destruct) == "function" then
        mod.destruct();
    end
    package.loaded[file] = false;

    -- 载入
    local ret = loadstring(script)();

    -- 若该文件为模块，且存在 destruct 方法，则先调用析构方法，再重新加载
    mod = package.loaded[module_name];
    if not mod then
        mod = package.loaded[module_name.."M"];
    end

    if type(mod) == "table" and type(mod.init) == "function" then
        mod.init();
    end

    -- 回收垃圾
    --collectgarbage("collect");

    return ret;
end

-- 重新载入一个目录下的所有代码文件(list.lua指明了有哪些文件)
function RRLOAD_PATH(path)
    local listPath  = path .. "/" .. "list";
    local fileNames = LOAD_RUN(listPath);
    local file      = {};
    for i = 1, #fileNames do
        package.loaded[path .. "/" .. fileNames[i]] = nil;
        local bin = update(path .. "/" .. fileNames[i]);
        file[fileNames[i]] = bin;
    end
    return file;
end