build: remove some obsolete support scripts
[project/luci.git] / libs / uvl / luasrc / uvl / errors.lua
index 983b619..45f331f 100644 (file)
@@ -19,77 +19,64 @@ local uvl = require "luci.uvl"
 local util = require "luci.util"
 local string = require "string"
 
-local ipairs, error, type = ipairs, error, type
-local tonumber, unpack = tonumber, unpack
-
-
-local luci = luci
+local luci, tonumber, unpack, ipairs, type =
+       luci, tonumber, unpack, ipairs, type
 
 module "luci.uvl.errors"
 
 ERRCODES = {
-       { 'UCILOAD',            'Unable to load config "%p": %1' },
-
-       { 'SCHEME',                     'Error in scheme "%p":\n%c' },
-       { 'CONFIG',             'Error in config "%p":\n%c' },
-       { 'SECTION',            'Error in section "%i" (%I):\n%c' },
-       { 'OPTION',                     'Error in option "%i" (%I):\n%c' },
-       { 'REFERENCE',          'Option "%i" has invalid reference specification %1:\n%c' },
-       { 'DEPENDENCY',         'In dependency check for %t "%i":\n%c' },
-
-       { 'SME_FIND',           'Can not find scheme "%p" in "%1"' },
-       { 'SME_READ',           'Can not access file "%1"' },
-       { 'SME_REQFLD',         'Missing required scheme field "%1" in "%i"' },
-       { 'SME_INVREF',         'Illegal reference "%1" to an anonymous section' },
-       { 'SME_BADREF',         'Malformed reference in "%1"' },
-       { 'SME_BADDEP',         'Malformed dependency specification "%1" in "%i"' },
-       { 'SME_BADVAL',         'Malformed validator specification "%1" in "%i"' },
-       { 'SME_ERRVAL',         'External validator "%1" failed: %2' },
-       { 'SME_VBADPACK',       'Variable "%o" in scheme "%p" references unknown package "%1"' },
-       { 'SME_VBADSECT',       'Variable "%o" in scheme "%p" references unknown section "%1"' },
-       { 'SME_EBADPACK',       'Enum "%v" in scheme "%p" references unknown package "%1"' },
-       { 'SME_EBADSECT',       'Enum "%v" in scheme "%p" references unknown section "%1"' },
-       { 'SME_EBADOPT',        'Enum "%v" in scheme "%p" references unknown option "%1"'  },
-       { 'SME_EBADTYPE',       'Enum "%v" in scheme "%p" references non-enum option "%I"' },
-       { 'SME_EBADDEF',        'Enum "%v" in scheme "%p" redeclares the default value of "%I"' },
-
-       { 'SECT_UNKNOWN',       'Section "%i" (%I) not found in scheme' },
-       { 'SECT_REQUIRED',      'Required section "%p.%S" not found in config' },
-       { 'SECT_UNIQUE',        'Unique section "%p.%S" occurs multiple times in config' },
-       { 'SECT_NAMED',         'The section of type "%p.%S" is stored anonymously in config but must be named' },
-       { 'SECT_NOTFOUND',      'Section "%p.%s" not found in config' },
-
-       { 'OPT_UNKNOWN',        'Option "%i" (%I) not found in scheme' },
-       { 'OPT_REQUIRED',       'Required option "%i" has no value' },
-       { 'OPT_BADVALUE',       'Value "%1" of option "%i" is not defined in enum %2' },
-       { 'OPT_INVVALUE',       'Value "%1" of option "%i" does not validate as datatype "%2"' },
-       { 'OPT_NOTLIST',        'Option "%i" is defined as list but stored as plain value' },
-       { 'OPT_DATATYPE',       'Option "%i" has unknown datatype "%1"' },
-       { 'OPT_NOTFOUND',       'Option "%p.%s.%o" not found in config' },
-       { 'OPT_RANGE',          'Option "%p.%s.%o" is not within the specified range' },
-
-       { 'DEP_NOTEQUAL',       'Dependency (%1) failed:\nOption "%i" is not eqal "%2"' },
-       { 'DEP_NOVALUE',        'Dependency (%1) failed:\nOption "%i" has no value' },
-       { 'DEP_NOTVALID',       'Dependency (%1) failed:\n%c' },
-       { 'DEP_RECURSIVE',      'Recursive dependency for option "%i" detected' },
-       { 'DEP_BADENUM',        'In dependency check for enum value "%i":\n%c' }
+       UCILOAD                 = 'Unable to load config "%p": %1',
+
+       SCHEME                  = 'Error in scheme "%p":\n%c',
+       CONFIG                  = 'Error in config "%p":\n%c',
+       SECTION                 = 'Error in section "%i" (%I):\n%c',
+       OPTION                  = 'Error in option "%i" (%I):\n%c',
+       REFERENCE               = 'Option "%i" has invalid reference specification %1:\n%c',
+       DEPENDENCY              = 'In dependency check for %t "%i":\n%c',
+
+       SME_FIND                = 'Can not find scheme "%p" in "%1"',
+       SME_READ                = 'Can not access file "%1"',
+       SME_REQFLD              = 'Missing required scheme field "%1" in "%i"',
+       SME_INVREF              = 'Illegal reference "%1" to an anonymous section',
+       SME_BADREF              = 'Malformed reference in "%1"',
+       SME_BADDEP              = 'Malformed dependency specification "%1" in "%i"',
+       SME_BADVAL              = 'Malformed validator specification "%1" in "%i"',
+       SME_ERRVAL              = 'External validator "%1" failed: %2',
+       SME_VBADPACK    = 'Variable "%o" in scheme "%p" references unknown package "%1"',
+       SME_VBADSECT    = 'Variable "%o" in scheme "%p" references unknown section "%1"',
+       SME_EBADPACK    = 'Enum "%v" in scheme "%p" references unknown package "%1"',
+       SME_EBADSECT    = 'Enum "%v" in scheme "%p" references unknown section "%1"',
+       SME_EBADOPT             = 'Enum "%v" in scheme "%p" references unknown option "%1"',
+       SME_EBADTYPE    = 'Enum "%v" in scheme "%p" references non-enum option "%I"',
+       SME_EBADDEF             = 'Enum "%v" in scheme "%p" redeclares the default value of "%I"',
+
+       SECT_UNKNOWN    = 'Section "%i" (%I) not found in scheme',
+       SECT_REQUIRED   = 'Required section "%p.%S" not found in config',
+       SECT_UNIQUE             = 'Unique section "%p.%S" occurs multiple times in config',
+       SECT_NAMED              = 'The section of type "%p.%S" is stored anonymously in config but must be named',
+       SECT_NOTFOUND   = 'Section "%p.%s" not found in config',
+
+       OPT_UNKNOWN             = 'Option "%i" (%I) not found in scheme',
+       OPT_REQUIRED    = 'Required option "%i" has no value',
+       OPT_BADVALUE    = 'Value "%1" of option "%i" is not defined in enum %2',
+       OPT_INVVALUE    = 'Value "%1" of option "%i" does not validate as datatype "%2"',
+       OPT_NOTLIST             = 'Option "%i" is defined as list but stored as plain value',
+       OPT_DATATYPE    = 'Option "%i" has unknown datatype "%1"',
+       OPT_NOTFOUND    = 'Option "%p.%s.%o" not found in config',
+       OPT_RANGE               = 'Option "%p.%s.%o" is not within the specified range',
+
+       DEP_NOTEQUAL    = 'Dependency (%1) failed:\nOption "%i" is not eqal "%2"',
+       DEP_NOVALUE             = 'Dependency (%1) failed:\nOption "%i" has no value',
+       DEP_NOTVALID    = 'Dependency (%1) failed:\n%c',
+       DEP_RECURSIVE   = 'Recursive dependency for option "%i" detected',
+       DEP_BADENUM             = 'In dependency check for enum value "%i":\n%c'
 }
 
--- build error constants and instance constructors
-for i, v in ipairs(ERRCODES) do
-       _M[v[1]] = function(...)
-               return error(i, ...)
-       end
-
-       _M['ERR_'..v[1]] = i
-end
-
-
-function i18n(key, def)
+function i18n(key)
        if luci.i18n then
-               return luci.i18n.translate(key,def)
+               return luci.i18n.translate(key)
        else
-               return def
+               return key
        end
 end
 
@@ -130,10 +117,7 @@ end
 function error.string(self,pad)
        pad = pad or "  "
 
-       local str = i18n(
-               'uvl_err_%s' % string.lower(ERRCODES[self.code][1]),
-               ERRCODES[self.code][2]
-       )
+       local str = i18n(ERRCODES[self.code] or self.code)
                :gsub("\n", "\n"..pad)
                :gsub("%%i", self:cid())
                :gsub("%%I", self:sid())
@@ -185,13 +169,19 @@ function error.is(self, code)
        return false
 end
 
-function error.is_all(self, code)
-       if self.code == code then
+function error.is_all(self, ...)
+       local codes = { ... }
+
+       if util.contains(codes, self.code) then
                return true
        else
                local equal = false
                for _, c in ipairs(self.childs) do
-                       equal = ( c.code == code )
+                       if c.childs then
+                               equal = c:is_all(...)
+                       else
+                               equal = util.contains(codes, c.code)
+                       end
                end
                return equal
        end