From 688b7e663ca7b09770f2bd187258e8499d2bf097 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 8 Sep 1999 14:03:26 +0000
Subject: printers pour le debugger

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@60 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/db             | 4 ++++
 dev/db_printers.ml | 9 +++++++++
 2 files changed, 13 insertions(+)
 create mode 100644 dev/db
 create mode 100644 dev/db_printers.ml

(limited to 'dev')

diff --git a/dev/db b/dev/db
new file mode 100644
index 0000000000..84223c7454
--- /dev/null
+++ b/dev/db
@@ -0,0 +1,4 @@
+load_printer "db_printers.cmo"
+install_printer Db_printers.prid
+install_printer Db_printers.prsp
+
diff --git a/dev/db_printers.ml b/dev/db_printers.ml
new file mode 100644
index 0000000000..6290297ffb
--- /dev/null
+++ b/dev/db_printers.ml
@@ -0,0 +1,9 @@
+open Pp
+open Names
+
+let pP s = pP (hOV 0 s)
+
+let prid id = Format.print_string (string_of_id id)
+let prsp sp = Format.print_string (string_of_path sp)
+
+
-- 
cgit v1.2.3