flm01/openwrt/packages/luci/build/uvl2cbi.lua

89 lines
2.4 KiB
Lua

#!/usr/bin/lua
--[[
LuCI - Lua Configuration Interface
Copyright 2008 Steven Barth <steven@midlink.org>
Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
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
$Id: uvl2cbi.lua 3941 2008-12-23 21:39:38Z jow $
]]--
local uvl = require "luci.uvl"
local util = require "luci.util"
if not arg[1] then
util.perror("Usage %s scheme_name" % arg[0])
os.exit(1)
end
local scheme, error = uvl.UVL():get_scheme(arg[1])
if not scheme then
print( error:string() )
os.exit(1)
end
print('cbimap = Map(%q, %q, %q)\n'
% { scheme.name, scheme.title or scheme.name, scheme.description or "" } )
for sn, sv in util.kspairs(scheme.sections) do
print('%s = cbimap:section(TypedSection, %q, %q, %q)'
% { sn, sn, sv.title or "", sv.description or "" } )
if not sv.named then print('%s.anonymous = true' % sn) end
if not sv.unique then print('%s.addremove = true' % sn) end
if sv.dynamic then print('%s.dynamic = true' % sn) end
if sv.depends then
for _, dep in ipairs(sv.depends) do
print('%s:depends(%s)' % { sn, util.serialize_data(dep) } )
end
end
print('')
for vn, vv in util.kspairs(scheme.variables[sn]) do
if not vv.type or vv.type == "variable" then
print('%s = %s:option(%s, %q, %q, %q)'
% { vn, sn, vv.datatype == "boolean" and "Flag" or "Value",
vn, vv.title or "", vv.description or "" } )
elseif vv.type == "enum" then
print('%s = %s:option(%s, %q, %q, %q)'
% { vn, sn, vv.multival and "MultiValue" or "ListValue",
vn, vv.title or "", vv.description or "" } )
for _, val in ipairs(vv.valuelist or {}) do
print('%s:value(%q, %q)'
% { vn, val.value, val.title or val.value } )
end
elseif vv.type == "list" or vv.type == "lazylist" then
print('%s = %s:option(DynamicList, %q, %q, %q)'
% { vn, sn, vn, vv.title or "", vv.description or "" } )
else
print('-- option: type(%s) ?' % { vv.type or "" } )
end
if vv.default then print('%s.default = %q' % { vn, vv.default } ) end
if vv.required then print('%s.optional = false' % vn ) end
if not vv.required then print('%s.rmempty = true' % vn ) end
for _, dep in ipairs(vv.depends or {}) do
print('%s:depends(%s)' % { vn, util.serialize_data(dep) } )
end
print('')
end
print('\nreturn cbimap')
end