From e1e0f8da7029dfb7cfb8303198337ad708235316 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 12 Jul 2024 17:42:40 -0400
Subject: diffbas: added (wrapper for listbas and diff).

---
 diffbas | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100755 diffbas

diff --git a/diffbas b/diffbas
new file mode 100755
index 0000000..fe69304
--- /dev/null
+++ b/diffbas
@@ -0,0 +1,52 @@
+#!/bin/sh
+
+usage() {
+  cat <<EOF
+Usage: $( basename $0 ) [diff-opts] [-- listbas-opts] file1.bas file2.bas
+
+Diff two tokenized Atari BASIC programs, using listbas(1) and diff(1).
+
+[diff-opts] is passed through as-is to diff.
+[listbas-opts] is passed through as-is to listbas.
+EOF
+  exit "$1"
+}
+
+if [ "$@" = "-h" -o "$@" = "--help" ]; then
+  usage 0
+fi
+
+for i in "$@"; do
+  if [ -f "$i" ]; then
+    if [ "$file1" = "" ]; then
+      file1="$( realpath $i )"
+    elif [ "$file2" = "" ]; then
+      file2="$( realpath $i )"
+    else
+      usage 1
+    fi
+  elif [ "$i" = "--" ]; then
+    opts="listbasopts"
+  elif [ "$opts" = "listbasopts" ]; then
+    listbasopts="$diffopts $i"
+  else
+    diffopts="$listbasopts $i"
+  fi
+done
+
+## cat <<EOF
+## file1: $file1
+## file2: $file2
+## listbasopts: $listbasopts
+## diffopts: $diffopts
+## EOF
+## exit 0
+
+dir="$( mktemp -d )"
+[ -d "$dir" ] || exit 1
+cd "$dir" || exit 1
+listbas $listbasopts "$file1" > 1
+listbas $listbasopts "$file2" > 2
+diff $diffopts 1 2
+cd
+rm -rf "$dir"
-- 
cgit v1.2.3