From ffec6bd4516107205ec5af4c64d8018c36a5dafe Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich Date: Tue, 18 Dec 2012 14:20:10 +0000 Subject: [PATCH] build: remove two obsolete scripts --- build/cbi2uvl.lua | 133 --------------------------------------------------- build/i18n-lua2po.pl | 120 ---------------------------------------------- 2 files changed, 253 deletions(-) delete mode 100755 build/cbi2uvl.lua delete mode 100755 build/i18n-lua2po.pl diff --git a/build/cbi2uvl.lua b/build/cbi2uvl.lua deleted file mode 100755 index 7fe8ef574..000000000 --- a/build/cbi2uvl.lua +++ /dev/null @@ -1,133 +0,0 @@ -#!/usr/bin/lua ---[[ -LuCI - Lua Configuration Interface - -Copyright 2008 Steven Barth -Copyright 2008 Jo-Philipp Wich - -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 diff --git a/build/i18n-lua2po.pl b/build/i18n-lua2po.pl deleted file mode 100755 index d72d2e975..000000000 --- a/build/i18n-lua2po.pl +++ /dev/null @@ -1,120 +0,0 @@ -#!/usr/bin/perl - -@ARGV >= 2 || die "Usage: $0 []\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; -} -- 2.11.0