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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#define import_fset
#define import_stdio
#define import_error
#include <iraf.h>
/* C_WRITE -- FIO write to a file. Write exactly nbytes bytes from the buffer
** buf to the stream fd. If the actual file is a text file C chars are output
** as XCHARs. If the actual file is a binary file no conversion is performed,
** but an integral number of XCHARs are always written.
*/
int
c_write (
XINT fd, /* FIO file descriptor */
char *buf, /* buffer containing data to be written */
int nbytes /* nbytes to be written */
)
{
XINT x_fd = fd;
if (c_fstati (fd, F_TYPE) == TEXT_FILE) {
register FILE *fp = FDTOFP(fd);
register char *ip;
register int n = nbytes;
for (ip=buf; --n >= 0; ip++)
putc (*ip, fp);
if (ferror (fp))
c_erract (EA_ERROR);
} else {
XINT x_nchars = (nbytes + sizeof(XCHAR)-1) / sizeof(XCHAR);
XCHAR *bp = (XCHAR *)buf;
/* Verify that the pointer coercion char->XCHAR->char is legal,
* i.e., that the char pointer is aligned to an XCHAR word
* boundary if required on this machine.
*/
if (buf != (char *) bp)
return (ERR);
WRITE (&x_fd, bp, &x_nchars);
}
return (nbytes);
}
|
