sed: Can't open /usr/web/plan9/sources.html /* * n2.c * * output, cleanup */ #include "tdef.h" #include "fns.h" #include "ext.h" #include <setjmp.h> #ifdef STRICT /* not in ANSI or POSIX */ FILE* popen(char*, char*); #endif extern jmp_buf sjbuf; int toolate; int error; char obuf[2*BUFSIZ]; char *obufp = obuf; /* pipe command structure; allows redicously long commends for .pi */ struct Pipe { char *buf; int tick; int cnt; } Pipe; int xon = 0; /* records if in middle of \X */ int pchar(Tchar i) { int j; static int hx = 0; /* records if have seen HX */ if (hx) { hx = 0; j = absmot(i); if (isnmot(i)) { if (j > dip->blss) dip->blss = j; } else { if (j > dip->alss) dip->alss = j; ralss = dip->alss; } return 0; } if (ismot(i)) { pchar1(i); return 0; } switch (j = cbits(i)) { case 0: case IMP: case RIGHT: case LEFT: return 0; case HX: hx = 1; return 0; case XON: xon++; break; case XOFF: xon--; break; case PRESC: if (!xon && !tflg && dip == &d[0]) j = eschar; /* fall through */ default: setcbits(i, trtab[j]); } if (NROFF & xon) /* rob fix for man2html */ return 0; pchar1(i); return 0; } void pchar1(Tchar i) { int j; j = cbits(i); if (dip != &d[0]) { wbf(i); dip->op = offset; return; } if (!tflg && !print) { if (j == '\n') dip->alss = dip->blss = 0; return; } if (j == FILLER && !xon) return; if (tflg) { /* transparent mode, undiverted */ if (print) /* assumes that it's ok to print */ /* OUT "%c", j PUT; /* i.e., is ascii */ outascii(i); return; } if (TROFF && ascii) outascii(i); else ptout(i); } void outweird(int k) /* like ptchname() but ascii */ { char *chn = chname(k); switch (chn[0]) { case MBchar: OUT "%s", chn+1 PUT; /* \n not needed? */ break; case Number: OUT "\\N'%s'", chn+1 PUT; break; case Troffchar: if (strlen(chn+1) == 2) OUT "\\(%s", chn+1 PUT; else OUT "\\C'%s'", chn+1 PUT; break; default: OUT " %s? ", chn PUT; break; } } void outascii(Tchar i) /* print i in best-guess ascii */ { int j = cbits(i); /* is this ever called with NROFF set? probably doesn't work at all. */ if (ismot(i)) oput(' '); else if (j < ALPHABET && j >= ' ' || j == '\n' || j == '\t') oput(j); else if (j == DRAWFCN) oputs("\\D"); else if (j == HYPHEN) oput('-'); else if (j == MINUS) /* special pleading for strange encodings */ oputs("\\-"); else if (j == PRESC) oputs("\\e"); else if (j == FILLER) oputs("\\&"); else if (j == UNPAD) oputs("\\ "); else if (j == OHC) /* this will never occur; stripped out earlier */ oputs("\\%"); else if (j == XON) oputs("\\X"); else if (j == XOFF) oputs(" "); else if (j == LIG_FI) oputs("fi"); else if (j == LIG_FL) oputs("fl"); else if (j == LIG_FF) oputs("ff"); else if (j == LIG_FFI) oputs("ffi"); else if (j == LIG_FFL) oputs("ffl"); else if (j == WORDSP) { /* nothing at all */ if (xon) /* except in \X */ oput(' '); } else outweird(j); } int flusho(void) { if (NROFF && !toolate && t.twinit) fwrite(t.twinit, strlen(t.twinit), 1, ptid); if (obufp > obuf) { if (pipeflg && !toolate) { /* fprintf(stderr, "Pipe to <%s>\n", Pipe.buf); */ if (!Pipe.buf[0] || (ptid = popen(Pipe.buf, "w")) == NULL) ERROR "pipe %s not created.", Pipe.buf WARN; if (Pipe.buf) free(Pipe.buf); } if (!toolate) toolate++; *obufp = 0; fputs(obuf, ptid); fflush(ptid); obufp = obuf; } return 1; } void caseex(void) { done(0); } void done(int x) { int i; error |= x; app = ds = lgf = 0; if (i = em) { donef = -1; eschar = '\\'; em = 0; if (control(i, 0)) longjmp(sjbuf, 1); } if (!nfo) done3(0); mflg = 0; dip = &d[0]; if (woff) /* BUG!!! This isn't set anywhere */ wbf((Tchar)0); if (pendw) getword(1); pendnf = 0; if (donef == 1) done1(0); donef = 1; ip = 0; frame = stk; nxf = frame + 1; if (!ejf) tbreak(); nflush++; eject((Stack *)0); longjmp(sjbuf, 1); } void done1(int x) { error |= x; if (numtabp[NL].val) { trap = 0; eject((Stack *)0); longjmp(sjbuf, 1); } if (!ascii) pttrailer(); done2(0); } void done2(int x) { ptlead(); if (TROFF && !ascii) ptstop(); flusho(); done3(x); } void done3(int x) { error |= x; flusho(); if (NROFF) twdone(); if (pipeflg) pclose(ptid); exit(error); } void edone(int x) { frame = stk; nxf = frame + 1; ip = 0; done(x); } void casepi(void) { int j; char buf[NTM]; if (Pipe.buf == NULL) { if ((Pipe.buf = (char *)calloc(NTM, sizeof(char))) == NULL) { ERROR "No buf space for pipe cmd" WARN; return; } Pipe.tick = 1; } else Pipe.buf[Pipe.cnt++] = '|'; getline(buf, NTM); j = strlen(buf); if (toolate) { ERROR "Cannot create pipe to %s", buf WARN; return; } Pipe.cnt += j; if (j >= NTM +1) { Pipe.tick++; if ((Pipe.buf = (char *)realloc(Pipe.buf, Pipe.tick * NTM * sizeof(char))) == NULL) { ERROR "No more buf space for pipe cmd" WARN; return; } } strcat(Pipe.buf, buf); pipeflg++; } sed: Can't open /usr/web/plan9/sources.html