path: root/gcc/cobol/help.gen

#! /usr/bin/awk -f

BEGIN {
    print "puts("
}

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

END {
    print ");"
}