gcc/cobol/help.gen - gcc.git - Git at Google

 #! /usr/bin/awk -f

 BEGIN {
     print "puts("
 }

 /^ {5}[-][[:alnum:]-]+/, /[.]  / {
     gsub(/[.]  .+/, ".  ")
     gsub(/^   /, "");
     print "\t\"" $0 "\\n\""
 }

 END {
     print ");"
 }
	#! /usr/bin/awk -f

	BEGIN {
	print "puts("
	}

	/^ {5}[-][[:alnum:]-]+/, /[.] / {
	gsub(/[.] .+/, ". ")
	gsub(/^ /, "");
	print "\t\"" $0 "\\n\""
	}

	END {
	print ");"
	}