moonscratch 0.1.0 → 0.1.2

package/src/api_snapshot_json.mbt

@@ -1,44 +0,0 @@
-///|
-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

@@ -1,5 +0,0 @@
-# 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

@@ -1,5 +0,0 @@
-# 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

@@ -1,29 +0,0 @@
-///|
-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

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

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

@@ -1,13 +0,0 @@
-// 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

@@ -1,176 +0,0 @@
-///|
-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

@@ -1,65 +0,0 @@
-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

@@ -1,3 +0,0 @@
-// 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

@@ -1,40 +0,0 @@
-///|
-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")
-}