home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / struct / 1.line.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  2.3 KB  |  117 lines
  1. #include <stdio.h>
  2. #
  3. #include "def.h"
  4. #define bufsize 1601
  5. char buffer[bufsize];
  6. int bufcount;
  7. extern int errflag;
  8. long stchars;            /* counts number of chars at most recent \n read */
  9. #ifndef unix
  10. long ostchars;
  11. extern long ftell();
  12. #endif
  13. int newline;            /* counts number of lines read so far in file */
  14. extern int rdfree(), comfree(),labfree(), contfree();
  15. extern int rdstand(), comstand(), labstand(), contstand();
  16. extern int (*rline[])();
  17. extern int (*comment[])();
  18. extern int (*getlabel[])();
  19. extern int (*chkcont[])();
  20.  
  21.  
  22.  
  23. flush()
  24.     {bufcount = 0; }
  25.  
  26. addchar(c)
  27.     {
  28.     buffer[bufcount++] = c;
  29.     }
  30.  
  31. getline(lastline,lastchar,linecom,charcom)
  32. int *lastline, *linecom;
  33. long *lastchar, *charcom;
  34.                 /* set *lastline to number of last line of statement,
  35.                 set *lastchar to number of last char of statement,
  36.                 set *linecom to number of last line of comment preceding statement */
  37.     {
  38.  
  39.     int i;
  40.     flush();
  41.     while ( unput1(input1()) != EOF)
  42.         {
  43.         while ( (*comment[inputform])(0)  || blankline() )
  44.             {
  45.             (*rline[inputform])(addchar);
  46.             flush();
  47.             }
  48.         *linecom = newline;
  49.             /* set charcom to number of last char of comment, starting at 0
  50.                     if at start of file and no comment, will be -1  */
  51.         *charcom = stchars - 1;
  52.         if (unput1(input1()) == EOF)  break;
  53.         (*getlabel[inputform])(addchar);
  54.         (*rline[inputform])(addchar);
  55.     
  56.         while ( blankline() || ( !(*comment[inputform])(0) &&  (*chkcont[inputform])() ))
  57.             (*rline[inputform])(addchar);
  58.     
  59.         addchar('\0');
  60.         *lastline = newline;
  61.         *lastchar = stchars - 1;
  62. if (debug == 40)
  63. fprintf(stderr,"line %d; bufcount: %d\n",newline,bufcount);
  64.     
  65.         for (i = 5; i < bufcount; ++i)
  66.             if (buffer[i] == ' ' || buffer[i] == '\t' || buffer[i] == '\n')
  67.                 buffer[i] = '~';
  68.         return(bufcount);
  69.         }
  70.     return(-1);
  71.     }
  72.  
  73.  
  74. int linechars;            /* counts number of chars read so far in current line */
  75. long newchar;            /* counts number of chars read so far in file */
  76.  
  77.  
  78. input1()
  79.     {
  80.     static int c;
  81.     if (c == '\n') linechars = 0;
  82.     c = inchar();
  83.     ++linechars;
  84.     ++newchar;
  85.     if (c == '\n')
  86.         {
  87.         ++newline;
  88. #ifdef unix
  89.          stchars = newchar; 
  90. #else
  91.         ostchars=stchars; stchars=ftell(infd);
  92. #endif
  93.         }
  94.     return(c);
  95.     }
  96.  
  97. unput1(c)
  98.     {
  99.     --linechars;
  100.     --newchar;
  101.     unchar(c);
  102.     if (c == '\n')
  103.         {
  104. #ifdef unix
  105.          stchars = newchar; 
  106. #else
  107.         stchars=ostchars;
  108. #endif
  109.         --newline;
  110.         }
  111.     return(c);
  112.     }
  113.  
  114.  
  115.  
  116.  
  117.