rufus-lua-win 5.1.5

data/vendor/lua/lib/lua/modules.lua

@@ -0,0 +1,16 @@
+return {
+  "debug_init",
+  --"strict",
+  "base",
+  "package_ext",
+  "debug_ext",
+  "table_ext",
+  "list",
+  "tree",
+  "string_ext",
+  "math_ext",
+  "io_ext",
+  "getopt",
+  "set",
+  "strbuf",
+}

data/vendor/lua/lib/lua/object.lua

@@ -0,0 +1,56 @@
+--- Prototype-based objects
+-- <ul>
+--   <li>Create an object/class:</li>
+--   <ul>
+--     <li>Either, if the <code>_init</code> field is a list:
+--     <ul>
+--       <li><code>object/Class = prototype {value, ...; field = value, ...}</code></li>
+--       <li>Named values are assigned to the corresponding fields, and unnamed values
+--       to the fields given by <code>_init</code>.</li>
+--     </ul>
+--     <li>Or, if the <code>_init</code> field is a function:
+--     <ul>
+--       <li><code>object/Class = prototype (value, ...)</code></li>
+--       <li>The given values are passed as arguments to the <code>_init</code> function.</li>
+--     </ul>
+--     <li>An object's metatable is itself.</li>
+--     <li>Private fields and methods start with "<code>_</code>".</li>
+--   </ul>
+--   <li>Access an object field: <code>object.field</code></li>
+--   <li>Call an object method: <code>object:method (...)</code></li>
+--   <li>Call a class method: <code>Class.method (object, ...)</code></li>
+--   <li>Add a field: <code>object.field = x</code></li>
+--   <li>Add a method: <code>function object:method (...) ... end</code></li>
+-- </li>
+module ("object", package.seeall)
+
+require "table_ext"
+
+
+--- Root object
+-- @class table
+-- @name Object
+-- @field _init constructor method or list of fields to be initialised by the
+-- constructor
+-- @field _clone object constructor which provides the behaviour for <code>_init</code>
+-- documented above
+_G.Object = {
+  _init = {},
+
+  _clone = function (self, ...)
+    local object = table.clone (self)
+    if type (self._init) == "table" then
+      table.merge (object, table.clone_rename (self._init, ...))
+    else
+      object = self._init (object, ...)
+    end
+    return setmetatable (object, object)
+  end,
+
+  -- Sugar instance creation
+  __call = function (...)
+    -- First (...) gets first element of list
+    return (...)._clone (...)
+  end,
+}
+setmetatable (Object, Object)

data/vendor/lua/lib/lua/oil/Exception.lua

@@ -0,0 +1,26 @@
+package.loaded["oil.Exception"] = require "loop.object.Exception"
+
+--
+--
+--local Exception = require "loop.object.Exception"
+--local Viewer    = require "loop.debug.Viewer"
+--
+--local oo = require "oil.oo"
+--
+--module("oil.Exception", oo.class)
+--
+--__init = Exception.__init
+--
+--__concat = Exception.__concat
+--
+--local replaced = "%s %s"
+--function __tostring(self)
+--	local message = self.message
+--	self.message = message:gsub("[%a_][%w_]*", function(tag)
+--		local value = self[tag]
+--		return value and replaced:format(tag, Viewer:tostring(value))
+--	end)
+--	message, self.message = Exception.__tostring(self), message
+--	return message
+--end
+--

data/vendor/lua/lib/lua/oil/arch.lua

@@ -0,0 +1,27 @@
+local assert       = assert
+local getmetatable = getmetatable
+local setmetatable = setmetatable
+local setfenv      = setfenv                                                    --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch"
+
+none = setmetatable({}, { __newindex = function() end })
+
+local Environment = {
+	__index = function(self, name)
+		return none
+	end,
+}
+
+function start(comps, level)
+	assert(getmetatable(comps) == nil, "component table cannot have a metatable")
+	setmetatable(comps, Environment)
+	setfenv(1+(level or 1), comps)
+	return comps
+end
+
+function finish(comps)
+	assert(getmetatable(comps) == Environment, "wrong component table")
+	setmetatable(comps, nil)
+	return comps
+end

data/vendor/lua/lib/lua/oil/arch/basic/client.lua

@@ -0,0 +1,29 @@
+local ipairs = ipairs
+
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+
+module "oil.arch.basic.client"
+
+ProxyManager = component.Template{
+	proxies   = port.Facet,
+	requester = port.Receptacle,
+	referrer  = port.Receptacle,
+	servants  = port.Receptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	ProxyManager.requester = OperationRequester.requests
+	ProxyManager.referrer  = ObjectReferrer.references
+	ProxyManager.servants  = ServantManager.servants
+	
+	for _, proxykind in ipairs(extraproxies) do
+		local ProxyManager = extraproxies[proxykind]
+		ProxyManager.requester = OperationRequester.requests
+		ProxyManager.referrer  = ObjectReferrer.references
+		ProxyManager.servants  = ServantManager.servants
+	end
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/basic/common.lua

@@ -0,0 +1,13 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+
+module "oil.arch.basic.common"
+
+-- UNDERPINNINGS
+SocketChannels = component.Template{
+	channels = port.Facet,
+	sockets  = port.Receptacle,
+}
+BasicSystem = component.Template{
+	sockets = port.Facet,
+}

data/vendor/lua/lib/lua/oil/arch/basic/server.lua

@@ -0,0 +1,27 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"                                            --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.basic.server"
+
+ServantManager = component.Template{
+	servants   = port.Facet,
+	dispatcher = port.Facet,
+	referrer   = port.Receptacle,
+}
+RequestReceiver = component.Template{
+	acceptor   = port.Facet,
+	dispatcher = port.Receptacle,
+	listener   = port.Receptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	ServantManager.referrer    = ObjectReferrer.references
+	RequestReceiver.dispatcher = ServantManager.dispatcher
+	RequestReceiver.listener   = RequestListener.requests
+	
+	-- define 'pcall' used in invocation dispatching.
+	ServantManager.dispatcher.pcall = BasicSystem.pcall
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/cooperative/common.lua

@@ -0,0 +1,10 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local base      = require "oil.arch.basic.common"                               --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.cooperative.common"
+
+BasicSystem = component.Template({
+	control = port.Facet,
+	tasks   = port.Facet,
+}, base.BasicSystem)

data/vendor/lua/lib/lua/oil/arch/cooperative/server.lua

@@ -0,0 +1,16 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+local base      = require "oil.arch.basic.server"                                --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.cooperative.server"
+
+RequestReceiver = component.Template({
+	tasks = port.Receptacle,
+}, base.RequestReceiver)
+
+function assemble(components)
+	arch.start(components)
+	RequestReceiver.tasks  = BasicSystem.tasks
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/corba/client.lua

@@ -0,0 +1,39 @@
+local pairs = pairs
+
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"                                            --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.corba.client"
+
+OperationRequester = component.Template{
+	requests  = port.Facet,
+	codec     = port.Receptacle,
+	profiler  = port.HashReceptacle,
+	channels  = port.HashReceptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	
+	-- GIOP MAPPINGS
+	local IOPClientChannels  = { [0] = ClientChannels }
+	
+	-- REQUESTER
+	OperationRequester.codec = CDREncoder.codec
+	OperationRequester.pcall = BasicSystem.pcall -- to catch marshal errors
+
+	-- COMMUNICATION
+	for tag, ClientChannels in pairs(IOPClientChannels) do
+		ClientChannels.sockets           = BasicSystem.sockets
+		OperationRequester.channels[tag] = ClientChannels.channels
+	end
+	
+	-- REFERENCES
+	ObjectReferrer.requester  = OperationRequester.requests
+	for tag, IORProfiler in pairs(IORProfilers) do
+		OperationRequester.profiler[0] = IIOPProfiler
+	end
+	
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/corba/common.lua

@@ -0,0 +1,58 @@
+local pairs = pairs
+
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+local base      = require "oil.arch.typed.common"
+local sysex     = require "oil.corba.idl.sysex"                                 --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.corba.common"
+
+-- TYPES
+TypeRepository = component.Template({
+	registry  = port.Facet,
+	compiler  = port.Facet,
+	delegated = port.Receptacle,
+}, base.TypeRepository)
+
+-- MARSHALING
+ValueEncoder = component.Template{
+	codec    = port.Facet,
+	proxies  = port.Receptacle,
+	servants = port.Receptacle,
+	types    = port.Receptacle,
+}
+
+-- REFERENCES
+ReferenceProfiler = component.Template{
+	profiler = port.Facet,
+	codec    = port.Receptacle,
+}
+ObjectReferrer = component.Template{
+	references = port.Facet,
+	codec      = port.Receptacle,
+	requester  = port.Receptacle,
+	profiler   = port.HashReceptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	
+	-- IDL DEFINITIONS
+	TypeRepository.types:register(sysex)
+	
+	-- MARSHALING
+	CDREncoder.proxies   = ProxyManager.proxies
+	CDREncoder.servants  = ServantManager.servants
+	CDREncoder.types     = TypeRepository.types
+
+	-- REFERENCES
+	ObjectReferrer.codec      = CDREncoder.codec
+	ObjectReferrer.servants   = ServantManager.servants
+	for tag, IORProfiler in pairs(IORProfilers) do
+		IORProfiler.codec            = CDREncoder.codec
+		ObjectReferrer.profiler[tag] = IORProfiler.profiler
+	end
+	
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/corba/intercepted/client.lua

@@ -0,0 +1,9 @@
+local port = require "oil.port"
+local comp = require "oil.component"
+local base = require "oil.arch.corba.client"
+
+module "oil.arch.corba.intercepted.client"
+
+OperationRequester = comp.Template({
+	interceptor = port.Receptacle
+}, base.OperationRequester)

data/vendor/lua/lib/lua/oil/arch/corba/intercepted/server.lua

@@ -0,0 +1,9 @@
+local port = require "oil.port"
+local comp = require "oil.component"
+local base = require "oil.arch.corba.server"
+
+module "oil.arch.corba.intercepted.server"
+
+RequestListener = comp.Template({
+	interceptor = port.Receptacle,
+}, base.RequestListener)

data/vendor/lua/lib/lua/oil/arch/corba/server.lua

@@ -0,0 +1,35 @@
+local pairs = pairs
+
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"                                            --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.arch.corba.server"
+
+RequestListener = component.Template{
+	requests = port.Facet,
+	codec    = port.Receptacle,
+	servants = port.Receptacle,
+	channels = port.HashReceptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	
+	-- GIOP MAPPINGS
+	local IOPServerChannels  = { [0] = ServerChannels }
+	
+	-- LISTENER
+	RequestListener.codec    = CDREncoder.codec
+	RequestListener.servants = ServantManager.servants
+	RequestListener.indexer  = TypeRepository.indexer
+	RequestListener.pcall    = BasicSystem.pcall -- to catch marshal errors
+	
+	-- COMMUNICATION
+	for tag, ServerChannels in pairs(IOPServerChannels) do
+		ServerChannels.sockets        = BasicSystem.sockets
+		RequestListener.channels[tag] = ServerChannels.channels
+	end
+	
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/ludo/byref.lua

@@ -0,0 +1,18 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+
+module "oil.arch.ludo.byref"
+
+ValueEncoder = component.Template{
+	codec    = port.Facet,
+	proxies  = port.Receptacle,
+	servants = port.Receptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	LuaEncoder.proxies = ProxyManager.proxies
+	LuaEncoder.servants = ServantManager.servants
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/ludo/client.lua

@@ -0,0 +1,19 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+
+module "oil.arch.ludo.client"
+
+OperationRequester = component.Template{
+	requests = port.Facet,
+	channels = port.Receptacle,
+	codec    = port.Receptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	ClientChannels.sockets      = BasicSystem.sockets
+	OperationRequester.codec    = LuaEncoder.codec
+	OperationRequester.channels = ClientChannels.channels
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/arch/ludo/common.lua

@@ -0,0 +1,18 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+
+module "oil.arch.ludo.common"
+
+ValueEncoder   = component.Template{ codec = port.Facet }
+ObjectReferrer = component.Template{
+	references = port.Facet,
+	codec = port.Receptacle,
+}
+
+function assemble(components)
+	arch.start(components)
+	LuaEncoder.codec:localresources(components)
+	ObjectReferrer.codec = LuaEncoder.codec
+	arch.finish(components)
+end