build: remove two obsolete scripts
This commit is contained in:
Jo-Philipp Wich
parent
5af8df6d1a
commit
ffec6bd451
2 changed files with 0 additions and 253 deletions
|
|
@ -1,133 +0,0 @@
|
||||||
#!/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: index.lua 3548 2008-10-09 20:28:07Z Cyrus $
|
|
||||||
]]--
|
|
||||||
|
|
||||||
local cbi = require "luci.cbi"
|
|
||||||
local i18n = require "luci.i18n"
|
|
||||||
local util = require "luci.util"
|
|
||||||
|
|
||||||
if not arg[1] then
|
|
||||||
util.perror("Usage %s path/to/cbi/model.lua [i18nfilename]" % arg[0])
|
|
||||||
os.exit(1)
|
|
||||||
end
|
|
||||||
|
|
||||||
i18n.load("base", "en")
|
|
||||||
|
|
||||||
if arg[2] then
|
|
||||||
i18n.load(arg[2], "en")
|
|
||||||
end
|
|
||||||
|
|
||||||
if arg[3] then
|
|
||||||
pcall(function()
|
|
||||||
require "uci"
|
|
||||||
require "luci.model.uci".cursor = function(config, save)
|
|
||||||
return uci.cursor(config or arg[3] .. "/etc/config", save or arg[3] .. "/tmp/.uci")
|
|
||||||
end
|
|
||||||
end)
|
|
||||||
end
|
|
||||||
|
|
||||||
local map = cbi.load(arg[1])[1]
|
|
||||||
assert(map)
|
|
||||||
|
|
||||||
print ("package "..map.config)
|
|
||||||
print ("\nconfig package")
|
|
||||||
|
|
||||||
if #map.title > 0 then
|
|
||||||
print (" option title '%s'" % util.striptags(map.title))
|
|
||||||
end
|
|
||||||
|
|
||||||
if #map.description > 0 then
|
|
||||||
print (" option description '%s'" % util.striptags(map.description))
|
|
||||||
end
|
|
||||||
|
|
||||||
for i, sec in pairs(map.children) do if util.instanceof(sec, cbi.AbstractSection) then
|
|
||||||
print ("\nconfig section")
|
|
||||||
print (" option name '%s'" % sec.sectiontype)
|
|
||||||
print (" option package '%s'" % map.config)
|
|
||||||
|
|
||||||
if #sec.title > 0 then
|
|
||||||
print (" option title '%s'" % util.striptags(sec.title))
|
|
||||||
end
|
|
||||||
|
|
||||||
if #sec.description > 0 then
|
|
||||||
print (" option description '%s'" % util.striptags(sec.description))
|
|
||||||
end
|
|
||||||
|
|
||||||
if not sec.addremove then
|
|
||||||
print (" option unique true")
|
|
||||||
print (" option required true")
|
|
||||||
end
|
|
||||||
|
|
||||||
if not sec.anonymous then
|
|
||||||
print (" option named true")
|
|
||||||
end
|
|
||||||
|
|
||||||
if sec.dynamic then
|
|
||||||
print (" option dynamic true")
|
|
||||||
end
|
|
||||||
|
|
||||||
for j, opt in ipairs(sec.children) do
|
|
||||||
if opt.option:sub(1,1) ~= "_" or util.instanceof(opt, cbi.Value) then
|
|
||||||
print ("\nconfig variable")
|
|
||||||
print (" option name '%s'" % opt.option)
|
|
||||||
print (" option section '%s.%s'" % {map.config, sec.sectiontype})
|
|
||||||
if #opt.title > 0 then
|
|
||||||
print (" option title '%s'" % util.striptags(opt.title))
|
|
||||||
end
|
|
||||||
|
|
||||||
if #opt.description > 0 then
|
|
||||||
print (" option description '%s'" % util.striptags(opt.description))
|
|
||||||
end
|
|
||||||
|
|
||||||
if not opt.rmempty and not opt.optional then
|
|
||||||
print (" option required true")
|
|
||||||
end
|
|
||||||
|
|
||||||
if util.instanceof(opt, cbi.Flag) then
|
|
||||||
print (" option datatype boolean")
|
|
||||||
elseif util.instanceof(opt, cbi.DynamicList) then
|
|
||||||
print (" option type list")
|
|
||||||
elseif util.instanceof(opt, cbi.ListValue) then
|
|
||||||
print (" option type enum")
|
|
||||||
util.perror("*** Warning: Please verify '%s.%s.%s' ***" %
|
|
||||||
{map.config, sec.sectiontype, opt.option} )
|
|
||||||
end
|
|
||||||
|
|
||||||
for i, dep in ipairs(opt.deps) do
|
|
||||||
if not dep.add or dep.add == "" then
|
|
||||||
local depstring
|
|
||||||
for k, v in pairs(dep.deps) do
|
|
||||||
depstring = (depstring and depstring .. "," or "") .. "%s=%s" % {k, v}
|
|
||||||
end
|
|
||||||
print (" list depends '%s'" % depstring)
|
|
||||||
else
|
|
||||||
util.perror("*** Warning: Unable to decode dependency '%s' in '%s.%s.%s[%s]' ***" %
|
|
||||||
{util.serialize_data(dep.deps), map.config, sec.sectiontype, opt.option, dep.add})
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
if util.instanceof(opt, cbi.ListValue) then
|
|
||||||
for k, key in ipairs(opt.keylist) do
|
|
||||||
print ("\nconfig enum")
|
|
||||||
print (" option variable '%s.%s.%s'" % {map.config, sec.sectiontype, opt.option})
|
|
||||||
print (" option value '%s'" % key)
|
|
||||||
if opt.vallist[k] and opt.vallist[k] ~= opt.keylist[k] then
|
|
||||||
print (" option title '%s'" % util.striptags(opt.vallist[k]))
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end end
|
|
||||||
|
|
@ -1,120 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
@ARGV >= 2 || die "Usage: $0 <source-dir> <dest-dir> [<target-language>]\n";
|
|
||||||
|
|
||||||
my $source_dir = shift @ARGV;
|
|
||||||
my $target_dir = shift @ARGV;
|
|
||||||
my $target_lang = shift @ARGV;
|
|
||||||
my $master_lang = "en";
|
|
||||||
|
|
||||||
|
|
||||||
if( ! -d "$target_dir/" . ( $target_lang || 'templates' ) )
|
|
||||||
{
|
|
||||||
system('mkdir', '-p', "$target_dir/" . ( $target_lang || 'templates' ));
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
my %target_strings;
|
|
||||||
|
|
||||||
if( $target_lang && open F, "find $source_dir -path '*/luasrc/i18n/*' -name '*.$target_lang.lua' |" )
|
|
||||||
{
|
|
||||||
while( chomp( my $file = readline F ) )
|
|
||||||
{
|
|
||||||
if( open L, "< $file" )
|
|
||||||
{
|
|
||||||
my ( $basename ) = $file =~ m{.+/([^/]+)\.[\w\-]+\.lua$};
|
|
||||||
$target_strings{$basename} = { };
|
|
||||||
|
|
||||||
while( chomp( my $entry = readline L ) )
|
|
||||||
{
|
|
||||||
my ( $k, $v );
|
|
||||||
if( $entry =~ /^\s*(\w+)\s*=\s*\[\[(.+)\]\]/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
elsif( $entry =~ /^\s*(\w+)\s*=\s*'(.+)'/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
elsif( $entry =~ /^\s*(\w+)\s*=\s*"(.+)"/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
|
|
||||||
if( $k && $v )
|
|
||||||
{
|
|
||||||
$v =~ s/"/\\"/g;
|
|
||||||
$v =~ s/\\\\"/\\"/g;
|
|
||||||
$target_strings{$basename}{$k} = $v;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close L;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close F;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
if( open F, "find . -path '*/luasrc/i18n/*' -name '*.$master_lang.lua' |" )
|
|
||||||
{
|
|
||||||
my $destfile = sprintf '%s/%s/%%s.%s',
|
|
||||||
$target_dir,
|
|
||||||
$target_lang || 'templates',
|
|
||||||
$target_lang ? 'po' : 'pot'
|
|
||||||
;
|
|
||||||
|
|
||||||
while( chomp( my $file = readline F ) )
|
|
||||||
{
|
|
||||||
if( open L, "< $file" )
|
|
||||||
{
|
|
||||||
my ( $basename ) = $file =~ m{.+/([^/]+)\.\w+\.lua$};
|
|
||||||
my $filename = sprintf $destfile, $basename;
|
|
||||||
|
|
||||||
if( open T, "> $filename" )
|
|
||||||
{
|
|
||||||
printf "Generating %-40s ", $filename;
|
|
||||||
|
|
||||||
printf T "# %s.%s\n# generated from %s\n\nmsgid \"\"\n" .
|
|
||||||
"msgstr \"Content-Type: text/plain; charset=UTF-8\"\n\n",
|
|
||||||
$basename, $target_lang ? 'po' : 'pot', $file;
|
|
||||||
|
|
||||||
while( chomp( my $entry = readline L ) )
|
|
||||||
{
|
|
||||||
my ( $k, $v );
|
|
||||||
if( $entry =~ /^\s*(\w+)\s*=\s*\[\[(.+)\]\]/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
elsif( $entry =~ /^\s*(\w+)\s*=\s*'(.+)'/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
elsif( $entry =~ /^\s*(\w+)\s*=\s*"(.+)"/ )
|
|
||||||
{
|
|
||||||
( $k, $v ) = ( $1, $2 );
|
|
||||||
}
|
|
||||||
|
|
||||||
if( $k && $v )
|
|
||||||
{
|
|
||||||
$v =~ s/"/\\"/g;
|
|
||||||
$v =~ s/\\\\"/\\"/g;
|
|
||||||
printf T "#: %s:%d\n#. %s\nmsgid \"%s\"\nmsgstr \"%s\"\n\n",
|
|
||||||
$file, $., $v, $k,
|
|
||||||
( $target_strings{$basename} && $target_strings{$basename}{$k} )
|
|
||||||
? $target_strings{$basename}{$k} : "";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close T;
|
|
||||||
|
|
||||||
print "done\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
close L;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close F;
|
|
||||||
}
|
|
||||||
Loading…
Reference in a new issue