spice/lib/spice.ml

module Ast = Spice_syntax.Ast
module Code = Spice_runtime.Code
module Value = Spice_runtime.Value

exception Error of string

let failf f =
  Fmt.kstr (fun s -> raise (Error s)) f

let parse input =
  let open Spice_syntax in
  let lexbuf = Lexing.from_string input ~with_positions:true in
  try
    Parser.modl Lexer.read lexbuf
  with
  | Parser.Error -> failf "syntax error"
  | Lexer.Error msg -> failf "syntax error: %s" msg

let compile ast = Spice_compile.Bcc.compile ast

let run prog =
  let open Spice_runtime in
  try
    let stdlib = Value.native_lib Interp.stdlib in
    Interp.run prog stdlib
  with
  | Interp.Runtime_error msg -> failf "runtime error: %s" msg