(* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
-class type ctstatus =
- object ('self)
- inherit NCicUnifHint.status
- inherit NCicCoercion.status
- inherit NCicLibrary.status
- method set_rstatus : ctstatus -> 'self
- end
-
-class status : ctstatus =
+class status =
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)
+ 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
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 =
+class dumpable_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)
+ 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