Mercurial > repo
annotate src/ploki/try/t.pk @ 10174:03ab1a0909e2
<b_jonas> `` c=bin/scheme; >$c echo $\'#!/bin/sh\\nexec perl \\\'-ne/Scheme$/&&push@p,$p;$p=$_}{print$p[rand@p]\\\' share/mtg/allsets.txt\' && chmod -c a+x "$c"
author | HackBot |
---|---|
date | Fri, 27 Jan 2017 09:53:42 +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 |