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