From 3c6ce827a002c54deb88e40cbddddb03866e695b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 6 Jul 2022 22:00:30 -0500
Subject: Big update

---
 fucktrain | 53 +++++++++++++++++++++++------------------------------
 1 file changed, 23 insertions(+), 30 deletions(-)

(limited to 'fucktrain')

diff --git a/fucktrain b/fucktrain
index 7ade621..1c25aff 100755
--- a/fucktrain
+++ b/fucktrain
@@ -1,37 +1,30 @@
-#!/bin/awk -f
-# FUCKTRAIN: FUCKAMUTHA CHOO CHOO -*- awk -*-
+#!/bin/sh
+# TRAINFUCK: CHOO CHOO MUTHAFUCKA -*- sh -*-
 # Author: Case Duckworth <acdw@acdw.net>
 # License: WTFPL
 # Version: #9
-BEGIN {
-	print "ALL ABOARD"
-}
 
-{
-	gsub(/[^-+<>.,\[\]]/, "", $0)
-	gsub(/+/, "chug ", $0)
-	gsub(/-/, "chugga ", $0)
-	gsub(/>/, "choo\n", $0)
-	gsub(/</, "choo choo\n", $0)
-	gsub(/\./, clicketyClick(), $0)
-	gsub(/,/, "clack ", $0)
-	gsub(/\[/, "tickets please ", $0)
-	gsub(/\]/, "your ticket please ", $0)
-	if ($0) {
-		print
-	}
-}
+### Commentary:
 
-END {
-	print "END OF THE LINE"
-}
+# shell wrapper around fucktrain.awk, which see.
 
+### Code:
 
-function clicketyClick()
-{
-	if (rand() <= 0.5) {
-		return "click "
-	} else {
-		return "clickety "
-	}
-}
+FUCKTRAIN="$(dirname "$0")/fucktrain.awk"
+
+case "$(realpath "$(command -v awk)")" in
+*gawk)
+	AWK=gawk
+	EXTRA_AWK_ARGS="--characters-as-bytes" # --posix overrides
+	;;
+*mawk)
+	AWK=mawk
+	EXTRA_AWK_ARGS="-Wposix"
+	;;
+*)
+	AWK=awk
+	EXTRA_AWK_ARGS=
+	;;
+esac
+
+"$AWK" -v EXE_NAME="$(basename $0)" -f "$FUCKTRAIN" $EXTRA_AWK_ARGS -- "$@"
-- 
cgit 1.4.1-21-gabe81