moonscratch 0.1.0 → 0.1.2

package/js/vm/value-guards.ts

@@ -1,18 +0,0 @@
-import type { JsonValue } from './types.ts'
-
-export const isObjectRecord = (
-  value: unknown,
-): value is Record<string, JsonValue | unknown> =>
-  typeof value === 'object' && value !== null && !Array.isArray(value)
-
-export const hasStringField = (
-  value: unknown,
-  key: string,
-): value is { [k: string]: string } =>
-  isObjectRecord(value) && typeof value[key] === 'string'
-
-export const hasNumberField = (
-  value: unknown,
-  key: string,
-): value is { [k: string]: number } =>
-  isObjectRecord(value) && typeof value[key] === 'number'

package/moon.mod.json

@@ -1,10 +0,0 @@
-{
-  "name": "nakasyou/moonscratch",
-  "version": "0.1.0",
-  "source": "src",
-  "readme": "README.mbt.md",
-  "repository": "",
-  "license": "Apache-2.0",
-  "keywords": [],
-  "description": ""
-}

package/scripts/preinstall.ts

@@ -1,4 +0,0 @@
-await Bun.write(
-  './node_modules/@scratch/scratch-vm/browser/default-stylesheet.css',
-  '',
-)

package/src/AGENTS.md

@@ -1,6 +0,0 @@
-# src
-
-- This is the core MoonBit implementation package.
-- Keep tests in `src/` limited to unit tests.
-- Add macro-level behavior checks under `src/test/projects/`.
-- When public API changes are involved, always inspect `.mbti` diffs after running `moon info`.

package/src/api.mbt

@@ -1,161 +0,0 @@
-///|
-pub fn vm_compile_from_json(
-  project_json : String,
-  assets_json? : String,
-) -> PrecompiledProject raise VmError {
-  let bundle = parse_bundle(project_json, assets_json)
-  compile_project(bundle)
-}
-
-///|
-pub fn vm_new_from_compiled(
-  precompiled : PrecompiledProject,
-  options_json? : String,
-) -> Vm raise VmError {
-  let options = parse_options_json(options_json)
-  vm_new_internal(precompiled, options)
-}
-
-///|
-pub fn vm_start(vm : Vm) -> Unit {
-  start_vm_runtime(vm)
-}
-
-///|
-pub fn vm_green_flag(vm : Vm) -> Unit {
-  green_flag_runtime(vm)
-}
-
-///|
-pub fn vm_step_frame(vm : Vm) -> FrameReport {
-  step_frame_runtime(vm)
-}
-
-///|
-pub fn vm_set_time(vm : Vm, now_ms : Int) -> Unit {
-  set_time_runtime(vm, now_ms)
-}
-
-///|
-pub fn vm_post_io_json(vm : Vm, device : String, payload_json : String) -> Unit {
-  post_io_json_runtime(vm, device, payload_json)
-}
-
-///|
-pub fn vm_set_aot_commands_json(
-  vm : Vm,
-  commands_json : String,
-) -> Unit raise VmError {
-  set_aot_commands_runtime(vm, commands_json)
-}
-
-///|
-pub fn vm_get_variable_number_by_id(
-  vm : Vm,
-  target_index : Int,
-  variable_id : String,
-) -> Double {
-  if variable_id == "" {
-    return 0.0
-  }
-  if target_index < 0 || target_index >= vm.targets.length() {
-    return 0.0
-  }
-  let current = read_variable(vm, target_index, Some(variable_id), None)
-  json_to_number_value(current)
-}
-
-///|
-pub fn vm_set_variable_number_by_id(
-  vm : Vm,
-  target_index : Int,
-  variable_id : String,
-  value : Double,
-) -> Unit {
-  if variable_id == "" {
-    return
-  }
-  if target_index < 0 || target_index >= vm.targets.length() {
-    return
-  }
-  write_variable(vm, target_index, Some(variable_id), None, json_number(value))
-}
-
-///|
-pub fn vm_set_variable_json_by_id(
-  vm : Vm,
-  target_index : Int,
-  variable_id : String,
-  value_json : String,
-) -> Unit {
-  if variable_id == "" {
-    return
-  }
-  if target_index < 0 || target_index >= vm.targets.length() {
-    return
-  }
-  if value_json.trim().is_empty() {
-    write_variable(vm, target_index, Some(variable_id), None, Json::null())
-    return
-  }
-  let parsed = try? @json.parse(value_json)
-  match parsed {
-    Ok(value) =>
-      write_variable(vm, target_index, Some(variable_id), None, value)
-    Err(_) =>
-      write_variable(vm, target_index, Some(variable_id), None, Json::null())
-  }
-}
-
-///|
-pub fn vm_exec_script_tail_by_pc(
-  vm : Vm,
-  target_index : Int,
-  start_pc : Int,
-) -> Int {
-  exec_script_tail_runtime(vm, target_index, start_pc)
-}
-
-///|
-pub fn vm_exec_opcode_once_by_pc(vm : Vm, target_index : Int, pc : Int) -> Int {
-  exec_opcode_once_runtime(vm, target_index, pc)
-}
-
-///|
-pub fn vm_exec_draw_opcode(
-  vm : Vm,
-  target_index : Int,
-  opcode : String,
-  arg0 : Double,
-  arg1 : Double,
-  extra : Int,
-) -> Int {
-  exec_draw_opcode_runtime(vm, target_index, opcode, arg0, arg1, extra)
-}
-
-///|
-pub fn vm_broadcast(vm : Vm, message : String) -> Unit {
-  broadcast_runtime(vm, message)
-}
-
-///|
-pub fn vm_stop_all(vm : Vm) -> Unit {
-  clear_threads(vm)
-  push_effect(vm, HostEffect::StopAllSounds)
-}
-
-///|
-pub fn vm_take_effects_json(vm : Vm) -> String {
-  let effects = take_effects(vm).map(effect_to_json)
-  json_array(effects).stringify()
-}
-
-///|
-pub fn vm_snapshot_json(vm : Vm) -> String {
-  snapshot_to_json(vm).stringify(indent=2)
-}
-
-///|
-pub fn vm_render_frame(vm : Vm) -> RenderFrame {
-  render_scene_to_frame(vm)
-}

package/src/api_aot_commands.mbt

@@ -1,184 +0,0 @@
-///|
-fn parse_aot_command(raw : Json, index : Int) -> AotCommand? raise VmError {
-  let obj = expect_object(raw, "aot_commands[\{index}]")
-  let op = object_get_string_or(obj, "op", "")
-  match op {
-    "set_var" => {
-      let target_index = object_get_number_or(obj, "target", -1.0).to_int()
-      if target_index < 0 {
-        invalid_project("aot_commands[\{index}].target must be >= 0")
-      }
-      let variable_id = object_get_string_or(obj, "id", "")
-      if variable_id == "" {
-        invalid_project("aot_commands[\{index}].id must be non-empty")
-      }
-      let value = object_get_or(obj, "value", Json::null())
-      Some(AotCommand::SetVariable(target_index, variable_id, value))
-    }
-    "change_var" => {
-      let target_index = object_get_number_or(obj, "target", -1.0).to_int()
-      if target_index < 0 {
-        invalid_project("aot_commands[\{index}].target must be >= 0")
-      }
-      let variable_id = object_get_string_or(obj, "id", "")
-      if variable_id == "" {
-        invalid_project("aot_commands[\{index}].id must be non-empty")
-      }
-      let delta = object_get_number_or(obj, "delta", 0.0)
-      Some(AotCommand::ChangeVariable(target_index, variable_id, delta))
-    }
-    "host_tail" => {
-      let target_index = object_get_number_or(obj, "target", -1.0).to_int()
-      if target_index < 0 {
-        invalid_project("aot_commands[\{index}].target must be >= 0")
-      }
-      let start_pc = object_get_number_or(obj, "pc", -1.0).to_int()
-      if start_pc < 0 {
-        invalid_project("aot_commands[\{index}].pc must be >= 0")
-      }
-      Some(AotCommand::HostTail(target_index, start_pc))
-    }
-    "host_opcode" => {
-      let target_index = object_get_number_or(obj, "target", -1.0).to_int()
-      if target_index < 0 {
-        invalid_project("aot_commands[\{index}].target must be >= 0")
-      }
-      let pc = object_get_number_or(obj, "pc", -1.0).to_int()
-      if pc < 0 {
-        invalid_project("aot_commands[\{index}].pc must be >= 0")
-      }
-      Some(AotCommand::HostOpcode(target_index, pc))
-    }
-    _ => None
-  }
-}
-
-///|
-fn parse_aot_exec_commands(parsed : Json) -> Array[AotCommand] raise VmError {
-  let commands = match parsed {
-    Array(values) => values
-    Object(obj) =>
-      match obj.get("exec") {
-        Some(raw_exec) => expect_array(raw_exec, "aot_commands.exec")
-        None => []
-      }
-    _ => expect_array(parsed, "aot_commands")
-  }
-  let out = []
-  for index, command in commands {
-    match parse_aot_command(command, index) {
-      Some(parsed) => out.push(parsed)
-      None => ()
-    }
-  }
-  out
-}
-
-///|
-fn parse_aot_full_green_flag_start_entries(
-  raw : Json,
-) -> (Map[Int, Array[Int]], Bool) raise VmError {
-  let entries = expect_array(raw, "aot_commands.full_green_flag_starts")
-  let out : Map[Int, Array[Int]] = {}
-  let mut has_any_start = false
-  for entry_index, raw_entry in entries {
-    let entry = expect_object(
-      raw_entry,
-      "aot_commands.full_green_flag_starts[\{entry_index}]",
-    )
-    let target_index = object_get_number_or(entry, "target", -1.0).to_int()
-    if target_index < 0 {
-      invalid_project(
-        "aot_commands.full_green_flag_starts[\{entry_index}].target must be >= 0",
-      )
-    }
-    let pcs_json = expect_array(
-      object_get_or(entry, "pcs", json_array([])),
-      "aot_commands.full_green_flag_starts[\{entry_index}].pcs",
-    )
-    let merged = match out.get(target_index) {
-      Some(existing) => existing.copy()
-      None => []
-    }
-    for pc_index, raw_pc in pcs_json {
-      let pc = json_to_number_value(raw_pc).to_int()
-      if pc < 0 {
-        invalid_project(
-          "aot_commands.full_green_flag_starts[\{entry_index}].pcs[\{pc_index}] must be >= 0",
-        )
-      }
-      merged.push(pc)
-      has_any_start = true
-    }
-    out[target_index] = merged
-  }
-  (out, has_any_start)
-}
-
-///|
-fn parse_aot_full_green_flag_starts(
-  parsed : Json,
-) -> (Map[Int, Array[Int]], Bool) raise VmError {
-  match parsed {
-    Object(obj) =>
-      match obj.get("full_green_flag_starts") {
-        Some(raw) => parse_aot_full_green_flag_start_entries(raw)
-        None => ({}, false)
-      }
-    _ => ({}, false)
-  }
-}
-
-///|
-fn parse_aot_exec_mode(parsed : Json, has_any_start : Bool) -> (Bool, Bool) {
-  match parsed {
-    Object(obj) =>
-      match obj.get("exec_mode") {
-        Some(String(raw_mode)) => {
-          let mode = raw_mode.trim().to_lower()
-          if mode == "full" || mode == "wasm" || mode == "wasm_full" {
-            (true, false)
-          } else if mode == "wasm_only" {
-            (false, true)
-          } else if mode == "linear" || mode == "linear_fast" {
-            (false, false)
-          } else {
-            (has_any_start, false)
-          }
-        }
-        _ => (has_any_start, false)
-      }
-    _ => (false, false)
-  }
-}
-
-///|
-fn parse_aot_commands_json(
-  commands_json : String,
-) -> (Array[AotCommand], Map[Int, Array[Int]], Bool, Bool) raise VmError {
-  if commands_json.trim().is_empty() {
-    return ([], {}, false, false)
-  }
-  let parsed = parse_json_or_fail(commands_json)
-  let commands = parse_aot_exec_commands(parsed)
-  let (full_green_flag_starts, has_any_start) = parse_aot_full_green_flag_starts(
-    parsed,
-  )
-  let (use_full_exec, wasm_only) = parse_aot_exec_mode(parsed, has_any_start)
-  (commands, full_green_flag_starts, use_full_exec, wasm_only)
-}
-
-///|
-fn set_aot_commands_runtime(
-  vm : Vm,
-  commands_json : String,
-) -> Unit raise VmError {
-  let (commands, full_green_flag_starts, use_full_exec, wasm_only) = parse_aot_commands_json(
-    commands_json,
-  )
-  vm.aot_commands = commands
-  vm.aot_full_green_flag_starts = full_green_flag_starts
-  vm.aot_use_full_exec = use_full_exec
-  vm.aot_wasm_only = wasm_only
-  vm.aot_pending = false
-}

package/src/api_effects_json.mbt

@@ -1,72 +0,0 @@
-///|
-fn effect_to_json(effect : HostEffect) -> Json {
-  match effect {
-    PlaySound(target, sound) =>
-      json_object({
-        "type": json_string("play_sound"),
-        "target": json_string(target),
-        "sound": json_string(sound),
-      })
-    PlayNote(target, note, beats, instrument, tempo) =>
-      json_object({
-        "type": json_string("music_play_note"),
-        "target": json_string(target),
-        "note": json_number(Double::from_int(note)),
-        "beats": json_number(beats),
-        "instrument": json_number(Double::from_int(instrument)),
-        "tempo": json_number(tempo),
-      })
-    PlayDrum(target, drum, beats, tempo) =>
-      json_object({
-        "type": json_string("music_play_drum"),
-        "target": json_string(target),
-        "drum": json_number(Double::from_int(drum)),
-        "beats": json_number(beats),
-        "tempo": json_number(tempo),
-      })
-    TextToSpeech(target, words, voice, language, wait_key) =>
-      json_object({
-        "type": json_string("text_to_speech"),
-        "target": json_string(target),
-        "words": json_string(words),
-        "voice": json_string(voice),
-        "language": json_string(language),
-        "waitKey": json_string(wait_key),
-      })
-    TranslateRequest(words, language) =>
-      json_object({
-        "type": json_string("translate_request"),
-        "words": json_string(words),
-        "language": json_string(language),
-      })
-    StopAllSounds => json_object({ "type": json_string("stop_all_sounds") })
-    Say(target, message) =>
-      json_object({
-        "type": json_string("say"),
-        "target": json_string(target),
-        "message": json_string(message),
-      })
-    Think(target, message) =>
-      json_object({
-        "type": json_string("think"),
-        "target": json_string(target),
-        "message": json_string(message),
-      })
-    Ask(question) =>
-      json_object({
-        "type": json_string("ask"),
-        "question": json_string(question),
-      })
-    Broadcast(message) =>
-      json_object({
-        "type": json_string("broadcast"),
-        "message": json_string(message),
-      })
-    Log(level, message) =>
-      json_object({
-        "type": json_string("log"),
-        "level": json_string(level),
-        "message": json_string(message),
-      })
-  }
-}

package/src/api_options.mbt

@@ -1,60 +0,0 @@
-///|
-fn parse_options_json(options_json : String?) -> VmOptions raise VmError {
-  let options = default_vm_options()
-  match options_json {
-    Some(raw) => {
-      if raw.trim().is_empty() {
-        return options
-      }
-      let parsed = parse_json_or_fail(raw)
-      let obj = expect_object(parsed, "options")
-      options.turbo = object_get_bool_or(obj, "turbo", options.turbo)
-      options.compatibility_30tps = object_get_bool_or(
-        obj,
-        "compatibility_30tps",
-        options.compatibility_30tps,
-      )
-      options.max_clones = object_get_number_or(
-        obj,
-        "max_clones",
-        Double::from_int(options.max_clones),
-      ).to_int()
-      options.deterministic = object_get_bool_or(
-        obj,
-        "deterministic",
-        options.deterministic,
-      )
-      options.seed = object_get_number_or(
-        obj,
-        "seed",
-        Double::from_int(options.seed),
-      ).to_int()
-      options.pen_width = object_get_number_or(
-        obj,
-        "pen_width",
-        Double::from_int(options.pen_width),
-      ).to_int()
-      options.pen_height = object_get_number_or(
-        obj,
-        "pen_height",
-        Double::from_int(options.pen_height),
-      ).to_int()
-      options.step_timeout_ticks = object_get_number_or(
-        obj,
-        "step_timeout_ticks",
-        Double::from_int(options.step_timeout_ticks),
-      ).to_int()
-      if options.pen_width <= 0 {
-        options.pen_width = 480
-      }
-      if options.pen_height <= 0 {
-        options.pen_height = 360
-      }
-      if options.step_timeout_ticks <= 0 {
-        options.step_timeout_ticks = 2048
-      }
-      options
-    }
-    None => options
-  }
-}