home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / mawk11as.zip / EXAMPLES / CT_LENGT.AWK next >
Text File  |  1992-01-21  |  441b  |  29 lines
  1. #!/usr/local/bin/mawk -f
  2.  
  3. #  ct_length.awk
  4. #
  5. #  replaces all length 
  6. #  by  length($0)
  7. #
  8.  
  9.  
  10. {
  11.  
  12.   while ( i = index($0, "length") )
  13.   {
  14.      printf "%s" , substr($0,1, i+5)  # ...length
  15.      $0 = substr($0,i+6)
  16.  
  17.      if ( match($0, /^[ \t]*\(/) )
  18.      {
  19.        # its OK
  20.        printf "%s", substr($0, 1, RLENGTH)
  21.        $0 = substr($0, RLENGTH+1)
  22.      }
  23.      else # length alone
  24.        printf "($0)"
  25.  
  26.   }
  27.   print
  28. }
  29.