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