X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;fp=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=c30beead02301170bf77e08cb3ea9dbcf5183867;hb=290350836dd1727b3e3cdd4ee71e666a39cc4a09;hp=867e5299e47ed323bbeb8f5edaea61aa24298fba;hpb=f4c17198d8afe7c8cd62dbab527d08902d891491;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index 867e5299e..c30beead0 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -46,15 +46,30 @@ type ng_status =
   | ProofMode of NTacStatus.tac_status
   | CommandMode of NEstatus.status
 
-type status = {
-  moo_content_rev: GrafiteMarshal.moo;
-  proof_status: proof_status;
-  objects: UriManager.uri list;
-  coercions: CoercDb.coerc_db;
-  automation_cache:AutomationCache.cache;  
-  baseuri: string;
-  ng_status: ng_status;
-}
+class status :
+ GrafiteMarshal.moo ->
+ proof_status ->
+ UriManager.uri list ->
+ CoercDb.coerc_db ->
+ AutomationCache.cache ->
+ string ->
+ ng_status ->
+  object ('self)
+   method moo_content_rev: GrafiteMarshal.moo
+   method set_moo_content_rev: GrafiteMarshal.moo -> 'self
+   method proof_status: proof_status
+   method set_proof_status: proof_status -> 'self
+   method objects: UriManager.uri list
+   method set_objects: UriManager.uri list -> 'self
+   method coercions: CoercDb.coerc_db
+   method set_coercions: CoercDb.coerc_db -> 'self
+   method automation_cache:AutomationCache.cache
+   method set_automation_cache:AutomationCache.cache -> 'self  
+   method baseuri: string
+   method set_baseuri: string -> 'self
+   method ng_status: ng_status
+   method set_ng_status: ng_status -> 'self
+  end
 
 val dump_status : status -> unit