home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / refer / kaiser.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  4.9 KB  |  275 lines
  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. }
  275.