1 files changed, 81 insertions, 0 deletions
diff --git a/bin/tlcs.mi5 b/bin/tlcs.mi5
new file mode 100644
index 00000000..a3e17c82
--- /dev/null
+++ b/bin/tlcs.mi5
@@ -0,0 +1,81 @@
+# Execute a command and tag the output of the stdout and stderr streams.
+self=tlcs
+
+# Set the default prefixes and suffixes for stdout/err
+out_pref='stdout: '
+err_pref='stderr: '
+out_suff=
+err_suff=
+
+# Parse options out, give help if necessary
+while getopts 'co:e:' opt ; do
+    case $opt in
+        c)
+            color=1
+            ;;
+        o)
+            out_pref=$OPTARG
+            ;;
+        e)
+            err_pref=$OPTARG
+            ;;
+        \?)
+            printf >&2 'Unknown option %s\n' "$opt"
+            exit 2
+            ;;
+    esac
+done
+shift "$((OPTIND-1))"
+
+# We need at least one more argument
+if [ "$#" -eq 0 ] ; then
+    printf >&2 '%s: Need a command to run\n' "$self"
+    exit 2
+fi
+
+# If color was requested for the output, try and get a count of available
+# colors; otherwise default to zero
+[ -n "$color" ] && color_count=$( {
+    tput colors || tput Co
+} 2>/dev/null )
+: "${color_count:=0}"
+
+# If the color count is 8 or greater, we'll color the output
+if [ "$((color_count >= 8))" -eq 1 ] ; then
+
+    # Color code for resetting
+    color_reset=$( {
+        tput me || tput sgr0
+    } 2>/dev/null )
+
+    # If stdout is a terminal, color it
+    if [ -t 1 ] ; then
+        color_stdout=$( {
+            tput AF 2 || tput setaf 2
+        } 2>/dev/null )
+        out_pref=${color_stdout}${out_pref}
+        out_suff=${out_suff}${color_reset}
+    fi
+
+    # If stderr is a terminal, color it
+    if [ -t 2 ] ; then
+        color_stderr=$( {
+            tput AF 1 || tput setaf 1
+        } 2>/dev/null )
+        err_pref=${color_stderr}${err_pref}
+        out_suff=${err_suff}${color_reset}
+    fi
+fi
+
+<%
+include(`include/mktd.m4')
+%>
+
+# Execute the command, passing stdout and stderr to tl(1df) calls as appropriate
+# via named pipes
+out=$td/out err=$td/err
+mkfifo -- "$out" "$err" || exit
+tl -p "$out_pref" -s "$out_suff" < "$out" &
+tl -p "$err_pref" -s "$err_suff" < "$err" &
+"$@" >"$out" 2>"$err"
+ex=$? ; wait ; exit "$ex"