1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
#include <u.h>
#include <libc.h>
#include <bio.h>
#define index findex
char choice[2048];
char index[] = "/sys/games/lib/fortunes.index";
char fortunes[] = "/sys/games/lib/fortunes";
#define lrand rand
void
main(int argc, char *argv[])
{
int i;
long offs;
uchar off[4];
int ix, nix;
int newindex, oldindex;
char *p;
Dir *fbuf, *ixbuf;
Biobuf *f, g;
newindex = 0;
oldindex = 0;
ix = offs = 0;
if((f=Bopen(argc>1?argv[1]:fortunes, OREAD)) == 0){
print("Misfortune!\n");
exits("misfortune");
}
ixbuf = nil;
if(argc == 1){
ix = open(index, OREAD);
if(ix>=0){
oldindex = 1;
ixbuf = dirfstat(ix);
fbuf = dirfstat(Bfildes(f));
if(ixbuf == nil || fbuf == nil){
print("Misfortune?\n");
exits("misfortune");
}
if(fbuf->mtime > ixbuf->mtime){
nix = create(index, OWRITE, 0666);
if(nix >= 0){
close(ix);
ix = nix;
newindex = 1;
oldindex = 0;
}
}
}else{
ix = create(index, OWRITE, 0666);
if(ix >= 0)
newindex = 1;
}
}
if(oldindex){
seek(ix, lrand()%(ixbuf->length/sizeof(offs))*sizeof(offs), 0);
read(ix, off, sizeof(off));
Bseek(f, off[0]|(off[1]<<8)|(off[2]<<16)|(off[3]<<24), 0);
p = Brdline(f, '\n');
if(p){
p[Blinelen(f)-1] = 0;
strcpy(choice, p);
}else
strcpy(choice, "Misfortune!");
}else{
Binit(&g, ix, 1);
srand(getpid());
for(i=1;;i++){
if(newindex)
offs = Boffset(f);
p = Brdline(f, '\n');
if(p == 0)
break;
p[Blinelen(f)-1] = 0;
if(newindex){
off[0] = offs;
off[1] = offs>>8;
off[2] = offs>>16;
off[3] = offs>>24;
Bwrite(&g, off, sizeof(off));
}
if(lrand()%i==0)
strcpy(choice, p);
}
}
print("%s\n", choice);
exits(0);
}
|