X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Futils.mli;h=5fabcfb9b1d8e5fe6e114ed6ba17b68d999d1d12;hb=7b81982e98bd98cba5813dc2417d7e0d71bdc452;hp=2d7d01b42ce3aca68b08f6bf199bd158e63a11f4;hpb=98a2cfdd3bdf5641e268e7db7c7ea2d23656b296;p=goals.git

diff --git a/src/utils.mli b/src/utils.mli
index 2d7d01b..5fabcfb 100644
--- a/src/utils.mli
+++ b/src/utils.mli
@@ -20,7 +20,26 @@
 val failwithf : ('a, unit, string, 'b) format4 -> 'a
 (** Like [failwith] but supports printf-like arguments. *)
 
+val (//) : string -> string -> string
+(** The {!Filename.concat} function. *)
+
+val is_directory : string -> bool
+(** Return true iff parameter is a directory. *)
+
 val filter_map : ('a -> 'b option) -> 'a list -> 'b list
 (** [filter_map f l] applies [f] to every element of [l], filters
     out the [None] elements and returns the list of the arguments of
     the [Some] elements. *)
+
+val string_find : string -> string -> int
+(** [string_find str sub] finds the index of [sub] in [str].  If
+    not found, returns -1. *)
+
+val isspace : char -> bool
+val triml : ?test:(char -> bool) -> string -> string
+val trimr : ?test:(char -> bool) -> string -> string
+val trim : ?test:(char -> bool) -> string -> string
+(** Trim strings at left, right or both. *)
+
+val absolute_path : string -> string
+(** Convert any path into an absolute path. *)