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
24 method set_rstatus : 'status. #g_status as 'status -> 'self
25 = fun o -> (self#set_coercion_status o)#set_library_status o
32 include NCicLibrary.Serializer(struct type status = sstatus end)
34 let require ~baseuri status =
35 let rstatus = require ~baseuri (status : #status :> status) in
36 let status = status#set_coerc_db (rstatus#coerc_db) in
37 let status = status#set_uhint_db (rstatus#uhint_db) in
38 let status = status#set_timestamp (rstatus#timestamp) in
42 class type g_dumpable_status =
45 method dump: Serializer.obj list
48 class dumpable_status =
51 val dump = ([] : Serializer.obj list)
53 method set_dump v = {< dump = v >}
54 method set_dumpable_status : 'status. #g_dumpable_status as 'status -> 'self
55 = fun o -> (self#set_dump o#dump)#set_rstatus o