Mercurial > repo
comparison src/ploki/examples/write.pk @ 4223:ac0403686959
<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 LET fname "foo.txt" | |
3 LET fh @SAPERS fname | |
4 IF @NOT @IO-P fh | |
5 WUNT "\Vfname: \V\!\n" | |
6 END -1 | |
7 FI | |
8 WUNT fh, (\ENV"USER"_" ("_\ENV"HOME"_") "_\ENV"PWD"_"\n"_\?_"\n") | |
9 CLAUDS fh | |
10 IF \_ | |
11 WUNT "\Vfname: \V\!\n" | |
12 END -1 | |
13 FI |