2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
12 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
16 inherit NCicUnifHint.status
17 inherit NCicCoercion.status
18 inherit NCicLibrary.status
19 method set_rstatus : ctstatus -> 'self
22 class status : ctstatus =
24 inherit NCicUnifHint.status
25 inherit NCicCoercion.status
26 inherit NCicLibrary.status
27 method set_rstatus o =
28 ((self#set_unifhint_status (o :> NCicUnifHint.status))
29 #set_coercion_status (o :> NCicCoercion.status))
30 #set_library_status (o :> NCicLibrary.status)
37 include NCicLibrary.Serializer(struct type status = sstatus end)
39 let require ~baseuri status =
40 let rstatus = require ~baseuri (status : #status :> status) in
41 let status = status#set_uhint_db (rstatus#uhint_db) in
42 let status = status#set_coerc_db (rstatus#coerc_db) in
43 let status = status#set_timestamp (rstatus#timestamp) in
47 class type ctdumpable_status =
50 method dump: Serializer.obj list
51 method set_dump: Serializer.obj list -> 'self
52 method set_dumpable_status: ctdumpable_status -> 'self
55 class dumpable_status : ctdumpable_status =
58 val dump = ([] : Serializer.obj list)
60 method set_dump v = {< dump = v >}
61 method set_dumpable_status o =
62 {< dump = o#dump >}#set_rstatus (o :> status)