(* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
class status =
- object
+ object (self)
inherit NCicUnifHint.status
inherit NCicCoercion.status
inherit NCicLibrary.status
+ method set_rstatus
+ : 'status.
+ < coerc_db : NCicCoercion.db;
+ uhint_db : NCicUnifHint.db;
+ timestamp: NCicLibrary.timestamp; .. > as 'status -> 'self
+ = fun o ->
+ ((self#set_unifhint_status o)#set_coercion_status o)#set_library_status o
end
type sstatus = status
val dump = ([] : Serializer.obj list)
method dump = dump
method set_dump v = {< dump = v >}
+ method set_dumpable_status
+ : 'status.
+ < coerc_db : NCicCoercion.db;
+ uhint_db : NCicUnifHint.db;
+ timestamp: NCicLibrary.timestamp;
+ dump: Serializer.obj list; .. > as 'status -> 'self
+ = fun o -> {< dump = o#dump >}#set_rstatus o
end