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