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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <mach.h>
include <fio.h>
# XER_PUTLINE -- Put a line to the output file (STDERR), using only low level
# routines. It is important to use run time indirection through the device
# table here, to avoid linking the entire IPC and KI into non-IRAF programs
# that use error handlers, e.g., HSI or IMFORT programs.
procedure xer_putline (fd, text)
int fd
char text[ARB]
long offset
int nchars, junk
int strlen()
include <fio.com>
begin
nchars = strlen (text)
fp = fiodes[fd]
if (FTYPE(fp) == BINARY_FILE) {
offset = 0
call zcall4 (ZAWRBF(fp), FCHAN(fp), text, nchars * SZB_CHAR, offset)
call zcall2 (ZAWTBF(fp), FCHAN(fp), junk)
} else
call zcall4 (ZPUTTX(fp), FCHAN(fp), text, nchars, junk)
end
|
