2007-02-07 00:59:16 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
(* ocamlbuild *)
|
|
|
|
(* *)
|
|
|
|
(* Nicolas Pouillard, Berke Durak, projet Gallium, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 2007 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. *)
|
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
2009-03-03 08:54:58 -08:00
|
|
|
|
2007-02-07 00:59:16 -08:00
|
|
|
(* Original author: Nicolas Pouillard *)
|
|
|
|
exception Error of string
|
|
|
|
|
|
|
|
type conf_values =
|
|
|
|
{ plus_tags : string list;
|
|
|
|
minus_tags : string list;
|
|
|
|
plus_flags : (string * string) list;
|
|
|
|
minus_flags : (string * string) list }
|
|
|
|
|
|
|
|
type conf = (Glob.globber * conf_values) list
|
|
|
|
|
|
|
|
val ocamldep_output : Lexing.lexbuf -> (string * string list) list
|
|
|
|
val space_sep_strings : Lexing.lexbuf -> string list
|
|
|
|
val blank_sep_strings : Lexing.lexbuf -> string list
|
|
|
|
val comma_sep_strings : Lexing.lexbuf -> string list
|
2007-02-16 02:35:10 -08:00
|
|
|
val comma_or_blank_sep_strings : Lexing.lexbuf -> string list
|
2007-11-21 10:20:41 -08:00
|
|
|
|
|
|
|
(* Parse a colon separated string.
|
|
|
|
Note: successive colons are ignored.
|
|
|
|
Example: "aaa:bbb:::ccc" -> ["aaa"; "bbb"; "ccc"] *)
|
2007-02-07 00:59:16 -08:00
|
|
|
val colon_sep_strings : Lexing.lexbuf -> string list
|
2007-11-21 10:20:41 -08:00
|
|
|
|
2007-02-07 00:59:16 -08:00
|
|
|
val conf_lines : string option -> int -> string -> Lexing.lexbuf -> conf
|
2007-11-21 13:03:14 -08:00
|
|
|
val path_scheme : bool -> Lexing.lexbuf ->
|
|
|
|
[ `Word of string
|
|
|
|
| `Var of (string * Glob.globber)
|
|
|
|
] list
|