qse/regress/awk/stripcomment.awk

BEGIN {
	RS = "/\\*([^*]|\\*+[^/*])*\\*+/"
	# comment is record separator
	ORS = " "
	getline hold
}

{ print hold ; hold = $0 }

END { print hold }
improved the standard console handler to handle when ARGV has been overridden in a script 2009-06-25 02:29:33 +00:00			`BEGIN {`
			`RS = "/\\([^]\|\\+[^/])\\+/"`
			`# comment is record separator`
			`ORS = " "`
fixed a bug in emitting a string 2009-09-03 06:55:55 +00:00			`getline hold`
improved the standard console handler to handle when ARGV has been overridden in a script 2009-06-25 02:29:33 +00:00			`}`

			`{ print hold ; hold = $0 }`

fixed a bug in emitting a string 2009-09-03 06:55:55 +00:00			`END { print hold }`
improved the standard console handler to handle when ARGV has been overridden in a script 2009-06-25 02:29:33 +00:00