# 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