32 lines
1012 B
OCaml
32 lines
1012 B
OCaml
(* Accessors for the table of toplevel value bindings. These functions
|
|
must appear as first and second exported functions in this module.
|
|
(See module Translmod.) *)
|
|
val getvalue : string -> Obj.t
|
|
val setvalue : string -> Obj.t -> unit
|
|
(* End of: accessors for table of toplevel value bindings that must be first in the module signature *)
|
|
|
|
val print_toplevel_value_bindings : Format.formatter -> unit
|
|
|
|
val toplevel_env : Env.t ref
|
|
|
|
type evalenv = Format.formatter -> string -> unit
|
|
|
|
val init : Format.formatter -> evalenv
|
|
|
|
type directive_fun =
|
|
| Directive_none of (unit -> unit)
|
|
| Directive_string of (string -> unit)
|
|
| Directive_int of (int -> unit)
|
|
| Directive_ident of (Longident.t -> unit)
|
|
| Directive_bool of (bool -> unit)
|
|
|
|
type directive_info = { section : string; doc : string }
|
|
|
|
val add_directive : Misc.filepath -> directive_fun -> directive_info -> unit
|
|
|
|
val directive_info_table : (string, directive_info) Hashtbl.t
|
|
|
|
val ppf : Format.formatter ref
|
|
|
|
val eval : evalenv option ref
|