(* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
-type refiner_status = {
- coerc_db : NCicCoercion.db;
- uhint_db : NCicUnifHint.db;
- library_db : NCicLibrary.timestamp;
- dump: refiner_status -> refiner_status
-}
+class type g_status =
+ object
+ inherit NCicCoercion.g_status
+ inherit NCicLibrary.g_status
+ end
+
+class status :
+ object ('self)
+ inherit NCicCoercion.status
+ inherit NCicLibrary.status
+ inherit g_status
+ method set_rstatus: #g_status -> 'self
+ end
+
+module Serializer:
+ sig
+ include NCicLibrary.Serializer with type status = status
+ val require: baseuri:NUri.uri -> (#status as 'status) -> 'status
+ end
+
+class type g_dumpable_status =
+ object
+ inherit g_status
+ method dump: Serializer.obj list
+ end
+
+class dumpable_status :
+ object ('self)
+ inherit status
+ inherit g_dumpable_status
+ method set_dump: Serializer.obj list -> 'self
+ method set_dumpable_status: #g_dumpable_status -> 'self
+ end