diff options
| author | gregoire | 2003-03-26 14:02:21 +0000 |
|---|---|---|
| committer | gregoire | 2003-03-26 14:02:21 +0000 |
| commit | 8e13e6233ee4fc002f42290f1b7ae64a6e627162 (patch) | |
| tree | 4cb6a8d9e9457579b5c011680eda287be12f47c2 /lib | |
| parent | c491bb6d0cb8295af9e49cf2643ebc48de3629d8 (diff) | |
Ajout de Set Print Width
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3790 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp_control.ml | 6 | ||||
| -rw-r--r-- | lib/pp_control.mli | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 44f3514588..caa985c185 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -96,7 +96,13 @@ let _ = set_gp deep_ft deep_gp (* For parametrization through vernacular *) let default = Format.pp_get_max_boxes !std_ft () +let default_margin = Format.pp_get_margin !std_ft () + let get_depth_boxes () = Some (Format.pp_get_max_boxes !std_ft ()) let set_depth_boxes v = Format.pp_set_max_boxes !std_ft (match v with None -> default | Some v -> v) +let get_margin () = Some (Format.pp_get_margin !std_ft ()) +let set_margin v = + Format.pp_set_margin !std_ft (match v with None -> default_margin | Some v -> v) + diff --git a/lib/pp_control.mli b/lib/pp_control.mli index 256cc26dea..b7cc42d112 100644 --- a/lib/pp_control.mli +++ b/lib/pp_control.mli @@ -44,3 +44,6 @@ val deep_ft : Format.formatter val set_depth_boxes : int option -> unit val get_depth_boxes : unit -> int option + +val set_margin : int option -> unit +val get_margin : unit -> int option |