home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / msysjour / vol04 / 01b / macsl / detab.awk < prev    next >
Text File  |  1988-09-21  |  656b  |  28 lines
  1. #----------------------------------------------------------------------------
  2. # DETAB.AWK - AWK de-tabber
  3. #----------------------------------------------------------------------------
  4.  
  5. index( $0, "\t" ) {  # simple pattern of /\t/ doesn't work!
  6.  
  7.     blanks = "  "
  8.     tab = length(blanks)
  9.  
  10.     str = $0
  11.  
  12.     while( col = index( str, "\t" ) ) {
  13.  
  14.       str = substr(str,1,col-1) substr(blanks,col%tab) substr(str,col+1)
  15.     }
  16.  
  17.     $0 = str
  18. }
  19.  
  20. #----------------------------------------------------------------------------
  21.  
  22. {   # every line
  23.  
  24.     print
  25. }
  26.  
  27. #----------------------------------------------------------------------------
  28.