Difference between revisions of "Literate programming/Bird conversion via awk"

From HaskellWiki
Jump to: navigation, search
(fix missing slashes)
(Support files with lines which end right after the initial ">".)
 
Line 7: Line 7:
 
/^>/ {
 
/^>/ {
 
print "\\begin{code}"
 
print "\\begin{code}"
sub(/^> /,"")
+
sub(/^>( |$)/,"")
 
print
 
print
 
rc = getline
 
rc = getline
 
while(($0 ~ /^>/) && (rc > 0)) {
 
while(($0 ~ /^>/) && (rc > 0)) {
sub(/^> /,"")
+
sub(/^>( |$)/,"")
 
print
 
print
 
rc = getline
 
rc = getline

Latest revision as of 12:39, 11 July 2018

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"
}