From 5780119aea0a20e74f7c153add432f5d491ee2a5 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 13 Apr 2010 19:54:23 +0000 Subject: [PATCH] print nobjects (hack with Obj.magic) From: tassi --- helm/software/components/grafite/grafiteAstPp.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml index f489b15b5..66994a410 100644 --- a/helm/software/components/grafite/grafiteAstPp.ml +++ b/helm/software/components/grafite/grafiteAstPp.ml @@ -96,6 +96,7 @@ let rec pp_ntactic ~map_unicode_to_tex = pp_tactic_pattern ~map_unicode_to_tex ~lazy_term_pp ~term_pp in function | NApply (_,t) -> "napply " ^ CicNotationPp.pp_term t + | NSmartApply (_,t) -> "fixme" | NAuto (_,(None,flgs)) -> "nauto" ^ String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs) @@ -376,14 +377,14 @@ let pp_coercion ~term_pp t do_composites arity saturations= (term_pp t) arity saturations (if do_composites then "" else "nocomposites") -let pp_ncommand = function +let pp_ncommand ~obj_pp = function | UnificationHint (_,t, n) -> "unification hint " ^ string_of_int n ^ " " ^ CicNotationPp.pp_term t | NDiscriminator (_,_) | NInverter (_,_,_,_,_) - | NObj (_,_) | NUnivConstraint (_) -> "not supported" | NCoercion (_) -> "not supported" + | NObj (_,obj) -> obj_pp obj | NQed (_) -> "nqed" | NCopy (_,name,uri,map) -> "copy " ^ name ^ " from " ^ NUri.string_of_uri uri ^ " with " ^ @@ -456,7 +457,9 @@ let pp_executable ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp = pp_non_punctuation_tactical tac ^ pp_punctuation_tactical punct | Command (_, cmd) -> pp_command ~term_pp ~obj_pp cmd ^ "." - | NCommand (_, cmd) -> pp_ncommand cmd ^ "." + | NCommand (_, cmd) -> + let obj_pp = Obj.magic obj_pp in + pp_ncommand ~obj_pp cmd ^ "." let pp_comment ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp = function -- 2.39.2