1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4 #include "dict.h"
5 
6 /*
7  * American Heritage Dictionary (encrypted)
8  */
9 
10 static Rune intab[256] = {
11 	[0x82] 0xe9,
12 	[0x85] 0xe0,
13 	[0x89] 0xeb,
14 	[0x8a] 0xe8,
15 	[0xa4] 0xf1,
16 	[0xf8] 0xb0,
17 	[0xf9] 0xb7,
18 };
19 
20 static char	tag[64];
21 
22 enum{
23 	Run, Openper, Openat, Closeat
24 };
25 
26 void
27 ahdprintentry(Entry e, int cmd)
28 {
29 	static int inited;
30 	long addr;
31 	char *p, *t = tag;
32 	int obreaklen;
33 	int c, state = Run;
34 
35 	if(!inited){
36 		for(c=0; c<256; c++)
37 			if(intab[c] == 0)
38 				intab[c] = c;
39 		inited = 1;
40 	}
41 	obreaklen = breaklen;
42 	breaklen = 80;
43 	addr = e.doff;
44 	for(p=e.start; p<e.end; p++){
45 		c = intab[(*p ^ (addr++>>1))&0xff];
46 		switch(state){
47 		case Run:
48 			if(c == '%'){
49 				t = tag;
50 				state = Openper;
51 				break;
52 			}
53 		Putchar:
54 			if(c == '\n')
55 				outnl(0);
56 			else if(c < Runeself)
57 				outchar(c);
58 			else
59 				outrune(c);
60 			break;
61 
62 		case Openper:
63 			if(c == '@')
64 				state = Openat;
65 			else{
66 				outchar('%');
67 				state = Run;
68 				goto Putchar;
69 			}
70 			break;
71 
72 		case Openat:
73 			if(c == '@')
74 				state = Closeat;
75 			else if(t < &tag[sizeof tag-1])
76 				*t++ = c;
77 			break;
78 
79 		case Closeat:
80 			if(c == '%'){
81 				*t = 0;
82 				switch(cmd){
83 				case 'h':
84 					if(strcmp("EH", tag) == 0)
85 						goto out;
86 					break;
87 				case 'r':
88 					outprint("%%@%s@%%", tag);
89 					break;
90 				}
91 				state = Run;
92 			}else{
93 				if(t < &tag[sizeof tag-1])
94 					*t++ = '@';
95 				if(t < &tag[sizeof tag-1])
96 					*t++ = c;
97 				state = Openat;
98 			}
99 			break;
100 		}
101 	}
102 out:
103 	outnl(0);
104 	breaklen = obreaklen;
105 }
106 
107 long
108 ahdnextoff(long fromoff)
109 {
110 	static char *patterns[] = { "%@NL@%", "%@2@%", 0 };
111 	int c, k = 0, state = 0;
112 	char *pat = patterns[0];
113 	long defoff = -1;
114 
115 	if(Bseek(bdict, fromoff, 0) < 0)
116 		return -1;
117 	while((c = Bgetc(bdict)) >= 0){
118 		c ^= (fromoff++>>1)&0xff;
119 		if(c != pat[state]){
120 			state = 0;
121 			continue;
122 		}
123 		if(pat[++state])
124 			continue;
125 		if(pat = patterns[++k]){	/* assign = */
126 			state = 0;
127 			defoff = fromoff-6;
128 			continue;
129 		}
130 		return fromoff-5;
131 	}
132 	return defoff;
133 }
134 
135 void
136 ahdprintkey(void)
137 {
138 	Bprint(bout, "No pronunciations.\n");
139 }