diff options
| author | filliatr | 1999-09-08 14:03:26 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-08 14:03:26 +0000 |
| commit | 688b7e663ca7b09770f2bd187258e8499d2bf097 (patch) | |
| tree | d63f81b4fe683211858a7225bec4c82157bb0a8f | |
| parent | 89a65b785781c23f520cf35008d4fe1a2c394c32 (diff) | |
printers pour le debugger
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@60 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | dev/db | 4 | ||||
| -rw-r--r-- | dev/db_printers.ml | 9 |
2 files changed, 13 insertions, 0 deletions
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) + + |