Mercurial > repos > rhope

diff string.rhope @ 131:0a4682be2db2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modify lexer and new parser to work in compiler
author Mike Pavone <pavone@retrodev.com>
date Fri, 05 Nov 2010 02:43:34 +0000
parents fd23ab2c1a73
children fc3815b7462f
line wrap: on
line diff
--- a/string.rhope	Fri Nov 05 02:42:45 2010 +0000
+++ b/string.rhope	Fri Nov 05 02:43:34 2010 +0000
@@ -1049,3 +1049,13 @@
 	}
 }
 
+After[text,prefix:after,not found]
+{
+	If[[text]Starts With[prefix]]
+	{
+		,after <- [text]Slice[[prefix]Length]
+	}{
+		not found <- text
+	}
+}
+