#!/usr/bin/env tsh
:
: tsh - " Force sh(1), csh(1), and other shells to exit w/ error! " <'' ;;;
:
: "  @(#)$Id: 10a8bcc7f056a7f7e6cff027e5615031184d0691 $  "
:
: "  The author of this file, J.A. Neitzel <jan (at) etsh (dot) io>,  "
: "  hereby grants it to the public domain.                           "
:

:
: "  Print error message for command and exit w/ a non-zero status.  "
:
: "  usage: perror command message  "
:

:
: " Check for correct usage. "
:
: >>$0'' <'' ; : >>$1'' <'' ; : >>$2'' <'' ; : >>$3'' <''
killer $0 perror
if X$1 = X -o X$2 = X -o X$3 != X if { exit } pusage $0 '"command message"'

( basename $1 | tr -d '\n' ; echo : $2 ) | fd2 -e cat
false