rufus-lua-win 5.1.5

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

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

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

@@ -0,0 +1,27 @@
+local ipairs = ipairs
+
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+local base      = require "oil.arch.basic.client"
+
+module "oil.arch.typed.client"
+
+ProxyManager = component.Template({
+	types   = port.Receptacle,
+	indexer = port.Receptacle,
+	caches  = port.Facet, -- TODO:[maia] use it to reset method cache when type
+}, base.ProxyManager)   --             definition changes.
+
+function assemble(components)
+	arch.start(components)
+	ProxyManager.indexer = TypeRepository.indexer
+	ProxyManager.types   = TypeRepository.types
+	
+	for _, proxykind in ipairs(extraproxies) do
+		local ProxyManager = extraproxies[proxykind]
+		ProxyManager.indexer = TypeRepository.indexer
+		ProxyManager.types   = TypeRepository.types
+	end
+	arch.finish(components)
+end

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

@@ -0,0 +1,9 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+
+module "oil.arch.typed.common"
+
+TypeRepository = component.Template{
+	types   = port.Facet,
+	indexer = port.Facet,
+}

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

@@ -0,0 +1,18 @@
+local port      = require "oil.port"
+local component = require "oil.component"
+local arch      = require "oil.arch"
+local base      = require "oil.arch.basic.server"
+
+module "oil.arch.typed.server"
+
+ServantManager = component.Template({
+	types   = port.Receptacle,
+	indexer = port.Receptacle,
+}, base.ServantManager)
+
+function assemble(components)
+	arch.start(components)
+	ServantManager.indexer = TypeRepository.indexer
+	ServantManager.types   = TypeRepository.types
+	arch.finish(components)
+end

data/vendor/lua/lib/lua/oil/assert.lua

@@ -0,0 +1,87 @@
+local luaerror = error
+local pairs    = pairs
+local tostring = tostring
+local luatype  = type
+local require  = require                                                        --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.assert"
+
+--------------------------------------------------------------------------------
+
+Exception = require "oil.Exception"
+
+--------------------------------------------------------------------------------
+
+error = luaerror
+--function error(exception, level)
+--  if luatype(exception) ~= "string" then
+--    exception = tostring(exception)
+--  end
+--  luaerror(exception, (level or 0) + 1)
+--end
+
+--------------------------------------------------------------------------------
+
+local IllegalValueMsg = "%s illegal %s"
+
+function illegal(value, description, except)
+	exception({ except or "illegal value",
+		reason = "value",
+		message = IllegalValueMsg:format(tostring(value), description),
+		value = value,
+		valuename = description,
+	}, 2)
+end
+
+--------------------------------------------------------------------------------
+
+TypeCheckers = {}
+
+local TypeMismatchMsg = IllegalValueMsg.." (%s expected, got %s)"
+
+function type(value, expected, description, except)
+	local actual = luatype(value)
+	if actual == expected then
+		return true
+	else
+		local checker = TypeCheckers[expected]
+		if checker then
+			if checker(value) then return true end
+		else
+			for pattern, checker in pairs(TypeCheckers) do
+				local result = expected:match(pattern)
+				if result then
+					checker, result = checker(value, result)
+					expected = result or expected
+					if checker
+						then return true
+						else break
+					end
+				end
+			end
+		end
+	end
+	exception({ except or "type mismatch",
+		reason = "type",
+		message = TypeMismatchMsg:format(tostring(value), description, expected, actual),
+		expectedtype = expected,
+		actualtype   = actual,
+		value        = value,
+	}, 2)
+end
+
+--------------------------------------------------------------------------------
+
+function results(result, ...)
+	if result == nil then exception(..., 2) end
+	return result, ...
+end
+
+--------------------------------------------------------------------------------
+
+function exception(except, level)
+	if luatype(except) == "string" then
+		except = { except }
+	end
+	error(Exception(except), (level or 0) + 1)
+end

data/vendor/lua/lib/lua/oil/builder.lua

@@ -0,0 +1,45 @@
+local error   = error
+local pairs   = pairs
+local pcall   = pcall
+local require = require
+local type    = type                                                            --[[VERBOSE]] local verbose = require "oil.verbose"
+
+module "oil.builder"
+
+function create(factories, comps)
+	comps = comps or {}
+	for name, factory in pairs(factories) do
+		if name:match("^%u") and comps[name] == nil then
+			comps[name] = factory()
+		end
+	end
+	return comps
+end
+
+local NamePat    = "[^;]+"
+local FactoryFrm = "oil.builder.%s"
+local ArchFrm    = "oil.arch.%s"
+local ErrorFrm   = "module '%s' not found:"
+function build(customization, built)
+	for name in customization:gmatch(NamePat) do                                  --[[VERBOSE]] verbose:built(true, "creating ",name," components")
+		local package = FactoryFrm:format(name)
+		local success, module = pcall(require, package)
+		if success then
+			built = module.create(built)
+		elseif not module:find(ErrorFrm:format(package), nil, true) then            --[[VERBOSE]] verbose:built(false)
+			error(module, 2)                                                          --[[VERBOSE]] else verbose:built("unable to load builder for architecture ",name)
+		end                                                                         --[[VERBOSE]] verbose:built(false)
+	end
+	for name in customization:gmatch(NamePat) do                                  --[[VERBOSE]] verbose:built(true, "assembling ",name," components")
+		local package = ArchFrm:format(name)
+		local success, module = pcall(require, package)
+		if success then
+			if module.assemble then
+				module.assemble(built)
+			end
+		elseif not module:find(ErrorFrm:format(package), nil, true) then            --[[VERBOSE]] verbose:built(false)
+			error(module, 2)                                                          --[[VERBOSE]] else verbose:built("unable to load architecture definition for ",name)
+		end                                                                         --[[VERBOSE]] verbose:built(false)
+	end
+	return built
+end

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

@@ -0,0 +1,31 @@
+local ipairs  = ipairs
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.basic.client"
+
+module "oil.builder.basic.client"
+
+ProxyManager = arch.ProxyManager{require "oil.kernel.base.Proxies"}
+
+function create(comps)
+	comps = comps or {}
+	comps.extraproxies = comps.extraproxies or {"asynchronous", "protected"}
+	
+	if comps.ProxyManager == nil then
+		local proxykind = comps.proxykind or "synchronous"
+		comps.ProxyManager = ProxyManager{
+			invoker = require("oil.kernel.base.Proxies."..proxykind),
+		}
+		comps.extraproxies[proxykind] = comps.ProxyManager
+	end
+	
+	for _, proxykind in ipairs(comps.extraproxies) do
+		if comps.extraproxies[proxykind] == nil then
+			comps.extraproxies[proxykind] = ProxyManager{
+				invoker = require("oil.kernel.base.Proxies."..proxykind),
+			}
+		end
+	end
+	
+	return comps
+end

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

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.basic.common"
+
+module "oil.builder.basic.common"
+
+BasicSystem = arch.BasicSystem{require "oil.kernel.base.Sockets"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.basic.server"
+
+module "oil.builder.basic.server"
+
+RequestReceiver = arch.RequestReceiver{require "oil.kernel.base.Receiver"  }
+ServantManager  = arch.ServantManager {require "oil.kernel.base.Servants"  ,
+                          dispatcher = require "oil.kernel.base.Dispatcher"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.cooperative.common"
+
+module "oil.builder.cooperative.common"
+
+BasicSystem = arch.BasicSystem{require "loop.thread.SocketScheduler"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.cooperative.server"
+
+module "oil.builder.cooperative.server"
+
+RequestReceiver = arch.RequestReceiver{require "oil.kernel.cooperative.Receiver"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local base    = require "oil.arch.basic.common"
+local arch    = require "oil.arch.corba.client"
+
+module "oil.builder.corba.client"
+
+ClientChannels     = base.SocketChannels    {require "oil.kernel.base.Connector"}
+OperationRequester = arch.OperationRequester{require "oil.corba.giop.Requester" }
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,24 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.corba.common"
+
+module "oil.builder.corba.common"
+
+IIOPProfiler    = arch.ReferenceProfiler{require "oil.corba.iiop.Profiler"}
+CDREncoder      = arch.ValueEncoder     {require "oil.corba.giop.Codec"   }
+ObjectReferrer  = arch.ObjectReferrer   {require "oil.corba.giop.Referrer"}
+TypeRepository  = arch.TypeRepository   {require "oil.corba.idl.Registry" ,
+                              indexer  = require "oil.corba.giop.Indexer" ,
+                              compiler = require "oil.corba.idl.Compiler" ,
+                              types    = require "oil.corba.idl.Importer" }
+
+function create(comps)
+	comps = builder.create(_M, comps)
+	comps.IORProfilers = {
+		[0]  = comps.IIOPProfiler,
+		[""] = comps.IIOPProfiler,
+		iiop = comps.IIOPProfiler,
+	}
+	comps.ValueEncoder = comps.CDREncoder
+	return comps
+end

data/vendor/lua/lib/lua/oil/builder/corba/gencode.lua

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.corba.common"
+
+module "oil.builder.corba.gencode"
+
+CDREncoder = arch.ValueEncoder{require "oil.corba.giop.CodecGen"  }
+
+function create(comps)
+	comps = builder.create(_M, comps)
+	comps.ValueEncoder = comps.CDREncoder
+	return comps
+end

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

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.corba.intercepted.client"
+
+module "oil.builder.corba.intercepted.client"
+
+OperationRequester = arch.OperationRequester{require "oil.corba.intercepted.Requester" }
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.corba.intercepted.server"
+
+module "oil.builder.corba.intercepted.server"
+
+RequestListener = arch.RequestListener{require "oil.corba.intercepted.Listener"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local base    = require "oil.arch.basic.common"
+local arch    = require "oil.arch.corba.server"
+
+module "oil.builder.corba.server"
+
+ServerChannels  = base.SocketChannels {require "oil.kernel.base.Acceptor"}
+RequestListener = arch.RequestListener{require "oil.corba.giop.Listener" }
+
+function create(comps)
+	return builder.create(_M, comps)
+end

data/vendor/lua/lib/lua/oil/builder/lua/client.lua

@@ -0,0 +1,11 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.basic.client"
+
+module "oil.builder.lua.client"
+
+ProxyManager = arch.ProxyManager{require "oil.kernel.lua.Proxies"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

data/vendor/lua/lib/lua/oil/builder/lua/server.lua

@@ -0,0 +1,12 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.basic.server"
+
+module "oil.builder.lua.server"
+
+ServantManager = arch.ServantManager {require "oil.kernel.base.Servants",
+                         dispatcher = require "oil.kernel.lua.Dispatcher"}
+
+function create(comps)
+	return builder.create(_M, comps)
+end

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

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local arch    = require "oil.arch.ludo.byref"
+
+module "oil.builder.ludo.byref"
+
+LuaEncoder = arch.ValueEncoder{require "oil.ludo.CodecByRef"}
+
+function create(comps)
+	comps = builder.create(_M, comps)
+	comps.ValueEncoder = comps.LuaEncoder
+	return comps
+end

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

@@ -0,0 +1,13 @@
+local require = require
+local builder = require "oil.builder"
+local base    = require "oil.arch.basic.common"
+local arch    = require "oil.arch.ludo.client"
+
+module "oil.builder.ludo.client"
+
+ClientChannels     = base.SocketChannels    {require "oil.kernel.base.Connector"}
+OperationRequester = arch.OperationRequester{require "oil.ludo.Requester"       }
+
+function create(comps)
+	return builder.create(_M, comps)
+end