Mercurial > repo

diff src/ploki/examples/write.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/write.pk	Fri Dec 20 22:18:50 2013 +0000
@@ -0,0 +1,13 @@
+#!../ploki
+LET fname "foo.txt"
+LET fh @SAPERS fname
+IF @NOT @IO-P fh
+  WUNT "\Vfname: \V\!\n"
+  END -1
+FI
+WUNT fh, (\ENV"USER"_" ("_\ENV"HOME"_") "_\ENV"PWD"_"\n"_\?_"\n")
+CLAUDS fh
+IF \_
+  WUNT "\Vfname: \V\!\n"
+  END -1
+FI