![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kaiser.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / usr.bin / refer|
Return to kaiser.c CVS log | Up to [CSRG BSD Unix] / 42BSD / usr.bin / refer |
1.1 root 1: #ifndef lint
2: static char *sccsid = "@(#)kaiser.c 4.1 (Berkeley) 5/6/83";
3: #endif
4:
5: #include <stdio.h>
6: #include <ctype.h>
7:
8: char *months[] {
9: "Jan", "Feb", "Mar", "Apr", "May", "Jun",
10: "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", 0};
11:
12: main()
13: {
14: int state 1000, i, book, volume, corp, report;
15: int na;
16: char *v[20], **vv, **rr;
17: char ubuff[1000], *up;
18: char line[100];
19: char *p, *s, *r, *q;
20: while (gets(line))
21: {
22: if (line[1]>'9' || line[1]<'0') continue;
23: switch(line[0])
24: {
25: case 'T':
26: if (state > 'T')
27: {
28: book=0;
29: report=0;
30: printf("\n%%T ");
31: }
32: printf("%s\n", line+18);
33: state='T';
34: na = getargs(line+18, v);
35: for(i=0;i<na;i++)
36: if (strcmp(v[i], "(Book)")==0)
37: book=1;
38: continue;
39: case 'A':
40: state = 'A';
41: na=getargs(line+18, vv=v);
42: if (na<=0) continue;
43: while (na>0)
44: {
45: printf("%%A ");
46: corp=0;
47: for(p=vv[1]; *p; p++)
48: if (islower(*p))
49: corp=1;
50: if (corp==0)
51: {
52: for(p=vv[1]; *p; p++)
53: printf("%c. ", *p);
54: if (na>2 &&strcmp(vv[2], "+"))
55: {
56: printf("%s", vv[0]);
57: if (strcmp(vv[2], "Jr.")==0)
58: printf(",");
59: printf(" %s\n",vv[2]);
60: vv++;
61: na--;
62: }
63: else
64: printf("%s\n", vv[0]);
65: }
66: else
67: printf("%s %s\n",vv[0],vv[1]);
68: vv+=2;
69: na-=2;
70: if (strcmp(vv[0], "+")==0)
71: {
72: vv++;
73: na--;
74: }
75: }
76: continue;
77: case 'U':
78: if (state!='U')
79: ubuff[0]=0;
80: else
81: strcat(ubuff, " ");
82: state = 'U';
83: strcat(ubuff, line+18);
84: if (line[2]=='.')
85: { /* end of item */
86: p=ubuff; /*start*/
87: volume=0;
88: for(s=ubuff; *s; s++)
89: if (s[-1]==' ' && prefix("Vol", s))
90: {
91: for(q=s-1; q>ubuff; q--)
92: {
93: if (*q==' ' || *q==',') *q=0;
94: else break;
95: }
96: volume=1;
97: break;
98: }
99: if (*s==0)
100: for(s=ubuff; *s && (*s!=',' || sprefix("Inc", s+1)); s++)
101: ;
102: else
103: s++;
104: if (*s==',')*s++=0;
105: if (book)
106: printf("%%I %s\n",ubuff);
107: else if (volume)
108: printf("%%J %s\n", ubuff);
109: else if (substr(ubuff, "Report")!=0)
110: {
111: report=1;
112: printf("%%R %s\n", ubuff);
113: }
114: else
115: printf("%%J %s\n", ubuff);
116: if (volume)
117: {
118: s += 3; /* Vol */
119: if (*s=='.') s++;
120: while (*s==' ')s++;
121: printf("%%V ");
122: while (*s && *s != ' ' && *s!=',' && *s!=';' && *s!= ':')
123: putchar(*s++);
124: putchar('\n');
125: if (*s==':')
126: {
127: printf("%%N ");
128: while (*s==' ')s++;
129: while (isdigit(*s))
130: putchar(*s++);
131: putchar('\n');
132: }
133: *s++=0;
134: while (*s==' ')*s++=0;
135: if (s[0]=='N' && s[1]=='o' && (s[2]==' '||s[2]=='.'))
136: {
137: s+=2;
138: while (*s==' '||*s=='.')s++;
139: printf("%%N ");
140: while (isdigit(*s)||*s=='-')
141: putchar(*s++);
142: putchar('\n');
143: }
144: if (*s==',') *s++=0;
145: }
146: for(rr=months; *rr; rr++)
147: {
148: q= substr(s, *rr);
149: if (q)
150: {
151: for(r=q; *r; r++);
152: r--;
153: if (*r=='.')*r=0;
154: printf("%%D %s\n",q);
155: *(q-1)=0;
156: break;
157: }
158: }
159: if (*rr==0)
160: {
161: for(q=s; *q; q++)
162: {
163: if (q[0]=='1' && q[1]=='9' && (q[4]==0 || (q[4]=='.' && q[5]==0)))
164: {
165: if (q[4]=='.') q[4]=0;
166: printf("%%D %s\n",q);
167: rr=months;
168: q[-1]=0;
169: if (q==s) q[0]=0;
170: break;
171: }
172: }
173: }
174: if (*rr==0) /* no date */
175: printf("%%D 19xx\n");
176: /* if book bite off next field for city, if report for issuer */
177: if (book)
178: {
179: for(q=s; *q && *q != ','; q++)
180: ;
181: if (*q==',')
182: {
183: r=q;
184: r++;
185: while (*r==' ')r++;
186: if (isupper(r[0]) && isupper(r[1]))
187: {
188: r+=2;
189: *r++=0;
190: while (*r==' ')r++;
191: }
192: else
193: *q=0;
194: printf("%%C %s\n", s);
195: s=r;
196: }
197: }
198: for(q=s; *q; q++)
199: {
200: if (q[0]==' ' && q[1]=='p' && (q[2]=='p'||q[2]==0))
201: {
202: for(r=q; r>s; r--)
203: {
204: if (*r==' ' || *r==',')
205: *r=0;
206: }
207: *q=0;
208: q+=2;
209: if (q[0]=='p')q++;
210: while (*q==' '||*q=='.')q++;
211: r=q;
212: while (isdigit(*q)||*q=='.'||*q=='-'||isalpha(*q))q++;
213: *q++=0;
214: while (*q==' ')q++;
215: printf("%%P %s\n",r);
216: break;
217: }
218: }
219: s=ispp(s);
220: while (*s==' ')s++;
221: while (*q==' ')q++;
222: if (*s||*q)
223: printf("%%O %s %s\n", *s?s:"", *q?q:"");
224: }
225: continue;
226: }
227: }
228: }
229:
230: getargs(s, arps)
231: char *s, *arps[];
232: {
233: int i;
234: i = 0;
235: while (1)
236: {
237: arps[i++]=s;
238: while (*s != 0 && *s!=' '&& *s != '\t')s++;
239: if (*s==0) break;
240: *s++ =0;
241: while (*s==' ' || *s=='\t')s++;
242: if (*s==0)break;
243: }
244: return(i);
245: }
246:
247: prefix(small, big)
248: char *small, *big;
249: {
250: int c;
251: while ((c= *small++) == *big++)
252: if (c==0) return(1);
253: return(c==0);
254: }
255:
256: substr(big, small)
257: char *small, *big;
258: {
259: while (*big)
260: if (prefix(small, big))
261: return(big);
262: else
263: big++;
264: return(0);
265: }
266:
267: sprefix(small, big)
268: char *small, *big;
269: {
270: while (*big==' ') big++;
271: return(prefix(small,big));
272: }
273:
274: ispp(s)
275: char *s;
276: {
277: static char buff[50];
278: char *p, *t;
279: p=s;
280: while (*p==' ') p++;
281: if (!isdigit(*p)) return(s);
282: t=p;
283: while (isdigit(*p))p++;
284: if (p[0]!='p' || p[1]!='p') return(s);
285: *p=0;
286: sprintf(buff, "%spp.", t);
287: return(buff);
288: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.