local/bin: Delete unused strip-comments.
parent
fb4aa2850d
commit
4e7fa54d68
|
@ -1,31 +0,0 @@
|
|||
#!/usr/bin/awk -f
|
||||
|
||||
## Default to C block comments. You can change the comment delimiters from
|
||||
## command line. The delims are regexes. For instance call this script with
|
||||
##
|
||||
## awk -v begin="#" -v end="$" -f <this-script> <files>
|
||||
##
|
||||
## to use shell comment delimiters.
|
||||
|
||||
BEGIN {
|
||||
## Since 'begin' and 'end' are regexes, we need to escape some sequences.
|
||||
if(begin == "")
|
||||
begin="/\\*"
|
||||
if(end == "")
|
||||
end="\\*/"
|
||||
}
|
||||
|
||||
{
|
||||
while (match ($0, begin)) {
|
||||
before = substr ($0, 1, RSTART-1)
|
||||
$0 = substr($0, RSTART)
|
||||
printf("%s", before)
|
||||
|
||||
## Reach line where first 'end' is found.
|
||||
while (! match($0, end) )
|
||||
getline
|
||||
|
||||
$0 = substr($0, RSTART + length(end) -1)
|
||||
}
|
||||
print
|
||||
}
|
Loading…
Reference in New Issue