Mercurial > repo

diff src/ploki/examples/mark.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/mark.pk	Fri Dec 20 22:18:50 2013 +0000
@@ -0,0 +1,19 @@
+#!../ploki
+FOREACH LET$@LEGS\EING
+IF$:
+END
+FIX
+IF;\ARG:1
+LETO
+FOR; LETP $[O~\R\ARG:1
+IFP
+LET P+O+P
+LET$ $]P_"\33[1m\V ($[P]@LENGTH\ARG:1)\033[m"_($[(P+@LENGTH\ARG:1
+LETO7+@LENGTH\ARG:1+P
+IF$[O;
+NEXT;
+FISH
+FITS
+END IF BEGIN ELSE
+$
+NEXTEACH