Mercurial > repo
annotate src/ploki/try/t.pk @ 12313:6048b940f5be draft
<oerjan> t ` rm karma.*
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Fri, 21 Feb 2020 03:16:56 +0000 |
parents | ac0403686959 |
children |
rev | line source |
---|---|
4223 | 1 LET n "tmp.txt" |
2 LET fh @APERS #<n "W+"#> | |
3 IF @NOT fh | |
4 WUNT \FEHL "open: " _ n _ ": " _ \! _ " | |
5 END 1 | |
6 END IF | |
7 WUNT fh "zomg | |
8 IF @SUCH #<fh 0#> | |
9 WUNT \FEHL "seek: " _ n _ ": " _ \! _ " | |
10 END 1 | |
11 FI | |
12 LET s fh . @NEG 1 | |
13 IF @ERR-P fh | |
14 WUNT \FEHL "read: " _ n _ ": " _ \! _ " | |
15 END 1 | |
16 FI | |
17 CLAUDS fh | |
18 IF \_ | |
19 WUNT \FEHL "close: " _ n _ ": " _ \! _ " | |
20 END 1 | |
21 END IF | |
22 s |