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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_stdio
#include <iraf.h>
/* FWRITE -- Write a binary block of data to the output file. If the number
** of bytes (C chars) specified does not fill an integral number of XCHARS
** additional bytes will be written to fill out the last XCHAR. The actual
** number of elements written is returned as the function value.
*/
int
fwrite (
char *bp, /* output buffer */
int szelem, /* nbytes per element */
int nelem, /* nelems to read */
FILE *fp
)
{
register int stat;
XINT fd = fileno (fp);
if (szelem) {
stat = c_write (fd, bp, nelem * szelem);
if (stat == ERR) {
fp->_fflags |= _FERR;
return (0);
} else
return (stat / szelem);
} else
return (0);
}
|
