]> matita.cs.unibo.it Git - helm.git/blob - helm/software/components/ng_refiner/nRstatus.mli
Initial implementation of statuses using objects in place of nested records.
[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
16   inherit NCicUnifHint.status
17   inherit NCicCoercion.status
18   inherit NCicLibrary.status
19  end
20
21 module Serializer:
22  sig
23   include NCicLibrary.Serializer with type status = status 
24   val require: baseuri:NUri.uri -> (#status as 'status) -> 'status
25  end
26
27 class dumpable_status :
28  object ('self)
29   inherit status
30   method dump: Serializer.obj list
31   method set_dump: Serializer.obj list -> 'self
32  end