From f6c5c4bab0f361d4b3447b89e203cb6a1b520590 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 19 Jul 2024 15:33:51 -0400
Subject: a8diff: added.

---
 a8diff | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100755 a8diff

(limited to 'a8diff')

diff --git a/a8diff b/a8diff
new file mode 100755
index 0000000..38d4460
--- /dev/null
+++ b/a8diff
@@ -0,0 +1,56 @@
+#!/bin/sh
+
+usage() {
+  cat <<EOF
+Usage: $( basename $0 ) [diff-opts] [-- a8cat-opts] file1 file2
+
+Diff two Atari ATASCII files, using a8cat(1) and diff(1).
+
+[diff-opts] is passed through as-is to diff.
+[a8cat-opts] is passed through as-is to a8cat.
+EOF
+  exit "$1"
+}
+
+cleanup() {
+  if [ "$dir" != "" ]; then
+    cd
+    rm -rf "$dir"
+  fi
+}
+
+if [ "$1" = "-h" -o "$1" = "--help" -o "$1" = "" ]; then
+  usage 0
+fi
+
+for i in "$@"; do
+  if [ -f "$i" ]; then
+    if [ "$file1" = "" ]; then
+      file1="$( realpath $i )"
+      base1="$( basename $i )".txt
+    elif [ "$file2" = "" ]; then
+      file2="$( realpath $i )"
+      base2="$( basename $i )".txt
+    else
+      usage 1
+    fi
+  elif [ "$i" = "--" ]; then
+    opts="a8catopts"
+  elif [ "$opts" = "a8catopts" ]; then
+    a8catopts="$a8catopts $i"
+  else
+    diffopts="$diffopts $i"
+  fi
+done
+
+dir="$( mktemp -d -t diffbas.XXXXXXXXXX )"
+[ -d "$dir" ]
+cd "$dir"
+trap cleanup EXIT
+set -e
+
+a8cat $a8catopts "$file1" > $base1
+a8cat $a8catopts "$file2" > $base2
+diff $diffopts $base1 $base2
+
+exit 0
-- 
cgit v1.2.3