![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to refer6.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd / refer|
Return to refer6.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / refer |
1.1 root 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: char *
127: class (nt, tv)
128: char *tv[];
129: {
130: if (hastype (nt, tv, 'J'))
131: return("1 journal-article");
132: if (hastype (nt, tv, 'B'))
133: return("3 article-in-book");
134: if (hastype (nt, tv, 'R'))
135: return ("4 tech-report");
136: if (hastype (nt, tv, 'G'))
137: return ("4 tech-report");
138: if (hastype (nt, tv, 'I'))
139: return("2 book");
140: if (hastype (nt, tv,'M'))
141: return ("5 bell-tm");
142: return("0 other");
143: }
144: hastype (nt, tv, c)
145: char *tv[];
146: {
147: int i;
148: for(i=0; i<nt; i++)
149: if ( control(tv[i][0]) && tv[i][1]==c )
150: return(1);
151: return(0);
152: }
153: char *
154: caps(a, b)
155: char *a, *b;
156: {
157: char *p;
158: int c, alph, this;
159: p=b;
160: alph = 0;
161: while (c = *a++)
162: {
163: this = isalpha(c);
164: if (this && alph==1)
165: {
166: *b++ = '\\';
167: *b++ = 's';
168: *b++ = '-';
169: *b++ = '2';
170: }
171: if (!this && alph>1)
172: {
173: *b++ = '\\';
174: *b++ = 's';
175: *b++ = '+';
176: *b++ = '2';
177: }
178: if (this)
179: c &= (~040);
180: *b++ = c;
181: alph = this ? alph+1 : 0;
182: }
183: if (alph>1)
184: {
185: *b++ = '\\';
186: *b++ = 's';
187: *b++ = '+';
188: *b++ = '2';
189: }
190: *b=0;
191: return (p);
192: }
193: char *
194: revauth(s, b)
195: char *s, *b;
196: {
197: char *init, *name, *jr, *p, *bcop;
198: bcop = b;
199: init=name=s;
200: while (*name)name++;
201: jr=name;
202: while (name>init && *name!= ' ')
203: name--;
204: if (name[-1] == ',' || name[-1]== '(' )
205: {
206: jr = --name;
207: while (name>init && *name != ' ')
208: name--;
209: }
210: p=name;
211: while (p<jr)
212: *b++ = *p++;
213: *b++ = ',';
214: while (init<name)
215: *b++ = *init++;
216: if (*jr)jr++;
217: while(*jr)
218: *b++ = *jr++;
219: *b++ = 0;
220: return(bcop);
221: }
222: last(s)
223: char *s;
224: {
225: while (*s) s++;
226: return(*--s);
227: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.