Good:

[helm.git] / helm / software / components / grafite_parser / nEstatus.mli

diff --git a/helm/software/components/grafite_parser/nEstatus.mli b/helm/software/components/grafite_parser/nEstatus.mli
index a49174b11d3a2b13102d57835957c983cc37a134..dec3aca01280fe3e4ebb21b4c4f4a37cd54c299c 100644 (file)
--- a/helm/software/components/grafite_parser/nEstatus.mli
+++ b/helm/software/components/grafite_parser/nEstatus.mli
@@ -11,8 +11,14 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
-type extra_status = {
-        lstatus : LexiconEngine.status;
-        rstatus : NRstatus.dumpable_refiner_status;
-}
-
+class status :
+ object ('self)
+  inherit LexiconEngine.status
+  inherit NRstatus.dumpable_status
+  method set_estatus:
+   < coerc_db : NCicCoercion.db;
+     uhint_db : NCicUnifHint.db;
+     timestamp: NCicLibrary.timestamp;
+     dump: NRstatus.Serializer.obj list;
+     lstatus: LexiconEngine.lexicon_status; .. > -> 'self
+ end