1 # This awk program deletes C like comments '*/ ... /*'
3 # Copyright (C) CEA, EDF
4 # Author : Nicolas Crouzet (CEA)
7 if (t = index($0, "/*")) {
9 tmp = substr($0, 1, t - 1)
12 u = index(substr($0, t + 2), "*/")
18 if (u <= length($0) - 2)
19 $0 = tmp substr($0, t + u + 3)