plan9port

movie.c (5665B)

---

 #include <u.h>
 #include <libc.h>
 #include <bio.h>
 #include "dict.h"
 
 /* Possible tags */
 enum {
 	BEG,	/* beginning of entry */
 	AB,	/* abstract */
 	AN,	/* database serial number */
 	AS,	/* author (one at a time) */
 	AU,	/* all authors */
 	AW,	/* award_awardee */
 	BW,	/* bw or c */
 	CA,	/* cast: character_actor */
 	CN,	/* cinematography */
 	CO,	/* country */
 	CR,	/* miscellaneous job_name */
 	DE,	/* topic keyword */
 	DR,	/* director */
 	ED,	/* editor */
 	MP,	/* MPAA rating (R, PG, etc.) */
 	NT,	/* note */
 	PR,	/* producer and for ...*/
 	PS,	/* producer (repeats info in PR) */
 	RA,	/* rating (letter) */
 	RD,	/* release date */
 	RT,	/* running time */
 	RV,	/* review citation */
 	ST,	/* production or release company (repeats info in PR) */
 	TI,	/* title[; original foreign title] */
 	TX,	/* paragraph of descriptive text */
 	VD,	/* video information (format_time_company; or "Not Avail.") */
 	NTAG	/* number of tags */
 };
 
 /* Assoc tables must be sorted on first field */
 
 static char *tagtab[NTAG];
 
 static void
 inittagtab(void)
 {
 	tagtab[BEG]=	"$$";
 	tagtab[AB]=	"AB";
 	tagtab[AN]=	"AN";
 	tagtab[AS]=	"AS";
 	tagtab[AU]=	"AU";
 	tagtab[AW]=	"AW";
 	tagtab[BW]=	"BW";
 	tagtab[CA]=	"CA";
 	tagtab[CN]=	"CN";
 	tagtab[CO]=	"CO";
 	tagtab[CR]=	"CR";
 	tagtab[DE]=	"DE";
 	tagtab[DR]=	"DR";
 	tagtab[ED]=	"ED";
 	tagtab[MP]=	"MP";
 	tagtab[NT]=	"NT";
 	tagtab[PR]=	"PR";
 	tagtab[PS]=	"PS";
 	tagtab[RA]=	"RA";
 	tagtab[RD]=	"RD";
 	tagtab[RT]=	"RT";
 	tagtab[RV]=	"RV";
 	tagtab[ST]=	"ST";
 	tagtab[TI]=	"TI";
 	tagtab[TX]=	"TX";
 	tagtab[VD]=	"VD";
 }
 
 static char	*mget(int, char *, char *, char **);
 #if 0
 static void	moutall(int, char *, char *);
 #endif
 static void	moutall2(int, char *, char *);
 
 void
 movieprintentry(Entry ent, int cmd)
 {
 	char *p, *e, *ps, *pe, *pn;
 	int n;
 
 	ps = ent.start;
 	pe = ent.end;
 	if(cmd == 'r') {
 		Bwrite(bout, ps, pe-ps);
 		return;
 	}
 	p = mget(TI, ps, pe, &e);
 	if(p) {
 		outpiece(p, e);
 		outnl(0);
 	}
 	if(cmd == 'h')
 		return;
 	outnl(2);
 	n = 0;
 	p = mget(RD, ps, pe, &e);
 	if(p) {
 		outchars("Released: ");
 		outpiece(p, e);
 		n++;
 	}
 	p = mget(CO, ps, pe, &e);
 	if(p) {
 		if(n)
 			outchars(", ");
 		outpiece(p, e);
 		n++;
 	}
 	p = mget(RT, ps, pe, &e);
 	if(p) {
 		if(n)
 			outchars(", ");
 		outchars("Running time: ");
 		outpiece(p, e);
 		n++;
 	}
 	p = mget(MP, ps, pe, &e);
 	if(p) {
 		if(n)
 			outchars(", ");
 		outpiece(p, e);
 		n++;
 	}
 	p = mget(BW, ps, pe, &e);
 	if(p) {
 		if(n)
 			outchars(", ");
 		if(*p == 'c' || *p == 'C')
 			outchars("Color");
 		else
 			outchars("B&W");
 		n++;
 	}
 	if(n) {
 		outchar('.');
 		outnl(1);
 	}
 	p = mget(VD, ps, pe, &e);
 	if(p) {
 		outchars("Video: ");
 		outpiece(p, e);
 		outnl(1);
 	}
 	p = mget(AU, ps, pe, &e);
 	if(p) {
 		outchars("By: ");
 		moutall2(AU, ps, pe);
 		outnl(1);
 	}
 	p = mget(DR, ps, pe, &e);
 	if(p) {
 		outchars("Director: ");
 		outpiece(p, e);
 		outnl(1);
 	}
 	p = mget(PR, ps, pe, &e);
 	if(p) {
 		outchars("Producer: ");
 		outpiece(p, e);
 		outnl(1);
 	}
 	p = mget(CN, ps, pe, &e);
 	if(p) {
 		outchars("Cinematograpy: ");
 		outpiece(p, e);
 		outnl(1);
 	}
 	p = mget(CR, ps, pe, &e);
 	if(p) {
 		outchars("Other Credits: ");
 		moutall2(CR, ps, pe);
 	}
 	outnl(2);
 	p = mget(CA, ps, pe, &e);
 	if(p) {
 		outchars("Cast: ");
 		moutall2(CA, ps, pe);
 	}
 	outnl(2);
 	p = mget(AW, ps, pe, &e);
 	if(p) {
 		outchars("Awards: ");
 		moutall2(AW, ps, pe);
 		outnl(2);
 	}
 	p = mget(NT, ps, pe, &e);
 	if(p) {
 		outpiece(p, e);
 		outnl(2);
 	}
 	p = mget(AB, ps, pe, &e);
 	if(p) {
 		outpiece(p, e);
 		outnl(2);
 	}
 	pn = ps;
 	n = 0;
 	while((p = mget(TX, pn, pe, &pn)) != 0) {
 		if(n++)
 			outnl(1);
 		outpiece(p, pn);
 	}
 	outnl(0);
 }
 
 long
 movienextoff(long fromoff)
 {
 	long a;
 	char *p;
 
 	a = Bseek(bdict, fromoff, 0);
 	if(a < 0)
 		return -1;
 	for(;;) {
 		p = Brdline(bdict, '\n');
 		if(!p)
 			break;
 		if(p[0] == '$' && p[1] == '$')
 			return (Boffset(bdict)-Blinelen(bdict));
 	}
 	return -1;
 }
 
 void
 movieprintkey(void)
 {
 	Bprint(bout, "No key\n");
 }
 
 /*
  * write a comma-separated list of all tag values between b and e
  */
 #if 0
 static void
 moutall(int tag, char *b, char *e)
 {
 	char *p, *pn;
 	int n;
 
 	n = 0;
 	pn = b;
 	while((p = mget(tag, pn, e, &pn)) != 0) {
 		if(n++)
 			outchars(", ");
 		outpiece(p, pn);
 	}
 }
 #endif
 
 /*
  * like moutall, but values are expected to have form:
  *    field1_field2
  * and we are to output 'field2 (field1)' for each
  * (sometimes field1 has underscores, so search from end)
  */
 static void
 moutall2(int tag, char *b, char *e)
 {
 	char *p, *pn, *us, *q;
 	int n;
 
 	n = 0;
 	pn = b;
 	while((p = mget(tag, pn, e, &pn)) != 0) {
 		if(n++)
 			outchars(", ");
 		us = 0;
 		for(q = pn-1; q >= p; q--)
 			if(*q == '_') {
 				us = q;
 				break;
 			}
 		if(us) {
 			/*
 			 * Hack to fix cast list Himself/Herself
 			 */
 			if(strncmp(us+1, "Himself", 7) == 0 ||
 			   strncmp(us+1, "Herself", 7) == 0) {
 				outpiece(p, us);
 				outchars(" (");
 				outpiece(us+1, pn);
 				outchar(')');
 			} else {
 				outpiece(us+1, pn);
 				outchars(" (");
 				outpiece(p, us);
 				outchar(')');
 			}
 		} else {
 			outpiece(p, pn);
 		}
 	}
 }
 
 /*
  * Starting from b, find next line beginning with tagtab[tag].
  * Don't go past e, but assume *e==0.
  * Return pointer to beginning of value (after tag), and set
  * eptr to point at newline that ends the value
  */
 static char *
 mget(int tag, char *b, char *e, char **eptr)
 {
 	char *p, *t, *ans;
 
 	if(tag < 0 || tag >= NTAG)
 		return 0;
 	if(tagtab[BEG] == 0)
 		inittagtab();
 	t = tagtab[tag];
 	ans = 0;
 	for(p = b;;) {
 		p = strchr(p, '\n');
 		if(!p || ++p >= e) {
 			if(ans)
 				*eptr = e-1;
 			break;
 		}
 		if(!ans) {
 			if(p[0] == t[0] && p[1] == t[1])
 				ans = p+3;
 		} else {
 			if(p[0] != ' ') {
 				*eptr = p-1;
 				break;
 			}
 		}
 	}
 	return ans;
 }