/usr/share/lua/5.1/lgi/package.lua is in lua-lgi 0.9.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ------------------------------------------------------------------------------
--
-- LGI Support for repository packages (namespaces with classes
-- overriden in lgi)
--
-- Copyright (c) 2012 Pavel Holejsovsky
-- Licensed under the MIT license:
-- http://www.opensource.org/licenses/mit-license.php
--
------------------------------------------------------------------------------
local rawget, setmetatable, assert, error
= rawget, setmetatable, assert, error
local core = require 'lgi.core'
-- Repo package metatable.
local package = { mt = {} }
package.mt.__index = package.mt
-- There is no lazy-loading, but define _resolve to do nothing to
-- achieve API compatibility with GI-based namespaces.
function package.mt:_resolve(recurse)
return self
end
-- Defines new class, deriving from existing one. If the class
-- already exists, does nothing and returns nil, otherwise returns
-- newly created class type.
function package.mt:class(name, parent, ...)
if self[name] then return nil end
local class = parent:derive(self._name .. '.' .. name, ...)
self[name] = class
return class
end
-- Makes sure that given package exists, creates it if it does not.
function package.ensure(name, version)
local ns = rawget(core.repo, name)
if not ns then
ns = setmetatable({ _name = name, _version = version }, package.mt)
core.repo[name] = ns
else
if version and ns._version and version ~= nv._version then
error(("%s-%s: required version %s "):format(
ns._name, ns._version, version))
end
end
return ns
end
return package
|