2018-07-15 19:41:22 -07:00
|
|
|
#!/usr/bin/env nomsu -V1
|
2018-06-14 23:25:05 -07:00
|
|
|
#
|
|
|
|
|
This file defines the code that creates and manipulates coroutines
|
|
|
|
|
|
|
|
|
|
use "core/metaprogramming.nom"
|
|
|
|
|
|
|
|
|
|
compile [coroutine %body, generator %body] to
|
|
|
|
|
Lua value ".."
|
|
|
|
|
(function()
|
|
|
|
|
\(%body as lua statements)
|
|
|
|
|
end)
|
|
|
|
|
compile [->] to: Lua value "coroutine.yield(true)"
|
|
|
|
|
compile [-> %] to: Lua value "coroutine.yield(true, \(% as lua expr))"
|
|
|
|
|
compile [for % in coroutine %co %body] to
|
|
|
|
|
Lua ".."
|
|
|
|
|
for junk,\(% as lua expr) in coroutine.wrap(\(%co as lua expr)) do
|
|
|
|
|
\(%body as lua statements)
|
|
|
|
|
end
|
