Literate programming/Bird conversion via awk

From HaskellWiki

Thanks to Peter Tillier from the comp.lang.awk newsgroup.

# bird2code.awk
^[^>] || ^$ {print; next}

^> {
  print "\\begin{code}"
  sub(/^> /,"")
  print
  rc = getline
  while(($0 ~ ^>) && (rc > 0)) {
    sub(/^> /,"")
    print
    rc = getline
  }
  print "\\end{code}\n"
}

Category: Development tools