2.9BSD - /usr/src/cmd/refer/util/refer6.c

   1: # include "refer..c"
   2: putref (n, tvec)
   3:     char *tvec[];
   4: {
   5: char *s, *tx;
   6: char buf1[LLINE], buf2[50];
   7: int nauth 0, i, lastype 0, cch, macro 0, la;
   8: int lauth =0, ltitle =0, lother =0;
   9: 
  10: fprintf(fo, ".]-%c", sep);
  11: # define dsde (macro? "de" : "ds")
  12: # define ifnl (macro? sep : ' ')
  13: for (i=0; i<n; i++)
  14:     {
  15:     s = tvec[i];
  16:     if (*s==0) continue;
  17:     if (control(s[0]) )
  18:         {
  19:         if (lastype && macro)
  20:             fprintf(fo, "..%c", sep);
  21:         if (control(s[1]))
  22:             {
  23:             cch = s[2];
  24:             tx = s+3;
  25:             macro=1;
  26:             }
  27:         else
  28:             {
  29:             cch = s[1];
  30:             tx = s+2;
  31:             macro=0;
  32:             }
  33:         }
  34:     else
  35:         {
  36:         cch = lastype;
  37:         tx=s;
  38:         }
  39: # if D1
  40: fprintf(stderr, "smallcaps %s cch %c\n",smallcaps, cch);
  41: # endif
  42:     if (mindex (smallcaps, cch))
  43:         tx = caps(tx, buf1);
  44: # if D1
  45: fprintf(stderr, " s %o tx %o %s\n",s,tx,tx);
  46: # endif
  47:     if (!control(s[0])) /* append to previous item */
  48:         {
  49:         if (lastype!=0)
  50:             {
  51:             if (macro)
  52:                 fprintf(fo, "%s%c", tx, sep);
  53:             else
  54:                 fprintf(fo, ".as [%c \" %s%c",lastype,tx,sep);
  55:             if (lastype == 'T')
  56:                 ltitle = (mindex(".;,?", last(tx))!=0);
  57:             if (lastype == 'A')
  58:                 lauth = last(tx) == '.';
  59:             }
  60:         continue;
  61:         }
  62:     if (mindex("XYZ[]", cch)) /* skip these */
  63:         {
  64:         lastype=0;
  65:         continue;
  66:         }
  67:     else
  68:     if (cch == 'A')
  69:         {
  70:         if (nauth < authrev)
  71:             tx = revauth(tx, buf2);
  72:         if (nauth++ ==0)
  73:             if (macro)
  74:                 fprintf(fo, ".de [%c%c%s%c",cch,sep,tx,sep);
  75:             else
  76:                 fprintf(fo, ".ds [%c%s%c", cch,tx,sep);
  77:         else
  78:             {
  79:             la = (tvec[i+1][1]!='A');
  80:             fprintf(fo, ".as [A \"");
  81:             if (la == 0 || nauth != 2)
  82:                 fprintf(fo, ",");
  83:             if (la)
  84:             fprintf(fo,"%s",
  85:                 mindex(smallcaps, 'A')? " \\s-2AND\\s+2" : " and");
  86:             fprintf(fo, "%s%c", tx, sep);
  87:             }
  88:         lauth = last(tx)=='.';
  89:         }
  90:     else
  91:         if (macro)
  92:             fprintf(fo, ".de [%c%c%s%c",cch,sep, tx, sep);
  93:         else
  94:             fprintf(fo, ".ds [%c%s%c",cch,tx, sep);
  95:     if (cch=='P')
  96:         fprintf(fo, ".nr [P %d%c", mindex(s, '-')!=0, sep);
  97:     lastype = cch;
  98:     if (cch == 'T')
  99:         ltitle = (mindex(".;,?", last(tx)) != 0);
 100:     if (cch == 'O')
 101:         lother = (mindex(".;,?", last(tx)) != 0);
 102:     }
 103: if (lastype && macro)
 104:     fprintf(fo, "..%c", sep);
 105: fprintf(fo, ".nr [T %d%c", ltitle, sep);
 106: fprintf(fo, ".nr [A %d%c", lauth, sep);
 107: fprintf(fo, ".nr [O %d%c", lother, sep);
 108: fprintf (fo, ".][ %s%c", class(n, tvec), '\n');
 109: }
 110: tabs (sv, line)
 111:     char *sv[], *line;
 112: {
 113: char *p;
 114: int n 0;
 115: sv[n++] = line;
 116: for( p= line; *p; p++)
 117:     {
 118:     if (*p == '\n')
 119:         {
 120:         *p=0;
 121:         sv[n++] = p+1;
 122:         }
 123:     }
 124: return(n-1);
 125: }
 126: class (nt, tv)
 127:     char *tv[];
 128: {
 129: if (hastype (nt, tv, 'J'))
 130:     return("1 journal-article");
 131: if (hastype (nt, tv, 'B'))
 132:     return("3 article-in-book");
 133: if (hastype (nt, tv, 'R'))
 134:     return ("4 tech-report");
 135: if (hastype (nt, tv, 'G'))
 136:     return ("4 tech-report");
 137: if (hastype (nt, tv, 'I'))
 138:     return("2 book");
 139: if (hastype (nt, tv,'M'))
 140:     return ("5 bell-tm");
 141: return("0 other");
 142: }
 143: hastype (nt, tv, c)
 144:     char *tv[];
 145: {
 146: int i;
 147: for(i=0; i<nt; i++)
 148:     if ( control(tv[i][0]) && tv[i][1]==c )
 149:         return(1);
 150: return(0);
 151: }
 152: caps(a, b)
 153:     char *a, *b;
 154: {
 155: char *p;
 156: int c, alph, this;
 157: p=b;
 158: alph = 0;
 159: while (c = *a++)
 160:     {
 161:     this = isalpha(c);
 162:     if (this && alph==1)
 163:         {
 164:         *b++ = '\\';
 165:         *b++ = 's';
 166:         *b++ = '-';
 167:         *b++ = '2';
 168:         }
 169:     if (!this && alph>1)
 170:         {
 171:         *b++ = '\\';
 172:         *b++ = 's';
 173:         *b++ = '+';
 174:         *b++ = '2';
 175:         }
 176:     if (this)
 177:         c &= (~040);
 178:     *b++ = c;
 179:     alph = this ? alph+1 : 0;
 180:     }
 181: if (alph>1)
 182:     {
 183:     *b++ = '\\';
 184:     *b++ = 's';
 185:     *b++ = '+';
 186:     *b++ = '2';
 187:     }
 188: *b=0;
 189: return (p);
 190: }
 191: revauth(s, b)
 192:     char *s, *b;
 193: {
 194: char *init, *name, *jr, *p, *bcop;
 195: bcop = b;
 196: init=name=s;
 197: while (*name)name++;
 198: jr=name;
 199: while (name>init && *name!= ' ')
 200:     name--;
 201: if (name[-1] == ',' || name[-1]== '(' )
 202:     {
 203:     jr = --name;
 204:     while (name>init && *name != ' ')
 205:         name--;
 206:     }
 207: p=name;
 208: while (p<jr)
 209:     *b++ = *p++;
 210: *b++ = ',';
 211: while (init<name)
 212:     *b++ = *init++;
 213: if (*jr)jr++;
 214: while(*jr)
 215:     *b++ = *jr++;
 216: *b++ = 0;
 217: return(bcop);
 218: }
 219: last(s)
 220:     char *s;
 221: {
 222: while (*s) s++;
 223: return(*--s);
 224: }

Defined functions

Defined macros