smh

Lua/rpbot/deps/resource.lua

@@ -0,0 +1,88 @@
+--[[
+
+Copyright 2014-2016 The Luvit Authors. All Rights Reserved.
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS-IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.
+
+--]]
+
+--[[lit-meta
+  name = "luvit/resource"
+  version = "2.1.0"
+  license = "Apache 2"
+  homepage = "https://github.com/luvit/luvit/blob/master/deps/resource.lua"
+  description = "Utilities for loading relative resources"
+  dependencies = {
+    "creationix/pathjoin@2.0.0"
+  }
+  tags = {"luvit", "relative", "resource"}
+]]
+
+local pathJoin = require('pathjoin').pathJoin
+local bundle = require('luvi').bundle
+local uv = require('uv')
+
+local function getPath()
+  local caller = debug.getinfo(2, "S").source
+  if caller:sub(1,1) == "@" then
+    return caller:sub(2)
+  elseif caller:sub(1, 7) == "bundle:" then
+    return caller
+  end
+  error("Unknown file path type: " .. caller)
+end
+
+local function getDir()
+  local caller = debug.getinfo(2, "S").source
+  if caller:sub(1,1) == "@" then
+    return pathJoin(caller:sub(2), "..")
+  elseif caller:sub(1, 7) == "bundle:" then
+    return "bundle:" .. pathJoin(caller:sub(8), "..")
+  end
+  error("Unknown file path type: " .. caller)
+end
+
+local function innerResolve(path, resolveOnly)
+  local caller = debug.getinfo(2, "S").source
+  if caller:sub(1,1) == "@" then
+    path = pathJoin(caller:sub(2), "..", path)
+    if resolveOnly then return path end
+    local fd = assert(uv.fs_open(path, "r", 420))
+    local stat = assert(uv.fs_fstat(fd))
+    local data = assert(uv.fs_read(fd, stat.size, 0))
+    uv.fs_close(fd)
+    return data, path
+  elseif caller:sub(1, 7) == "bundle:" then
+    path = pathJoin(caller:sub(8), "..", path)
+    if resolveOnly then return path end
+    return bundle.readfile(path), "bundle:" .. path
+  end
+end
+
+local function resolve(path)
+  return innerResolve(path, true)
+end
+
+local function load(path)
+  return innerResolve(path, false)
+end
+
+local function getProp(self, key)
+  if key == "path" then return getPath() end
+  if key == "dir" then return getDir() end
+end
+
+return setmetatable({
+  resolve = resolve,
+  load = load,
+}, { __index = getProp })