tslang.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tslang.c (3227B)
---
1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4 #include "dict.h"
5
6 /* Possible tags */
7 enum {
8 DF, /* definition */
9 DX, /* definition/example */
10 ET, /* etymology */
11 EX, /* example */
12 LA, /* label */
13 ME, /* main entry */
14 NU, /* sense number */
15 PR, /* pronunciation */
16 PS, /* grammar part */
17 XR, /* cross reference */
18 XX /* cross reference (whole entry) */
19 };
20
21 /* Assoc tables must be sorted on first field */
22
23 static Assoc tagtab[] = {
24 {"df", DF},
25 {"dx", DX},
26 {"et", ET},
27 {"ex", EX},
28 {"la", LA},
29 {"me", ME},
30 {"nu", NU},
31 {"pr", PR},
32 {"ps", PS},
33 {"xr", XR},
34 {"xx", XX}
35 };
36 static long sget(char *, char *, char **, char **);
37 static void soutpiece(char *, char *);
38
39 void
40 slangprintentry(Entry e, int cmd)
41 {
42 char *p, *pe, *vs, *ve;
43 long t;
44
45 p = e.start;
46 pe = e.end;
47 if(cmd == 'h') {
48 t = sget(p, pe, &vs, &ve);
49 if(t == ME)
50 soutpiece(vs, ve);
51 outnl(0);
52 return;
53 }
54 while(p < pe) {
55 switch(sget(p, pe, &vs, &ve)) {
56 case DF:
57 soutpiece(vs, ve);
58 outchars(". ");
59 break;
60 case DX:
61 soutpiece(vs, ve);
62 outchars(". ");
63 break;
64 case ET:
65 outchars("[");
66 soutpiece(vs, ve);
67 outchars("] ");
68 break;
69 case EX:
70 outchars("E.g., ");
71 soutpiece(vs, ve);
72 outchars(". ");
73 break;
74 case LA:
75 outchars("(");
76 soutpiece(vs, ve);
77 outchars(") ");
78 break;
79 case ME:
80 outnl(0);
81 soutpiece(vs, ve);
82 outnl(0);
83 break;
84 case NU:
85 outnl(2);
86 soutpiece(vs, ve);
87 outchars(". ");
88 break;
89 case PR:
90 outchars("[");
91 soutpiece(vs, ve);
92 outchars("] ");
93 break;
94 case PS:
95 outnl(1);
96 soutpiece(vs, ve);
97 outchars(". ");
98 break;
99 case XR:
100 outchars("See ");
101 soutpiece(vs, ve);
102 outchars(". ");
103 break;
104 case XX:
105 outchars("See ");
106 soutpiece(vs, ve);
107 outchars(". ");
108 break;
109 default:
110 ve = pe; /* will end loop */
111 break;
112 }
113 p = ve;
114 }
115 outnl(0);
116 }
117
118 long
119 slangnextoff(long fromoff)
120 {
121 long a;
122 char *p;
123
124 a = Bseek(bdict, fromoff, 0);
125 if(a < 0)
126 return -1;
127 for(;;) {
128 p = Brdline(bdict, '\n');
129 if(!p)
130 break;
131 if(p[0] == 'm' && p[1] == 'e' && p[2] == ' ')
132 return (Boffset(bdict)-Blinelen(bdict));
133 }
134 return -1;
135 }
136
137 void
138 slangprintkey(void)
139 {
140 Bprint(bout, "No key\n");
141 }
142
143 /*
144 * Starting from b, find next line beginning with a tag.
145 * Don't go past e, but assume *e==0.
146 * Return tag value, or -1 if no more tags before e.
147 * Set pvb to beginning of value (after tag).
148 * Set pve to point at newline that ends the value.
149 */
150 static long
151 sget(char *b, char *e, char **pvb, char **pve)
152 {
153 char *p;
154 char buf[3];
155 long t, tans;
156
157 buf[2] = 0;
158 tans = -1;
159 for(p = b;;) {
160 if(p[2] == ' ') {
161 buf[0] = p[0];
162 buf[1] = p[1];
163 t = lookassoc(tagtab, asize(tagtab), buf);
164 if(t < 0) {
165 if(debug)
166 err("tag %s\n", buf);
167 p += 3;
168 } else {
169 if(tans < 0) {
170 p += 3;
171 tans = t;
172 *pvb = p;
173 } else {
174 *pve = p;
175 break;
176 }
177 }
178 }
179 p = strchr(p, '\n');
180 if(!p || ++p >= e) {
181 if(tans >= 0)
182 *pve = e-1;
183 break;
184 }
185 }
186 return tans;
187 }
188
189 static void
190 soutpiece(char *b, char *e)
191 {
192 int c, lastc;
193
194 lastc = 0;
195 while(b < e) {
196 c = *b++;
197 if(c == '\n')
198 c = ' ';
199 if(!(c == ' ' && lastc == ' ') && c != '@')
200 outchar(c);
201 lastc = c;
202 }
203 }