diff options
author | Stephane Glondu <steph@glondu.net> | 2012-01-12 16:08:29 +0100 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2012-01-12 16:08:29 +0100 |
commit | 23a6061a81ffa0c214d521287b6af0a31bfa22f0 (patch) | |
tree | f1ca9ba9240b98b8695a9f1870e56602734cf97c /ide/minilib.mli | |
parent | de109d8c0c68f569b907e6e24271f259ba28888e (diff) | |
parent | 39efc41237ec906226a3a53d7396d51173495204 (diff) |
Merge commit 'upstream/8.4_beta+dfsg' into experimental/master
Diffstat (limited to 'ide/minilib.mli')
-rw-r--r-- | ide/minilib.mli | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/ide/minilib.mli b/ide/minilib.mli new file mode 100644 index 00000000..53d6c87c --- /dev/null +++ b/ide/minilib.mli @@ -0,0 +1,44 @@ +(***********************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) +(* \VV/ *************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(***********************************************************************) + +(** Some excerpts of Util and similar files to avoid depending on them + and hence on Compat and Camlp4 *) + +module Stringmap : Map.S with type key = string + +val list_fold_left_i : (int -> 'a -> 'b -> 'a) -> int -> 'a -> 'b list -> 'a +val list_map_i : (int -> 'a -> 'b) -> int -> 'a list -> 'b list +val list_filter_i : (int -> 'a -> bool) -> 'a list -> 'a list +val list_chop : int -> 'a list -> 'a list * 'a list +val list_index0 : 'a -> 'a list -> int + +val string_map : (char -> char) -> string -> string + +val subst_command_placeholder : string -> string -> string + +val home : string +val xdg_config_home : string +val xdg_config_dirs : string list +val xdg_data_home : string +val xdg_data_dirs : string list + +val coqtop_path : string ref + +(** safe version of Pervasives.prerr_endline + (avoid exception in win32 without console) *) +val safe_prerr_endline : string -> unit + +val remove_path_dot : string -> string +val strip_path : string -> string +val canonical_path_name : string -> string +(** correct_path f dir = dir/f if f is relative *) +val correct_path : string -> string -> string + +(** checks if two file names refer to the same (existing) file *) +val same_file : string -> string -> bool + |