Binary Modules Loader

module(..., package.seeall)



local function load(modulename)

  local errmsg = ""

  -- Find DLL

  local symbolname = string.gsub(modulename, "%.", "_")

  local modulepath = string.gsub(modulename, "%.", "/")

  for path in string.gmatch(package.cpath, "([^;]+)") do

    local filename = string.gsub(path, "%?", modulepath)

    local file = io.open(filename, "rb")

    if file then

      file:close()

      -- Load and return the module loader

      local loader,msg = package.loadlib(filename, "luaopen_"..symbolname)

      if not loader then

        error("error loading module '"..modulename.."' from file '"..path.."':\n\t"..msg, 3)

      end

      return loader

    end

    errmsg = errmsg.."\n\tno file '"..filename.."' (checked with custom loader)"

  end

  return errmsg

end



-- Install the loader so that it's called just before the normal binary loader

table.insert(package.loaders, 3, load)