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 NCicCoercion.g_status
17 inherit NCicLibrary.g_status
22 inherit NCicCoercion.status
23 inherit NCicLibrary.status
25 : 'status. #g_status as 'status -> 'self
26 = fun o -> (self#set_coercion_status o)#set_library_status o
33 include NCicLibrary.Serializer(struct type status = sstatus end)
35 let require ~baseuri status =
36 let rstatus = require ~baseuri (status : #status :> status) in
37 let status = status#set_coerc_db (rstatus#coerc_db) in
38 let status = status#set_uhint_db (rstatus#uhint_db) in
39 let status = status#set_timestamp (rstatus#timestamp) in
43 class type g_dumpable_status =
46 method dump: Serializer.obj list
49 class dumpable_status =
52 val dump = ([] : Serializer.obj list)
54 method set_dump v = {< dump = v >}
55 method set_dumpable_status
56 : 'status. #g_dumpable_status as 'status -> 'self
57 = fun o -> {< dump = o#dump >}#set_rstatus o