Difference between revisions of "Literate programming/Bird conversion via awk"
Jump to navigation
Jump to search
BrettGiles (talk | contribs) (Breaking out from main literate programming page) |
(Support files with lines which end right after the initial ">".) |
||
(One intermediate revision by one other user not shown) | |||
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 |
||
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" }