From 4d61b0c12eb94e220740e39e10a7678cdc0a5a85 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 16 Oct 2003 14:52:09 +0000
Subject: Debranchement de l'affichage systematique des projections avec la
 notation pointee; soumis maintenant a l'activation de l'option 'Set Printing
 Projections'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4649 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/constrextern.ml    | 7 +++++--
 toplevel/vernacentries.ml | 8 ++++++++
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index ea17a9fba5..1be3b805a5 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -57,6 +57,9 @@ let print_universes = ref false
 (* This suppresses printing of numeral and symbols *)
 let print_no_symbol = ref false
 
+(* This governs printing of projections using the dot notation symbols *)
+let print_projections = ref false
+
 let print_meta_as_hole = ref false
 
 let with_arguments f = Options.with_option print_arguments f
@@ -465,12 +468,12 @@ let occur_name na aty =
     | Anonymous -> false
 
 let is_projection nargs = function
-  | Some r ->
+  | Some r when !print_projections ->
       (try 
 	let n = Recordops.find_projection_nparams r + 1 in
 	if n <= nargs then Some n else None
       with Not_found -> None)
-  | None -> None
+  | _ -> None
 
 let stdlib = function
   | Some r -> 
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index b9150a30e3..3f979d9b1c 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -719,6 +719,14 @@ let _ =
       optread  = (fun () -> !Constrextern.print_implicits);
       optwrite = (fun b ->  Constrextern.print_implicits := b) }
 
+let _ =
+  declare_bool_option 
+    { optsync  = true;
+      optname  = "projection printing using dot notation";
+      optkey   = (SecondaryTable ("Printing","Projections"));
+      optread  = (fun () -> !Constrextern.print_projections);
+      optwrite = (fun b ->  Constrextern.print_projections := b) }
+
 let _ =
   declare_bool_option 
     { optsync  = true;
-- 
cgit v1.2.3