blob: 7a341764dbaad34375df0b53c34bc4ff952e806a (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# FMT_ERR -- Print the format string on the standard error output, marking
# the position within the string to which the error refers.
procedure fmt_err (preamble, format, index)
char preamble[ARB], format[ARB]
int index, ip
begin
call putline (STDERR, "(")
call putline (STDERR, preamble)
call putline (STDERR, "format = \"")
for (ip=1; ip < index && format[ip] != EOS; ip=ip+1)
call putcc (STDERR, format[ip])
if (format[ip] != EOS) { # mark position of error
call putline (STDERR, "<>")
for (; format[ip] != EOS; ip=ip+1)
call putcc (STDERR, format[ip])
}
call putline (STDERR, "\")\n")
end
|
