Mercurial > repo

comparison 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
comparison
equal deleted inserted replaced
4222:b0f3e267bb1e 4223:ac0403686959
1 #!../ploki
2 FOREACH LET$@LEGS\EING
3 IF$:
4 END
5 FIX
6 IF;\ARG:1
7 LETO
8 FOR; LETP $[O~\R\ARG:1
9 IFP
10 LET P+O+P
11 LET$ $]P_"\33[1m\V ($[P]@LENGTH\ARG:1)\033[m"_($[(P+@LENGTH\ARG:1
12 LETO7+@LENGTH\ARG:1+P
13 IF$[O;
14 NEXT;
15 FISH
16 FITS
17 END IF BEGIN ELSE
18 $
19 NEXTEACH