lib/scripts/ucat
author wenzelm
Mon, 16 Dec 1996 10:29:30 +0100
changeset 2411 256dbda3df4f
parent 2347 a42c1b835fb3
child 2579 4af1023fc6bf
permissions -rwxr-xr-x
SML/NJ startup script (for 0.93).

#!/bin/bash -norc
#
# $Id$
#
# ucat - uninterruptible cat.
#
# NOTE: If perl is unavailable we simply fall back on normal cat!


PERL=$(type -path perl)

if [ -z "$PERL" ]
then
  exec cat "$@"
else
  exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@"
fi