From 4697402a6305f364dc00925ba0267da3accb35d8 Mon Sep 17 00:00:00 2001
From: glondu
Date: Thu, 12 Jul 2007 23:41:01 +0000
Subject: (Port of r9984) Easier debugging:  * explicitation of some types  *
 tags for grammar entries

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9989 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 Makefile           | 4 ++++
 proofs/refiner.mli | 2 +-
 proofs/tacmach.mli | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 53fdd8097c..d8b9680f96 100644
--- a/Makefile
+++ b/Makefile
@@ -1453,6 +1453,10 @@ tags:
               "--regex=/exception[ \t]+\([^ \t]+\)/\1/" \
 	      "--regex=/val[ \t]+\([^ \t]+\)/\1/" \
 	      "--regex=/module[ \t]+\([^ \t]+\)/\1/"
+	find . -maxdepth 3 -name "*.ml4" | sort -r | xargs \
+	etags --append --language=none\
+	      "--regex=/[ \t]*\([^: \t]+\)[ \t]*:/\1/"
+
 
 otags: 
 	find . -maxdepth 3 -name "*.ml" -o -name "*.mli" \
diff --git a/proofs/refiner.mli b/proofs/refiner.mli
index 03a32bab87..530a72a379 100644
--- a/proofs/refiner.mli
+++ b/proofs/refiner.mli
@@ -28,7 +28,7 @@ val pf_hyps : goal sigma -> named_context
 val unpackage : 'a sigma -> evar_map ref * 'a
 val repackage : evar_map ref -> 'a -> 'a sigma
 val apply_sig_tac :
-  evar_map ref -> ('a sigma -> 'b sigma * 'c) -> 'a -> 'b * 'c
+  evar_map ref -> (goal sigma -> (goal list) sigma * validation) -> goal -> (goal list) * validation
 
 type transformation_tactic = proof_tree -> (goal list * validation)
 
diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli
index 1d0cfe0d66..ed95ef285a 100644
--- a/proofs/tacmach.mli
+++ b/proofs/tacmach.mli
@@ -37,7 +37,7 @@ val re_sig : 'a -> evar_map -> 'a sigma
 val unpackage : 'a sigma -> evar_map ref * 'a
 val repackage : evar_map ref -> 'a -> 'a sigma
 val apply_sig_tac :
-  evar_map ref -> ('a sigma -> 'b sigma * 'c) -> 'a -> 'b * 'c
+  evar_map ref -> (goal sigma -> (goal list) sigma * validation) -> goal -> (goal list) * validation
 
 val pf_concl              : goal sigma -> types
 val pf_env                : goal sigma -> env
-- 
cgit v1.2.3