home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / struct / 1.form.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-15  |  3.2 KB  |  219 lines
  1. #include <stdio.h>
  2. #include "1.defs.h"
  3. #include "def.h"
  4. extern int linechar, errflag, debug;
  5. extern int (*input)(), (*unput)();
  6.  
  7.  
  8.  
  9. uptolow(c)        /*translates upper to lower case */
  10. int c;
  11.     {
  12.     if ('A' <= c && c <= 'Z')
  13.         return(c+'a'-'A');
  14.     else
  15.         return(c);
  16.     }
  17.  
  18. rdfree(func)
  19. int (*func)();
  20.     {
  21.     int c;
  22.     while ( (c = (*input)()) != '\n')
  23.         {
  24.         (*func)(c);
  25.         }
  26.     }
  27.  
  28. rdstand(func)
  29. int (*func)();
  30.     {
  31.     int c;
  32.     while ( (c=(*input)()) != '\n')
  33.         {
  34.         (*func)(c);
  35.         }
  36.     }
  37.  
  38. labfree(func)            /* labels in freeform input */
  39. int (*func)();
  40.     {
  41.     int c;
  42.     int temp[6];
  43.     int j;
  44.     for (j = 0; j < 5; ++j)
  45.         {
  46.         while ( (c = (*input)()) == ' ' || c == '\t' );
  47.         if (c == '\n')
  48.             {
  49.             if (j != 0)
  50.                 {
  51.                 temp[j] = '\0';
  52.                 error("label without code - ignored:","","");
  53.                 }
  54.             }
  55.         if (c < '0' || c > '9')
  56.             {
  57.             (*unput)(c);
  58.             break;
  59.             }
  60.         else
  61.             {
  62.             temp[j] = c;
  63.             (*func)(c);
  64.             }
  65.         }
  66.     for ( ; j < 5; ++j)
  67.         (*func)(' ');
  68.     }
  69.  
  70. labstand(func)            /* labels in standard form input */
  71. int (*func)();
  72.     {
  73.     int c;
  74.     int j;
  75.  
  76.     for (j = 0; j < 5; ++j)
  77.         {
  78.         c = (*input)();
  79.         if (c == '\n')
  80.             {
  81.             error("line shorter than 5 characters","","");
  82.             errflag = 1;
  83.             (*unput)('\n');
  84.             }
  85.         if (c == '\t' || c == '\n')
  86.             {
  87.             for ( ;j<5; ++j)
  88.                 (*func)(' ');
  89.             return;
  90.             }
  91.         (*func)(c);
  92.         }
  93.     (*input)();            /* throw away continuation char */
  94.     }
  95.  
  96.  
  97.  
  98. contfree()            /* identify continuation lines in free-form input */
  99.     {
  100.     return(nonblchar(_diglet,0));    /* any non-alpha non-digit */
  101.     }
  102.  
  103.  
  104. nonblchar(class,yesno)
  105. int class,yesno;
  106.     {
  107. #define CARDSIZE    121
  108.     int temp[CARDSIZE];
  109.     int j;
  110.     for (j=0; (temp[j]=(*input)()) == ' ' || temp[j] == '\t'; ++j)
  111.         if (j>=CARDSIZE-1)
  112.             {
  113.             temp[CARDSIZE-1] = '\0';
  114.              error ("line unexpectedly long","","");
  115.             break;
  116.             }
  117.     if (temp[j]!=EOF && classmatch(temp[j],class)==yesno)
  118.         return(1);
  119.     else
  120.         {
  121.         for ( ; j >= 0; --j)
  122.             (*unput)(temp[j]);
  123.         return(0);
  124.         }
  125.     }
  126.  
  127.  
  128. contstand()            /* continuation lines in standard form input */
  129.     {
  130.     int temp[6];
  131.     int i;
  132.  
  133.     for (i = 0; i < 6; ++i)
  134.         {
  135.         temp[i] = (*input)();
  136.         if (temp[i] == '\t' || temp[i] == '\n' || temp[i] == '\0' || temp[i] == EOF)
  137.             {
  138.             for ( ;i >= 0; --i)
  139.                 (*unput)(temp[i]);
  140.             return(0);
  141.             }
  142.         }
  143.     if (temp[5] != '0' && temp[5] != ' ')
  144.         return(1);
  145.     else
  146.         {
  147.         for ( i = 5 ; i >= 0; --i)
  148.             (*unput)(temp[i]);
  149.         return(0);
  150.         }
  151.     }
  152.  
  153.  
  154.  
  155. comstand(posafter)            /* standard form comments */
  156. int posafter;
  157.     {
  158.     int c;
  159.     c = (*input)();
  160.     if (!posafter)
  161.         (*unput)(c);
  162.     if (c == 'c' || c == '*' || c== '#')
  163.         return(1);
  164.     else
  165.         return(0);
  166.     }
  167.  
  168.  
  169. comfree(posafter)
  170. int posafter;
  171.     {
  172.     return(comstand(posafter));
  173.     }
  174. int (*rline[])()        = {rdfree,rdstand};
  175. int (*comment[])()        = {comfree,comstand};
  176. int (*getlabel[])()        = {labfree, labstand};
  177. int (*chkcont[])()        = {contfree,contstand};
  178.  
  179. blankline()
  180.     {
  181.     if ( nonblchar(_nl,1) )        /* first non-blank is nl */
  182.         {
  183.         (*unput) ('\n');
  184.         return(1);
  185.         }
  186.     else return(0);
  187.     }
  188.  
  189. #define maxunbp    80
  190. char unbuf[maxunbp+1];
  191. int unbp;
  192.  
  193. empseek(linebeg)
  194. unsigned int linebeg;
  195.     {
  196.     unbp = 0;
  197.     if (fseek(infd,(long)(linebeg+rtnbeg),0) == -1)
  198.         faterr("in disk seek","","");
  199.     }
  200.  
  201. inchar()
  202.     {
  203.     if (unbp > 0)
  204.         return( unbuf[--unbp] );
  205.     else
  206.         {
  207.         return( uptolow(getc(infd)) );
  208.         }
  209.     }
  210.  
  211.  
  212. unchar(c)
  213. int c;
  214.     {
  215.     if (unbp >= maxunbp)
  216.         faterr("dec.rat: unbuf size exceeded","","");
  217.     if(c!=EOF)unbuf[unbp++] = c;
  218.     }
  219.