From cfb4d4e05fe41dda9507372f31b8ced11d3f2fe4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 23 May 2000 19:34:48 +0000
Subject: Réparation bug d'affichage et affichage des instanciations par des
 {...}

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@472 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 5fa57bd39e..bad9c38667 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -16,23 +16,37 @@ let emacs_str s = if !Options.print_emacs then s else ""
 
 let dfltpr ast = [< 'sTR"#GENTERM " ; Ast.print_ast ast >];;
 
-(*
 let section_path sl s =
   let sl = List.rev sl in
   make_path (List.tl sl) (id_of_string (List.hd sl)) (kind_of_string s)
 
+(*
 let pr_global k oper =
   let id = id_of_global oper in
   [< 'sTR (string_of_id id) >]
 *)
 
+let pr_qualified_path sp id =
+  if Nametab.sp_of_id (kind_of_path sp) id = sp then [<'sTR(string_of_id id)>]
+  else [<'sTR(string_of_path (make_path (dirpath sp) id (kind_of_path sp)))>]
+
 let globpr gt = match gt with
   | Nvar(_,s) -> [< 'sTR s >]
+  | Node(_,"EVAR", [Num (_,ev)]) -> [< 'sTR ("?" ^ (string_of_int ev)) >]
+  | Node(_,"CONST",[Path(_,sl,s)]) ->
+      let sp = section_path sl s in
+      pr_qualified_path sp (basename (section_path sl s))
+  | Node(_,"MUTIND",[Path(_,sl,s); Num(_,tyi)]) ->
+      let sp = section_path sl s in
+      pr_qualified_path sp (Global.id_of_global (MutInd (sp,tyi)))
+  | Node(_,"MUTCONSTRUCT",[Path(_,sl,s); Num(_,tyi); Num(_,i)]) ->
+      let sp = section_path sl s in
+      pr_qualified_path sp (Global.id_of_global (MutConstruct ((sp,tyi),i)))
 (*
   | Node(_,"EVAR", (Num (_,ev))::_) ->
       if !print_arguments then dfltpr gt
       else pr_existential (ev,[])
-  | Node(_,"CONST",(Path(_,sl,s))::_) ->
+  | Node(_,"CONST"),(Path(_,sl,s))::_) ->
       if !print_arguments then dfltpr gt
       else pr_constant (section_path sl s,[])
   | Node(_,"MUTIND",(Path(_,sl,s))::(Num(_,tyi))::_) ->
-- 
cgit v1.2.3