![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to refer5.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / usr.bin / refer|
Return to refer5.c CVS log | Up to [CSRG BSD Unix] / 43BSD / usr.bin / refer |
1.1 ! root 1: #ifndef lint ! 2: static char *sccsid = "@(#)refer5.c 4.7 (Berkeley) 4/23/86"; ! 3: #endif ! 4: ! 5: #include "refer..c" ! 6: #define SAME 0 ! 7: #define NFLAB 3000 /* number of bytes to record all labels */ ! 8: #define NLABC 1000 /* max number of labels */ ! 9: ! 10: static char sig[MXSIG]; ! 11: static char bflab[NFLAB]; ! 12: static char *labtab[NLABC]; ! 13: static char *lbp = bflab; ! 14: static char labc[NLABC]; ! 15: static char stbuff[50]; ! 16: static int prevsig; ! 17: ! 18: putsig (nf, flds, nref, nstline, endline, toindex) /* choose signal style */ ! 19: char *flds[], *nstline, *endline; ! 20: { ! 21: char t[100], t1[MXSIG], t2[100], format[10], *sd, *stline; ! 22: int addon, another = 0; ! 23: static FILE *fhide = 0; ! 24: int i; ! 25: char tag; ! 26: ! 27: if (labels) { ! 28: if (nf == 0) /* old */ ! 29: sprintf(t, "%s%c", labtab[nref], labc[nref]); ! 30: else { ! 31: *t = 0; ! 32: if (keywant) ! 33: sprintf(t, "%s", fpar(nf,flds,t1,keywant,1,0)); ! 34: if (science && t[0] == 0) { ! 35: sd = fpar(nf, flds, t2, 'D', 1, 0); ! 36: sprintf(t, "%s, %s", fpar(nf,flds,t1,'A',1,0), ! 37: sd); ! 38: } ! 39: else if (t[0] == 0) { ! 40: sprintf(format, ! 41: nmlen>0 ? "%%.%ds%%s" : "%%s%%s", ! 42: nmlen); ! 43: /* format is %s%s for default labels */ ! 44: /* or %.3s%s eg if wanted */ ! 45: sd = fpar(nf, flds, t2, 'D', 1, 0); ! 46: if (dtlen > 0) { ! 47: char *sdb; ! 48: for (sdb = sd; *sd; sd++) ! 49: ; ! 50: sd = sd - dtlen; ! 51: if (sd < sdb) ! 52: sd = sdb; ! 53: } ! 54: sprintf(t, format, fpar(nf,flds,t1,'A',1,0), ! 55: sd); ! 56: } ! 57: if (keywant) { ! 58: addon = 0; ! 59: for (sd = t; *sd; sd++) ! 60: ; ! 61: if (*--sd == '-') { ! 62: addon = 1; ! 63: *sd = 0; ! 64: } ! 65: } ! 66: if ((!keywant || addon) && !science) { ! 67: addch(t, keylet(t, nref)); ! 68: } ! 69: else { ! 70: tokeytab (t,nref); ! 71: } ! 72: } ! 73: } ! 74: else { ! 75: sprintf(t, "%c%d%c", FLAG, nref, FLAG); ! 76: } ! 77: another = prefix (".[", sd=lookat()); ! 78: if (another && (strcmp(".[\n", sd) != SAME)) ! 79: fprintf(stderr, "File %s line %d: punctuation ignored from: %s", ! 80: Ifile, Iline, sd); ! 81: if ((strlen(sig) + strlen(t)) > MXSIG) ! 82: err("sig overflow (%d)", MXSIG); ! 83: strcat(sig, t); ! 84: #if EBUG ! 85: fprintf(stderr, "sig is now %s leng %d\n",sig,strlen(sig)); ! 86: #endif ! 87: trimnl(nstline); ! 88: trimnl(endline); ! 89: stline = stbuff; ! 90: if (prevsig == 0) { ! 91: strcpy (stline, nstline); ! 92: prevsig=1; ! 93: } ! 94: if (stline[2] || endline[2]) { ! 95: stline += 2; ! 96: endline += 2; ! 97: } ! 98: else { ! 99: stline = "\\*([."; ! 100: endline = "\\*(.]"; ! 101: } ! 102: if (science) { ! 103: stline = " ("; ! 104: endline = ")"; ! 105: } ! 106: if (bare == 0) { ! 107: if (!another) { ! 108: sprintf(t1, "%s%s\%s\n", stline, sig, endline); ! 109: if (strlen(t1) > MXSIG) ! 110: err("t1 overflow (%d)", MXSIG); ! 111: append(t1); ! 112: flout(); ! 113: sig[0] = 0; ! 114: prevsig = 0; ! 115: if (fo == fhide) { ! 116: int ch; ! 117: fclose(fhide); ! 118: fhide = fopen(hidenam, "r"); ! 119: fo = ftemp; ! 120: while ((ch = getc(fhide)) != EOF) ! 121: putc(ch, fo); ! 122: fclose(fhide); ! 123: unlink(hidenam); ! 124: } ! 125: } ! 126: else { ! 127: if (labels) { ! 128: strcat(sig, ",\\|"); ! 129: } else { ! 130: /* ! 131: * Seperate reference numbers with AFLAG ! 132: * for later sorting and condensing. ! 133: */ ! 134: t1[0] = AFLAG; ! 135: t1[1] = '\0'; ! 136: strcat(sig, t1); ! 137: } ! 138: if (fo == ftemp) { /* hide if need be */ ! 139: sprintf(hidenam, "/tmp/rj%dc", getpid()); ! 140: #if EBUG ! 141: fprintf(stderr, "hiding in %s\n", hidenam); ! 142: #endif ! 143: fhide = fopen(hidenam, "w"); ! 144: if (fhide == NULL) ! 145: err("Can't get scratch file %s", ! 146: hidenam); ! 147: fo = fhide; ! 148: } ! 149: } ! 150: } ! 151: if (bare < 2) ! 152: if (nf > 0 && toindex) ! 153: fprintf(fo,".ds [F %s%c",t,sep); ! 154: if (bare > 0) ! 155: flout(); ! 156: #if EBUG ! 157: fprintf(stderr, "sig is now %s\n",sig); ! 158: #endif ! 159: } ! 160: ! 161: char * ! 162: fpar (nf, flds, out, c, seq, prepend) ! 163: char *flds[], *out; ! 164: { ! 165: char *p, *s; ! 166: int i, fnd = 0; ! 167: ! 168: for(i = 0; i < nf; i++) ! 169: if (flds[i][1] == c && ++fnd >= seq) { ! 170: /* for titles use first word otherwise last */ ! 171: if (c == 'T' || c == 'J') { ! 172: p = flds[i]+3; ! 173: if (prefix("A ", p)) ! 174: p += 2; ! 175: if (prefix("An ", p)) ! 176: p += 3; ! 177: if (prefix("The ", p)) ! 178: p += 4; ! 179: mycpy2(out, p, 20); ! 180: return(out); ! 181: } ! 182: /* if its not 'L' then use just the last word */ ! 183: s = p = flds[i]+2; ! 184: if (c != 'L') { ! 185: for(; *p; p++); ! 186: while (p > s && *p != ' ') ! 187: p--; ! 188: } ! 189: /* special wart for authors */ ! 190: if (c == 'A' && (p[-1] == ',' || p[1] =='(')) { ! 191: p--; ! 192: while (p > s && *p != ' ') ! 193: p--; ! 194: mycpy(out, p+1); ! 195: } ! 196: else ! 197: strcpy(out, p+1); ! 198: if (c == 'A' && prepend) ! 199: initadd(out, flds[i]+2, p); ! 200: return(out); ! 201: } ! 202: return(0); ! 203: } ! 204: ! 205: putkey(nf, flds, nref, keystr) ! 206: char *flds[], *keystr; ! 207: { ! 208: char t1[50], *sf; ! 209: int ctype, i, count; ! 210: ! 211: fprintf(fo, ".\\\""); ! 212: if (nf <= 0) ! 213: fprintf(fo, "%s%c%c", labtab[nref], labc[nref], sep); ! 214: else { ! 215: while (ctype = *keystr++) { ! 216: count = atoi(keystr); ! 217: if (*keystr=='+') ! 218: count=999; ! 219: if (count <= 0) ! 220: count = 1; ! 221: for(i = 1; i <= count; i++) { ! 222: sf = fpar(nf, flds, t1, ctype, i, 1); ! 223: if (sf == 0) ! 224: break; ! 225: sf = artskp(sf); ! 226: fprintf(fo, "%s%c", sf, '-'); ! 227: } ! 228: } ! 229: fprintf(fo, "%c%d%c%c", FLAG, nref, FLAG, sep); ! 230: } ! 231: } ! 232: ! 233: ! 234: tokeytab (t, nref) ! 235: char *t; ! 236: { ! 237: strcpy(labtab[nref]=lbp, t); ! 238: while (*lbp++) ! 239: ; ! 240: } ! 241: ! 242: keylet(t, nref) ! 243: char *t; ! 244: { ! 245: int i; ! 246: int x = 'a' - 1; ! 247: ! 248: for(i = 1; i < nref; i++) { ! 249: if (strcmp(labtab[i], t) == 0) ! 250: x = labc[i]; ! 251: } ! 252: tokeytab (t, nref); ! 253: if (lbp-bflab > NFLAB) ! 254: err("bflab overflow (%d)", NFLAB); ! 255: if (nref > NLABC) ! 256: err("nref in labc overflow (%d)", NLABC); ! 257: #if EBUG ! 258: fprintf(stderr, "lbp up to %d of %d\n", lbp-bflab, NFLAB); ! 259: #endif ! 260: return(labc[nref] = x+1); ! 261: } ! 262: ! 263: mycpy(s, t) ! 264: char *s, *t; ! 265: { ! 266: while (*t && *t != ',' && *t != ' ') ! 267: *s++ = *t++; ! 268: *s = 0; ! 269: } ! 270: ! 271: mycpy2(s, t, n) ! 272: char *s, *t; ! 273: { ! 274: int c; ! 275: ! 276: while (n-- && (c= *t++) > 0) { ! 277: if (c == ' ') ! 278: c = '-'; ! 279: *s++ = c; ! 280: } ! 281: *s = 0; ! 282: } ! 283: ! 284: initadd(to, from, stop) ! 285: char *to, *from, *stop; ! 286: { ! 287: int c, nalph = 1; ! 288: ! 289: while (*to) ! 290: to++; ! 291: while (from < stop) { ! 292: c = *from++; ! 293: if (!isalpha(c)) { ! 294: if (nalph) ! 295: *to++ = '.'; ! 296: nalph = 0; ! 297: continue; ! 298: } ! 299: if (nalph++ == 0) ! 300: *to++ = c; ! 301: } ! 302: *to = 0; ! 303: } ! 304: ! 305: static char *articles[] = { ! 306: "the ", "an ", "a ", 0 ! 307: }; ! 308: ! 309: char * ! 310: artskp(s) /* skips over initial "a ", "an ", "the " in s */ ! 311: char *s; ! 312: { ! 313: ! 314: char **p, *r1, *r2; ! 315: ! 316: for (p = articles; *p; p++) { ! 317: r2 = s; ! 318: for (r1 = *p; ((*r1 ^ *r2) & ~040 ) == 0; r1++) ! 319: r2++; ! 320: if (*r1 == 0 && *r2 != 0) ! 321: return(r2); ! 322: } ! 323: return(s); ! 324: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.