1 (***********************************************************************)
4 (* Maxence Guesdon, projet Cristal, INRIA Rocquencourt *)
6 (* Copyright 2001 Institut National de Recherche en Informatique et *)
7 (* en Automatique. All rights reserved. This file is distributed *)
8 (* under the terms of the Q Public License version 1.0. *)
10 (***********************************************************************)
12 (* $Id: odoc_comments_global.ml 5973 2003-11-24 10:44:07Z starynke $ *)
14 (** The global variables used by the special comment parser.*)
18 let authors = ref ([] : string list)
20 let version = ref (None : string option)
22 let sees = ref ([] : string list)
24 let since = ref (None : string option)
26 let deprecated = ref (None : string option)
28 let params = ref ([] : (string * string) list)
30 let raised_exceptions = ref ([] : (string * string) list)
32 let return_value = ref (None : string option)
44 raised_exceptions := [];
45 return_value := None ;
48 (* eof $Id: odoc_comments_global.ml 5973 2003-11-24 10:44:07Z starynke $ *)