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

From HaskellWiki
Jump to navigation Jump to search
(Breaking out from main literate programming page)
 
(fix missing slashes)
Line 3: Line 3:
 
<pre>
  
<pre>
 
# bird2code.awk
  
# bird2code.awk
−
^[^>] || ^$ {print; next}
 +
/^[^>]/ || /^$/ {print; next}
   
−
^> {
 +
/^>/ {
 
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

Revision as of 12:34, 28 March 2008

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"
}
Retrieved from "https://wiki.haskell.org/index.php?title=Literate_programming/Bird_conversion_via_awk&oldid=20300"