Name	Size	Mode	Actions
ct_length.awk	407	0755	editdlrm
decl.awk	3044	0755	editdlrm
deps.awk	1306	0755	editdlrm
eatc.awk	492	0755	editdlrm
gdecl.awk	2791	0755	editdlrm
hcal	14046	0755	editdlrm
hical	2960	0755	editdlrm
nocomment.awk	590	0755	editdlrm
primes.awk	1058	0755	editdlrm
qsort.awk	1094	0755	editdlrm

#!/usr/bin/mawk -f # remove C comments from a list of files # using a comment as the record separator # # this is trickier than I first thought # The first version in .97-.9993 was wrong BEGIN { # RS is set to a comment (this is mildly tricky, I blew it here RS = "/\*([^*]|\*+[^*/])*\*+/" ORS = " " getline hold filename = FILENAME } # if changing files filename != FILENAME { filename = FILENAME printf "%s" , hold hold = $0 next } { # hold one record because we don't want ORS on the last # record in each file print hold hold = $0 } END { printf "%s", hold }