Return to test_lib.lua CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / axTLS / www / lua

Annotation of embedaddon/axTLS/www/lua/test_lib.lua, revision 1.1

1.1     ! misho       1: local function getfield (t, f)
        !             2:   for w in string.gfind(f, "[%w_]+") do
        !             3:     if not t then return nil end
        !             4:     t = t[w]
        !             5:   end
        !             6:   return t
        !             7: end
        !             8: 
        !             9: function test_lib (libname)
        !            10:        local ok, err = pcall (require, libname)
        !            11:        if not ok then
        !            12:                cgilua.put ("Library <tt><b>"..libname.."</b></tt> not found<br>\n"..
        !            13:                        err)
        !            14:        else
        !            15:                cgilua.put ("Library <tt><b>"..libname.."</b></tt><br>\n")
        !            16:                local t = getfield (_G, libname)
        !            17:                if type(t) ~= "table" then
        !            18:                        cgilua.put (tostring(t))
        !            19:                else
        !            20:                        for i, v in pairs (t) do
        !            21:                                cgilua.put ("&nbsp;&nbsp;"..tostring(i).." = "..tostring(v).."<br>\n")
        !            22:                        end
        !            23:                end
        !            24:        end
        !            25:        cgilua.put ("\n<p>\n")
        !            26: end
        !            27: 
        !            28: cgilua.htmlheader ()
        !            29: for _, lib in ipairs { "lfs", "socket", "luasql.postgres", "luasql", "lxp", "lxp.lom", "lualdap", "htk", "xmlrpc", "xmlrpc.http" } do
        !            30:        test_lib (lib)
        !            31: end