From 4eb2a196fa24d52462f3f325d73952fe2d1c12cd Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 11 Jan 2011 18:04:52 -0500 Subject: Some more string parsing functions; naughtyDebug --- lib/ur/string.urs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/ur/string.urs') diff --git a/lib/ur/string.urs b/lib/ur/string.urs index 52aa27b6..55133578 100644 --- a/lib/ur/string.urs +++ b/lib/ur/string.urs @@ -17,7 +17,11 @@ val mindex : {Haystack : t, Needle : t} -> option int val substring : t -> {Start : int, Len : int} -> string +val seek : t -> char -> option string +val mseek : {Haystack : t, Needle : t} -> option (char * string) + val split : t -> char -> option (string * string) +val split' : t -> char -> option (string * string) (* The matched character is kept at the beginning of the suffix. *) val msplit : {Haystack : t, Needle : t} -> option (string * char * string) val all : (char -> bool) -> string -> bool -- cgit v1.2.3