added Baseuri command

diff --git a/helm/ocaml/cic_transformations/tacticAst.ml b/helm/ocaml/cic_transformations/tacticAst.ml
index fd5bde9044bede04b9768a7b7de013992b60b554..7be8293da592073d748b4b37fbbf98307b5af39d 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAst.ml
+++ b/helm/ocaml/cic_transformations/tacticAst.ml
@@ -78,6 +78,7 @@ type thm_flavour =
 
 type 'term command =
   | Abort
+  | Baseuri of string option (** get/set base uri *)
   | Check of 'term
   | Proof
   | Qed of string option

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index f21aca6ba0c2668cacab3a72d2fc74db88a4af7c..76f1bbd5623961fa624a52e7253ba41027130d77 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -89,6 +89,8 @@ let pp_flavour = function
 
 let pp_command = function
   | Abort -> "Abort"
+  | Baseuri (Some uri) -> sprintf "Baseuri \"%s\"" uri
+  | Baseuri None -> "Baseuri"
   | Check term -> sprintf "Check %s" (CicAstPp.pp_term term)
   | Proof -> "Proof"
   | Qed name ->