Mercurial > repo

view src/ploki/examples/throw.pk @ 11328:56b2bb1446bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>;s/ \\S+sample\\.png// or die; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:00:31 +0000
parents ac0403686959
children
line wrap: on
line source

#!../ploki
LET a @EVAL @foo 2
a_priv_"
LET a @EVAL @foo 0
a_", "_\__priv_"
END
FOR foo LEET priv " ERROR MESSAGE"
	IF \@ > 0
		KTHX \@ * 2
	ELSE
		IACS "error"
	FI