ref: 4308f6e7e6586e3a27aa46c4d54c434b8533b16d
dir: /sys/src/cmd/dict/movie.c/
#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[] = {
[BEG] "$$",
[AB] "AB",
[AN] "AN",
[AS] "AS",
[AU] "AU",
[AW] "AW",
[BW] "BW",
[CA] "CA",
[CN] "CN",
[CO] "CO",
[CR] "CR",
[DE] "DE",
[DR] "DR",
[ED] "ED",
[MP] "MP",
[NT] "NT",
[PR] "PR",
[PS] "PS",
[RA] "RA",
[RD] "RD",
[RT] "RT",
[RV] "RV",
[ST] "ST",
[TI] "TI",
[TX] "TX",
[VD] "VD",
};
static char *mget(int, char *, char *, char **);
static void moutall(int, char *, char *);
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
*/
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);
}
}
/*
* 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;
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;
}