Add case syntax

WyattBlue · Aug 14, 2023 · 22a8725 · 22a8725
1 parent 2ea6f88
commit 22a8725
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 3 deletions.
diff --git a/auto_editor/lang/palet.py b/auto_editor/lang/palet.py
@@ -1106,7 +1106,7 @@ def syn_case(env: Env, node: list) -> Any:
  raise MyError("case: bad syntax")
  if type(case_clause[0]) == list:
  for case in case_clause[0]:
- if is_equal(my_eval(env, case), val_expr):
+ if is_equal(case, val_expr):
  return my_eval(env, case_clause[1])
  elif type(case_clause[0]) == Sym and case_clause[0].val == "else":
  return my_eval(env, case_clause[1])

diff --git a/auto_editor/subcommands/test.py b/auto_editor/subcommands/test.py
@@ -771,8 +771,9 @@ def cases(*cases: tuple[str, Any]) -> None:
  )
 
  def palet_scripts():
- run.raw(["palet", "resources/scripts/maxcut.pt"])
- run.raw(["palet", "resources/scripts/scope.pt"])
+ run.raw(["palet", "resources/scripts/maxcut.pal"])
+ run.raw(["palet", "resources/scripts/scope.pal"])
+ run.raw(["palet", "resources/scripts/case.pal"])
 
  tests = []
 

diff --git a/resources/scripts/case.pal b/resources/scripts/case.pal
@@ -0,0 +1,6 @@
+#!/usr/bin/env auto-editor palet
+
+(assert (equal? (case (+ 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'big))
+(assert (equal? (case (- 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'small))
+(assert (case (mod 3 2) [(0) #f] [else #t]))
+(assert (case 'y [(y) #t]))
diff --git a/resources/scripts/maxcut.pt → resources/scripts/maxcut.pal b/resources/scripts/maxcut.pt → resources/scripts/maxcut.pal
diff --git a/resources/scripts/scope.pt → resources/scripts/scope.pal b/resources/scripts/scope.pt → resources/scripts/scope.pal