Return to test_conc.lua CVS log

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

Annotation of embedaddon/axTLS/www/lua/test_conc.lua, revision 1.1.1.1

1.1       misho       1: cgilua.htmlheader()
                      2: if ap then
                      3:        local pid, ppid = ap.pid ()
                      4:        if not ppid then
                      5:                ppid = "no parent pid"
                      6:        end
                      7:        cgilua.put ("pid = "..pid.." ("..ppid..")".."\n")
                      8: end
                      9: 
                     10: assert(type(stable.get) == "function")
                     11: assert(type(stable.set) == "function")
                     12: 
                     13: cgilua.put"stable.pairs = {<br>\n"
                     14: for i, v in stable.pairs () do
                     15:        cgilua.put (i.." = "..tostring(v).."<br>\n")
                     16: end
                     17: cgilua.put"}<br>\n"
                     18: 
                     19: local counter = stable.get"counter" or 0
                     20: stable.set ("counter", counter + 1)
                     21: 
                     22: local f = stable.get"f"
                     23: if not f then
                     24:        local d = os.date()
                     25:        stable.set ("f", function () return d end)
                     26: else
                     27:        cgilua.put ("f() = "..tostring (f ()))
                     28: end
                     29: 
                     30: cgilua.put"<br>\n"
                     31: for i = 1,800 do
                     32:        cgilua.put (i)
                     33:        for ii = 1,1000 do
                     34:                cgilua.put ("<!>")
                     35:        end
                     36:        cgilua.put ("\n")
                     37: end
                     38: cgilua.put ("End")