X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FnEstatus.ml;h=ebfd686cd5f1bc5ffceb049db62dfaf6d1b76eaa;hb=68b13bbcf487f7575d5f04f6b2c23aa9ef02409b;hp=2ae7d01e4ef639ca78dcbe2540ff68d15d602b7c;hpb=8bc5bc0e8375a85736f6a5df317d129d5efa8de4;p=helm.git

diff --git a/helm/software/components/grafite_parser/nEstatus.ml b/helm/software/components/grafite_parser/nEstatus.ml
index 2ae7d01e4..ebfd686cd 100644
--- a/helm/software/components/grafite_parser/nEstatus.ml
+++ b/helm/software/components/grafite_parser/nEstatus.ml
@@ -11,8 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
-type extra_status = {
-        lstatus : LexiconEngine.status;
-        rstatus : NRstatus.dumpable_status;
-}
+class type g_status =
+ object
+  inherit LexiconEngine.g_status
+  inherit NCicLibrary.g_dumpable_status
+ end
 
+class status =
+ object (self)
+  inherit LexiconEngine.status
+  inherit NCicLibrary.dumpable_status
+  method set_estatus : 'status. #g_status as 'status -> 'self
+   = fun o -> (self#set_lexicon_engine_status o)#set_dumpable_status o
+ end