channel_program/lua_core/tst.lib_coroutine.lua

35 local function eqtab (t1, t2)
44 function foo (a, ...)
79 local function foo (i) return coroutine.yield(i) end
80 f = coroutine.wrap(function ()
90 function pf (n, i)
105 function gen (n)
106   return coroutine.wrap(function ()
112 function filter (p, g)
113   return coroutine.wrap(function ()
137 co = coroutine.wrap(function()
146 local f = function (s, i) return coroutine.yield(i) end
147 function f (a, b) a = coroutine.yield(a);  error{a + b} end
148 function g(x) return x[1]*2 end
153   local function f (c)
157   local co = coroutine.wrap(function (c)
166 function foo ()
171 function goo() foo() end
184 function all (a, n, k)
195 for t in coroutine.wrap(function () all({}, 5, 4) end) do
203 local x = coroutine.wrap (function ()
205             local function f () a = a+10; return a end
224 function co_func (current_co)
246 co1 = coroutine.create(function () return co2() end)
247 co2 = coroutine.wrap(function ()
259 local x = coroutine.create (function ()
261             _G.f = function () a=a+1; return a end
273 _X = coroutine.wrap(function ()
275       local x = function () a = a+1 end
288   __eq = function(a,b) coroutine.yield(nil, "eq"); return a.x == b.x end,
289   __lt = function(a,b) coroutine.yield(nil, "lt"); return a.x < b.x end,
290   __le = function(a,b) coroutine.yield(nil, "le"); return a - b <= 0 end,
291   __add = function(a,b) coroutine.yield(nil, "add"); return a.x + b.x end,
292   __sub = function(a,b) coroutine.yield(nil, "sub"); return a.x - b.x end,
293   __mod = function(a,b) coroutine.yield(nil, "mod"); return a.x % b.x end,
294   __unm = function(a,b) coroutine.yield(nil, "unm"); return -a.x end,
296   __concat = function(a,b)
302   __index = function (t,k) coroutine.yield(nil, "idx"); return t.k[k] end,
303   __newindex = function (t,k,v) coroutine.yield(nil, "nidx"); t.k[k] = v end,
307 local function new (x)
316 local function run (f, t)
328 assert(run(function () if (a>=b) then return '>=' else return '<' end end,
332 assert(run(function () if (a<=b) then return '<=' else return '>' end end,
334 assert(run(function () if (a==b) then return '==' else return '~=' end end,
337 assert(run(function () return a % b end, {"mod"}) == 10)
339 assert(run(function () return a..b end, {"concat"}) == "1012")
341 assert(run(function() return a .. b .. c .. a end,
344 assert(run(function() return "a" .. "b" .. a .. "c" .. c .. b .. "x" end,
350 local f = function (s, i)
355 assert(run(function ()