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 |