projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4_3 development
[unix-history]
/
usr
/
contrib
/
icon
/
libtest
/
distr
/
shuffile.out
doll(&input,"standard input")
inpt := &input
# Last modified 6/16/83
#
}
tab := "\t"
}
every arg := !a do
procedure doll(ifd,name)
{
{
{
doll(inpt,arg)
arg := "standard input"
end
}
if not (inpt := open(arg)) then
end
if *a = 0 then
#
{
while line := read(ifd) do
procedure main(a)
# LL(1)
else
long <:= x
if arg == "-" then
write(right(\short,6),tab,right(\long,6),tab,\name)
# Line length
next
#
local arg, inpt
}
# Thomas R. Hicks
/short := x
else
short >:= x
write(&errout,"Cannot open ",arg)
x := *line
long := 0
local line, long, short, tab, x
#