src/Pure/ML/ml_init.ML

support for @{instantiate (no_beta) ...};

(*  Title:      Pure/ML/ml_init.ML
    Author:     Makarius

Initial ML environment.
*)

val seconds = Time.fromReal;

val _ =
  List.app ML_Name_Space.forget_val
    ["isSome", "getOpt", "valOf", "foldl", "foldr", "print", "explode", "concat", "Interrupt"];

val ord = SML90.ord;
val chr = SML90.chr;
val raw_explode = SML90.explode;
val implode = String.concat;

val pointer_eq = PolyML.pointerEq;

val error_depth = PolyML.error_depth;

structure Basic_Exn: BASIC_EXN = Exn;
open Basic_Exn;

structure String =
struct
  open String;
  fun substring (s, i, n) =
    if n = 1 then String.str (String.sub (s, i))
    else String.substring (s, i, n);
end;

structure Substring =
struct
  open Substring;
  val empty = full "";

local
  val chars = Vector.tabulate (Char.maxOrd, Substring.full o String.str o Char.chr);
in
  fun full str =
    (case String.size str of
      0 => empty
    | 1 => Vector.sub (chars, Char.ord (String.sub (str, 0)))
    | _ => Substring.full str);
end;

end;