moonscratch 0.1.0-alpha.0

package/src/api_snapshot_json.mbt

@@ -0,0 +1,44 @@
+///|
+fn target_snapshot_json(target : TargetState) -> Json {
+  let lists_json = {}
+  target.lists.each((list_id, items) => lists_json[list_id] = json_array(items))
+
+  json_object({
+    "id": json_string(target.id),
+    "name": json_string(target.name),
+    "isStage": json_bool(target.is_stage),
+    "x": json_number(target.x),
+    "y": json_number(target.y),
+    "direction": json_number(target.direction),
+    "size": json_number(target.size),
+    "volume": json_number(target.volume),
+    "musicInstrument": json_number(
+      Double::from_int(target.music_instrument + 1),
+    ),
+    "textToSpeechVoice": json_string(target.tts_voice),
+    "visible": json_bool(target.visible),
+    "currentCostume": json_number(Double::from_int(target.current_costume)),
+    "variables": json_object(target.variables),
+    "lists": json_object(lists_json),
+  })
+}
+
+///|
+fn snapshot_to_json(vm : Vm) -> Json {
+  let targets = []
+  for target in vm.targets {
+    if !target.deleted {
+      targets.push(target_snapshot_json(target))
+    }
+  }
+  json_object({
+    "runId": json_number(Double::from_int(vm.run_id)),
+    "nowMs": json_number(Double::from_int(vm.now_ms)),
+    "running": json_bool(vm.running),
+    "answer": json_string(vm.answer),
+    "musicTempo": json_number(vm.music_tempo),
+    "textToSpeechLanguage": json_string(vm.tts_language),
+    "activeThreads": json_number(Double::from_int(vm.threads.length())),
+    "targets": json_array(targets),
+  })
+}

package/src/cmd/AGENTS.md

@@ -0,0 +1,5 @@
+# src/cmd
+
+- Directory for CLI-related code.
+- Add implementations minimally via `src/cmd/main/`.
+- If shared logic is needed, move it to `src/` for reuse.

package/src/cmd/main/AGENTS.md

@@ -0,0 +1,5 @@
+# src/cmd/main
+
+- Manages the CLI entrypoint.
+- Handle argument parsing and I/O here, keeping domain logic in `src/`.
+- After changes, confirm no regression in existing CLI behavior with `moon test`.

package/src/cmd/main/main.mbt

@@ -0,0 +1,29 @@
+///|
+fn main {
+  let minimal_project =
+    #|{
+    #|  "targets": [
+    #|    {
+    #|      "isStage": true,
+    #|      "name": "Stage",
+    #|      "variables": {},
+    #|      "lists": {},
+    #|      "blocks": {}
+    #|    }
+    #|  ]
+    #|}
+
+  let vm_result = try? ({
+    let precompiled = @moonscratch.vm_compile_from_json(minimal_project)
+    @moonscratch.vm_new_from_compiled(precompiled)
+  })
+  match vm_result {
+    Ok(vm) => {
+      @moonscratch.vm_start(vm)
+      @moonscratch.vm_set_time(vm, 16)
+      let report = @moonscratch.vm_step_frame(vm)
+      println("step report: \{report}")
+    }
+    Err(_) => println("failed to initialize vm")
+  }
+}

package/src/cmd/main/moon.pkg

@@ -0,0 +1,7 @@
+import {
+  "nakasyou/moonscratch" @moonscratch,
+}
+
+options(
+  "is-main": true,
+)

package/src/cmd/main/pkg.generated.mbti

@@ -0,0 +1,13 @@
+// Generated using `moon info`, DON'T EDIT IT
+package "nakasyou/moonscratch/cmd/main"
+
+// Values
+
+// Errors
+
+// Types and methods
+
+// Type aliases
+
+// Traits
+

package/src/json_helpers.mbt

@@ -0,0 +1,176 @@
+///|
+fn[T] invalid_project(message : String) -> T raise VmError {
+  raise VmError::InvalidProject(message)
+}
+
+///|
+fn parse_json_or_fail(raw : String) -> Json raise VmError {
+  let parsed = try? @json.parse(raw)
+  match parsed {
+    Ok(json) => json
+    Err(err) => invalid_project("failed to parse json: \{err}")
+  }
+}
+
+///|
+fn expect_object(
+  json : Json,
+  context : String,
+) -> Map[String, Json] raise VmError {
+  match json {
+    Object(map) => map
+    _ => invalid_project("\{context} must be a JSON object")
+  }
+}
+
+///|
+fn expect_array(json : Json, context : String) -> Array[Json] raise VmError {
+  match json {
+    Array(values) => values
+    _ => invalid_project("\{context} must be a JSON array")
+  }
+}
+
+///|
+fn object_get(obj : Map[String, Json], key : String) -> Json? {
+  obj.get(key)
+}
+
+///|
+fn object_get_or(
+  obj : Map[String, Json],
+  key : String,
+  fallback : Json,
+) -> Json {
+  obj.get_or_default(key, fallback)
+}
+
+///|
+fn object_get_string_or(
+  obj : Map[String, Json],
+  key : String,
+  fallback : String,
+) -> String {
+  match obj.get(key) {
+    Some(String(s)) => s
+    _ => fallback
+  }
+}
+
+///|
+fn object_get_bool_or(
+  obj : Map[String, Json],
+  key : String,
+  fallback : Bool,
+) -> Bool {
+  match obj.get(key) {
+    Some(True) => true
+    Some(False) => false
+    _ => fallback
+  }
+}
+
+///|
+fn object_get_number_or(
+  obj : Map[String, Json],
+  key : String,
+  fallback : Double,
+) -> Double {
+  match obj.get(key) {
+    Some(Number(n, ..)) => n
+    _ => fallback
+  }
+}
+
+///|
+fn object_get_object_or_empty(
+  obj : Map[String, Json],
+  key : String,
+) -> Map[String, Json] {
+  match obj.get(key) {
+    Some(Object(map)) => map
+    _ => {}
+  }
+}
+
+///|
+fn json_to_string_value(json : Json) -> String {
+  match json {
+    String(s) => s
+    Number(n, ..) => n.to_string()
+    True => "true"
+    False => "false"
+    Null => ""
+    _ => json.stringify()
+  }
+}
+
+///|
+fn parse_double_or_none(s : String) -> Double? {
+  let trimmed = s.trim().to_string()
+  if trimmed.is_empty() {
+    None
+  } else {
+    let parsed = try? @strconv.parse_double(trimmed)
+    match parsed {
+      Ok(value) => Some(value)
+      Err(_) => None
+    }
+  }
+}
+
+///|
+fn json_to_number_value(json : Json) -> Double {
+  match json {
+    Number(n, ..) => n
+    String(s) =>
+      match parse_double_or_none(s) {
+        Some(value) => value
+        None => 0.0
+      }
+    True => 1.0
+    False => 0.0
+    Null => 0.0
+    _ => 0.0
+  }
+}
+
+///|
+fn json_to_bool_value(json : Json) -> Bool {
+  match json {
+    True => true
+    False => false
+    Number(n, ..) => n != 0.0
+    String(s) => {
+      let lowered = s.trim().to_lower()
+      lowered != "" && lowered != "0" && lowered != "false"
+    }
+    Null => false
+    _ => true
+  }
+}
+
+///|
+fn json_number(value : Double) -> Json {
+  Json::number(value)
+}
+
+///|
+fn json_string(value : String) -> Json {
+  Json::string(value)
+}
+
+///|
+fn json_bool(value : Bool) -> Json {
+  Json::boolean(value)
+}
+
+///|
+fn json_array(values : Array[Json]) -> Json {
+  Json::array(values)
+}
+
+///|
+fn json_object(values : Map[String, Json]) -> Json {
+  Json::object(values)
+}

package/src/moon.pkg

@@ -0,0 +1,65 @@
+import {
+  "moonbitlang/core/encoding/base64" @base64,
+  "moonbitlang/core/encoding/utf8" @utf8,
+  "moonbitlang/core/json" @json,
+  "moonbitlang/core/math" @math,
+  "moonbitlang/core/strconv" @strconv,
+}
+
+options(
+  link: {
+    "js": {
+      "exports": [
+        "vm_compile_from_json",
+        "vm_compile_project_to_wat",
+        "vm_compile_project_to_wasm",
+        "vm_abi_version",
+        "vm_new_from_compiled",
+        "vm_start",
+        "vm_green_flag",
+        "vm_step_frame",
+        "vm_set_time",
+        "vm_set_aot_commands_json",
+        "vm_get_variable_number_by_id",
+        "vm_set_variable_number_by_id",
+        "vm_set_variable_json_by_id",
+        "vm_exec_script_tail_by_pc",
+        "vm_exec_opcode_once_by_pc",
+        "vm_exec_draw_opcode",
+        "vm_post_io_json",
+        "vm_broadcast",
+        "vm_stop_all",
+        "vm_take_effects_json",
+        "vm_snapshot_json",
+        "vm_render_frame",
+      ],
+      "format": "esm",
+    },
+    "wasm-gc": {
+      "exports": [
+        "vm_compile_from_json",
+        "vm_compile_project_to_wat",
+        "vm_compile_project_to_wasm",
+        "vm_abi_version",
+        "vm_new_from_compiled",
+        "vm_start",
+        "vm_green_flag",
+        "vm_step_frame",
+        "vm_set_time",
+        "vm_set_aot_commands_json",
+        "vm_get_variable_number_by_id",
+        "vm_set_variable_number_by_id",
+        "vm_set_variable_json_by_id",
+        "vm_exec_script_tail_by_pc",
+        "vm_exec_opcode_once_by_pc",
+        "vm_exec_draw_opcode",
+        "vm_post_io_json",
+        "vm_broadcast",
+        "vm_stop_all",
+        "vm_take_effects_json",
+        "vm_snapshot_json",
+        "vm_render_frame",
+      ],
+    },
+  },
+)

package/src/moonscratch.mbt

@@ -0,0 +1,3 @@
+// Main package file for your library code.
+// Put public APIs and shared helpers here.
+// Keep blocks small and focused for easy refactors.

package/src/moonscratch_wbtest.mbt

@@ -0,0 +1,40 @@
+///|
+test "default options" {
+  let options = default_vm_options()
+  inspect(options.max_clones, content="300")
+  inspect(options.turbo, content="false")
+}
+
+///|
+test "compile project to generated wat metadata" {
+  let minimal_project = "{\"targets\":[{\"isStage\":true,\"name\":\"Stage\",\"variables\":{},\"lists\":{},\"blocks\":{},\"costumes\":[]}]}"
+  let wat_result = try? vm_compile_project_to_wat(minimal_project)
+  let wat = match wat_result {
+    Ok(value) => value
+    Err(_) => fail("vm_compile_project_to_wat failed")
+  }
+  inspect(wat.contains(";; moonscratch_program_v1"), content="true")
+  inspect(wat.contains("(export \"ms_abi_version\")"), content="true")
+  inspect(wat.contains("(export \"ms_commands_len\")"), content="true")
+}
+
+///|
+test "compile project to generated wasm bytes" {
+  let minimal_project = "{\"targets\":[{\"isStage\":true,\"name\":\"Stage\",\"variables\":{},\"lists\":{},\"blocks\":{},\"costumes\":[]}]}"
+  let wasm_result = try? vm_compile_project_to_wasm(minimal_project)
+  let wasm_base64 = match wasm_result {
+    Ok(value) => value
+    Err(_) => fail("vm_compile_project_to_wasm failed")
+  }
+  let decoded = @base64.decode(wasm_base64.view()) catch {
+    _ => fail("vm_compile_project_to_wasm returned invalid base64")
+  }
+  let bytes = decoded.to_array()
+  if bytes.length() < 4 {
+    fail("wasm bytes are too short")
+  }
+  inspect(bytes[0] == (0x00).to_byte(), content="true")
+  inspect(bytes[1] == (0x61).to_byte(), content="true")
+  inspect(bytes[2] == (0x73).to_byte(), content="true")
+  inspect(bytes[3] == (0x6d).to_byte(), content="true")
+}