• en

Module Mpp_init

exception Exit of int
val exit : int -> 'a
val open_token : string Pervasives.ref
val close_token : string Pervasives.ref
val open_nesting_token : string Pervasives.ref
val close_nesting_token : string Pervasives.ref
val endline_comments_token : string Pervasives.ref
val open_comments_token : string Pervasives.ref
val close_comments_token : string Pervasives.ref
val open_foreign_token : string Pervasives.ref
val close_foreign_token : string Pervasives.ref
val newline_chars : Mpp_charset.t
val space_chars : Mpp_charset.t
val blank_chars : Mpp_charset.t
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 foreign : foreign_block_description Pervasives.ref
val set_foreign : string -> unit
val list_foreign : unit -> 'a