Module Mpp_init
exception Exit of int
val exit : int -> 'a
type foreign_block_description = {
name : string;
command : string;
suffix : string;
print : string -> string;
char_escape : char -> string;
string_escape : string -> string;
force_line_number : ?filename:string -> int -> string;
}
foreign blocks
val foreign_blocks : foreign_block_description list
val default_foreign_block : foreign_block_description
val set_foreign : string -> unit
val list_foreign : unit -> 'a