1 /* ----------------------------------------------------------------------- *
3 * Copyright 1996-2017 The NASM Authors - All Rights Reserved
4 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 * ----------------------------------------------------------------------- */
36 void nasm_write(const void *ptr
, size_t size
, FILE *f
)
38 size_t n
= fwrite(ptr
, 1, size
, f
);
39 if (n
!= size
|| ferror(f
) || feof(f
))
40 nasm_fatal(0, "unable to write output: %s", strerror(errno
));
43 #ifdef WORDS_LITTLEENDIAN
45 void fwriteint16_t(uint16_t data
, FILE * fp
)
47 nasm_write(&data
, 2, fp
);
50 void fwriteint32_t(uint32_t data
, FILE * fp
)
52 nasm_write(&data
, 4, fp
);
55 void fwriteint64_t(uint64_t data
, FILE * fp
)
57 nasm_write(&data
, 8, fp
);
60 void fwriteaddr(uint64_t data
, int size
, FILE * fp
)
62 nasm_write(&data
, size
, fp
);
65 #else /* not WORDS_LITTLEENDIAN */
67 void fwriteint16_t(uint16_t data
, FILE * fp
)
69 char buffer
[2], *p
= buffer
;
71 nasm_write(buffer
, 2, fp
);
74 void fwriteint32_t(uint32_t data
, FILE * fp
)
76 char buffer
[4], *p
= buffer
;
78 nasm_write(buffer
, 4, fp
);
81 void fwriteint64_t(uint64_t data
, FILE * fp
)
83 char buffer
[8], *p
= buffer
;
85 nasm_write(buffer
, 8, fp
);
88 void fwriteaddr(uint64_t data
, int size
, FILE * fp
)
90 char buffer
[8], *p
= buffer
;
91 WRITEADDR(p
, data
, size
);
92 nasm_write(buffer
, size
, fp
);
98 void fwritezero(off_t bytes
, FILE *fp
)
102 #ifdef nasm_ftruncate
103 if (bytes
>= BUFSIZ
&& !ferror(fp
) && !feof(fp
)) {
104 off_t pos
= ftello(fp
);
108 !nasm_ftruncate(fileno(fp
), pos
) &&
109 !fseeko(fp
, pos
, SEEK_SET
))
116 blksize
= (bytes
< ZERO_BUF_SIZE
) ? bytes
: ZERO_BUF_SIZE
;
118 nasm_write(zero_buffer
, blksize
, fp
);
123 FILE *nasm_open_read(const char *filename
, enum file_flags flags
)
130 * Try to open this file with memory mapping for speed, unless we are
131 * going to do it "manually" with nasm_map_file()
133 if (!(flags
& NF_FORMAP
)) {
134 f
= fopen(filename
, (flags
& NF_TEXT
) ? "rtm" : "rbm");
135 again
= (!f
) && (errno
== EINVAL
); /* Not supported, try without m */
140 f
= fopen(filename
, (flags
& NF_TEXT
) ? "rt" : "rb");
142 if (!f
&& (flags
& NF_FATAL
))
143 nasm_fatal(ERR_NOFILE
, "unable to open input file: `%s': %s",
144 filename
, strerror(errno
));
149 FILE *nasm_open_write(const char *filename
, enum file_flags flags
)
153 f
= fopen(filename
, (flags
& NF_TEXT
) ? "wt" : "wb");
155 if (!f
&& (flags
& NF_FATAL
))
156 nasm_fatal(ERR_NOFILE
, "unable to open output file: `%s': %s",
157 filename
, strerror(errno
));
163 * Report the existence of a file
165 bool nasm_file_exists(const char *filename
)
167 #if defined(HAVE_FACCESSAT) && defined(AT_EACCESS)
168 return faccessat(AT_FDCWD
, filename
, R_OK
, AT_EACCESS
) == 0;
169 #elif defined(HAVE_ACCESS)
170 return access(filename
, R_OK
) == 0;
174 f
= fopen(filename
, "rb");
185 * Report file size. This MAY move the file pointer.
187 off_t
nasm_file_size(FILE *f
)
189 #ifdef HAVE__FILELENGTHI64
190 return _filelengthi64(fileno(f
));
191 #elif defined(nasm_fstat)
194 if (nasm_fstat(fileno(f
), &st
))
199 if (fseeko(f
, 0, SEEK_END
))
207 * Report file size given pathname
209 off_t
nasm_file_size_by_path(const char *pathname
)
214 if (nasm_stat(pathname
, &st
))
222 fp
= nasm_open_read(pathname
, NF_BINARY
);
226 len
= nasm_file_size(fp
);