![[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 [Research Unix] / researchv10no / cmd / refer|
Return to refer5.c CVS log | Up to [Research Unix] / researchv10no / cmd / refer |
1.1 ! root 1: # include "refer..c" ! 2: # define NFLAB 3000 ! 3: # define NLABC 1000 ! 4: # define SIGLEN 400 ! 5: static char sig[SIGLEN]; ! 6: ! 7: static char bflab[NFLAB]; ! 8: static char *labtab[NLABC]; ! 9: char *lookat(), *artskp(); ! 10: static char *lbp = bflab; ! 11: static char labc[NLABC]; ! 12: static char stbuff[50]; ! 13: static int prevsig; ! 14: ! 15: putsig (nf, flds, nref, nstline, endline) ! 16: char *flds[], *nstline, *endline; ! 17: { ! 18: /* choose signal style */ ! 19: char t[200], t1[200], t2[200], format[10], *sd; ! 20: char *fpar(); ! 21: int another = 0; ! 22: int addon, addlet; ! 23: char *stline, *pr; ! 24: static FILE *fhide = 0; ! 25: # if D1 ! 26: fprintf(stderr, "in putsig, bare %d labels %o nf %d nref %d\n", bare, labels, nf, nref); ! 27: # endif ! 28: if (labels) ! 29: { ! 30: if (nf==0) /* old */ ! 31: sprintf(t, "%s%c", labtab[nref], labc[nref]); ! 32: else ! 33: { ! 34: *t=0; ! 35: if (keywant) ! 36: { ! 37: pr = fpar(nf, flds, t1, keywant, 1, 0); ! 38: if (pr) strcpy(t, pr); ! 39: } ! 40: if (t[0]==0) ! 41: { ! 42: if (labblkflg) ! 43: { ! 44: if (nmlen>0) ! 45: sprintf(format, "%%.%ds%s%%s", nmlen, labblkflg); ! 46: else ! 47: sprintf(format, "%%s%s%%s", labblkflg); ! 48: } ! 49: else ! 50: sprintf(format, nmlen>0 ? "%%.%ds%%s" : "%%s%%s", nmlen); ! 51: # if D1 ! 52: fprintf(stderr, "format is /%s/\n", format); ! 53: # endif ! 54: /* format is %s%s for default labels or %.3s%s eg if wanted */ ! 55: sd = fpar(nf, flds, t2, 'D', 1, 0); ! 56: if (sd==NULL) sd = ""; ! 57: if (dtlen>0) ! 58: { ! 59: char *sdb; ! 60: for(sdb=sd; *sd; sd++); ! 61: sd = sd-dtlen; ! 62: if (sd<sdb) sd=sdb; ! 63: } ! 64: sprintf(t, format, fpar(nf, flds, t1, 'A', 1, 0), sd); ! 65: # if D1 ! 66: fprintf(stderr, "tag is /%s/\n",t); ! 67: # endif ! 68: } ! 69: if (keywant) ! 70: { ! 71: addon=0; ! 72: for(sd=t; *sd; sd++); ! 73: if (*--sd == '-') ! 74: { ! 75: addon=1; ! 76: *sd=0; ! 77: } ! 78: } ! 79: addlet = keylet(t, nref); ! 80: if (!keywant || addon) ! 81: addch( t, addlet); ! 82: } ! 83: if (sort) ! 84: sprintf(t, "%c%d%c", FLAG, nref, FLAG); ! 85: } ! 86: else ! 87: { ! 88: if (sort) ! 89: sprintf(t, "%c%d%c", FLAG, nref, FLAG); ! 90: else ! 91: sprintf(t, "%d", nref); ! 92: } ! 93: another = prefix (".[", sd=lookat()); ! 94: # if D1 ! 95: fprintf(stderr, "t leng %d another %d\n",strlen(t), another); ! 96: # endif ! 97: if (another && (strcmp(".[\n", sd) != SAME)) ! 98: fprintf(stderr, "File %s, line %d- punctuation ignored from: %s", Ifile, Iline, sd); ! 99: if (bare==0) ! 100: strcat (sig, t); ! 101: # if D1 ! 102: fprintf(stderr, "past strcat\n"); ! 103: # endif ! 104: if (strlen(sig) >SIGLEN) ! 105: err("signal length exceeds %d chars", SIGLEN); ! 106: # if D1 ! 107: fprintf(stderr, "sig is now %s leng %d\n",sig,strlen(sig)); ! 108: # endif ! 109: trimnl(nstline); ! 110: trimnl(endline); ! 111: stline=stbuff; ! 112: if (prevsig==0) ! 113: { ! 114: strcpy (stline, nstline); ! 115: prevsig=1; ! 116: } ! 117: if (stline[2] || endline[2]) ! 118: { ! 119: stline += 2; ! 120: endline += 2; ! 121: } ! 122: else ! 123: { ! 124: stline = "\\*([."; ! 125: endline = "\\*(.]"; ! 126: } ! 127: # if D1 ! 128: fprintf(stderr, "bare %d fhide %o fo %o another %d\n",bare, fhide, fo, another); ! 129: # endif ! 130: if (bare==0) ! 131: { ! 132: if (another==0) ! 133: { ! 134: sprintf(t1, "%s%s\%s\n", stline, sig, endline); ! 135: append(t1); ! 136: flout(); ! 137: sig[0]=0; ! 138: prevsig=0; ! 139: if (fo != NULL && fo == fhide) ! 140: { ! 141: int ch; ! 142: # if D1 ! 143: fprintf(stderr, "more hiding\n"); ! 144: # endif ! 145: fclose(fhide); fhide= fopen(hidenam, "r"); ! 146: fo= ftemp; ! 147: while ((ch = getc(fhide)) != EOF) ! 148: putc(ch, fo); ! 149: fclose(fhide); ! 150: unlink(hidenam); ! 151: # if D1 ! 152: fprintf(stderr, "past this stuff\n"); ! 153: # endif ! 154: } ! 155: } ! 156: else ! 157: { ! 158: if (labsepstr) ! 159: strcat(sig, labsepstr); ! 160: else ! 161: strcat (sig, (labels ? ", " : ",\\|")); ! 162: /* hide if need be */ ! 163: if (fo == ftemp) ! 164: { ! 165: sprintf(hidenam, "/tmp/rj%dc", getpid()); ! 166: # if D1 ! 167: fprintf(stderr, "hiding in %s\n", hidenam); ! 168: # endif ! 169: fhide= fopen(hidenam, "w"); ! 170: if (fhide==NULL) err("Can't get scratch file %s", hidenam); ! 171: fo = fhide; ! 172: } ! 173: } ! 174: } ! 175: if (bare<2) ! 176: if (nf>0) ! 177: { ! 178: fprintf(fo, ".ds [F %s%c", t, sep); ! 179: biglab(t); ! 180: } ! 181: if (bare>0) ! 182: flout(); ! 183: # if D1 ! 184: fprintf(stderr, "sig is now %s\n",sig); ! 185: # endif ! 186: } ! 187: char * ! 188: fpar (nf, flds, out, c, seq, prepend) ! 189: char *flds[], *out; ! 190: { ! 191: char *p, *s; ! 192: int i, fnd = 0; ! 193: for(i=0; i<nf; i++) ! 194: if (control(flds[i][0]) &&flds[i][1]==c && ++fnd >= seq) ! 195: { ! 196: if (c== 'L') ! 197: { ! 198: p = flds[i]+3; ! 199: strcpy(out, p); ! 200: return(out); ! 201: } ! 202: if (c!= 'A' && c != 'D') /* if not author, date use first word */ ! 203: { ! 204: p=flds[i]+3; ! 205: p = artskp (p); ! 206: mycpy2(out, p, 20); ! 207: return(out); ! 208: } ! 209: if (c=='A' && lfirst(p=flds[i]+3)) /* author in style Jones, A. */ ! 210: { ! 211: for(s=out; *p!=','; p++) ! 212: *s++ = *p; ! 213: *s++ = 0; ! 214: if (prepend) ! 215: { ! 216: while (isspace(*p))p++; ! 217: *s++ = *p; ! 218: *s=0; ! 219: } ! 220: return(out); ! 221: } ! 222: for(s=p= flds[i]+2; *p; p++); ! 223: while (p>s && *p != ' ') p--; ! 224: /* special wart for authors */ ! 225: if (c=='A' && (p[-1] == ',' || p[1] =='(')) ! 226: { ! 227: p--; ! 228: while (p>s && *p != ' ') p--; ! 229: mycpy (out, p+1); ! 230: } ! 231: else ! 232: strcpy (out, p+1); ! 233: if (c=='A' && prepend) ! 234: initadd(out, flds[i]+2, p); ! 235: return(out); ! 236: } ! 237: return(0); ! 238: } ! 239: putkey(nf, flds, nref, keystr) ! 240: char *flds[], *keystr; ! 241: { ! 242: char t1[50], *sf; ! 243: int ctype, i, count; ! 244: # if D1 ! 245: int klim=0; ! 246: fprintf(stderr, "in putkey, nf %d nref %d keystr %.20s\n",nf, nref, keystr); ! 247: # endif ! 248: # if D5 ! 249: return; ! 250: # endif ! 251: fprintf(fo, ".\\\""); ! 252: if (nf <= 0) ! 253: fprintf(fo, "%s%c%c", labtab[nref], labc[nref], sep); ! 254: else ! 255: { ! 256: while (ctype= *keystr++) ! 257: { ! 258: # if D1 ! 259: if (++klim>100) err("keystring ridiculous", 0); ! 260: # endif ! 261: count = atoi(keystr); ! 262: if (*keystr=='+') count=999; ! 263: if (count<=0) count=1; ! 264: for(i=1; i<=count; i++) ! 265: { ! 266: sf= fpar(nf, flds, t1, ctype, i, 1); ! 267: if (sf==0) ! 268: break; ! 269: sf = artskp(sf); ! 270: fprintf(fo, "%s%c", sf, '-'); ! 271: } ! 272: } ! 273: fprintf(fo, "%d%c", nref, sep); ! 274: } ! 275: # if D1 ! 276: fprintf(stderr, "returning from putkey\n"); ! 277: # endif ! 278: } ! 279: keylet(t, nref) ! 280: char *t; ! 281: { ! 282: int i; ! 283: int x = 'a'-1; ! 284: for(i=1; i<nref;i++) ! 285: { ! 286: if (strcmp(labtab[i], t) == 0) ! 287: x = labc[i]; ! 288: } ! 289: strcpy(labtab[nref]=lbp, t); ! 290: while (*lbp++); ! 291: if (lbp-bflab >NFLAB) ! 292: err("bflab overflow (%d)", NFLAB); ! 293: if (nref >NLABC) ! 294: err ("nref in labc overflow (%d)", NLABC); ! 295: # ifdef D1 ! 296: fprintf(stderr, "lbp up to %d of 2000\n", lbp-bflab); ! 297: # endif ! 298: return (labc[nref] = x+1); ! 299: } ! 300: mycpy(s,t) ! 301: char *s, *t; ! 302: { ! 303: while (*t && *t != ',' && *t != ' ') ! 304: *s++ = *t++; ! 305: *s=0; ! 306: } ! 307: mycpy2 (s, t, n) ! 308: char *s, *t; ! 309: { ! 310: int c; ! 311: while (n-- && (c= *t++)>0) ! 312: { ! 313: if (c==' ')c= '-'; ! 314: *s++ = c; ! 315: } ! 316: *s=0; ! 317: } ! 318: initadd(to, from, stop) ! 319: char *to, *from, *stop; ! 320: { ! 321: int c, nalph= 1; ! 322: while (*to) to++; ! 323: while (from<stop) ! 324: { ! 325: c = *from++; ! 326: if (!isalpha(c)) ! 327: { ! 328: if (nalph) ! 329: *to++ = '.'; ! 330: nalph=0; ! 331: continue; ! 332: } ! 333: if (nalph++ ==0) ! 334: *to++ = c; ! 335: } ! 336: *to=0; ! 337: } ! 338: ! 339: static char *articles[] ={"the ", "an ", "a ", 0}; ! 340: char * ! 341: artskp(s) ! 342: char *s; ! 343: { ! 344: /* skips over initial "a ", "an ", or "the " in s */ ! 345: char **p, *r1, *r2; ! 346: for(p=articles; *p; p++) ! 347: { ! 348: r2 = s; ! 349: for (r1= *p; ((*r1 ^ *r2) & ~040 ) == 0; r1++) ! 350: r2++; ! 351: if (*r1==0 && *r2 != 0) ! 352: return(r2); ! 353: } ! 354: return(s); ! 355: } ! 356: expkey (or, nr, fwrite) ! 357: FILE *fwrite; ! 358: { ! 359: int uniq, less, i; ! 360: char *s, temp[100]; ! 361: # if D1 ! 362: fprintf(stderr, "old %d key %s: '%c' new %d\n",or, labtab[or],labc[or],nr); ! 363: # endif ! 364: /* is this unique? how many are before it ? */ ! 365: uniq=1; less= 'a'; ! 366: s = labtab[or]; ! 367: for(i=0; i <= refnum; i++) ! 368: { ! 369: if (i==or) continue; ! 370: if (strcmp(labtab[i], s)!=SAME) ! 371: continue; ! 372: uniq=0; ! 373: if (newr[i] != 0 && newr[i] < nr) ! 374: less++; ! 375: } ! 376: if (uniq) ! 377: sprintf(temp, "%s", s); ! 378: else ! 379: sprintf(temp,"%s%c", s, less); ! 380: biglab(temp); ! 381: fprintf(fwrite, "%s", temp); ! 382: } ! 383: lfirst(s) ! 384: char *s; ! 385: { ! 386: /* decides if s is name of format Jones, A */ ! 387: char *strchr(), *p; ! 388: p = strchr(s, ','); ! 389: if (p==NULL) return(0); ! 390: while (isspace(*++p)) ; ! 391: if (strncmp(p, "Jr", 2)==0) ! 392: return(0); ! 393: if (strncmp(p, "II", 2)==0) ! 394: return(0); ! 395: if (isupper(*p)) ! 396: return(1); ! 397: return(0); ! 398: } ! 399: ! 400: static char longlab[100]=""; ! 401: biglab(s) ! 402: char *s; ! 403: { ! 404: if (strlen(s)>strlen(longlab)) ! 405: strcpy(longlab, s); ! 406: } ! 407: ! 408: widelab() ! 409: { ! 410: printf(".nr [W \\w'%s'\n", longlab); ! 411: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.