[new-syntax] stmts-next/ -- TopLevelEvaluate

TODO.md

@@ -1,6 +1,9 @@
 # new-syntax
 
-[new-syntax] `stmts-next/` -- `TopLevelEvaluate`
+`formatExp`
+
+[new-syntax] `stmts-next/` -- fix `TopLevelEvaluate` by `formatExp`
+
 [new-syntax] `stmts-next/` -- `TopLevelLet`
 
 [new-syntax] `Exp` -- `syntax-next/`

src/lang/stmts-next/DefineFunction.ts

@@ -20,7 +20,7 @@ export class DefineFunction implements Stmt {
     } catch (error) {
       throw appendReport(error, {
         message: [
-          `[Define.execute] I fail to define word.`,
+          `[DefineFunction.execute] I fail to define word.`,
           ``,
           `  word: ${this.name}`,
         ].join("\n"),

src/lang/stmts-next/DefineType.ts

@@ -18,7 +18,7 @@ export class DefineType implements Stmt {
     } catch (error) {
       throw appendReport(error, {
         message: [
-          `[DefineNode.execute] I fail to define node.`,
+          `[DefineType.execute] I fail to define node.`,
           ``,
           `  node name: ${this.name}`,
         ].join("\n"),

src/lang/stmts-next/TopLevelEvaluate.ts

@@ -0,0 +1,32 @@
+import { appendReport } from "../errors/appendReport.js"
+import { Exp } from "../exp/Exp.js"
+import { Mod } from "../mod/index.js"
+import { Span } from "../span/index.js"
+import { Stmt } from "../stmt/index.js"
+
+export class TopLevelEvaluate implements Stmt {
+  constructor(
+    public exp: Exp,
+    public span: Span,
+  ) {}
+
+  async execute(mod: Mod): Promise<void> {
+    try {
+      // compose(mod, mod.env, this.word, {
+      //   checking: mod.checking,
+      // })
+    } catch (error) {
+      throw appendReport(error, {
+        message: [
+          `[TopLevelEvaluate.execute] I fail to evaluate top level exp.`,
+          ``,
+          // `  exp: ${formatExp(this.exp)}`,
+        ].join("\n"),
+        context: {
+          span: this.span,
+          text: mod.text,
+        },
+      })
+    }
+  }
+}

src/lang/stmts-next/index.ts

@@ -3,3 +3,4 @@ export * from "./DefineNode"
 export * from "./DefineRule"
 export * from "./DefineType"
 export * from "./Parameter"
+export * from "./TopLevelEvaluate"