added set_ppterm

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index a792e865d060dfdca75eda3b28b01d09427e1930..6f9a70d50de2a4a44427882445d1d6433766c181 100644 (file)
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -1 +1,9 @@
-let ppterm t = "TODO";;
+let ppterm = 
+  ref (fun ~context ~subst ~metasenv t -> "Please, set a pp callback")
+;;
+
+let set_ppterm f = ppterm := f;;
+
+let ppterm ?(context=[]) ?(subst=[]) ?(metasenv=[]) t = 
+  !ppterm ~context ~subst ~metasenv t
+;;

diff --git a/helm/software/components/ng_kernel/nCicPp.mli b/helm/software/components/ng_kernel/nCicPp.mli
index 3aa3c027d34d3f91b7876cf90cea0aa0905b0b64..7a88824c049d8792cce99d2944f2ede4583eff44 100644 (file)
--- a/helm/software/components/ng_kernel/nCicPp.mli
+++ b/helm/software/components/ng_kernel/nCicPp.mli
@@ -1 +1,11 @@
-val ppterm: NCic.term -> string
+val set_ppterm: 
+  (context:NCic.context -> 
+   subst:NCic.substitution -> 
+   metasenv:NCic.metasenv ->
+    NCic.term -> string) -> unit
+
+val ppterm: 
+  ?context:NCic.context -> 
+  ?subst:NCic.substitution -> 
+  ?metasenv:NCic.metasenv ->
+   NCic.term -> string