blob: 5fda4026c3fb5d5927d95872b0d353c6b2cd172c (
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
26
27
28
29
30
31
32
33
34
35
36
37
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <config.h>
include <fio.h>
# XERPUTC -- Low level routine, called by the error handling code, to
# accumulate an error command, and send it off to the CL. Clumsy, but
# necessary to avoid recursion if an error abort occurs in a routine
# such as PUTC or FLSBUF. The buffer is automatically flushed to CLOUT
# when newline is encountered.
procedure xerputc (ch)
char ch
int op, junk, nchars
char msg[SZ_LINE+1]
include <fio.com>
data op /1/
begin
msg[op] = ch
if (ch == '\n' || op > SZ_PATHNAME) {
fp = fiodes[CLOUT]
nchars = op
op = 0
if (FTYPE(fp) == TEXT_FILE)
call fputtx (CLOUT, msg, nchars, junk)
else {
call zcall4 (ZAWRBF(fp), FCHAN(fp), msg, nchars * SZB_CHAR, 0)
}
}
op = op + 1
end
|
