#!/usr/bin/env moon
utils = require 'utils'
Game = require 'nomic'
g = Game(require'core')

print("===========================================================================================")


g\test[[
say "foo"
===
Call [say %]:
  "foo"
]]

g\test[[
say (4)
===
Call [say %]:
  4
]]

g\test[[
rule "fart": say "poot"
===
Call [rule % %]:
  "fart"
  Thunk:
    Call [say %]:
      "poot"
]]

g\test[[
rule "doublefart":
    say "poot"
    say "poot"
===
Call [rule % %]:
  "doublefart"
  Thunk:
    Call [say %]:
      "poot"
    Call [say %]:
      "poot"
]]

g\test[[
say (subexpressions work)
===
Call [say %]:
  Call [subexpressions work]!
]]

g\test[[
say ["lists", "work"]
===
Call [say %]:
  List:
    "lists"
    "work"
]]

g\test[[
say []
===
Call [say %]:
  <Empty List>
]]

g\test[[
say [..]
    1, 2
    3
===
Call [say %]:
  List:
    1
    2
    3
]]

g\test[[
say both [..]
    1,2
..and [..]
    3,4
===
Call [say both % and %]:
  List:
    1
    2
  List:
    3
    4
]]

g\test[[
say both..
    "hello"
    and "world"
===
Call [say both % and %]:
  "hello"
  "world"
]]

g\test[[
say both ..
    "a list:"
    and [..]
        1,2,(three),(4)
===
Call [say both % and %]:
  "a list:"
  List:
    1
    2
    Call [three]!
    4
]]

g\test[[
if 1: yes
..else: no
===
Call [if % % else %]:
  1
  Thunk:
    Call [yes]!
  Thunk:
    Call [no]!
]]
g\test[[
if 1: yes ..else: no
===
Call [if % % else %]:
  1
  Thunk:
    Call [yes]!
  Thunk:
    Call [no]!
]]
g\test[[
say (do: return 5)
===
Call [say %]:
  Call [do %]:
    Thunk:
      Call [return %]:
        5
]]
g\test[[
say (..)
  fn call
===
Call [say %]:
  Call [fn call]!
]]

g\run[[

say [..]
    "this is a stupidly long list", "the items go way past the 80 character", "limit that older consoles"
    "had.", "It just keeps going and going"

rule "dumbfunc %a %b %c %d %e":
    say "doop"

dumbfunc..
    "this is a stupidly long set of arguments" "the items go way past the 80 character" "limit that older consoles"
    "had." "It just keeps going and going"

]]
g\run[[
rule "four": return 4
rule "say both %one and %two":
    say %one
    say %two

say both ..
    "a list:"
    and [..]
        1,2,3,(four),(5)

say "done"
]]

g\run[[
rule "do %thing also %also-thing":
    do %thing
    do %also-thing
    return 99
]]
g\run[[
do: say "one liner"
..also: say "another one liner"
]]
g\run[[

say (..)
    do:
        say "hi"
        return 5
        say "bye"

]]
g\run[[
say (do: return "wow")
if 1: say "hi1" ..else: say "bye1"

if 1: say "hi2"
..else: say "bye2"

]]
g\run[[
rule "foo %x":
    if %x:
        say "YES"
        55
    ..else:
        say "NO"
        -99

say (foo 1)
say (foo (false))

]]

g\run[[
say (1 + (-(2 * 3)))
]]

g\run[[
for "x" in ["A","B","C"]:
    say %x
]]
g\run[[
say (for "x" in [1,2,3]:%x + 100)
say (..)
    for "x" in [1,2,3]:
        %x + 200
]]

g\run[[
if (1 == 1):
    say "Simple macros work!"
unless (1 > 2):
    say "This one too!"
]]