The R Project SVN R

Rev

Rev 2160 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2160 Rev 7218
Line 1... Line 1...
1 
#!/bin/sh
 1 
#!/bin/sh
2 
pager=${PAGER-"more -s"}
 2 
pager=${PAGER-"more -s"}
- 
 
 3 
## For the curious: "pager $1" doesn't work in batch, because "more" will
- 
 
 4 
## eat the rest of stdin.  The no-argument version is intended for use at
- 
 
 5 
## the end of a pipeline.
3 
if [ "$1" != "" ]
 6 
if [ "${1}" != "" ]; then
4 
then exec $pager < $1
 7 
  exec ${pager} < ${1}
- 
 
 8 
else
5 
else exec $pager
 9 
  exec ${pager}
6 
fi
 10 
fi
- 
 
 11 
 
7 
# For the curious: "pager $1" doesn't work in batch, because "more" will
 12 
### Local Variables: ***
- 
 
 13 
### mode: sh ***
8 
# eat the rest of stdin. The no-argument version is intended for use
14 
### sh-indentation: 2 ***
9 
# at the end of a pipeline.
 15 
### End: ***