ref: 094fc8b15f98807833143e29f1f7d36a1ca4b28c
dir: /sys/src/cmd/fax/file.c/
#include <u.h> #include <libc.h> #include <bio.h> #include "modem.h" static long wd[5] = { 1728, 2048, 2432, 1216, 864 }; void setpageid(char *pageid, char *spool, long time, int pid, int pageno) { sprint(pageid, "%s/%lud.%d.%3.3d", spool, time, pid, pageno); } int createfaxfile(Modem *m, char *spool) { setpageid(m->pageid, spool, m->time, m->pid, m->pageno); verbose("openfaxfile: %s", m->pageid); if((m->pagefd = create(m->pageid, OTRUNC|OWRITE, 0666)) < 0) return seterror(m, Esys); fprint(m->pagefd, "TYPE=ccitt-g31\n"); fprint(m->pagefd, "WINDOW=0 0 %ld -1\n", wd[m->fdcs[2]]); if(m->valid & Vftsi) fprint(m->pagefd, "FTSI=%s\n", m->ftsi); fprint(m->pagefd, "FDCS=%lud,%lud,%lud,%lud,%lud,%lud,%lud,%lud\n", m->fdcs[0], m->fdcs[1], m->fdcs[2], m->fdcs[3], m->fdcs[4], m->fdcs[5], m->fdcs[6], m->fdcs[7]); fprint(m->pagefd, "\n"); return Eok; } enum { Gshdrsize= 0x40, }; int gsopen(Modem *m) { int n; char bytes[Gshdrsize]; /* * Is this gs output */ n = Bread(m->bp, bytes, Gshdrsize); if(n != Gshdrsize) return seterror(m, Esys); if(bytes[0]!='\0' || strcmp(bytes+1, "PC Research, Inc")!=0){ Bseek(m->bp, 0, 0); return seterror(m, Esys); } m->valid |= Vtype; if(bytes[0x1d]) m->vr = 1; else m->vr = 0; m->wd = 0; m->ln = 2; m->df = 0; return Eok; } int picopen(Modem *m) { char *p, *q; int i, x; /* * Look at the header. Every page should have a valid type. * The first page should have WINDOW. */ while(p = Brdline(m->bp, '\n')){ if(Blinelen(m->bp) == 1) break; p[Blinelen(m->bp)-1] = 0; verbose("openfaxfile: %s", p); if(strcmp("TYPE=ccitt-g31", p) == 0) m->valid |= Vtype; /* else if(m->pageno == 1 && strncmp("PHONE=", p, 6) == 0){ strcpy(m->number, p+6); m->valid |= Vphone; } */ else if(m->pageno == 1 && strncmp("WINDOW=", p, 7) == 0){ p += 7; verbose("openfaxfile: WINDOW: %s", p); for(i = 0; i < 4; i++){ x = strtol(p, &q, 10); if(i == 2) m->wd = x; if((p = q) == 0){ Bterm(m->bp); return seterror(m, Eproto); } } for(i = 0; i < 5; i++){ if(m->wd == wd[i]){ m->wd = i; m->valid |= Vwd; break; } } if((m->valid & Vwd) == 0){ Bterm(m->bp); return seterror(m, Eproto); } } else if(m->pageno == 1 && strncmp("FDCS=", p, 5) == 0){ p += 5; m->df = m->vr = m->wd = 0; m->ln = 2; for(i = 0; i < 5; i++){ x = strtol(p, &q, 10); switch(i){ case 0: m->vr = x; break; case 3: m->ln = x; break; case 4: m->df = x; break; } if((p = q) == 0){ Bterm(m->bp); return seterror(m, Eproto); } if(*p++ != ',') break; } } } verbose("openfaxfile: valid #%4.4ux", m->valid); if((m->valid & (Vtype|Vwd)) != (Vtype|Vwd)){ Bterm(m->bp); return seterror(m, Eproto); } return Eok; } int openfaxfile(Modem *m, char *file) { if((m->bp = Bopen(file, OREAD)) == 0) return seterror(m, Esys); m->valid &= ~(Vtype); if(gsopen(m) == Eok) return Eok; return picopen(m); }