blob: ca2865129f504710ac67540c72e2a5c801e6aa41 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
define SZ_NUMBUF 8 # encoded count for an XFER
# PSIO_XFER -- Transfer a data record to a process to complete an XFER
# request. Write the byte count record followed by the data record.
# These must be written as two separate records or deadlock
# will occur (with the reader waiting for the second record).
procedure psio_xfer (fd, buf, nchars)
int fd # output file
char buf[ARB] # buffer containing record to be written
int nchars # length of record
int ndigits
char numbuf[SZ_NUMBUF]
int itoc()
begin
if (nchars >= 0) {
ndigits = itoc (nchars, numbuf, SZ_NUMBUF)
numbuf[ndigits+1] = '\n'
call write (fd, numbuf, ndigits + 1)
call flush (fd)
if (nchars > 0) {
call write (fd, buf, nchars)
call flush (fd)
}
}
end
|
