1 08708877 2003-11-25 devnull #include <u.h>
  2 08708877 2003-11-25 devnull #include <libc.h>
  3 08708877 2003-11-25 devnull #include <bio.h>
  4 08708877 2003-11-25 devnull #include "dict.h"
  5 08708877 2003-11-25 devnull 
  6 08708877 2003-11-25 devnull /* Possible tags */
  7 08708877 2003-11-25 devnull enum {
  8 08708877 2003-11-25 devnull 	BEG,	/* beginning of entry */
  9 08708877 2003-11-25 devnull 	AB,	/* abstract */
 10 08708877 2003-11-25 devnull 	AN,	/* database serial number */
 11 08708877 2003-11-25 devnull 	AS,	/* author (one at a time) */
 12 08708877 2003-11-25 devnull 	AU,	/* all authors */
 13 08708877 2003-11-25 devnull 	AW,	/* award_awardee */
 14 08708877 2003-11-25 devnull 	BW,	/* bw or c */
 15 08708877 2003-11-25 devnull 	CA,	/* cast: character_actor */
 16 08708877 2003-11-25 devnull 	CN,	/* cinematography */
 17 08708877 2003-11-25 devnull 	CO,	/* country */
 18 08708877 2003-11-25 devnull 	CR,	/* miscellaneous job_name */
 19 08708877 2003-11-25 devnull 	DE,	/* topic keyword */
 20 08708877 2003-11-25 devnull 	DR,	/* director */
 21 08708877 2003-11-25 devnull 	ED,	/* editor */
 22 08708877 2003-11-25 devnull 	MP,	/* MPAA rating (R, PG, etc.) */
 23 08708877 2003-11-25 devnull 	NT,	/* note */
 24 08708877 2003-11-25 devnull 	PR,	/* producer and for ...*/
 25 08708877 2003-11-25 devnull 	PS,	/* producer (repeats info in PR) */
 26 08708877 2003-11-25 devnull 	RA,	/* rating (letter) */
 27 08708877 2003-11-25 devnull 	RD,	/* release date */
 28 08708877 2003-11-25 devnull 	RT,	/* running time */
 29 08708877 2003-11-25 devnull 	RV,	/* review citation */
 30 08708877 2003-11-25 devnull 	ST,	/* production or release company (repeats info in PR) */
 31 08708877 2003-11-25 devnull 	TI,	/* title[; original foreign title] */
 32 08708877 2003-11-25 devnull 	TX,	/* paragraph of descriptive text */
 33 08708877 2003-11-25 devnull 	VD,	/* video information (format_time_company; or "Not Avail.") */
 34 08708877 2003-11-25 devnull 	NTAG	/* number of tags */
 35 08708877 2003-11-25 devnull };
 36 08708877 2003-11-25 devnull 
 37 08708877 2003-11-25 devnull /* Assoc tables must be sorted on first field */
 38 08708877 2003-11-25 devnull 
 39 08708877 2003-11-25 devnull static char *tagtab[] = {
 40 08708877 2003-11-25 devnull [BEG]	"$$",
 41 08708877 2003-11-25 devnull [AB]	"AB",
 42 08708877 2003-11-25 devnull [AN]	"AN",
 43 08708877 2003-11-25 devnull [AS]	"AS",
 44 08708877 2003-11-25 devnull [AU]	"AU",
 45 08708877 2003-11-25 devnull [AW]	"AW",
 46 08708877 2003-11-25 devnull [BW]	"BW",
 47 08708877 2003-11-25 devnull [CA]	"CA",
 48 08708877 2003-11-25 devnull [CN]	"CN",
 49 08708877 2003-11-25 devnull [CO]	"CO",
 50 08708877 2003-11-25 devnull [CR]	"CR",
 51 08708877 2003-11-25 devnull [DE]	"DE",
 52 08708877 2003-11-25 devnull [DR]	"DR",
 53 08708877 2003-11-25 devnull [ED]	"ED",
 54 08708877 2003-11-25 devnull [MP]	"MP",
 55 08708877 2003-11-25 devnull [NT]	"NT",
 56 08708877 2003-11-25 devnull [PR]	"PR",
 57 08708877 2003-11-25 devnull [PS]	"PS",
 58 08708877 2003-11-25 devnull [RA]	"RA",
 59 08708877 2003-11-25 devnull [RD]	"RD",
 60 08708877 2003-11-25 devnull [RT]	"RT",
 61 08708877 2003-11-25 devnull [RV]	"RV",
 62 08708877 2003-11-25 devnull [ST]	"ST",
 63 08708877 2003-11-25 devnull [TI]	"TI",
 64 08708877 2003-11-25 devnull [TX]	"TX",
 65 08708877 2003-11-25 devnull [VD]	"VD",
 66 08708877 2003-11-25 devnull };
 67 08708877 2003-11-25 devnull 
 68 08708877 2003-11-25 devnull static char	*mget(int, char *, char *, char **);
 69 08708877 2003-11-25 devnull #if 0
 70 08708877 2003-11-25 devnull static void	moutall(int, char *, char *);
 71 08708877 2003-11-25 devnull #endif
 72 08708877 2003-11-25 devnull static void	moutall2(int, char *, char *);
 73 08708877 2003-11-25 devnull 
 74 08708877 2003-11-25 devnull void
 75 08708877 2003-11-25 devnull movieprintentry(Entry ent, int cmd)
 76 08708877 2003-11-25 devnull {
 77 08708877 2003-11-25 devnull 	char *p, *e, *ps, *pe, *pn;
 78 08708877 2003-11-25 devnull 	int n;
 79 08708877 2003-11-25 devnull 
 80 08708877 2003-11-25 devnull 	ps = ent.start;
 81 08708877 2003-11-25 devnull 	pe = ent.end;
 82 08708877 2003-11-25 devnull 	if(cmd == 'r') {
 83 08708877 2003-11-25 devnull 		Bwrite(bout, ps, pe-ps);
 84 08708877 2003-11-25 devnull 		return;
 85 08708877 2003-11-25 devnull 	}
 86 08708877 2003-11-25 devnull 	p = mget(TI, ps, pe, &e);
 87 08708877 2003-11-25 devnull 	if(p) {
 88 08708877 2003-11-25 devnull 		outpiece(p, e);
 89 08708877 2003-11-25 devnull 		outnl(0);
 90 08708877 2003-11-25 devnull 	}
 91 08708877 2003-11-25 devnull 	if(cmd == 'h')
 92 08708877 2003-11-25 devnull 		return;
 93 08708877 2003-11-25 devnull 	outnl(2);
 94 08708877 2003-11-25 devnull 	n = 0;
 95 08708877 2003-11-25 devnull 	p = mget(RD, ps, pe, &e);
 96 08708877 2003-11-25 devnull 	if(p) {
 97 08708877 2003-11-25 devnull 		outchars("Released: ");
 98 08708877 2003-11-25 devnull 		outpiece(p, e);
 99 08708877 2003-11-25 devnull 		n++;
100 08708877 2003-11-25 devnull 	}
101 08708877 2003-11-25 devnull 	p = mget(CO, ps, pe, &e);
102 08708877 2003-11-25 devnull 	if(p) {
103 08708877 2003-11-25 devnull 		if(n)
104 08708877 2003-11-25 devnull 			outchars(", ");
105 08708877 2003-11-25 devnull 		outpiece(p, e);
106 08708877 2003-11-25 devnull 		n++;
107 08708877 2003-11-25 devnull 	}
108 08708877 2003-11-25 devnull 	p = mget(RT, ps, pe, &e);
109 08708877 2003-11-25 devnull 	if(p) {
110 08708877 2003-11-25 devnull 		if(n)
111 08708877 2003-11-25 devnull 			outchars(", ");
112 08708877 2003-11-25 devnull 		outchars("Running time: ");
113 08708877 2003-11-25 devnull 		outpiece(p, e);
114 08708877 2003-11-25 devnull 		n++;
115 08708877 2003-11-25 devnull 	}
116 08708877 2003-11-25 devnull 	p = mget(MP, ps, pe, &e);
117 08708877 2003-11-25 devnull 	if(p) {
118 08708877 2003-11-25 devnull 		if(n)
119 08708877 2003-11-25 devnull 			outchars(", ");
120 08708877 2003-11-25 devnull 		outpiece(p, e);
121 08708877 2003-11-25 devnull 		n++;
122 08708877 2003-11-25 devnull 	}
123 08708877 2003-11-25 devnull 	p = mget(BW, ps, pe, &e);
124 08708877 2003-11-25 devnull 	if(p) {
125 08708877 2003-11-25 devnull 		if(n)
126 08708877 2003-11-25 devnull 			outchars(", ");
127 08708877 2003-11-25 devnull 		if(*p == 'c' || *p == 'C')
128 08708877 2003-11-25 devnull 			outchars("Color");
129 08708877 2003-11-25 devnull 		else
130 08708877 2003-11-25 devnull 			outchars("B&W");
131 08708877 2003-11-25 devnull 		n++;
132 08708877 2003-11-25 devnull 	}
133 08708877 2003-11-25 devnull 	if(n) {
134 08708877 2003-11-25 devnull 		outchar('.');
135 08708877 2003-11-25 devnull 		outnl(1);
136 08708877 2003-11-25 devnull 	}
137 08708877 2003-11-25 devnull 	p = mget(VD, ps, pe, &e);
138 08708877 2003-11-25 devnull 	if(p) {
139 08708877 2003-11-25 devnull 		outchars("Video: ");
140 08708877 2003-11-25 devnull 		outpiece(p, e);
141 08708877 2003-11-25 devnull 		outnl(1);
142 08708877 2003-11-25 devnull 	}
143 08708877 2003-11-25 devnull 	p = mget(AU, ps, pe, &e);
144 08708877 2003-11-25 devnull 	if(p) {
145 08708877 2003-11-25 devnull 		outchars("By: ");
146 08708877 2003-11-25 devnull 		moutall2(AU, ps, pe);
147 08708877 2003-11-25 devnull 		outnl(1);
148 08708877 2003-11-25 devnull 	}
149 08708877 2003-11-25 devnull 	p = mget(DR, ps, pe, &e);
150 08708877 2003-11-25 devnull 	if(p) {
151 08708877 2003-11-25 devnull 		outchars("Director: ");
152 08708877 2003-11-25 devnull 		outpiece(p, e);
153 08708877 2003-11-25 devnull 		outnl(1);
154 08708877 2003-11-25 devnull 	}
155 08708877 2003-11-25 devnull 	p = mget(PR, ps, pe, &e);
156 08708877 2003-11-25 devnull 	if(p) {
157 08708877 2003-11-25 devnull 		outchars("Producer: ");
158 08708877 2003-11-25 devnull 		outpiece(p, e);
159 08708877 2003-11-25 devnull 		outnl(1);
160 08708877 2003-11-25 devnull 	}
161 08708877 2003-11-25 devnull 	p = mget(CN, ps, pe, &e);
162 08708877 2003-11-25 devnull 	if(p) {
163 08708877 2003-11-25 devnull 		outchars("Cinematograpy: ");
164 08708877 2003-11-25 devnull 		outpiece(p, e);
165 08708877 2003-11-25 devnull 		outnl(1);
166 08708877 2003-11-25 devnull 	}
167 08708877 2003-11-25 devnull 	p = mget(CR, ps, pe, &e);
168 08708877 2003-11-25 devnull 	if(p) {
169 08708877 2003-11-25 devnull 		outchars("Other Credits: ");
170 08708877 2003-11-25 devnull 		moutall2(CR, ps, pe);
171 08708877 2003-11-25 devnull 	}
172 08708877 2003-11-25 devnull 	outnl(2);
173 08708877 2003-11-25 devnull 	p = mget(CA, ps, pe, &e);
174 08708877 2003-11-25 devnull 	if(p) {
175 08708877 2003-11-25 devnull 		outchars("Cast: ");
176 08708877 2003-11-25 devnull 		moutall2(CA, ps, pe);
177 08708877 2003-11-25 devnull 	}
178 08708877 2003-11-25 devnull 	outnl(2);
179 08708877 2003-11-25 devnull 	p = mget(AW, ps, pe, &e);
180 08708877 2003-11-25 devnull 	if(p) {
181 08708877 2003-11-25 devnull 		outchars("Awards: ");
182 08708877 2003-11-25 devnull 		moutall2(AW, ps, pe);
183 08708877 2003-11-25 devnull 		outnl(2);
184 08708877 2003-11-25 devnull 	}
185 08708877 2003-11-25 devnull 	p = mget(NT, ps, pe, &e);
186 08708877 2003-11-25 devnull 	if(p) {
187 08708877 2003-11-25 devnull 		outpiece(p, e);
188 08708877 2003-11-25 devnull 		outnl(2);
189 08708877 2003-11-25 devnull 	}
190 08708877 2003-11-25 devnull 	p = mget(AB, ps, pe, &e);
191 08708877 2003-11-25 devnull 	if(p) {
192 08708877 2003-11-25 devnull 		outpiece(p, e);
193 08708877 2003-11-25 devnull 		outnl(2);
194 08708877 2003-11-25 devnull 	}
195 08708877 2003-11-25 devnull 	pn = ps;
196 08708877 2003-11-25 devnull 	n = 0;
197 08708877 2003-11-25 devnull 	while((p = mget(TX, pn, pe, &pn)) != 0) {
198 08708877 2003-11-25 devnull 		if(n++)
199 08708877 2003-11-25 devnull 			outnl(1);
200 08708877 2003-11-25 devnull 		outpiece(p, pn);
201 08708877 2003-11-25 devnull 	}
202 08708877 2003-11-25 devnull 	outnl(0);
203 08708877 2003-11-25 devnull }
204 08708877 2003-11-25 devnull 
205 08708877 2003-11-25 devnull long
206 08708877 2003-11-25 devnull movienextoff(long fromoff)
207 08708877 2003-11-25 devnull {
208 08708877 2003-11-25 devnull 	long a;
209 08708877 2003-11-25 devnull 	char *p;
210 08708877 2003-11-25 devnull 
211 08708877 2003-11-25 devnull 	a = Bseek(bdict, fromoff, 0);
212 08708877 2003-11-25 devnull 	if(a < 0)
213 08708877 2003-11-25 devnull 		return -1;
214 08708877 2003-11-25 devnull 	for(;;) {
215 08708877 2003-11-25 devnull 		p = Brdline(bdict, '\n');
216 08708877 2003-11-25 devnull 		if(!p)
217 08708877 2003-11-25 devnull 			break;
218 08708877 2003-11-25 devnull 		if(p[0] == '$' && p[1] == '$')
219 08708877 2003-11-25 devnull 			return (Boffset(bdict)-Blinelen(bdict));
220 08708877 2003-11-25 devnull 	}
221 08708877 2003-11-25 devnull 	return -1;
222 08708877 2003-11-25 devnull }
223 08708877 2003-11-25 devnull 
224 08708877 2003-11-25 devnull void
225 08708877 2003-11-25 devnull movieprintkey(void)
226 08708877 2003-11-25 devnull {
227 08708877 2003-11-25 devnull 	Bprint(bout, "No key\n");
228 08708877 2003-11-25 devnull }
229 08708877 2003-11-25 devnull 
230 08708877 2003-11-25 devnull /*
231 08708877 2003-11-25 devnull  * write a comma-separated list of all tag values between b and e
232 08708877 2003-11-25 devnull  */
233 08708877 2003-11-25 devnull #if 0
234 08708877 2003-11-25 devnull static void
235 08708877 2003-11-25 devnull moutall(int tag, char *b, char *e)
236 08708877 2003-11-25 devnull {
237 08708877 2003-11-25 devnull 	char *p, *pn;
238 08708877 2003-11-25 devnull 	int n;
239 08708877 2003-11-25 devnull 
240 08708877 2003-11-25 devnull 	n = 0;
241 08708877 2003-11-25 devnull 	pn = b;
242 08708877 2003-11-25 devnull 	while((p = mget(tag, pn, e, &pn)) != 0) {
243 08708877 2003-11-25 devnull 		if(n++)
244 08708877 2003-11-25 devnull 			outchars(", ");
245 08708877 2003-11-25 devnull 		outpiece(p, pn);
246 08708877 2003-11-25 devnull 	}
247 08708877 2003-11-25 devnull }
248 08708877 2003-11-25 devnull #endif
249 08708877 2003-11-25 devnull 
250 08708877 2003-11-25 devnull /*
251 08708877 2003-11-25 devnull  * like moutall, but values are expected to have form:
252 08708877 2003-11-25 devnull  *    field1_field2
253 08708877 2003-11-25 devnull  * and we are to output 'field2 (field1)' for each
254 08708877 2003-11-25 devnull  * (sometimes field1 has underscores, so search from end)
255 08708877 2003-11-25 devnull  */
256 08708877 2003-11-25 devnull static void
257 08708877 2003-11-25 devnull moutall2(int tag, char *b, char *e)
258 08708877 2003-11-25 devnull {
259 08708877 2003-11-25 devnull 	char *p, *pn, *us, *q;
260 08708877 2003-11-25 devnull 	int n;
261 08708877 2003-11-25 devnull 
262 08708877 2003-11-25 devnull 	n = 0;
263 08708877 2003-11-25 devnull 	pn = b;
264 08708877 2003-11-25 devnull 	while((p = mget(tag, pn, e, &pn)) != 0) {
265 08708877 2003-11-25 devnull 		if(n++)
266 08708877 2003-11-25 devnull 			outchars(", ");
267 08708877 2003-11-25 devnull 		us = 0;
268 08708877 2003-11-25 devnull 		for(q = pn-1; q >= p; q--)
269 08708877 2003-11-25 devnull 			if(*q == '_') {
270 08708877 2003-11-25 devnull 				us = q;
271 08708877 2003-11-25 devnull 				break;
272 08708877 2003-11-25 devnull 			}
273 08708877 2003-11-25 devnull 		if(us) {
274 08708877 2003-11-25 devnull 			/*
275 08708877 2003-11-25 devnull 			 * Hack to fix cast list Himself/Herself
276 08708877 2003-11-25 devnull 			 */
277 08708877 2003-11-25 devnull 			if(strncmp(us+1, "Himself", 7) == 0 ||
278 08708877 2003-11-25 devnull 			   strncmp(us+1, "Herself", 7) == 0) {
279 08708877 2003-11-25 devnull 				outpiece(p, us);
280 08708877 2003-11-25 devnull 				outchars(" (");
281 08708877 2003-11-25 devnull 				outpiece(us+1, pn);
282 08708877 2003-11-25 devnull 				outchar(')');
283 08708877 2003-11-25 devnull 			} else {
284 08708877 2003-11-25 devnull 				outpiece(us+1, pn);
285 08708877 2003-11-25 devnull 				outchars(" (");
286 08708877 2003-11-25 devnull 				outpiece(p, us);
287 08708877 2003-11-25 devnull 				outchar(')');
288 08708877 2003-11-25 devnull 			}
289 08708877 2003-11-25 devnull 		} else {
290 08708877 2003-11-25 devnull 			outpiece(p, pn);
291 08708877 2003-11-25 devnull 		}
292 08708877 2003-11-25 devnull 	}
293 08708877 2003-11-25 devnull }
294 08708877 2003-11-25 devnull 
295 08708877 2003-11-25 devnull /*
296 08708877 2003-11-25 devnull  * Starting from b, find next line beginning with tagtab[tag].
297 08708877 2003-11-25 devnull  * Don't go past e, but assume *e==0.
298 08708877 2003-11-25 devnull  * Return pointer to beginning of value (after tag), and set
299 08708877 2003-11-25 devnull  * eptr to point at newline that ends the value
300 08708877 2003-11-25 devnull  */
301 08708877 2003-11-25 devnull static char *
302 08708877 2003-11-25 devnull mget(int tag, char *b, char *e, char **eptr)
303 08708877 2003-11-25 devnull {
304 08708877 2003-11-25 devnull 	char *p, *t, *ans;
305 08708877 2003-11-25 devnull 
306 08708877 2003-11-25 devnull 	if(tag < 0 || tag >= NTAG)
307 08708877 2003-11-25 devnull 		return 0;
308 08708877 2003-11-25 devnull 	t = tagtab[tag];
309 08708877 2003-11-25 devnull 	ans = 0;
310 08708877 2003-11-25 devnull 	for(p = b;;) {
311 08708877 2003-11-25 devnull 		p = strchr(p, '\n');
312 08708877 2003-11-25 devnull 		if(!p || ++p >= e) {
313 08708877 2003-11-25 devnull 			if(ans)
314 08708877 2003-11-25 devnull 				*eptr = e-1;
315 08708877 2003-11-25 devnull 			break;
316 08708877 2003-11-25 devnull 		}
317 08708877 2003-11-25 devnull 		if(!ans) {
318 08708877 2003-11-25 devnull 			if(p[0] == t[0] && p[1] == t[1])
319 08708877 2003-11-25 devnull 				ans = p+3;
320 08708877 2003-11-25 devnull 		} else {
321 08708877 2003-11-25 devnull 			if(p[0] != ' ') {
322 08708877 2003-11-25 devnull 				*eptr = p-1;
323 08708877 2003-11-25 devnull 				break;
324 08708877 2003-11-25 devnull 			}
325 08708877 2003-11-25 devnull 		}
326 08708877 2003-11-25 devnull 	}
327 08708877 2003-11-25 devnull 	return ans;
328 08708877 2003-11-25 devnull }