From: Ian Jackson <ian@davenant.relativity.greenend.org.uk>
Date: Wed, 8 Oct 2008 23:31:05 +0000 (+0100)
Subject: view-cyclicly script - has bug in generation of .alternately filename
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=moebius2.git;a=commitdiff_plain;h=6aaf35a4333879496df3dd213bf73251701a7888

view-cyclicly script - has bug in generation of .alternately filename
---

diff --git a/view-cyclicly b/view-cyclicly
new file mode 100755
index 0000000..34e7087
--- /dev/null
+++ b/view-cyclicly
@@ -0,0 +1,23 @@
+#!/bin/sh
+set -e
+if [ $# -lt 3 ]; then
+ echo >&2 'usage: view-cyclicly ./view-NN file-NN-a.cfm file-NN-b.cfm...'
+ exit 1
+fi
+
+viewer=$1; shift
+
+alt=".alternately"
+for f in "$@"; do
+	g="${g//_/__}"
+	g="${g//"/"/_:}"
+	alt="${alt}_,$g"
+done
+
+ln -sf -- "$1" "$alt"
+"$viewer" "$alt" &
+
+while sleep 1.0; do
+	justhad="$1"; shift; set -- "$@" "$justhad"
+	ln -sf -- "$1" "$alt"
+done