1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#! /mp/free/bin/ruby -- -*- ruby -*-
#
# less -
# $Release Version: $
# $Revision: 1.1 $
# $Date: 90/09/29 15:17:59 $
# by Yasuo OHBA(STAFS Development Room)
#
# --
#
#
#
$RCS_ID="$Header: less,v 1.1 90/09/29 15:17:59 ohba Locked $"
ZCAT = "/usr/local/bin/zcat"
LESS = "/usr/local/bin/less"
FILE = $ARGV.pop
OPTION = (if $ARGV.length == 0; "" else $ARGV.join(" "); end)
if FILE =~ /\.(Z|gz)$/
exec(format("%s %s | %s %s", ZCAT, FILE, LESS, OPTION))
elsif FILE == nil
exec(format("%s %s", LESS, OPTION))
else
print(format("%s %s %s", LESS, OPTION, FILE), "\n")
exec(format("%s %s %s", LESS, OPTION, FILE))
end
exit()
|