From 7a5ea2442771efc5ec966373c58bde9f02246308 Mon Sep 17 00:00:00 2001 From: Maxence Guesdon Date: Wed, 27 Mar 2002 16:20:32 +0000 Subject: ajout ocamldoc, pas encore compile automatiquement git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4566 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- ocamldoc/odoc_exception.ml | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 ocamldoc/odoc_exception.ml (limited to 'ocamldoc/odoc_exception.ml') diff --git a/ocamldoc/odoc_exception.ml b/ocamldoc/odoc_exception.ml new file mode 100644 index 000000000..b5b41bf93 --- /dev/null +++ b/ocamldoc/odoc_exception.ml @@ -0,0 +1,29 @@ +(***********************************************************************) +(* OCamldoc *) +(* *) +(* Maxence Guesdon, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 2001 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + + +(** Representation and manipulation of exceptions. *) + +module Name = Odoc_name + +type exception_alias = { + ea_name : Name.t ; + mutable ea_ex : t_exception option ; + } + +and t_exception = { + ex_name : Name.t ; + mutable ex_info : Odoc_types.info option ; (** optional user information *) + ex_args : Types.type_expr list ; (** the types of the parameters *) + ex_alias : exception_alias option ; + mutable ex_loc : Odoc_types.location ; + } + -- cgit v1.2.3-70-g09d2