Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Base

module Base : sig..end

/*


exception Underivable of string
exception NoSuchClass of string
val fatal_error : Camlp4.PreCast.Loc.t -> string -> 'a
val display_errors : Camlp4.PreCast.Loc.t -> ('a -> 'b) -> 'a -> 'b
val derive_str : 
  Camlp4.PreCast.Loc.t ->
  Type.decl list -> Defs.generator -> Camlp4.PreCast.Ast.str_item
val derive_sig : 
  Camlp4.PreCast.Loc.t ->
  Type.decl list -> Defs.generator -> Camlp4.PreCast.Ast.sig_item
module RegisterClass : functor (Desc : Defs.ClassDescription) -> 
  functor (MakeClass : Defs.ClassBuilder) ->
  sig..end
module RegisterFullClass : functor (Desc : Defs.ClassDescription) -> 
  functor (MakeClass : Defs.FullBuilder) ->
  sig..end
val is_registered : Type.name -> bool
val add_register_hook : 
  ((module Defs.ClassDescription) -> Defs.generator -> unit) -> unit
val find : Type.name -> Defs.generator