Mercurial > urweb
comparison lib/ur/string.ur @ 1174:9df124fcab3d
String.isPrefix
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 02 Mar 2010 09:46:17 -0500 |
parents | 94e83c5533d2 |
children | 56bd4a4f6e66 |
comparison
equal
deleted
inserted
replaced
1173:983d9b38abc7 | 1174:9df124fcab3d |
---|---|
51 | 51 |
52 fun newlines [ctx] [[Body] ~ ctx] s : xml ([Body] ++ ctx) [] [] = | 52 fun newlines [ctx] [[Body] ~ ctx] s : xml ([Body] ++ ctx) [] [] = |
53 case split s #"\n" of | 53 case split s #"\n" of |
54 None => cdata s | 54 None => cdata s |
55 | Some (s1, s2) => <xml>{[s1]}<br/>{newlines s2}</xml> | 55 | Some (s1, s2) => <xml>{[s1]}<br/>{newlines s2}</xml> |
56 | |
57 fun isPrefix {Full = f, Prefix = p} = | |
58 length f >= length p && substring f {Start = 0, Len = length p} = p |