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.status
17 inherit NCicLibrary.status
20 < coerc_db : NCicCoercion.db;
21 uhint_db : NCicUnifHint.db;
22 timestamp: NCicLibrary.timestamp; .. > as 'status -> 'self
24 (self#set_coercion_status o)#set_library_status o
31 include NCicLibrary.Serializer(struct type status = sstatus end)
33 let require ~baseuri status =
34 let rstatus = require ~baseuri (status : #status :> status) in
35 let status = status#set_coerc_db (rstatus#coerc_db) in
36 let status = status#set_uhint_db (rstatus#uhint_db) in
37 let status = status#set_timestamp (rstatus#timestamp) in
41 class dumpable_status =
44 val dump = ([] : Serializer.obj list)
46 method set_dump v = {< dump = v >}
47 method set_dumpable_status
49 < coerc_db : NCicCoercion.db;
50 uhint_db : NCicUnifHint.db;
51 timestamp: NCicLibrary.timestamp;
52 dump: Serializer.obj list; .. > as 'status -> 'self
53 = fun o -> {< dump = o#dump >}#set_rstatus o