/usr/share/epic4/script/ls is in epic4 1:2.10.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | /*
ls.irc by archon <archon@tamu.edu>
August 16, 1996
because /exec ls is just too easy!
and i couldn't think of another use for $glob()
*/
alias ls {
switch ($0) {
() {
fe ($glob(*)) ii jj kk ll {
echo $lformat(15, $ii) $lformat(15, $jj) $lformat(15, $kk) $lformat(15, $ll)
}
}
(-a) {
if ([$1]) {
if ((match($1 $glob(.* *))) || (match($1/ $glob(.* *)))) {
if (match($1/ $glob(.* *))) {
fe ($pattern($1/ $glob(.* *))) qq {
push tols $qq*
}
fe ($pattern($1 $glob(.* *))) qq {
push tols $qq
}
}{
@ tols = [$1]
}
}{
echo ls: $1\: No such file or directory
}
}{
@ tols = [.* *]
}
fe ($glob($tols)) ii jj kk ll {
echo $lformat(10, $ii) $lformat(10, $jj) $lformat(10, $kk) $lformat(10, $ll)
}
}
(-s) {
if ([$1]) {
if ((match($1 $glob(.* *))) || (match($1/ $glob(.* *)))) {
if (match($1/ $glob(.* *))) {
fe ($pattern($1/ $glob(.* *))) qq {
push tols $qq*
}
fe ($pattern($1 $glob(.* *))) qq {
push tols $qq
}
}{
@ tols = [$1]
}
}{
echo ls: $1\: No such file or directory
}
}{
@ tols = [*]
}
echo $tols
fe ($glob($tols)) ii jj kk {
echo $lformat(20, $fsize($ii) $ii) $lformat(20, $fsize($jj) $jj) $lformat(20, $fsize($kk) $kk)
}
}
(*) {
if ((match($0 $glob(.* *))) || (match($0/ $glob(.* *)))) {
if (match($0/ $glob(.* *))) {
fe ($pattern($0/ $glob(.* *))) qq {
push tols $qq*
}
fe ($pattern($0 $glob(.* *))) qq {
push tols $qq
}
}{
@ tols = [$0]
}
fe ($glob($tols)) ii jj kk ll mm {
echo $lformat(10, $ii) $lformat(10, $jj) $lformat(10, $kk) $lformat(10, $ll) $lformat(10, $mm)
}
}{
echo ls: $0\: No such file or directory
}
}
}
@ tols = qq = []
}
/* format alias written by someone else */
alias lformat {
@ IRCII.word = [$1-]
if (@IRCII.word < [$0]) {
@ function_return = [$([$0]IRCII.word)]
}{
@ function_return = [$IRCII.word]
}
@ ircii.word = []
}
#archon'96
|