INITIAL COMMIT

1 files changed, 96 insertions, 0 deletions

@@ -0,0 +1,96 @@
+#!/bin/awk -f
+# TRAINFUCK: CHOO CHOO MUTHAFUCKA
+# Author: Case Duckworth <acdw@acdw.net>
+# License: WTFPL
+# Version: #9
+#
+# LANGUAGE
+# trainfuck is not case-sensitive
+# ignore everything before ALL ABOARD
+# ignore everything after END OF THE LINE
+# (this means you can comment between these)
+# bf tf
+# >  chug
+# <  chugga
+# +  choo
+# -  choo choo
+# .  click
+# ,  clack
+# [  tickets please
+# ]  your ticket please
+# syntax does NOT WRAP across line breaks
+# anything else is an error and DERAILS the train
+BEGIN {
+        aboard = false
+}
+
+/^[Aa][Ll][Ll] [Aa][Bb][Oo][Aa][Rr][Dd]$/ {
+        aboard = true
+        next
+}
+
+/^[Ee][Nn][Dd] [Oo][Ff] [Tt][Hh][Ee] [Ll][Ii][Nn][Ee]$/ {
+        aboard = false
+        next
+}
+
+aboard {
+        proc(toupper($0))
+}
+
+END {
+        if (DERAIL_ERR) {
+                print DERAIL_ERR
+                exit 9
+        }
+}
+
+
+function derail(err)
+{
+        print "TRAIN DERAILED at input line", FNR
+        DERAIL_ERR = err
+        exit
+}
+
+function proc(t)
+{
+        if (! match(t, /CHUG|CHUGGA|CHOO|CLICK|CLACK|TICKETS PLEASE|YOUR TICKET PLEASE/)) {
+                derail("WTF")
+        }
+        pre = substr(t, 1, RSTART - 1)
+        tok = substr(t, RSTART, RLENGTH)
+        pst = substr(t, RSTART + RLENGTH)
+        if (tok == "CHUG") {
+                tok = ">"
+                return (pre tok proc(pst))
+        }
+        if (tok == "CHUGGA") {
+                tok = "<"
+                return (pre tok proc(pst))
+        }
+        if (tok == "CHOO CHOO") {       # have to do this one first
+                tok = "-"
+                return (pre tok proc(pst))
+        }
+        if (tok == "CHOO") {
+                tok = "+"
+                return (pre tok proc(pst))
+        }
+        if (tok == "CLICK") {
+                tok = "."
+                return (pre tok proc(pst))
+        }
+        if (tok == "CLACK") {
+                tok = ","
+                return (pre tok proc(pst))
+        }
+        if (tok == "TICKETS PLEASE") {
+                tok = "["
+                return (pre tok proc(pst))
+        }
+        if (tok == "YOUR TICKET PLEASE") {
+                tok = "]"
+                return (pre tok proc(pst))
+        }
+}