52 lines
1.7 KiB
OCaml
52 lines
1.7 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* 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 GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(** The global variables used by the special comment parser.*)
|
|
|
|
let nb_chars = ref 0
|
|
|
|
let authors = ref ([] : string list)
|
|
|
|
let version = ref (None : string option)
|
|
|
|
let sees = ref ([] : string list)
|
|
|
|
let since = ref (None : string option)
|
|
|
|
let before = ref []
|
|
|
|
let deprecated = ref (None : string option)
|
|
|
|
let params = ref ([] : (string * string) list)
|
|
|
|
let raised_exceptions = ref ([] : (string * string) list)
|
|
|
|
let return_value = ref (None : string option)
|
|
|
|
let customs = ref []
|
|
|
|
let init () =
|
|
nb_chars := 0;
|
|
authors := [];
|
|
version := None;
|
|
sees := [];
|
|
since := None;
|
|
before := [];
|
|
deprecated := None;
|
|
params := [];
|
|
raised_exceptions := [];
|
|
return_value := None ;
|
|
customs := []
|