scripts/parse01.awk

   1 # This awk program deletes C like comments '*/  ...  /*'
   2 {
   3     if (t = index($0, "/*")) {
   4         if (t > 1)
   5             tmp = substr($0, 1, t - 1)
   6         else
   7             tmp = ""
   8         u = index(substr($0, t + 2), "*/")
   9         while (u == 0) {
  10             getline
  11             t = -1
  12             u = index($0, "*/")
  13         }
  14         if (u <= length($0) - 2)
  15             $0 = tmp substr($0, t + u + 3)
  16         else
  17             $0 = tmp
  18     }
  19     print $0
  20 }