Mercurial > repo
annotate src/ploki/try/t.pk @ 12292:d51f2100210c draft
<kspalaiologos> `` cat <<<"asmbf && bfi output.b" > /hackenv/ibin/asmbf
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Thu, 02 Jan 2020 15:38:21 +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 |