the trie indexes terms up to 10 nested applications and skips applications with more...

[helm.git] / helm / software / components / ng_refiner / nRstatus.ml

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 26482e61b4138deec35cae8c12a0bb5774f24f16..9a6fd4ef29ec4870b37e58fb8e117c2c627e84a4 100644 (file)
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -11,44 +11,7 @@
 
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
-class status =
- object (self)
-  inherit NCicCoercion.status
-  inherit NCicLibrary.status
-  method set_rstatus
-   : 'status.
-       < coerc_db : NCicCoercion.db;
-         uhint_db : NCicUnifHint.db;
-         timestamp: NCicLibrary.timestamp; .. > as 'status -> 'self
-   = fun o ->
-      (self#set_coercion_status o)#set_library_status o
- end
+class type g_status = NCicCoercion.status
 
-type sstatus = status
+class status = NCicCoercion.status
 
-module Serializer =
- struct
-  include NCicLibrary.Serializer(struct type status = sstatus end)
-
-  let require ~baseuri status = 
-   let rstatus = require ~baseuri (status : #status :> status) in
-   let status = status#set_coerc_db (rstatus#coerc_db) in
-   let status = status#set_uhint_db (rstatus#uhint_db) in
-   let status = status#set_timestamp (rstatus#timestamp) in
-    status 
- end
-
-class dumpable_status =
- object
-  inherit status
-  val dump = ([] : Serializer.obj list)
-  method dump = dump
-  method set_dump v = {< dump = v >}
-  method set_dumpable_status
-   : 'status.
-       < coerc_db : NCicCoercion.db;
-         uhint_db : NCicUnifHint.db;
-         timestamp: NCicLibrary.timestamp;
-         dump: Serializer.obj list; .. > as 'status -> 'self
-   = fun o -> {< dump = o#dump >}#set_rstatus o
- end