Commits

Dmitry Grebeniuk  committed 86911b3

+ Cd_Exn

  • Participants
  • Parent commits 36b2a1d

Comments (0)

Files changed (6)

+CMT _build
 Library cadastr
   Path:       src
   BuildDepends: num
-  Modules:    Cadastr, Monoid, Cd_All, Cd_Int, Cd_List, Cd_Ops, Cd_Byte, Cd_Bytes, Cd_Chars, Cd_Strings, Cd_Array, Cd_Typeinfo, Cdt, Cd_Types, Cd_Option, Cd_Num, Cd_Tuples, Cd_Bool, TlsArray, TlsArray_st, TlsArray_mt, TlsRef, Cd_Ref, Cd_Partapp, Cd_Int64, Cd_Ser, Cd_SortedArray, Cd_SortedArraySet, Cd_Utf8, Cd_Buffer, Cd_StringsCommon
+  Modules:    Cadastr, Monoid, Cd_All, Cd_Int, Cd_List, Cd_Ops, Cd_Byte, Cd_Bytes, Cd_Chars, Cd_Strings, Cd_Array, Cd_Typeinfo, Cdt, Cd_Types, Cd_Option, Cd_Num, Cd_Tuples, Cd_Bool, TlsArray, TlsArray_st, TlsArray_mt, TlsRef, Cd_Ref, Cd_Partapp, Cd_Int64, Cd_Ser, Cd_SortedArray, Cd_SortedArraySet, Cd_Utf8, Cd_Buffer, Cd_StringsCommon, Cd_Exn
   NativeOpt:       -w A
   ByteOpt:         -w A
 
 (* setup.ml generated for the first time by OASIS v0.2.1~alpha1 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: 9c144fc0bd0d50d3be834222339ab3ad) *)
+(* DO NOT EDIT (digest: f3d70939fddf5a40ec41e5fcf538da97) *)
 (*
    Regenerated by OASIS v0.2.1~alpha1
    Visit http://oasis.forge.ocamlcore.org for more information and
                            "Cd_SortedArraySet";
                            "Cd_Utf8";
                            "Cd_Buffer";
-                           "Cd_StringsCommon"
+                           "Cd_StringsCommon";
+                           "Cd_Exn"
                         ];
                       lib_internal_modules = [];
                       lib_findlib_parent = None;

File src/cadastr.mllib

 # OASIS_START
-# DO NOT EDIT (digest: f92214abc54f998f4ed261c0b0f78ea2)
+# DO NOT EDIT (digest: 0b93266e208c375a9ffa2adc10ed7940)
 Cadastr
 Monoid
 Cd_All
 Cd_Utf8
 Cd_Buffer
 Cd_StringsCommon
+Cd_Exn
 # OASIS_STOP

File src/cd_All.ml

 module Partapp = Cd_Partapp.Partapp;
 module SortedArray = Cd_SortedArray;
 module SortedArraySet = Cd_SortedArraySet.SortedArraySet;
+module Exn = Cd_Exn.Exn;
 include Cd_Tuples;
 
 include Cd_Ops;

File src/cd_Exn.ml

+module Exn
+ =
+  struct
+
+    type t = exn;
+
+    value to_string = Printexc.to_string;
+
+    open Cdt;
+
+    value tifull
+     : tifull exn
+     =
+      new tifull
+        ~cmp:(fun a b -> cmp_of_compare_res (Pervasives.compare a b))
+        ~eq:( ( = ) )
+        ~hash:Hashtbl.hash
+        ~show:to_string
+        (Simple "exn")
+        ()
+    ;
+
+    value ti = (tifull :> ti _)
+    ;
+
+  end
+;