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
|
include defs
# docant
#
# Similar to cant(name), however precede the messge with the name
# of the program that was running when the file could not be
# opened. Helpful in a pipeline to verify which program was not
# able to open a file.
#
subroutine docant(name)
character name(ARB), prog(FILENAMESIZE)
integer length
integer getarg
length = getarg(0, prog, FILENAMESIZE)
if (length != EOF) {
call putlin(prog, STDERR)
call putch(COLON, STDERR)
call putch(BLANK, STDERR)
}
call cant(name)
return
end
|
