nomsu/core/io.nom

24 lines
754 B
Plaintext
Raw Normal View History

#!/usr/bin/env nomsu -V3.8.7.6
2018-06-14 22:17:26 -07:00
#
This file contains basic input/output code
use "core/metaprogramming.nom"
compile [say %message] to (..)
2018-06-14 22:17:26 -07:00
lua> ".."
if \%message.type == "Text" then
2018-06-20 15:22:03 -07:00
return LuaCode(tree.source, "print(", \(%message as lua expr), ");");
2018-06-14 22:17:26 -07:00
else
2018-06-20 15:22:03 -07:00
return LuaCode(tree.source, "print(tostring(", \(%message as lua expr), "));");
2018-06-14 22:17:26 -07:00
end
compile [ask %prompt] to (..)
2018-06-14 22:17:26 -07:00
lua> ".."
if \%prompt.type == "Text" then
2018-06-18 15:44:29 -07:00
return LuaCode.Value(tree.source, "(io.write(", \(%prompt as lua expr), ") and io.read())");
2018-06-14 22:17:26 -07:00
else
return LuaCode.Value(tree.source, "(io.write(tostring(", \(..)
%prompt as lua expr
.., ")) and io.read())");
end