1 files changed, 88 insertions, 0 deletions

diff --git a/cholerab/live.sh b/cholerab/live.sh
new file mode 100755
index 00000000..62a2c3cf
--- /dev/null
+++ b/cholerab/live.sh
@@ -0,0 +1,88 @@
+#! /bin/sh
+set -euf
+stty cbreak -echo
+
+go() {
+  state=$1
+  wr 7
+  wr "             " >&2
+  wr "state=$state" >&2
+  wr 8
+  $1
+}
+
+rd() {
+  dd bs=1 count=1 2>/dev/null
+}
+
+bufrd() {
+  buf="`rd`"
+  bufinfowr
+}
+
+bufrda() {
+  buf="$buf`rd`"
+  bufinfowr
+}
+
+bufinfowr() {
+  wr 7
+  wr "          " >&2
+  wr "          " >&2
+  case "$buf" in
+    () wr '^[' >&2;;
+    (*) wr "$buf" >&2;;
+  esac
+  wr "`wr "$buf" | xxd -p`" >&2
+  wr 8
+}
+
+wr() {
+  echo -n "$1"
+}
+
+C0="`echo C0 | xxd -r -p`"; DF="`echo DF | xxd -r -p`" 
+E0="`echo E0 | xxd -r -p`"; EF="`echo EF | xxd -r -p`"
+F0="`echo F0 | xxd -r -p`"; F7="`echo F7 | xxd -r -p`"
+S() {
+  bufrd
+  case "$buf" in
+    () go ESC;;
+    () wr ' '; go S;;
+    ([$C0-$DF]) go U1;;
+    ([$E0-$EF]) go U2;;
+    ([$F0-$F7]) go U3;;
+    (*) wr "$buf"; go S;;
+  esac
+}
+
+U1() { buf="$buf`rd`"; wr "$buf"; go S; }
+U2() { buf="$buf`rd`"; go U1; }
+U3() { buf="$buf`rd`"; go U2; }
+
+
+ESC() {
+  bufrda
+  case "$buf" in
+    ('[') go ESC_OSQRB;;
+    (*)
+      wr '^['
+      go S
+      ;;
+  esac
+}
+
+ESC_OSQRB() {
+  bufrda
+  case "$buf" in
+    (''|''|''|'') wr "$buf"; go S;;
+    (*)
+      wr '^[['
+      go S
+      ;;
+  esac
+}
+
+
+wr 'c'
+go S