examples/ct_length.awk

   1 #!/usr/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 }