Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added get_* for tag printing status. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4555 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Pierre Weis 2002-03-22 20:43:07 +00:00
parent ad24962383
commit c4b203f34c
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
stdlib/format.ml
View File

@ -477,6 +477,8 @@ let pp_close_tag state () =
let pp_set_print_tags state b = state.pp_print_tags <- b;;
let pp_set_mark_tags state b = state.pp_mark_tags <- b;;
let pp_get_print_tags state () = state.pp_print_tags;;
let pp_get_mark_tags state () = state.pp_mark_tags;;
let pp_get_formatter_tag_functions state () =
{mark_open_tag = state.pp_mark_open_tag;
@ -821,8 +823,12 @@ and get_formatter_tag_functions =
pp_get_formatter_tag_functions std_formatter
and set_print_tags =
pp_set_print_tags std_formatter
and get_print_tags =
pp_get_print_tags std_formatter
and set_mark_tags =
pp_set_mark_tags std_formatter
and get_mark_tags =
pp_get_mark_tags std_formatter
;;

5
stdlib/format.mli
View File

@ -303,6 +303,9 @@ val set_mark_tags : bool -> unit;;
``verbatim'' material or richer decorated output depending on the
treatment of tags. Default behavior of the pretty printer is to
print tags and markers of tags. *)
val get_print_tags : unit -> bool;;
val get_mark_tags : unit -> bool;;
(** Return the current status of tag printing and marking. *)
(** {6 Ellipsis} *)
@ -471,6 +474,8 @@ val pp_set_tab : formatter -> unit -> unit;;
val pp_print_tab : formatter -> unit -> unit;;
val pp_set_print_tags : formatter -> bool -> unit;;
val pp_set_mark_tags : formatter -> bool -> unit;;
val pp_get_print_tags : formatter -> unit -> bool;;
val pp_get_mark_tags : formatter -> unit -> bool;;
val pp_set_margin : formatter -> int -> unit;;
val pp_get_margin : formatter -> unit -> int;;
val pp_set_max_indent : formatter -> int -> unit;;