bundles/sexplib/sexplib-7.0.5/lib/exn_magic.mli

   1 (******************************************************************************
   2  *                             Sexplib                                        *
   3  *                                                                            *
   4  * Copyright (C) 2005- Jane Street Holding, LLC                               *
   5  *    Contact: opensource@janestreet.com                                      *
   6  *    WWW: http://www.janestreet.com/ocaml                                    *
   7  *    Author: Markus Mottl                                                    *
   8  *                                                                            *
   9  * This library is free software; you can redistribute it and/or              *
  10  * modify it under the terms of the GNU Lesser General Public                 *
  11  * License as published by the Free Software Foundation; either               *
  12  * version 2 of the License, or (at your option) any later version.           *
  13  *                                                                            *
  14  * This library is distributed in the hope that it will be useful,            *
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of             *
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU          *
  17  * Lesser General Public License for more details.                            *
  18  *                                                                            *
  19  * You should have received a copy of the GNU Lesser General Public           *
  20  * License along with this library; if not, write to the Free Software        *
  21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  *
  22  *                                                                            *
  23  ******************************************************************************)
  24
  25 val register : exn -> string -> unit
  26
  27 val register1 :
  28   ('a -> exn)
  29   -> string
  30   -> ('a -> Sexp.t)
  31   -> unit
  32
  33 val register2 :
  34   ('a -> 'b -> exn)
  35   -> string
  36   -> ('a -> Sexp.t)
  37   -> ('b -> Sexp.t)
  38   -> unit
  39
  40 val register3 :
  41   ('a -> 'b -> 'c -> exn)
  42   -> string
  43   -> ('a -> Sexp.t)
  44   -> ('b -> Sexp.t)
  45   -> ('c -> Sexp.t)
  46   -> unit
  47
  48 val register4 :
  49   ('a -> 'b -> 'c -> 'd -> exn)
  50   -> string
  51   -> ('a -> Sexp.t)
  52   -> ('b -> Sexp.t)
  53   -> ('c -> Sexp.t)
  54   -> ('d -> Sexp.t)
  55   -> unit
  56
  57 val register5 :
  58   ('a -> 'b -> 'c -> 'd -> 'e -> exn)
  59   -> string
  60   -> ('a -> Sexp.t)
  61   -> ('b -> Sexp.t)
  62   -> ('c -> Sexp.t)
  63   -> ('d -> Sexp.t)
  64   -> ('e -> Sexp.t)
  65   -> unit
  66
  67 val register6 :
  68   ('a -> 'b -> 'c -> 'd -> 'e -> 'f -> exn)
  69   -> string
  70   -> ('a -> Sexp.t)
  71   -> ('b -> Sexp.t)
  72   -> ('c -> Sexp.t)
  73   -> ('d -> Sexp.t)
  74   -> ('e -> Sexp.t)
  75   -> ('f -> Sexp.t)
  76   -> unit
  77
  78 val register7 :
  79   ('a -> 'b -> 'c -> 'd -> 'e -> 'f -> 'g -> exn)
  80   -> string
  81   -> ('a -> Sexp.t)
  82   -> ('b -> Sexp.t)
  83   -> ('c -> Sexp.t)
  84   -> ('d -> Sexp.t)
  85   -> ('e -> Sexp.t)
  86   -> ('f -> Sexp.t)
  87   -> ('g -> Sexp.t)
  88   -> unit
  89
  90 val register8 :
  91   ('a -> 'b -> 'c -> 'd -> 'e -> 'f -> 'g -> 'h -> exn)
  92   -> string
  93   -> ('a -> Sexp.t)
  94   -> ('b -> Sexp.t)
  95   -> ('c -> Sexp.t)
  96   -> ('d -> Sexp.t)
  97   -> ('e -> Sexp.t)
  98   -> ('f -> Sexp.t)
  99   -> ('g -> Sexp.t)
 100   -> ('h -> Sexp.t)
 101   -> unit
 102
 103 val register9 :
 104   ('a -> 'b -> 'c -> 'd -> 'e -> 'f -> 'g -> 'h -> 'i -> exn)
 105   -> string
 106   -> ('a -> Sexp.t)
 107   -> ('b -> Sexp.t)
 108   -> ('c -> Sexp.t)
 109   -> ('d -> Sexp.t)
 110   -> ('e -> Sexp.t)
 111   -> ('f -> Sexp.t)
 112   -> ('g -> Sexp.t)
 113   -> ('h -> Sexp.t)
 114   -> ('i -> Sexp.t)
 115   -> unit
 116
 117 val register10 :
 118   ('a -> 'b -> 'c -> 'd -> 'e -> 'f -> 'g -> 'h -> 'i -> 'j -> exn)
 119   -> string
 120   -> ('a -> Sexp.t)
 121   -> ('b -> Sexp.t)
 122   -> ('c -> Sexp.t)
 123   -> ('d -> Sexp.t)
 124   -> ('e -> Sexp.t)
 125   -> ('f -> Sexp.t)
 126   -> ('g -> Sexp.t)
 127   -> ('h -> Sexp.t)
 128   -> ('i -> Sexp.t)
 129   -> ('j -> Sexp.t)
 130   -> unit