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;
|
2010-01-22 06:36:57 -08:00
|
|
|
minus_tags : string list }
|
2007-02-07 00:59:16 -08:00
|
|
|
|
|
|
|
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
|
2010-01-22 06:36:57 -08:00
|
|
|
val trim_blanks : Lexing.lexbuf -> string
|
2007-11-21 10:20:41 -08:00
|
|
|
|
2010-02-03 05:11:19 -08:00
|
|
|
(* Parse an environment path (i.e. $PATH).
|
|
|
|
This is a colon separated string.
|
|
|
|
Note: successive colons means an empty string.
|
|
|
|
Example:
|
|
|
|
":aaa:bbb:::ccc:" -> [""; "aaa"; "bbb"; ""; ""; "ccc"; ""] *)
|
|
|
|
val parse_environment_path : Lexing.lexbuf -> string list
|
2012-03-29 05:36:37 -07:00
|
|
|
(* Same one, for Windows (PATH is ;-separated) *)
|
|
|
|
val parse_environment_path_w : 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
|
2010-01-22 06:36:57 -08:00
|
|
|
|
|
|
|
val ocamlfind_query : Lexing.lexbuf ->
|
|
|
|
string * string * string * string * string * string
|
|
|
|
|
|
|
|
val tag_gen : Lexing.lexbuf -> string * string option
|