]> matita.cs.unibo.it Git - helm.git/blob - helm/software/components/ng_refiner/nRstatus.mli
- procedural: basic support for lapply (solves a problem in the reconstruction of...
[helm.git] / helm / software / components / ng_refiner / nRstatus.mli
1 (*
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.                     
5     ||I||                                                                
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_______________________________________________________________ *)
11
12 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
13
14 class status :
15  object ('self)
16   inherit NCicUnifHint.status
17   inherit NCicCoercion.status
18   inherit NCicLibrary.status
19   method set_rstatus: 
20    < coerc_db : NCicCoercion.db;
21      uhint_db : NCicUnifHint.db;
22      timestamp: NCicLibrary.timestamp; .. > -> 'self
23  end
24
25 module Serializer:
26  sig
27   include NCicLibrary.Serializer with type status = status 
28   val require: baseuri:NUri.uri -> (#status as 'status) -> 'status
29  end
30
31 class dumpable_status :
32  object ('self)
33   inherit status
34   method dump: Serializer.obj list
35   method set_dump: Serializer.obj list -> 'self
36   method set_dumpable_status:
37    < coerc_db : NCicCoercion.db;
38      uhint_db : NCicUnifHint.db;
39      timestamp: NCicLibrary.timestamp;
40      dump: Serializer.obj list; .. > -> 'self
41  end