1 files changed, 89 insertions, 0 deletions

diff --git a/src/write-tty b/src/write-tty
new file mode 100644
index 0000000..fbe62ea
--- /dev/null
+++ b/src/write-tty
@@ -0,0 +1,89 @@
+#!/bin/bash
+BASH_ARGV0=write-tty
+echo -n "$0" >/proc/$BASHPID/comm
+
+output_filter()
+{
+        tokenize | colorize | soft_cursor
+}
+
+chr()
+{
+        declare -i n="$*"
+        printf "\\$(printf %o "$n")"
+}
+
+colorize()
+{
+        BASH_ARGV0=colorize
+        echo -n "$0" >/proc/$BASHPID/comm
+        while read -r
+        do
+                case "$REPLY" in
+                        \\[0-7][0-7][0-7] ) ;;
+                        * )
+                                printf '%s\n' "$REPLY"
+                                continue
+                                ;;
+                esac
+                declare -i c=8#"${REPLY#?}"
+                if (( c > 128 + 127 ))
+                then
+                        :
+                elif (( c > 128 + 32 ))
+                then
+                        printf -v REPLY "M-$(chr c - 128)"
+                elif (( c > 127 ))
+                then
+                        printf -v REPLY "M-^$(chr c - 128 + 64)"
+                elif (( c < 32 ))
+                then
+                        printf -v REPLY "^$(chr c + 64)"
+                fi
+                printf $'\e[106m%s\e[m\n' "$REPLY"
+        done
+}
+
+tokenize()
+{
+        BASH_ARGV0=tokenize
+        echo -n "$0" >/proc/$BASHPID/comm
+        while read -r -N1
+        do
+                if [[ "$REPLY" =~ [[:print:]] ]]
+                then
+                        # Output one printable character per line. It may be a
+                        # multibyte unicode character.
+                        printf '%s\n' "$REPLY"
+                        continue
+                else
+                        # If it is a non-printable, then we output a
+                        # multi-character line. In this case we colorize it
+                        # later so that it won't be confused with multiple
+                        # printable characters in the .
+                        printf '\\%.3o\n' "'$REPLY"
+                        continue
+                fi
+        done
+}
+
+soft_cursor()
+{
+        BASH_ARGV0=soft_cursor
+        echo -n "$0" >/proc/$BASHPID/comm
+        FMT=$'%s \b\e[%sm \e[m\b'
+        REPLY=
+        color=101
+        while printf "$FMT" "$REPLY" "$color"
+        do
+                read -r || break
+                let '++color <= 105' || color=101
+        done
+}
+
+if [ -t 1 ]
+then
+        output_filter
+else
+        exec -a write-tty-raw socat - -
+fi