debug pps removed

[helm.git] / helm / software / components / ng_refiner / nRstatus.ml

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 02eee9837723853c3d616673da31924977b2cc1f..5ef83ec3c2c10ec578e3b0c5c603a94469d50278 100644 (file)
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -11,8 +11,53 @@
 
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
-type refiner_status = {
-        coerc_db : NCicCoercion.db;
-        uhint_db : NCicUnifHint.db;
-}
+class type ctstatus =
+ object ('self)
+  inherit NCicUnifHint.status
+  inherit NCicCoercion.status
+  inherit NCicLibrary.status
+  method set_rstatus : ctstatus -> 'self
+ end
 
+class status : ctstatus =
+ object (self)
+  inherit NCicUnifHint.status
+  inherit NCicCoercion.status
+  inherit NCicLibrary.status
+  method set_rstatus o =
+   ((self#set_unifhint_status (o :> NCicUnifHint.status))
+         #set_coercion_status (o :> NCicCoercion.status))
+         #set_library_status  (o :> NCicLibrary.status)
+ end
+
+type sstatus = status
+
+module Serializer =
+ struct
+  include NCicLibrary.Serializer(struct type status = sstatus end)
+
+  let require ~baseuri status = 
+   let rstatus = require ~baseuri (status : #status :> status) in
+   let status = status#set_uhint_db (rstatus#uhint_db) in
+   let status = status#set_coerc_db (rstatus#coerc_db) in
+   let status = status#set_timestamp (rstatus#timestamp) in
+    status 
+ end
+
+class type ctdumpable_status =
+ object ('self)
+  inherit status
+  method dump: Serializer.obj list
+  method set_dump: Serializer.obj list -> 'self
+  method set_dumpable_status: ctdumpable_status -> 'self
+ end
+
+class dumpable_status : ctdumpable_status =
+ object
+  inherit status
+  val dump = ([] : Serializer.obj list)
+  method dump = dump
+  method set_dump v = {< dump = v >}
+  method set_dumpable_status o =
+   {< dump = o#dump >}#set_rstatus (o :> status)
+ end