Recognize bf comments

1 files changed, 31 insertions, 2 deletions

@@ -3,8 +3,11 @@
 # Author: Case Duckworth <acdw@acdw.net>
 # License: WTFPL
 # Version: #9
-#
+
+### Commentary:
+
 # LANGUAGE
+
 # trainfuck is not case-sensitive
 # -- except for ALL ABOARD and END OF THE LINE
 # ignore everything before ALL ABOARD
@@ -21,11 +24,19 @@
 # ]  your ticket please
 # syntax does NOT WRAP across line breaks
 # anything else is an error and DERAILS the train
+
+### Code:
 BEGIN {
         aboard = 0
+        width = 30
+        print "["
 }
 
 /^ALL ABOARD$/ {
+        if (! header) {
+                print "]"
+        }
+        header++
         aboard = 1
         next
 }
@@ -37,7 +48,16 @@ BEGIN {
 
 aboard {
         gsub(/[[:space:]]/, "", $0)
-        print proc(toupper($0))
+        buf = buf proc(toupper($0))
+}
+
+! aboard {
+        printbuf()
+        if (header) {
+                gsub(/[-+<>.,\[\]]/, "", $0)
+        }
+        print
+        buf = ""
 }
 
 END {
@@ -45,6 +65,8 @@ END {
                 print DERAIL_ERR
                 exit 9
         }
+        printbuf()
+        printf "\n"
 }
 
 
@@ -55,6 +77,13 @@ function derail(err)
         exit
 }
 
+function printbuf(newline)
+{
+        for (ss = 1; ss <= length(buf); ss += width) {
+                printf "%s\n", substr(buf, ss, width)
+        }
+}
+
 function proc(t)
 {
         if (! match(t, /CHUGGA|CHUG|CHOO|CLICK|CLICKETY|CLACK|TICKETSPLEASE|YOURTICKETPLEASE|$/)) {