-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_coerc_db (rstatus#coerc_db) in
- let status = status#set_uhint_db (rstatus#uhint_db) in
- let status = status#set_timestamp (rstatus#timestamp) in
- status
- end
-
-class dumpable_status =
- object
- inherit 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