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"
6 08708877 2003-11-25 devnull /* Possible tags */
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 */
37 08708877 2003-11-25 devnull /* Assoc tables must be sorted on first field */
39 65d5010e 2004-03-26 devnull static char *tagtab[NTAG];
41 65d5010e 2004-03-26 devnull static void
42 65d5010e 2004-03-26 devnull inittagtab(void)
44 65d5010e 2004-03-26 devnull tagtab[BEG]= "$$";
45 65d5010e 2004-03-26 devnull tagtab[AB]= "AB";
46 65d5010e 2004-03-26 devnull tagtab[AN]= "AN";
47 65d5010e 2004-03-26 devnull tagtab[AS]= "AS";
48 65d5010e 2004-03-26 devnull tagtab[AU]= "AU";
49 65d5010e 2004-03-26 devnull tagtab[AW]= "AW";
50 65d5010e 2004-03-26 devnull tagtab[BW]= "BW";
51 65d5010e 2004-03-26 devnull tagtab[CA]= "CA";
52 65d5010e 2004-03-26 devnull tagtab[CN]= "CN";
53 65d5010e 2004-03-26 devnull tagtab[CO]= "CO";
54 65d5010e 2004-03-26 devnull tagtab[CR]= "CR";
55 65d5010e 2004-03-26 devnull tagtab[DE]= "DE";
56 65d5010e 2004-03-26 devnull tagtab[DR]= "DR";
57 65d5010e 2004-03-26 devnull tagtab[ED]= "ED";
58 65d5010e 2004-03-26 devnull tagtab[MP]= "MP";
59 65d5010e 2004-03-26 devnull tagtab[NT]= "NT";
60 65d5010e 2004-03-26 devnull tagtab[PR]= "PR";
61 65d5010e 2004-03-26 devnull tagtab[PS]= "PS";
62 65d5010e 2004-03-26 devnull tagtab[RA]= "RA";
63 65d5010e 2004-03-26 devnull tagtab[RD]= "RD";
64 65d5010e 2004-03-26 devnull tagtab[RT]= "RT";
65 65d5010e 2004-03-26 devnull tagtab[RV]= "RV";
66 65d5010e 2004-03-26 devnull tagtab[ST]= "ST";
67 65d5010e 2004-03-26 devnull tagtab[TI]= "TI";
68 65d5010e 2004-03-26 devnull tagtab[TX]= "TX";
69 65d5010e 2004-03-26 devnull tagtab[VD]= "VD";
72 08708877 2003-11-25 devnull static char *mget(int, char *, char *, char **);
74 08708877 2003-11-25 devnull static void moutall(int, char *, char *);
76 08708877 2003-11-25 devnull static void moutall2(int, char *, char *);
79 08708877 2003-11-25 devnull movieprintentry(Entry ent, int cmd)
81 08708877 2003-11-25 devnull char *p, *e, *ps, *pe, *pn;
84 08708877 2003-11-25 devnull ps = ent.start;
85 08708877 2003-11-25 devnull pe = ent.end;
86 08708877 2003-11-25 devnull if(cmd == 'r') {
87 08708877 2003-11-25 devnull Bwrite(bout, ps, pe-ps);
90 08708877 2003-11-25 devnull p = mget(TI, ps, pe, &e);
92 08708877 2003-11-25 devnull outpiece(p, e);
93 08708877 2003-11-25 devnull outnl(0);
95 08708877 2003-11-25 devnull if(cmd == 'h')
97 08708877 2003-11-25 devnull outnl(2);
99 08708877 2003-11-25 devnull p = mget(RD, ps, pe, &e);
101 08708877 2003-11-25 devnull outchars("Released: ");
102 08708877 2003-11-25 devnull outpiece(p, e);
105 08708877 2003-11-25 devnull p = mget(CO, ps, pe, &e);
108 08708877 2003-11-25 devnull outchars(", ");
109 08708877 2003-11-25 devnull outpiece(p, e);
112 08708877 2003-11-25 devnull p = mget(RT, ps, pe, &e);
115 08708877 2003-11-25 devnull outchars(", ");
116 08708877 2003-11-25 devnull outchars("Running time: ");
117 08708877 2003-11-25 devnull outpiece(p, e);
120 08708877 2003-11-25 devnull p = mget(MP, ps, pe, &e);
123 08708877 2003-11-25 devnull outchars(", ");
124 08708877 2003-11-25 devnull outpiece(p, e);
127 08708877 2003-11-25 devnull p = mget(BW, ps, pe, &e);
130 08708877 2003-11-25 devnull outchars(", ");
131 08708877 2003-11-25 devnull if(*p == 'c' || *p == 'C')
132 08708877 2003-11-25 devnull outchars("Color");
134 08708877 2003-11-25 devnull outchars("B&W");
138 08708877 2003-11-25 devnull outchar('.');
139 08708877 2003-11-25 devnull outnl(1);
141 08708877 2003-11-25 devnull p = mget(VD, ps, pe, &e);
143 08708877 2003-11-25 devnull outchars("Video: ");
144 08708877 2003-11-25 devnull outpiece(p, e);
145 08708877 2003-11-25 devnull outnl(1);
147 08708877 2003-11-25 devnull p = mget(AU, ps, pe, &e);
149 08708877 2003-11-25 devnull outchars("By: ");
150 08708877 2003-11-25 devnull moutall2(AU, ps, pe);
151 08708877 2003-11-25 devnull outnl(1);
153 08708877 2003-11-25 devnull p = mget(DR, ps, pe, &e);
155 08708877 2003-11-25 devnull outchars("Director: ");
156 08708877 2003-11-25 devnull outpiece(p, e);
157 08708877 2003-11-25 devnull outnl(1);
159 08708877 2003-11-25 devnull p = mget(PR, ps, pe, &e);
161 08708877 2003-11-25 devnull outchars("Producer: ");
162 08708877 2003-11-25 devnull outpiece(p, e);
163 08708877 2003-11-25 devnull outnl(1);
165 08708877 2003-11-25 devnull p = mget(CN, ps, pe, &e);
167 08708877 2003-11-25 devnull outchars("Cinematograpy: ");
168 08708877 2003-11-25 devnull outpiece(p, e);
169 08708877 2003-11-25 devnull outnl(1);
171 08708877 2003-11-25 devnull p = mget(CR, ps, pe, &e);
173 08708877 2003-11-25 devnull outchars("Other Credits: ");
174 08708877 2003-11-25 devnull moutall2(CR, ps, pe);
176 08708877 2003-11-25 devnull outnl(2);
177 08708877 2003-11-25 devnull p = mget(CA, ps, pe, &e);
179 08708877 2003-11-25 devnull outchars("Cast: ");
180 08708877 2003-11-25 devnull moutall2(CA, ps, pe);
182 08708877 2003-11-25 devnull outnl(2);
183 08708877 2003-11-25 devnull p = mget(AW, ps, pe, &e);
185 08708877 2003-11-25 devnull outchars("Awards: ");
186 08708877 2003-11-25 devnull moutall2(AW, ps, pe);
187 08708877 2003-11-25 devnull outnl(2);
189 08708877 2003-11-25 devnull p = mget(NT, ps, pe, &e);
191 08708877 2003-11-25 devnull outpiece(p, e);
192 08708877 2003-11-25 devnull outnl(2);
194 08708877 2003-11-25 devnull p = mget(AB, ps, pe, &e);
196 08708877 2003-11-25 devnull outpiece(p, e);
197 08708877 2003-11-25 devnull outnl(2);
199 08708877 2003-11-25 devnull pn = ps;
201 08708877 2003-11-25 devnull while((p = mget(TX, pn, pe, &pn)) != 0) {
203 08708877 2003-11-25 devnull outnl(1);
204 08708877 2003-11-25 devnull outpiece(p, pn);
206 08708877 2003-11-25 devnull outnl(0);
210 08708877 2003-11-25 devnull movienextoff(long fromoff)
213 08708877 2003-11-25 devnull char *p;
215 08708877 2003-11-25 devnull a = Bseek(bdict, fromoff, 0);
216 08708877 2003-11-25 devnull if(a < 0)
217 08708877 2003-11-25 devnull return -1;
218 08708877 2003-11-25 devnull for(;;) {
219 08708877 2003-11-25 devnull p = Brdline(bdict, '\n');
222 08708877 2003-11-25 devnull if(p[0] == '$' && p[1] == '$')
223 08708877 2003-11-25 devnull return (Boffset(bdict)-Blinelen(bdict));
225 08708877 2003-11-25 devnull return -1;
229 08708877 2003-11-25 devnull movieprintkey(void)
231 08708877 2003-11-25 devnull Bprint(bout, "No key\n");
235 08708877 2003-11-25 devnull * write a comma-separated list of all tag values between b and e
238 08708877 2003-11-25 devnull static void
239 08708877 2003-11-25 devnull moutall(int tag, char *b, char *e)
241 08708877 2003-11-25 devnull char *p, *pn;
246 08708877 2003-11-25 devnull while((p = mget(tag, pn, e, &pn)) != 0) {
248 08708877 2003-11-25 devnull outchars(", ");
249 08708877 2003-11-25 devnull outpiece(p, pn);
255 08708877 2003-11-25 devnull * like moutall, but values are expected to have form:
256 08708877 2003-11-25 devnull * field1_field2
257 08708877 2003-11-25 devnull * and we are to output 'field2 (field1)' for each
258 08708877 2003-11-25 devnull * (sometimes field1 has underscores, so search from end)
260 08708877 2003-11-25 devnull static void
261 08708877 2003-11-25 devnull moutall2(int tag, char *b, char *e)
263 08708877 2003-11-25 devnull char *p, *pn, *us, *q;
268 08708877 2003-11-25 devnull while((p = mget(tag, pn, e, &pn)) != 0) {
270 08708877 2003-11-25 devnull outchars(", ");
272 08708877 2003-11-25 devnull for(q = pn-1; q >= p; q--)
273 08708877 2003-11-25 devnull if(*q == '_') {
277 08708877 2003-11-25 devnull if(us) {
279 08708877 2003-11-25 devnull * Hack to fix cast list Himself/Herself
281 08708877 2003-11-25 devnull if(strncmp(us+1, "Himself", 7) == 0 ||
282 08708877 2003-11-25 devnull strncmp(us+1, "Herself", 7) == 0) {
283 08708877 2003-11-25 devnull outpiece(p, us);
284 08708877 2003-11-25 devnull outchars(" (");
285 08708877 2003-11-25 devnull outpiece(us+1, pn);
286 08708877 2003-11-25 devnull outchar(')');
287 08708877 2003-11-25 devnull } else {
288 08708877 2003-11-25 devnull outpiece(us+1, pn);
289 08708877 2003-11-25 devnull outchars(" (");
290 08708877 2003-11-25 devnull outpiece(p, us);
291 08708877 2003-11-25 devnull outchar(')');
293 08708877 2003-11-25 devnull } else {
294 08708877 2003-11-25 devnull outpiece(p, pn);
300 08708877 2003-11-25 devnull * Starting from b, find next line beginning with tagtab[tag].
301 08708877 2003-11-25 devnull * Don't go past e, but assume *e==0.
302 08708877 2003-11-25 devnull * Return pointer to beginning of value (after tag), and set
303 08708877 2003-11-25 devnull * eptr to point at newline that ends the value
305 08708877 2003-11-25 devnull static char *
306 08708877 2003-11-25 devnull mget(int tag, char *b, char *e, char **eptr)
308 08708877 2003-11-25 devnull char *p, *t, *ans;
310 08708877 2003-11-25 devnull if(tag < 0 || tag >= NTAG)
311 08708877 2003-11-25 devnull return 0;
312 65d5010e 2004-03-26 devnull if(tagtab[BEG] == 0)
313 65d5010e 2004-03-26 devnull inittagtab();
314 08708877 2003-11-25 devnull t = tagtab[tag];
315 08708877 2003-11-25 devnull ans = 0;
316 08708877 2003-11-25 devnull for(p = b;;) {
317 08708877 2003-11-25 devnull p = strchr(p, '\n');
318 08708877 2003-11-25 devnull if(!p || ++p >= e) {
320 08708877 2003-11-25 devnull *eptr = e-1;
323 08708877 2003-11-25 devnull if(!ans) {
324 08708877 2003-11-25 devnull if(p[0] == t[0] && p[1] == t[1])
325 08708877 2003-11-25 devnull ans = p+3;
326 08708877 2003-11-25 devnull } else {
327 08708877 2003-11-25 devnull if(p[0] != ' ') {
328 08708877 2003-11-25 devnull *eptr = p-1;
333 08708877 2003-11-25 devnull return ans;