diff options
| author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:16:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:16:42 +0000 |
| commit | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (patch) | |
| tree | f4a8a34f904c1bb86adcc3ae0e14434badc6dbe4 /Build/source/utils/gzip/zmore.in | |
| parent | 6c0eafbb1395d426a72a74538e0b2a95e8344ca6 (diff) | |
utils 1
git-svn-id: svn://tug.org/texlive/trunk@1484 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/gzip/zmore.in')
| -rw-r--r-- | Build/source/utils/gzip/zmore.in | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Build/source/utils/gzip/zmore.in b/Build/source/utils/gzip/zmore.in new file mode 100644 index 00000000000..0865167ddfd --- /dev/null +++ b/Build/source/utils/gzip/zmore.in @@ -0,0 +1,52 @@ +: +#!/bin/sh + +PATH="BINDIR:$PATH"; export PATH +if test "`echo -n a`" = "-n a"; then + # looks like a SysV system: + n1=''; n2='\c' +else + n1='-n'; n2='' +fi +oldtty=`stty -g 2>/dev/null` +if stty -cbreak 2>/dev/null; then + cb='cbreak'; ncb='-cbreak' +else + # 'stty min 1' resets eof to ^a on both SunOS and SysV! + cb='min 1 -icanon'; ncb='icanon eof ^d' +fi +if test $? -eq 0 -a -n "$oldtty"; then + trap 'stty $oldtty 2>/dev/null; exit' 0 2 3 5 10 13 15 +else + trap 'stty $ncb echo 2>/dev/null; exit' 0 2 3 5 10 13 15 +fi + +if test $# = 0; then + if test -t 0; then + echo usage: zmore files... + else + gzip -cdfq | eval ${PAGER-more} + fi +else + FIRST=1 + for FILE + do + if test $FIRST -eq 0; then + echo $n1 "--More--(Next file: $FILE)$n2" + stty $cb -echo 2>/dev/null + ANS=`dd bs=1 count=1 2>/dev/null` + stty $ncb echo 2>/dev/null + echo " " + if test "$ANS" = 'e' -o "$ANS" = 'q'; then + exit + fi + fi + if test "$ANS" != 's'; then + echo "------> $FILE <------" + gzip -cdfq "$FILE" | eval ${PAGER-more} + fi + if test -t; then + FIRST=0 + fi + done +fi |