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_read(void *ptr
, size_t size
, FILE *f
)
38 size_t n
= fread(ptr
, 1, size
, f
);
40 nasm_fatal("unable to read input: %s", strerror(errno
));
41 } else if (n
!= size
|| feof(f
)) {
42 nasm_fatal("fatal short read on input");
46 void nasm_write(const void *ptr
, size_t size
, FILE *f
)
48 size_t n
= fwrite(ptr
, 1, size
, f
);
49 if (n
!= size
|| ferror(f
) || feof(f
))
50 nasm_fatal("unable to write output: %s", strerror(errno
));
53 void fwriteint16_t(uint16_t data
, FILE * fp
)
55 data
= cpu_to_le16(data
);
56 nasm_write(&data
, 2, fp
);
59 void fwriteint32_t(uint32_t data
, FILE * fp
)
61 data
= cpu_to_le32(data
);
62 nasm_write(&data
, 4, fp
);
65 void fwriteint64_t(uint64_t data
, FILE * fp
)
67 data
= cpu_to_le64(data
);
68 nasm_write(&data
, 8, fp
);
71 void fwriteaddr(uint64_t data
, int size
, FILE * fp
)
73 data
= cpu_to_le64(data
);
74 nasm_write(&data
, size
, fp
);
77 void fwritezero(off_t bytes
, FILE *fp
)
82 if (bytes
>= BUFSIZ
&& !ferror(fp
) && !feof(fp
)) {
83 off_t pos
= ftello(fp
);
87 !nasm_ftruncate(fileno(fp
), pos
) &&
88 !fseeko(fp
, pos
, SEEK_SET
))
95 blksize
= (bytes
< ZERO_BUF_SIZE
) ? bytes
: ZERO_BUF_SIZE
;
97 nasm_write(zero_buffer
, blksize
, fp
);
102 FILE *nasm_open_read(const char *filename
, enum file_flags flags
)
109 * Try to open this file with memory mapping for speed, unless we are
110 * going to do it "manually" with nasm_map_file()
112 if (!(flags
& NF_FORMAP
)) {
113 f
= fopen(filename
, (flags
& NF_TEXT
) ? "rtm" : "rbm");
114 again
= (!f
) && (errno
== EINVAL
); /* Not supported, try without m */
119 f
= fopen(filename
, (flags
& NF_TEXT
) ? "rt" : "rb");
121 if (!f
&& (flags
& NF_FATAL
))
122 nasm_fatal_fl(ERR_NOFILE
, "unable to open input file: `%s': %s",
123 filename
, strerror(errno
));
128 FILE *nasm_open_write(const char *filename
, enum file_flags flags
)
132 f
= fopen(filename
, (flags
& NF_TEXT
) ? "wt" : "wb");
134 if (!f
&& (flags
& NF_FATAL
))
135 nasm_fatal_fl(ERR_NOFILE
, "unable to open output file: `%s': %s",
136 filename
, strerror(errno
));
142 * Report the existence of a file
144 bool nasm_file_exists(const char *filename
)
146 #if defined(HAVE_FACCESSAT) && defined(AT_EACCESS)
147 return faccessat(AT_FDCWD
, filename
, R_OK
, AT_EACCESS
) == 0;
148 #elif defined(HAVE_ACCESS)
149 return access(filename
, R_OK
) == 0;
153 f
= fopen(filename
, "rb");
164 * Report file size. This MAY move the file pointer.
166 off_t
nasm_file_size(FILE *f
)
168 #ifdef HAVE__FILELENGTHI64
169 return _filelengthi64(fileno(f
));
170 #elif defined(nasm_fstat)
173 if (nasm_fstat(fileno(f
), &st
))
178 if (fseeko(f
, 0, SEEK_END
))
186 * Report file size given pathname
188 off_t
nasm_file_size_by_path(const char *pathname
)
193 if (nasm_stat(pathname
, &st
))
201 fp
= nasm_open_read(pathname
, NF_BINARY
);
205 len
= nasm_file_size(fp
);
213 * Report the timestamp on a file, returns true if successful
215 bool nasm_file_time(time_t *t
, const char *pathname
)
220 if (nasm_stat(pathname
, &st
))
226 return false; /* No idea how to do this on this OS */