Mercurial > repo

diff src/ploki/examples/string.pk @ 4223:ac0403686959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> rm -rf src/ploki; mv ploki src
author HackBot
date Fri, 20 Dec 2013 22:18:50 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/ploki/examples/string.pk	Fri Dec 20 22:18:50 2013 +0000
@@ -0,0 +1,12 @@
+#!../ploki
+LET pat "\"{<'^\"\\'*><(\\.<'^\"\\'*>)*>}\""
+FOR line LET line @LEGS \EING
+IF line ; ""
+	FOR match LET p line ~ pat
+	IF p
+		WUNT "> `\V\0'
+		LET line line [ (p + 2 + @LENGTH \0)
+		NEXT match
+	FI
+	NEXT line
+FI