newwrite - better version of write
C. J. Sampson
jeff at alberta.UUCP
Mon Oct 1 07:25:46 AEST 1984
[]
This is a shell file that turns off cbreak before running /bin/write.
I have found it useful because it allows you to see what the other
guy is typing a character at a time, rather than waiting for him to
finish a line. It also gives you an excuse to make snide comments
about his typing. :-) Anyway, here it is...
------------------------Cut Here-------------------------------------
# This is a shell archive. Remove anything before this line, then
# unpack it by saving it in a file and typing "sh file". (Files
# unpacked will be owned by you and have default permissions.)
#
# This archive contains:
# write.sh newwrite.1
echo x - write.sh
cat > "write.sh" << '//E*O*F write.sh//'
#!/bin/sh
# newwrite
#
trap 'stty -cbreak ; exit 0 ' 2
if test $1
then
case $1 in
-c) stty -cbreak ;
shift ;;
-*) echo write: unknown option \`$1\' ;
exit 1 ;;
*) stty cbreak ;;
esac
else
echo 'usage: write [-c] user [ttyname]'
exit 1
fi
if /bin/write $*
then
stty -cbreak
exit 0
else
stty -cbreak
exit 1
fi
//E*O*F write.sh//
echo x - newwrite.1
cat > "newwrite.1" << '//E*O*F newwrite.1//'
.TH NEWWRITE 1 "(c) 1984 by Curt Sampson"
.SH NAME
newwrite \- better version of write
.SH SYNOPSIS
.B write
[
.B -c
] user [ttyname]
.SH DESCRIPTION
.I Write
is exactly the same as the original write, execpt that it
turns cbreak off on the terminal. This enables the other
person to see what you are typing character by character rather
than line by line. The -c option disables this feature, making
it like normal write. Exit with an interrupt.
.SH CAVEATS
This program is copyright (c) 1984 by Curt Sampson.
Usage is granted under the condition that it is for
personal use only. Usage by a buisness firm or usage
for profit is strictly forbiden unless done by prior
arrangement with the author. No liability is assumed
by the author for any damages caused directly or
indirectly by this program. This program may be
distributed freely as long as this notice is left intact.
.SH AUTHOR
Curt Sampson
.br
inhp4!alberta!jeff
.SH FILES
/usr/bin/write the "real" write program
.SH SEE ALSO
write(1), mesg(1), who(1) mail(1)
//E*O*F newwrite.1//
echo Possible errors detected by \'wc\' [hopefully none]:
temp=/tmp/shar$$
trap "rm -f $temp; exit" 0 1 2 3 15
cat > $temp <<\!!!
28 64 334 write.sh
32 176 1036 newwrite.1
60 240 1370 total
!!!
wc write.sh newwrite.1 | sed 's=[^ ]*/==' | diff -b $temp -
exit 0
--
------------------------------------------------------------------------
C. J. Sampson Snail Canada: #712 11135-83rd ave. ***DISCLAIMER***
ihnp4!alberta!jeff Edmonton, Alberta +--------------+
ubc-vision!alberta!jeff CANADA T6G 2C8 | These may |
sask!alberta!jeff | be opinions. |
+--------------+
"He who spends the storm beneath a tree, takes life with a grain of TNT."
More information about the Comp.sources.unix
mailing list