From 3a7341726c77ac2ab218cf9bc08a739c871910d0 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Mon, 7 Apr 2008 14:58:39 +0000 Subject: [PATCH] better printings --- helm/software/components/ng_kernel/rt.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/helm/software/components/ng_kernel/rt.ml b/helm/software/components/ng_kernel/rt.ml index bdf182577..89e863ffc 100644 --- a/helm/software/components/ng_kernel/rt.ml +++ b/helm/software/components/ng_kernel/rt.ml @@ -3,15 +3,20 @@ let _ = NCicPp.set_ppterm NCicPp.trivial_pp_term; let u = UriManager.uri_of_string Sys.argv.(1) in let o, _ = CicEnvironment.get_obj CicUniv.oblivion_ugraph u in + prerr_endline "VECCHIO"; + prerr_endline (CicPp.ppobj o); let l = OCic2NCic.convert_obj u o in + prerr_endline "OGGETTI:........................................."; List.iter (fun o -> prerr_endline (NCicPp.ppobj o)) l; + prerr_endline "/OGGETTI:........................................."; let objs = List.flatten (List.map NCic2OCic.convert_nobj l) in List.iter (fun (u,o) -> - prerr_endline ("------- " ^ UriManager.string_of_uri u); + prerr_endline ("round trip: " ^ UriManager.string_of_uri u); prerr_endline (CicPp.ppobj o); + prerr_endline "tipo......."; try CicTypeChecker.typecheck_obj u o with CicTypeChecker.TypeCheckerFailure s -- 2.39.2