1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <fio.h>
# FPUTTX -- Put a line to a text file. Flush output if flag is set.
# Called by FLSBUF, SEEK, FLUSH, etc. to flush an output line.
procedure fputtx (fd, buf, nchars, status)
int fd, nchars, status
char buf[ARB]
int and()
include <fio.com>
begin
fp = fiodes[fd]
call zcall4 (ZPUTTX(fp), FCHAN(fp), buf, nchars, status)
if (status != ERR && and (FF_FLUSHNL, fflags[fd]) != 0)
call zcall2 (ZFLSTX(fp), FCHAN(fp), status)
end
|
