X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=fd89f464880d3a3d85be4ea594ac5804d9fad8af;hb=cd664aefb80554952ed9b010f0c5199ce3a6f8f2;hp=bfa5f9cdbdc3e3dba59ae234e2789cc5faf17056;hpb=b8dac1f8f6b664b78e58c152cd3960e121713f5d;p=helm.git

diff --git a/matita/components/grafite_engine/grafiteTypes.mli b/matita/components/grafite_engine/grafiteTypes.mli
index bfa5f9cdb..fd89f4648 100644
--- a/matita/components/grafite_engine/grafiteTypes.mli
+++ b/matita/components/grafite_engine/grafiteTypes.mli
@@ -34,19 +34,15 @@ val command_error: string -> 'a   (** @raise Command_error *)
 class status :
  string ->
   object ('self)
-   method moo_content_rev: GrafiteMarshal.moo
-   method set_moo_content_rev: GrafiteMarshal.moo -> 'self
-   method objects: UriManager.uri list
-   method set_objects: UriManager.uri list -> 'self
+   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+   inherit NTacStatus.tac_status
+   inherit NCicLibrary.dumpable_status
+   inherit NCicLibrary.status
+   inherit GrafiteParser.status
    method baseuri: string
    method set_baseuri: string -> 'self
    method ng_mode: [`ProofMode | `CommandMode]
    method set_ng_mode: [`ProofMode | `CommandMode] -> 'self
-   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
-   inherit NTacStatus.tac_status
   end
 
-val dump_status : status -> unit
-
-  (** list is not reversed, head command will be the first emitted *)
-val add_moo_content: GrafiteMarshal.ast_command list -> status -> status
+module Serializer: NCicLibrary.SerializerType with type dumpable_status = status