home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / MAWK11AS.ZIP / EXAMPLES / EATC.AWK < prev    next >
Encoding:
Text File  |  1991-12-18  |  506 b   |  33 lines
  1.  
  2.  
  3. #  eatc.awk
  4. #  another program to remove comments
  5. #
  6.  
  7.  
  8. {  while( t = index($0 , "/*") )
  9.    {
  10.      printf "%s" , substr($0,1,t-1)
  11.      $0 = eat_comment( substr($0, t+2) )
  12.    }
  13.  
  14.    print 
  15. }
  16.  
  17.  
  18. function eat_comment(s,        t)
  19. {
  20.   #replace comment by one space
  21.   printf " "
  22.  
  23.   while ( (t = index(s, "*/")) == 0 )
  24.     if ( getline s == 0 )
  25.     { # input error -- unterminated comment
  26.           system("/bin/sh -c 'echo unterminated comment' 1>&2")
  27.       exit 1
  28.     }
  29.  
  30.   return  substr(s,t+2)
  31. }
  32.  
  33.