forked from public/swade-fr-content
69 lines
1.6 KiB
Lua
69 lines
1.6 KiB
Lua
|
--[[
|
||
|
|
Licensed according to the included 'LICENSE' document
|
||
|
|
Author: Thomas Harning Jr <harningt@gmail.com>
|
||
|
|
]]
|
||
|
|
local table = require("table")
|
||
|
|
local table_concat = table.concat
|
||
|
|
|
||
|
|
local select = select
|
||
|
|
local getmetatable, setmetatable = getmetatable, setmetatable
|
||
|
|
local assert = assert
|
||
|
|
|
||
|
|
local jsonutil = require("json.util")
|
||
|
|
|
||
|
|
local isCall, decodeCall = jsonutil.isCall, jsonutil.decodeCall
|
||
|
|
|
||
|
|
local _ENV = nil
|
||
|
|
|
||
|
|
local defaultOptions = {
|
||
|
|
}
|
||
|
|
|
||
|
|
-- No real default-option handling needed...
|
||
|
|
local modeOptions = {}
|
||
|
|
|
||
|
|
local function mergeOptions(options, mode)
|
||
|
|
jsonutil.doOptionMerge(options, false, 'calls', defaultOptions, mode and modeOptions[mode])
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
--[[
|
||
|
|
Encodes 'value' as a function call
|
||
|
|
Must have parameters in the 'callData' field of the metatable
|
||
|
|
name == name of the function call
|
||
|
|
parameters == array of parameters to encode
|
||
|
|
]]
|
||
|
|
local function getEncoder(options)
|
||
|
|
options = options and jsonutil.merge({}, defaultOptions, options) or defaultOptions
|
||
|
|
local function encodeCall(value, state)
|
||
|
|
if not isCall(value) then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
local encode = state.encode
|
||
|
|
local name, params = decodeCall(value)
|
||
|
|
local compositeEncoder = state.outputEncoder.composite
|
||
|
|
local valueEncoder = [[
|
||
|
|
for i = 1, (composite.n or #composite) do
|
||
|
|
local val = composite[i]
|
||
|
|
PUTINNER(i ~= 1)
|
||
|
|
val = encode(val, state)
|
||
|
|
val = val or ''
|
||
|
|
if val then
|
||
|
|
PUTVALUE(val)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
]]
|
||
|
|
return compositeEncoder(valueEncoder, name .. '(', ')', ',', params, encode, state)
|
||
|
|
end
|
||
|
|
return {
|
||
|
|
table = encodeCall,
|
||
|
|
['function'] = encodeCall
|
||
|
|
}
|
||
|
|
end
|
||
|
|
|
||
|
|
local calls = {
|
||
|
|
mergeOptions = mergeOptions,
|
||
|
|
getEncoder = getEncoder
|
||
|
|
}
|
||
|
|
|
||
|
|
return calls
|