Probably version ... whatever the next higher one is

1 files changed, 5 insertions, 118 deletions

@@ -1,128 +1,15 @@
-#!/bin/awk -f
-# TRAINFUCK: CHOO CHOO MUTHAFUCKA -*- awk -*-
+#!/bin/sh
+# TRAINFUCK: CHOO CHOO MUTHAFUCKA -*- sh -*-
 # 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
-# ignore everything after END OF THE LINE
-# (this means you can comment between these)
-# bf tf
-# +  chug
-# -  chugga
-# >  choo
-# <  choo choo
-# .  click OR clickety
-# ,  clack
-# [  tickets please
-# ]  your ticket please
-# syntax does NOT WRAP across line breaks
-# anything else is an error and DERAILS the train
+# shell wrapper around trainfuck.awk, which see.
 
 ### Code:
-BEGIN {
-        aboard = 0
-        width = 30
-        print "["
-}
-
-/^ALL ABOARD$/ {
-        if (! header) {
-                print "]"
-        }
-        header++
-        aboard = 1
-        next
-}
-
-/^END OF THE LINE$/ {
-        aboard = 0
-        next
-}
-
-aboard {
-        gsub(/[[:space:]]/, "", $0)
-        buf = buf proc(toupper($0))
-}
-
-! aboard {
-        printbuf()
-        if (header) {
-                gsub(/[-+<>.,\[\]]/, "", $0)
-        }
-        print
-        buf = ""
-}
-
-END {
-        if (DERAIL_ERR) {
-                print DERAIL_ERR
-                exit 9
-        }
-        printbuf()
-        printf "\n"
-}
-
-
-function derail(err)
-{
-        print "TRAIN DERAILED at input line", FNR
-        DERAIL_ERR = err
-        exit
-}
 
-function printbuf(newline)
-{
-        for (ss = 1; ss <= length(buf); ss += width) {
-                printf "%s\n", substr(buf, ss, width)
-        }
-}
+TRAINFUCK=trainfuck.awk
 
-function proc(t)
-{
-        if (! match(t, /CHUGGA|CHUG|CHOO|CLICK|CLICKETY|CLACK|TICKETSPLEASE|YOURTICKETPLEASE|$/)) {
-                derail("WTF")
-        }
-        pre = substr(t, 1, RSTART - 1)
-        tok = substr(t, RSTART, RLENGTH)
-        pst = substr(t, RSTART + RLENGTH)
-        if (tok == "CHUGGA") {  # needs to be first
-                tok = "-"
-                return (pre tok proc(pst))
-        }
-        if (tok == "CHUG") {
-                tok = "+"
-                return (pre tok proc(pst))
-        }
-        if (tok == "CHOO") {
-                if (substr(pst, 1, 4) == "CHOO") {
-                        tok = "<"
-                        sub(/CHOO/, "", pst)
-                } else {
-                        tok = ">"
-                }
-                return (pre tok proc(pst))
-        }
-        if (tok == "CLICK" || tok == "CLICKETY") {
-                tok = "."
-                return (pre tok proc(pst))
-        }
-        if (tok == "CLACK") {
-                tok = ","
-                return (pre tok proc(pst))
-        }
-        if (tok == "TICKETSPLEASE") {
-                tok = "["
-                return (pre tok proc(pst))
-        }
-        if (tok == "YOURTICKETPLEASE") {
-                tok = "]"
-                return (pre tok proc(pst))
-        }
-}
+gawk -v EXE_NAME="$(basename $0)" -f "$TRAINFUCK" -- "$@"