1 /*-
2 * Copyright (c) 2003-2007 Tim Kientzle
3 * Copyright (c) 2009 Andreas Henriksson <andreas@fatal.se>
4 * Copyright (c) 2009-2012 Michihiro NAKAJIMA
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR
17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19 * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,
20 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 */
27
28 #include "archive_platform.h"
29 __FBSDID("$FreeBSD: head/lib/libarchive/archive_read_support_format_iso9660.c 201246 2009-12-30 05:30:35Z kientzle $");
30
31 #ifdef HAVE_ERRNO_H
32 #include <errno.h>
33 #endif
34 /* #include <stdint.h> */ /* See archive_platform.h */
35 #include <stdio.h>
36 #ifdef HAVE_STDLIB_H
37 #include <stdlib.h>
38 #endif
39 #ifdef HAVE_STRING_H
40 #include <string.h>
41 #endif
42 #include <time.h>
43 #ifdef HAVE_ZLIB_H
44 #include <zlib.h>
45 #endif
46
47 #include "archive.h"
48 #include "archive_endian.h"
49 #include "archive_entry.h"
50 #include "archive_entry_locale.h"
51 #include "archive_private.h"
52 #include "archive_read_private.h"
53 #include "archive_string.h"
54
55 /*
56 * An overview of ISO 9660 format:
57 *
58 * Each disk is laid out as follows:
59 * * 32k reserved for private use
60 * * Volume descriptor table. Each volume descriptor
61 * is 2k and specifies basic format information.
62 * The "Primary Volume Descriptor" (PVD) is defined by the
63 * standard and should always be present; other volume
64 * descriptors include various vendor-specific extensions.
65 * * Files and directories. Each file/dir is specified by
66 * an "extent" (starting sector and length in bytes).
67 * Dirs are just files with directory records packed one
68 * after another. The PVD contains a single dir entry
69 * specifying the location of the root directory. Everything
70 * else follows from there.
71 *
72 * This module works by first reading the volume descriptors, then
73 * building a list of directory entries, sorted by starting
74 * sector. At each step, I look for the earliest dir entry that
75 * hasn't yet been read, seek forward to that location and read
76 * that entry. If it's a dir, I slurp in the new dir entries and
77 * add them to the heap; if it's a regular file, I return the
78 * corresponding archive_entry and wait for the client to request
79 * the file body. This strategy allows us to read most compliant
80 * CDs with a single pass through the data, as required by libarchive.
81 */
82 #define LOGICAL_BLOCK_SIZE 2048
83 #define SYSTEM_AREA_BLOCK 16
84
85 /* Structure of on-disk primary volume descriptor. */
86 #define PVD_type_offset 0
87 #define PVD_type_size 1
88 #define PVD_id_offset (PVD_type_offset + PVD_type_size)
89 #define PVD_id_size 5
90 #define PVD_version_offset (PVD_id_offset + PVD_id_size)
91 #define PVD_version_size 1
92 #define PVD_reserved1_offset (PVD_version_offset + PVD_version_size)
93 #define PVD_reserved1_size 1
94 #define PVD_system_id_offset (PVD_reserved1_offset + PVD_reserved1_size)
95 #define PVD_system_id_size 32
96 #define PVD_volume_id_offset (PVD_system_id_offset + PVD_system_id_size)
97 #define PVD_volume_id_size 32
98 #define PVD_reserved2_offset (PVD_volume_id_offset + PVD_volume_id_size)
99 #define PVD_reserved2_size 8
100 #define PVD_volume_space_size_offset (PVD_reserved2_offset + PVD_reserved2_size)
101 #define PVD_volume_space_size_size 8
102 #define PVD_reserved3_offset (PVD_volume_space_size_offset + PVD_volume_space_size_size)
103 #define PVD_reserved3_size 32
104 #define PVD_volume_set_size_offset (PVD_reserved3_offset + PVD_reserved3_size)
105 #define PVD_volume_set_size_size 4
106 #define PVD_volume_sequence_number_offset (PVD_volume_set_size_offset + PVD_volume_set_size_size)
107 #define PVD_volume_sequence_number_size 4
108 #define PVD_logical_block_size_offset (PVD_volume_sequence_number_offset + PVD_volume_sequence_number_size)
109 #define PVD_logical_block_size_size 4
110 #define PVD_path_table_size_offset (PVD_logical_block_size_offset + PVD_logical_block_size_size)
111 #define PVD_path_table_size_size 8
112 #define PVD_type_1_path_table_offset (PVD_path_table_size_offset + PVD_path_table_size_size)
113 #define PVD_type_1_path_table_size 4
114 #define PVD_opt_type_1_path_table_offset (PVD_type_1_path_table_offset + PVD_type_1_path_table_size)
115 #define PVD_opt_type_1_path_table_size 4
116 #define PVD_type_m_path_table_offset (PVD_opt_type_1_path_table_offset + PVD_opt_type_1_path_table_size)
117 #define PVD_type_m_path_table_size 4
118 #define PVD_opt_type_m_path_table_offset (PVD_type_m_path_table_offset + PVD_type_m_path_table_size)
119 #define PVD_opt_type_m_path_table_size 4
120 #define PVD_root_directory_record_offset (PVD_opt_type_m_path_table_offset + PVD_opt_type_m_path_table_size)
121 #define PVD_root_directory_record_size 34
122 #define PVD_volume_set_id_offset (PVD_root_directory_record_offset + PVD_root_directory_record_size)
123 #define PVD_volume_set_id_size 128
124 #define PVD_publisher_id_offset (PVD_volume_set_id_offset + PVD_volume_set_id_size)
125 #define PVD_publisher_id_size 128
126 #define PVD_preparer_id_offset (PVD_publisher_id_offset + PVD_publisher_id_size)
127 #define PVD_preparer_id_size 128
128 #define PVD_application_id_offset (PVD_preparer_id_offset + PVD_preparer_id_size)
129 #define PVD_application_id_size 128
130 #define PVD_copyright_file_id_offset (PVD_application_id_offset + PVD_application_id_size)
131 #define PVD_copyright_file_id_size 37
132 #define PVD_abstract_file_id_offset (PVD_copyright_file_id_offset + PVD_copyright_file_id_size)
133 #define PVD_abstract_file_id_size 37
134 #define PVD_bibliographic_file_id_offset (PVD_abstract_file_id_offset + PVD_abstract_file_id_size)
135 #define PVD_bibliographic_file_id_size 37
136 #define PVD_creation_date_offset (PVD_bibliographic_file_id_offset + PVD_bibliographic_file_id_size)
137 #define PVD_creation_date_size 17
138 #define PVD_modification_date_offset (PVD_creation_date_offset + PVD_creation_date_size)
139 #define PVD_modification_date_size 17
140 #define PVD_expiration_date_offset (PVD_modification_date_offset + PVD_modification_date_size)
141 #define PVD_expiration_date_size 17
142 #define PVD_effective_date_offset (PVD_expiration_date_offset + PVD_expiration_date_size)
143 #define PVD_effective_date_size 17
144 #define PVD_file_structure_version_offset (PVD_effective_date_offset + PVD_effective_date_size)
145 #define PVD_file_structure_version_size 1
146 #define PVD_reserved4_offset (PVD_file_structure_version_offset + PVD_file_structure_version_size)
147 #define PVD_reserved4_size 1
148 #define PVD_application_data_offset (PVD_reserved4_offset + PVD_reserved4_size)
149 #define PVD_application_data_size 512
150 #define PVD_reserved5_offset (PVD_application_data_offset + PVD_application_data_size)
151 #define PVD_reserved5_size (2048 - PVD_reserved5_offset)
152
153 /* TODO: It would make future maintenance easier to just hardcode the
154 * above values. In particular, ECMA119 states the offsets as part of
155 * the standard. That would eliminate the need for the following check.*/
156 #if PVD_reserved5_offset != 1395
157 #error PVD offset and size definitions are wrong.
158 #endif
159
160
161 /* Structure of optional on-disk supplementary volume descriptor. */
162 #define SVD_type_offset 0
163 #define SVD_type_size 1
164 #define SVD_id_offset (SVD_type_offset + SVD_type_size)
165 #define SVD_id_size 5
166 #define SVD_version_offset (SVD_id_offset + SVD_id_size)
167 #define SVD_version_size 1
168 /* ... */
169 #define SVD_reserved1_offset 72
170 #define SVD_reserved1_size 8
171 #define SVD_volume_space_size_offset 80
172 #define SVD_volume_space_size_size 8
173 #define SVD_escape_sequences_offset (SVD_volume_space_size_offset + SVD_volume_space_size_size)
174 #define SVD_escape_sequences_size 32
175 /* ... */
176 #define SVD_logical_block_size_offset 128
177 #define SVD_logical_block_size_size 4
178 #define SVD_type_L_path_table_offset 140
179 #define SVD_type_M_path_table_offset 148
180 /* ... */
181 #define SVD_root_directory_record_offset 156
182 #define SVD_root_directory_record_size 34
183 #define SVD_file_structure_version_offset 881
184 #define SVD_reserved2_offset 882
185 #define SVD_reserved2_size 1
186 #define SVD_reserved3_offset 1395
187 #define SVD_reserved3_size 653
188 /* ... */
189 /* FIXME: validate correctness of last SVD entry offset. */
190
191 /* Structure of an on-disk directory record. */
192 /* Note: ISO9660 stores each multi-byte integer twice, once in
193 * each byte order. The sizes here are the size of just one
194 * of the two integers. (This is why the offset of a field isn't
195 * the same as the offset+size of the previous field.) */
196 #define DR_length_offset 0
197 #define DR_length_size 1
198 #define DR_ext_attr_length_offset 1
199 #define DR_ext_attr_length_size 1
200 #define DR_extent_offset 2
201 #define DR_extent_size 4
202 #define DR_size_offset 10
203 #define DR_size_size 4
204 #define DR_date_offset 18
205 #define DR_date_size 7
206 #define DR_flags_offset 25
207 #define DR_flags_size 1
208 #define DR_file_unit_size_offset 26
209 #define DR_file_unit_size_size 1
210 #define DR_interleave_offset 27
211 #define DR_interleave_size 1
212 #define DR_volume_sequence_number_offset 28
213 #define DR_volume_sequence_number_size 2
214 #define DR_name_len_offset 32
215 #define DR_name_len_size 1
216 #define DR_name_offset 33
217
218 #ifdef HAVE_ZLIB_H
219 static const unsigned char zisofs_magic[8] = {
220 0x37, 0xE4, 0x53, 0x96, 0xC9, 0xDB, 0xD6, 0x07
221 };
222
223 struct zisofs {
224 /* Set 1 if this file compressed by paged zlib */
225 int pz;
226 int pz_log2_bs; /* Log2 of block size */
227 uint64_t pz_uncompressed_size;
228
229 int initialized;
230 unsigned char *uncompressed_buffer;
231 size_t uncompressed_buffer_size;
232
233 uint32_t pz_offset;
234 unsigned char header[16];
235 size_t header_avail;
236 int header_passed;
237 unsigned char *block_pointers;
238 size_t block_pointers_alloc;
239 size_t block_pointers_size;
240 size_t block_pointers_avail;
241 size_t block_off;
242 uint32_t block_avail;
243
244 z_stream stream;
245 int stream_valid;
246 };
247 #else
248 struct zisofs {
249 /* Set 1 if this file compressed by paged zlib */
250 int pz;
251 };
252 #endif
253
254 struct content {
255 uint64_t offset;/* Offset on disk. */
256 uint64_t size; /* File size in bytes. */
257 struct content *next;
258 };
259
260 /* In-memory storage for a directory record. */
261 struct file_info {
262 struct file_info *use_next;
263 struct file_info *parent;
264 struct file_info *next;
265 struct file_info *re_next;
266 int subdirs;
267 uint64_t key; /* Heap Key. */
268 uint64_t offset; /* Offset on disk. */
269 uint64_t size; /* File size in bytes. */
270 uint32_t ce_offset; /* Offset of CE. */
271 uint32_t ce_size; /* Size of CE. */
272 char rr_moved; /* Flag to rr_moved. */
273 char rr_moved_has_re_only;
274 char re; /* Having RRIP "RE" extension. */
275 char re_descendant;
276 uint64_t cl_offset; /* Having RRIP "CL" extension. */
277 int birthtime_is_set;
278 time_t birthtime; /* File created time. */
279 time_t mtime; /* File last modified time. */
280 time_t atime; /* File last accessed time. */
281 time_t ctime; /* File attribute change time. */
282 uint64_t rdev; /* Device number. */
283 mode_t mode;
284 uid_t uid;
285 gid_t gid;
286 int64_t number;
287 int nlinks;
288 struct archive_string name; /* Pathname */
289 unsigned char *utf16be_name;
290 size_t utf16be_bytes;
291 char name_continues; /* Non-zero if name continues */
292 struct archive_string symlink;
293 char symlink_continues; /* Non-zero if link continues */
294 /* Set 1 if this file compressed by paged zlib(zisofs) */
295 int pz;
296 int pz_log2_bs; /* Log2 of block size */
297 uint64_t pz_uncompressed_size;
298 /* Set 1 if this file is multi extent. */
299 int multi_extent;
300 struct {
301 struct content *first;
302 struct content **last;
303 } contents;
304 struct {
305 struct file_info *first;
306 struct file_info **last;
307 } rede_files;
308 };
309
310 struct heap_queue {
311 struct file_info **files;
312 int allocated;
313 int used;
314 };
315
316 struct iso9660 {
317 int magic;
318 #define ISO9660_MAGIC 0x96609660
319
320 int opt_support_joliet;
321 int opt_support_rockridge;
322
323 struct archive_string pathname;
324 char seenRockridge; /* Set true if RR extensions are used. */
325 char seenSUSP; /* Set true if SUSP is being used. */
326 char seenJoliet;
327
328 unsigned char suspOffset;
329 struct file_info *rr_moved;
330 struct read_ce_queue {
331 struct read_ce_req {
332 uint64_t offset;/* Offset of CE on disk. */
333 struct file_info *file;
334 } *reqs;
335 int cnt;
336 int allocated;
337 } read_ce_req;
338
339 int64_t previous_number;
340 struct archive_string previous_pathname;
341
342 struct file_info *use_files;
343 struct heap_queue pending_files;
344 struct {
345 struct file_info *first;
346 struct file_info **last;
347 } cache_files;
348 struct {
349 struct file_info *first;
350 struct file_info **last;
351 } re_files;
352
353 uint64_t current_position;
354 ssize_t logical_block_size;
355 uint64_t volume_size; /* Total size of volume in bytes. */
356 int32_t volume_block;/* Total size of volume in logical blocks. */
357
358 struct vd {
359 int location; /* Location of Extent. */
360 uint32_t size;
361 } primary, joliet;
362
363 int64_t entry_sparse_offset;
364 int64_t entry_bytes_remaining;
365 size_t entry_bytes_unconsumed;
366 struct zisofs entry_zisofs;
367 struct content *entry_content;
368 struct archive_string_conv *sconv_utf16be;
369 /*
370 * Buffers for a full pathname in UTF-16BE in Joliet extensions.
371 */
372 #define UTF16_NAME_MAX 1024
373 unsigned char *utf16be_path;
374 size_t utf16be_path_len;
375 unsigned char *utf16be_previous_path;
376 size_t utf16be_previous_path_len;
377 /* Null buffer used in bidder to improve its performance. */
378 unsigned char null[2048];
379 };
380
381 static int archive_read_format_iso9660_bid(struct archive_read *, int);
382 static int archive_read_format_iso9660_options(struct archive_read *,
383 const char *, const char *);
384 static int archive_read_format_iso9660_cleanup(struct archive_read *);
385 static int archive_read_format_iso9660_read_data(struct archive_read *,
386 const void **, size_t *, int64_t *);
387 static int archive_read_format_iso9660_read_data_skip(struct archive_read *);
388 static int archive_read_format_iso9660_read_header(struct archive_read *,
389 struct archive_entry *);
390 static const char *build_pathname(struct archive_string *, struct file_info *, int);
391 static int build_pathname_utf16be(unsigned char *, size_t, size_t *,
392 struct file_info *);
393 #if DEBUG
394 static void dump_isodirrec(FILE *, const unsigned char *isodirrec);
395 #endif
396 static time_t time_from_tm(struct tm *);
397 static time_t isodate17(const unsigned char *);
398 static time_t isodate7(const unsigned char *);
399 static int isBootRecord(struct iso9660 *, const unsigned char *);
400 static int isVolumePartition(struct iso9660 *, const unsigned char *);
401 static int isVDSetTerminator(struct iso9660 *, const unsigned char *);
402 static int isJolietSVD(struct iso9660 *, const unsigned char *);
403 static int isSVD(struct iso9660 *, const unsigned char *);
404 static int isEVD(struct iso9660 *, const unsigned char *);
405 static int isPVD(struct iso9660 *, const unsigned char *);
406 static int next_cache_entry(struct archive_read *, struct iso9660 *,
407 struct file_info **);
408 static int next_entry_seek(struct archive_read *, struct iso9660 *,
409 struct file_info **);
410 static struct file_info *
411 parse_file_info(struct archive_read *a,
412 struct file_info *parent, const unsigned char *isodirrec,
413 size_t reclen);
414 static int parse_rockridge(struct archive_read *a,
415 struct file_info *file, const unsigned char *start,
416 const unsigned char *end);
417 static int register_CE(struct archive_read *a, int32_t location,
418 struct file_info *file);
419 static int read_CE(struct archive_read *a, struct iso9660 *iso9660);
420 static void parse_rockridge_NM1(struct file_info *,
421 const unsigned char *, int);
422 static void parse_rockridge_SL1(struct file_info *,
423 const unsigned char *, int);
424 static void parse_rockridge_TF1(struct file_info *,
425 const unsigned char *, int);
426 static void parse_rockridge_ZF1(struct file_info *,
427 const unsigned char *, int);
428 static void register_file(struct iso9660 *, struct file_info *);
429 static void release_files(struct iso9660 *);
430 static unsigned toi(const void *p, int n);
431 static inline void re_add_entry(struct iso9660 *, struct file_info *);
432 static inline struct file_info * re_get_entry(struct iso9660 *);
433 static inline int rede_add_entry(struct file_info *);
434 static inline struct file_info * rede_get_entry(struct file_info *);
435 static inline void cache_add_entry(struct iso9660 *iso9660,
436 struct file_info *file);
437 static inline struct file_info *cache_get_entry(struct iso9660 *iso9660);
438 static int heap_add_entry(struct archive_read *a, struct heap_queue *heap,
439 struct file_info *file, uint64_t key);
440 static struct file_info *heap_get_entry(struct heap_queue *heap);
441
442 #define add_entry(arch, iso9660, file) \
443 heap_add_entry(arch, &((iso9660)->pending_files), file, file->offset)
444 #define next_entry(iso9660) \
445 heap_get_entry(&((iso9660)->pending_files))
446
447 int
archive_read_support_format_iso9660(struct archive * _a)448 archive_read_support_format_iso9660(struct archive *_a)
449 {
450 struct archive_read *a = (struct archive_read *)_a;
451 struct iso9660 *iso9660;
452 int r;
453
454 archive_check_magic(_a, ARCHIVE_READ_MAGIC,
455 ARCHIVE_STATE_NEW, "archive_read_support_format_iso9660");
456
457 iso9660 = (struct iso9660 *)calloc(1, sizeof(*iso9660));
458 if (iso9660 == NULL) {
459 archive_set_error(&a->archive, ENOMEM,
460 "Can't allocate iso9660 data");
461 return (ARCHIVE_FATAL);
462 }
463 iso9660->magic = ISO9660_MAGIC;
464 iso9660->cache_files.first = NULL;
465 iso9660->cache_files.last = &(iso9660->cache_files.first);
466 iso9660->re_files.first = NULL;
467 iso9660->re_files.last = &(iso9660->re_files.first);
468 /* Enable to support Joliet extensions by default. */
469 iso9660->opt_support_joliet = 1;
470 /* Enable to support Rock Ridge extensions by default. */
471 iso9660->opt_support_rockridge = 1;
472
473 r = __archive_read_register_format(a,
474 iso9660,
475 "iso9660",
476 archive_read_format_iso9660_bid,
477 archive_read_format_iso9660_options,
478 archive_read_format_iso9660_read_header,
479 archive_read_format_iso9660_read_data,
480 archive_read_format_iso9660_read_data_skip,
481 NULL,
482 archive_read_format_iso9660_cleanup,
483 NULL,
484 NULL);
485
486 if (r != ARCHIVE_OK) {
487 free(iso9660);
488 return (r);
489 }
490 return (ARCHIVE_OK);
491 }
492
493
494 static int
archive_read_format_iso9660_bid(struct archive_read * a,int best_bid)495 archive_read_format_iso9660_bid(struct archive_read *a, int best_bid)
496 {
497 struct iso9660 *iso9660;
498 ssize_t bytes_read;
499 const unsigned char *p;
500 int seenTerminator;
501
502 /* If there's already a better bid than we can ever
503 make, don't bother testing. */
504 if (best_bid > 48)
505 return (-1);
506
507 iso9660 = (struct iso9660 *)(a->format->data);
508
509 /*
510 * Skip the first 32k (reserved area) and get the first
511 * 8 sectors of the volume descriptor table. Of course,
512 * if the I/O layer gives us more, we'll take it.
513 */
514 #define RESERVED_AREA (SYSTEM_AREA_BLOCK * LOGICAL_BLOCK_SIZE)
515 p = __archive_read_ahead(a,
516 RESERVED_AREA + 8 * LOGICAL_BLOCK_SIZE,
517 &bytes_read);
518 if (p == NULL)
519 return (-1);
520
521 /* Skip the reserved area. */
522 bytes_read -= RESERVED_AREA;
523 p += RESERVED_AREA;
524
525 /* Check each volume descriptor. */
526 seenTerminator = 0;
527 for (; bytes_read > LOGICAL_BLOCK_SIZE;
528 bytes_read -= LOGICAL_BLOCK_SIZE, p += LOGICAL_BLOCK_SIZE) {
529 /* Do not handle undefined Volume Descriptor Type. */
530 if (p[0] >= 4 && p[0] <= 254)
531 return (0);
532 /* Standard Identifier must be "CD001" */
533 if (memcmp(p + 1, "CD001", 5) != 0)
534 return (0);
535 if (isPVD(iso9660, p))
536 continue;
537 if (!iso9660->joliet.location) {
538 if (isJolietSVD(iso9660, p))
539 continue;
540 }
541 if (isBootRecord(iso9660, p))
542 continue;
543 if (isEVD(iso9660, p))
544 continue;
545 if (isSVD(iso9660, p))
546 continue;
547 if (isVolumePartition(iso9660, p))
548 continue;
549 if (isVDSetTerminator(iso9660, p)) {
550 seenTerminator = 1;
551 break;
552 }
553 return (0);
554 }
555 /*
556 * ISO 9660 format must have Primary Volume Descriptor and
557 * Volume Descriptor Set Terminator.
558 */
559 if (seenTerminator && iso9660->primary.location > 16)
560 return (48);
561
562 /* We didn't find a valid PVD; return a bid of zero. */
563 return (0);
564 }
565
566 static int
archive_read_format_iso9660_options(struct archive_read * a,const char * key,const char * val)567 archive_read_format_iso9660_options(struct archive_read *a,
568 const char *key, const char *val)
569 {
570 struct iso9660 *iso9660;
571
572 iso9660 = (struct iso9660 *)(a->format->data);
573
574 if (strcmp(key, "joliet") == 0) {
575 if (val == NULL || strcmp(val, "off") == 0 ||
576 strcmp(val, "ignore") == 0 ||
577 strcmp(val, "disable") == 0 ||
578 strcmp(val, "0") == 0)
579 iso9660->opt_support_joliet = 0;
580 else
581 iso9660->opt_support_joliet = 1;
582 return (ARCHIVE_OK);
583 }
584 if (strcmp(key, "rockridge") == 0 ||
585 strcmp(key, "Rockridge") == 0) {
586 iso9660->opt_support_rockridge = val != NULL;
587 return (ARCHIVE_OK);
588 }
589
590 /* Note: The "warn" return is just to inform the options
591 * supervisor that we didn't handle it. It will generate
592 * a suitable error if no one used this option. */
593 return (ARCHIVE_WARN);
594 }
595
596 static int
isNull(struct iso9660 * iso9660,const unsigned char * h,unsigned offset,unsigned bytes)597 isNull(struct iso9660 *iso9660, const unsigned char *h, unsigned offset,
598 unsigned bytes)
599 {
600
601 while (bytes >= sizeof(iso9660->null)) {
602 if (!memcmp(iso9660->null, h + offset, sizeof(iso9660->null)))
603 return (0);
604 offset += sizeof(iso9660->null);
605 bytes -= sizeof(iso9660->null);
606 }
607 if (bytes)
608 return memcmp(iso9660->null, h + offset, bytes) == 0;
609 else
610 return (1);
611 }
612
613 static int
isBootRecord(struct iso9660 * iso9660,const unsigned char * h)614 isBootRecord(struct iso9660 *iso9660, const unsigned char *h)
615 {
616 (void)iso9660; /* UNUSED */
617
618 /* Type of the Volume Descriptor Boot Record must be 0. */
619 if (h[0] != 0)
620 return (0);
621
622 /* Volume Descriptor Version must be 1. */
623 if (h[6] != 1)
624 return (0);
625
626 return (1);
627 }
628
629 static int
isVolumePartition(struct iso9660 * iso9660,const unsigned char * h)630 isVolumePartition(struct iso9660 *iso9660, const unsigned char *h)
631 {
632 int32_t location;
633
634 /* Type of the Volume Partition Descriptor must be 3. */
635 if (h[0] != 3)
636 return (0);
637
638 /* Volume Descriptor Version must be 1. */
639 if (h[6] != 1)
640 return (0);
641 /* Unused Field */
642 if (h[7] != 0)
643 return (0);
644
645 location = archive_le32dec(h + 72);
646 if (location <= SYSTEM_AREA_BLOCK ||
647 location >= iso9660->volume_block)
648 return (0);
649 if ((uint32_t)location != archive_be32dec(h + 76))
650 return (0);
651
652 return (1);
653 }
654
655 static int
isVDSetTerminator(struct iso9660 * iso9660,const unsigned char * h)656 isVDSetTerminator(struct iso9660 *iso9660, const unsigned char *h)
657 {
658 (void)iso9660; /* UNUSED */
659
660 /* Type of the Volume Descriptor Set Terminator must be 255. */
661 if (h[0] != 255)
662 return (0);
663
664 /* Volume Descriptor Version must be 1. */
665 if (h[6] != 1)
666 return (0);
667
668 /* Reserved field must be 0. */
669 if (!isNull(iso9660, h, 7, 2048-7))
670 return (0);
671
672 return (1);
673 }
674
675 static int
isJolietSVD(struct iso9660 * iso9660,const unsigned char * h)676 isJolietSVD(struct iso9660 *iso9660, const unsigned char *h)
677 {
678 const unsigned char *p;
679 ssize_t logical_block_size;
680 int32_t volume_block;
681
682 /* Check if current sector is a kind of Supplementary Volume
683 * Descriptor. */
684 if (!isSVD(iso9660, h))
685 return (0);
686
687 /* FIXME: do more validations according to joliet spec. */
688
689 /* check if this SVD contains joliet extension! */
690 p = h + SVD_escape_sequences_offset;
691 /* N.B. Joliet spec says p[1] == '\\', but.... */
692 if (p[0] == '%' && p[1] == '/') {
693 int level = 0;
694
695 if (p[2] == '@')
696 level = 1;
697 else if (p[2] == 'C')
698 level = 2;
699 else if (p[2] == 'E')
700 level = 3;
701 else /* not joliet */
702 return (0);
703
704 iso9660->seenJoliet = level;
705
706 } else /* not joliet */
707 return (0);
708
709 logical_block_size =
710 archive_le16dec(h + SVD_logical_block_size_offset);
711 volume_block = archive_le32dec(h + SVD_volume_space_size_offset);
712
713 iso9660->logical_block_size = logical_block_size;
714 iso9660->volume_block = volume_block;
715 iso9660->volume_size = logical_block_size * (uint64_t)volume_block;
716 /* Read Root Directory Record in Volume Descriptor. */
717 p = h + SVD_root_directory_record_offset;
718 iso9660->joliet.location = archive_le32dec(p + DR_extent_offset);
719 iso9660->joliet.size = archive_le32dec(p + DR_size_offset);
720
721 return (48);
722 }
723
724 static int
isSVD(struct iso9660 * iso9660,const unsigned char * h)725 isSVD(struct iso9660 *iso9660, const unsigned char *h)
726 {
727 const unsigned char *p;
728 ssize_t logical_block_size;
729 int32_t volume_block;
730 int32_t location;
731
732 (void)iso9660; /* UNUSED */
733
734 /* Type 2 means it's a SVD. */
735 if (h[SVD_type_offset] != 2)
736 return (0);
737
738 /* Reserved field must be 0. */
739 if (!isNull(iso9660, h, SVD_reserved1_offset, SVD_reserved1_size))
740 return (0);
741 if (!isNull(iso9660, h, SVD_reserved2_offset, SVD_reserved2_size))
742 return (0);
743 if (!isNull(iso9660, h, SVD_reserved3_offset, SVD_reserved3_size))
744 return (0);
745
746 /* File structure version must be 1 for ISO9660/ECMA119. */
747 if (h[SVD_file_structure_version_offset] != 1)
748 return (0);
749
750 logical_block_size =
751 archive_le16dec(h + SVD_logical_block_size_offset);
752 if (logical_block_size <= 0)
753 return (0);
754
755 volume_block = archive_le32dec(h + SVD_volume_space_size_offset);
756 if (volume_block <= SYSTEM_AREA_BLOCK+4)
757 return (0);
758
759 /* Location of Occurrence of Type L Path Table must be
760 * available location,
761 * >= SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
762 location = archive_le32dec(h+SVD_type_L_path_table_offset);
763 if (location < SYSTEM_AREA_BLOCK+2 || location >= volume_block)
764 return (0);
765
766 /* The Type M Path Table must be at a valid location (WinISO
767 * and probably other programs omit this, so we allow zero)
768 *
769 * >= SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
770 location = archive_be32dec(h+SVD_type_M_path_table_offset);
771 if ((location > 0 && location < SYSTEM_AREA_BLOCK+2)
772 || location >= volume_block)
773 return (0);
774
775 /* Read Root Directory Record in Volume Descriptor. */
776 p = h + SVD_root_directory_record_offset;
777 if (p[DR_length_offset] != 34)
778 return (0);
779
780 return (48);
781 }
782
783 static int
isEVD(struct iso9660 * iso9660,const unsigned char * h)784 isEVD(struct iso9660 *iso9660, const unsigned char *h)
785 {
786 const unsigned char *p;
787 ssize_t logical_block_size;
788 int32_t volume_block;
789 int32_t location;
790
791 (void)iso9660; /* UNUSED */
792
793 /* Type of the Enhanced Volume Descriptor must be 2. */
794 if (h[PVD_type_offset] != 2)
795 return (0);
796
797 /* EVD version must be 2. */
798 if (h[PVD_version_offset] != 2)
799 return (0);
800
801 /* Reserved field must be 0. */
802 if (h[PVD_reserved1_offset] != 0)
803 return (0);
804
805 /* Reserved field must be 0. */
806 if (!isNull(iso9660, h, PVD_reserved2_offset, PVD_reserved2_size))
807 return (0);
808
809 /* Reserved field must be 0. */
810 if (!isNull(iso9660, h, PVD_reserved3_offset, PVD_reserved3_size))
811 return (0);
812
813 /* Logical block size must be > 0. */
814 /* I've looked at Ecma 119 and can't find any stronger
815 * restriction on this field. */
816 logical_block_size =
817 archive_le16dec(h + PVD_logical_block_size_offset);
818 if (logical_block_size <= 0)
819 return (0);
820
821 volume_block =
822 archive_le32dec(h + PVD_volume_space_size_offset);
823 if (volume_block <= SYSTEM_AREA_BLOCK+4)
824 return (0);
825
826 /* File structure version must be 2 for ISO9660:1999. */
827 if (h[PVD_file_structure_version_offset] != 2)
828 return (0);
829
830 /* Location of Occurrence of Type L Path Table must be
831 * available location,
832 * >= SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
833 location = archive_le32dec(h+PVD_type_1_path_table_offset);
834 if (location < SYSTEM_AREA_BLOCK+2 || location >= volume_block)
835 return (0);
836
837 /* Location of Occurrence of Type M Path Table must be
838 * available location,
839 * >= SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
840 location = archive_be32dec(h+PVD_type_m_path_table_offset);
841 if ((location > 0 && location < SYSTEM_AREA_BLOCK+2)
842 || location >= volume_block)
843 return (0);
844
845 /* Reserved field must be 0. */
846 if (!isNull(iso9660, h, PVD_reserved4_offset, PVD_reserved4_size))
847 return (0);
848
849 /* Reserved field must be 0. */
850 if (!isNull(iso9660, h, PVD_reserved5_offset, PVD_reserved5_size))
851 return (0);
852
853 /* Read Root Directory Record in Volume Descriptor. */
854 p = h + PVD_root_directory_record_offset;
855 if (p[DR_length_offset] != 34)
856 return (0);
857
858 return (48);
859 }
860
861 static int
isPVD(struct iso9660 * iso9660,const unsigned char * h)862 isPVD(struct iso9660 *iso9660, const unsigned char *h)
863 {
864 const unsigned char *p;
865 ssize_t logical_block_size;
866 int32_t volume_block;
867 int32_t location;
868 int i;
869
870 /* Type of the Primary Volume Descriptor must be 1. */
871 if (h[PVD_type_offset] != 1)
872 return (0);
873
874 /* PVD version must be 1. */
875 if (h[PVD_version_offset] != 1)
876 return (0);
877
878 /* Reserved field must be 0. */
879 if (h[PVD_reserved1_offset] != 0)
880 return (0);
881
882 /* Reserved field must be 0. */
883 if (!isNull(iso9660, h, PVD_reserved2_offset, PVD_reserved2_size))
884 return (0);
885
886 /* Reserved field must be 0. */
887 if (!isNull(iso9660, h, PVD_reserved3_offset, PVD_reserved3_size))
888 return (0);
889
890 /* Logical block size must be > 0. */
891 /* I've looked at Ecma 119 and can't find any stronger
892 * restriction on this field. */
893 logical_block_size =
894 archive_le16dec(h + PVD_logical_block_size_offset);
895 if (logical_block_size <= 0)
896 return (0);
897
898 volume_block = archive_le32dec(h + PVD_volume_space_size_offset);
899 if (volume_block <= SYSTEM_AREA_BLOCK+4)
900 return (0);
901
902 /* File structure version must be 1 for ISO9660/ECMA119. */
903 if (h[PVD_file_structure_version_offset] != 1)
904 return (0);
905
906 /* Location of Occurrence of Type L Path Table must be
907 * available location,
908 * > SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
909 location = archive_le32dec(h+PVD_type_1_path_table_offset);
910 if (location < SYSTEM_AREA_BLOCK+2 || location >= volume_block)
911 return (0);
912
913 /* The Type M Path Table must also be at a valid location
914 * (although ECMA 119 requires a Type M Path Table, WinISO and
915 * probably other programs omit it, so we permit a zero here)
916 *
917 * >= SYSTEM_AREA_BLOCK(16) + 2 and < Volume Space Size. */
918 location = archive_be32dec(h+PVD_type_m_path_table_offset);
919 if ((location > 0 && location < SYSTEM_AREA_BLOCK+2)
920 || location >= volume_block)
921 return (0);
922
923 /* Reserved field must be 0. */
924 /* But accept NetBSD/FreeBSD "makefs" images with 0x20 here. */
925 for (i = 0; i < PVD_reserved4_size; ++i)
926 if (h[PVD_reserved4_offset + i] != 0
927 && h[PVD_reserved4_offset + i] != 0x20)
928 return (0);
929
930 /* Reserved field must be 0. */
931 if (!isNull(iso9660, h, PVD_reserved5_offset, PVD_reserved5_size))
932 return (0);
933
934 /* XXX TODO: Check other values for sanity; reject more
935 * malformed PVDs. XXX */
936
937 /* Read Root Directory Record in Volume Descriptor. */
938 p = h + PVD_root_directory_record_offset;
939 if (p[DR_length_offset] != 34)
940 return (0);
941
942 if (!iso9660->primary.location) {
943 iso9660->logical_block_size = logical_block_size;
944 iso9660->volume_block = volume_block;
945 iso9660->volume_size =
946 logical_block_size * (uint64_t)volume_block;
947 iso9660->primary.location =
948 archive_le32dec(p + DR_extent_offset);
949 iso9660->primary.size = archive_le32dec(p + DR_size_offset);
950 }
951
952 return (48);
953 }
954
955 static int
read_children(struct archive_read * a,struct file_info * parent)956 read_children(struct archive_read *a, struct file_info *parent)
957 {
958 struct iso9660 *iso9660;
959 const unsigned char *b, *p;
960 struct file_info *multi;
961 size_t step, skip_size;
962
963 iso9660 = (struct iso9660 *)(a->format->data);
964 /* flush any remaining bytes from the last round to ensure
965 * we're positioned */
966 if (iso9660->entry_bytes_unconsumed) {
967 __archive_read_consume(a, iso9660->entry_bytes_unconsumed);
968 iso9660->entry_bytes_unconsumed = 0;
969 }
970 if (iso9660->current_position > parent->offset) {
971 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
972 "Ignoring out-of-order directory (%s) %jd > %jd",
973 parent->name.s,
974 (intmax_t)iso9660->current_position,
975 (intmax_t)parent->offset);
976 return (ARCHIVE_WARN);
977 }
978 if (parent->offset + parent->size > iso9660->volume_size) {
979 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
980 "Directory is beyond end-of-media: %s",
981 parent->name.s);
982 return (ARCHIVE_WARN);
983 }
984 if (iso9660->current_position < parent->offset) {
985 int64_t skipsize;
986
987 skipsize = parent->offset - iso9660->current_position;
988 skipsize = __archive_read_consume(a, skipsize);
989 if (skipsize < 0)
990 return ((int)skipsize);
991 iso9660->current_position = parent->offset;
992 }
993
994 step = (size_t)(((parent->size + iso9660->logical_block_size -1) /
995 iso9660->logical_block_size) * iso9660->logical_block_size);
996 b = __archive_read_ahead(a, step, NULL);
997 if (b == NULL) {
998 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
999 "Failed to read full block when scanning "
1000 "ISO9660 directory list");
1001 return (ARCHIVE_FATAL);
1002 }
1003 iso9660->current_position += step;
1004 multi = NULL;
1005 skip_size = step;
1006 while (step) {
1007 p = b;
1008 b += iso9660->logical_block_size;
1009 step -= iso9660->logical_block_size;
1010 for (; *p != 0 && p + DR_name_offset < b && p + *p <= b;
1011 p += *p) {
1012 struct file_info *child;
1013
1014 /* N.B.: these special directory identifiers
1015 * are 8 bit "values" even on a
1016 * Joliet CD with UCS-2 (16bit) encoding.
1017 */
1018
1019 /* Skip '.' entry. */
1020 if (*(p + DR_name_len_offset) == 1
1021 && *(p + DR_name_offset) == '\0')
1022 continue;
1023 /* Skip '..' entry. */
1024 if (*(p + DR_name_len_offset) == 1
1025 && *(p + DR_name_offset) == '\001')
1026 continue;
1027 child = parse_file_info(a, parent, p, b - p);
1028 if (child == NULL) {
1029 __archive_read_consume(a, skip_size);
1030 return (ARCHIVE_FATAL);
1031 }
1032 if (child->cl_offset == 0 &&
1033 (child->multi_extent || multi != NULL)) {
1034 struct content *con;
1035
1036 if (multi == NULL) {
1037 multi = child;
1038 multi->contents.first = NULL;
1039 multi->contents.last =
1040 &(multi->contents.first);
1041 }
1042 con = malloc(sizeof(struct content));
1043 if (con == NULL) {
1044 archive_set_error(
1045 &a->archive, ENOMEM,
1046 "No memory for multi extent");
1047 __archive_read_consume(a, skip_size);
1048 return (ARCHIVE_FATAL);
1049 }
1050 con->offset = child->offset;
1051 con->size = child->size;
1052 con->next = NULL;
1053 *multi->contents.last = con;
1054 multi->contents.last = &(con->next);
1055 if (multi == child) {
1056 if (add_entry(a, iso9660, child)
1057 != ARCHIVE_OK)
1058 return (ARCHIVE_FATAL);
1059 } else {
1060 multi->size += child->size;
1061 if (!child->multi_extent)
1062 multi = NULL;
1063 }
1064 } else
1065 if (add_entry(a, iso9660, child) != ARCHIVE_OK)
1066 return (ARCHIVE_FATAL);
1067 }
1068 }
1069
1070 __archive_read_consume(a, skip_size);
1071
1072 /* Read data which recorded by RRIP "CE" extension. */
1073 if (read_CE(a, iso9660) != ARCHIVE_OK)
1074 return (ARCHIVE_FATAL);
1075
1076 return (ARCHIVE_OK);
1077 }
1078
1079 static int
choose_volume(struct archive_read * a,struct iso9660 * iso9660)1080 choose_volume(struct archive_read *a, struct iso9660 *iso9660)
1081 {
1082 struct file_info *file;
1083 int64_t skipsize;
1084 struct vd *vd;
1085 const void *block;
1086 char seenJoliet;
1087
1088 vd = &(iso9660->primary);
1089 if (!iso9660->opt_support_joliet)
1090 iso9660->seenJoliet = 0;
1091 if (iso9660->seenJoliet &&
1092 vd->location > iso9660->joliet.location)
1093 /* This condition is unlikely; by way of caution. */
1094 vd = &(iso9660->joliet);
1095
1096 skipsize = LOGICAL_BLOCK_SIZE * (int64_t)vd->location;
1097 skipsize = __archive_read_consume(a, skipsize);
1098 if (skipsize < 0)
1099 return ((int)skipsize);
1100 iso9660->current_position = skipsize;
1101
1102 block = __archive_read_ahead(a, vd->size, NULL);
1103 if (block == NULL) {
1104 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1105 "Failed to read full block when scanning "
1106 "ISO9660 directory list");
1107 return (ARCHIVE_FATAL);
1108 }
1109
1110 /*
1111 * While reading Root Directory, flag seenJoliet must be zero to
1112 * avoid converting special name 0x00(Current Directory) and
1113 * next byte to UCS2.
1114 */
1115 seenJoliet = iso9660->seenJoliet;/* Save flag. */
1116 iso9660->seenJoliet = 0;
1117 file = parse_file_info(a, NULL, block, vd->size);
1118 if (file == NULL)
1119 return (ARCHIVE_FATAL);
1120 iso9660->seenJoliet = seenJoliet;
1121
1122 /*
1123 * If the iso image has both RockRidge and Joliet, we preferentially
1124 * use RockRidge Extensions rather than Joliet ones.
1125 */
1126 if (vd == &(iso9660->primary) && iso9660->seenRockridge
1127 && iso9660->seenJoliet)
1128 iso9660->seenJoliet = 0;
1129
1130 if (vd == &(iso9660->primary) && !iso9660->seenRockridge
1131 && iso9660->seenJoliet) {
1132 /* Switch reading data from primary to joliet. */
1133 vd = &(iso9660->joliet);
1134 skipsize = LOGICAL_BLOCK_SIZE * (int64_t)vd->location;
1135 skipsize -= iso9660->current_position;
1136 skipsize = __archive_read_consume(a, skipsize);
1137 if (skipsize < 0)
1138 return ((int)skipsize);
1139 iso9660->current_position += skipsize;
1140
1141 block = __archive_read_ahead(a, vd->size, NULL);
1142 if (block == NULL) {
1143 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1144 "Failed to read full block when scanning "
1145 "ISO9660 directory list");
1146 return (ARCHIVE_FATAL);
1147 }
1148 iso9660->seenJoliet = 0;
1149 file = parse_file_info(a, NULL, block, vd->size);
1150 if (file == NULL)
1151 return (ARCHIVE_FATAL);
1152 iso9660->seenJoliet = seenJoliet;
1153 }
1154
1155 /* Store the root directory in the pending list. */
1156 if (add_entry(a, iso9660, file) != ARCHIVE_OK)
1157 return (ARCHIVE_FATAL);
1158 if (iso9660->seenRockridge) {
1159 a->archive.archive_format = ARCHIVE_FORMAT_ISO9660_ROCKRIDGE;
1160 a->archive.archive_format_name =
1161 "ISO9660 with Rockridge extensions";
1162 }
1163
1164 return (ARCHIVE_OK);
1165 }
1166
1167 static int
archive_read_format_iso9660_read_header(struct archive_read * a,struct archive_entry * entry)1168 archive_read_format_iso9660_read_header(struct archive_read *a,
1169 struct archive_entry *entry)
1170 {
1171 struct iso9660 *iso9660;
1172 struct file_info *file;
1173 int r, rd_r = ARCHIVE_OK;
1174
1175 iso9660 = (struct iso9660 *)(a->format->data);
1176
1177 if (!a->archive.archive_format) {
1178 a->archive.archive_format = ARCHIVE_FORMAT_ISO9660;
1179 a->archive.archive_format_name = "ISO9660";
1180 }
1181
1182 if (iso9660->current_position == 0) {
1183 r = choose_volume(a, iso9660);
1184 if (r != ARCHIVE_OK)
1185 return (r);
1186 }
1187
1188 file = NULL;/* Eliminate a warning. */
1189 /* Get the next entry that appears after the current offset. */
1190 r = next_entry_seek(a, iso9660, &file);
1191 if (r != ARCHIVE_OK)
1192 return (r);
1193
1194 if (iso9660->seenJoliet) {
1195 /*
1196 * Convert UTF-16BE of a filename to local locale MBS
1197 * and store the result into a filename field.
1198 */
1199 if (iso9660->sconv_utf16be == NULL) {
1200 iso9660->sconv_utf16be =
1201 archive_string_conversion_from_charset(
1202 &(a->archive), "UTF-16BE", 1);
1203 if (iso9660->sconv_utf16be == NULL)
1204 /* Couldn't allocate memory */
1205 return (ARCHIVE_FATAL);
1206 }
1207 if (iso9660->utf16be_path == NULL) {
1208 iso9660->utf16be_path = malloc(UTF16_NAME_MAX);
1209 if (iso9660->utf16be_path == NULL) {
1210 archive_set_error(&a->archive, ENOMEM,
1211 "No memory");
1212 return (ARCHIVE_FATAL);
1213 }
1214 }
1215 if (iso9660->utf16be_previous_path == NULL) {
1216 iso9660->utf16be_previous_path = malloc(UTF16_NAME_MAX);
1217 if (iso9660->utf16be_previous_path == NULL) {
1218 archive_set_error(&a->archive, ENOMEM,
1219 "No memory");
1220 return (ARCHIVE_FATAL);
1221 }
1222 }
1223
1224 iso9660->utf16be_path_len = 0;
1225 if (build_pathname_utf16be(iso9660->utf16be_path,
1226 UTF16_NAME_MAX, &(iso9660->utf16be_path_len), file) != 0) {
1227 archive_set_error(&a->archive,
1228 ARCHIVE_ERRNO_FILE_FORMAT,
1229 "Pathname is too long");
1230 return (ARCHIVE_FATAL);
1231 }
1232
1233 r = archive_entry_copy_pathname_l(entry,
1234 (const char *)iso9660->utf16be_path,
1235 iso9660->utf16be_path_len,
1236 iso9660->sconv_utf16be);
1237 if (r != 0) {
1238 if (errno == ENOMEM) {
1239 archive_set_error(&a->archive, ENOMEM,
1240 "No memory for Pathname");
1241 return (ARCHIVE_FATAL);
1242 }
1243 archive_set_error(&a->archive,
1244 ARCHIVE_ERRNO_FILE_FORMAT,
1245 "Pathname cannot be converted "
1246 "from %s to current locale.",
1247 archive_string_conversion_charset_name(
1248 iso9660->sconv_utf16be));
1249
1250 rd_r = ARCHIVE_WARN;
1251 }
1252 } else {
1253 const char *path = build_pathname(&iso9660->pathname, file, 0);
1254 if (path == NULL) {
1255 archive_set_error(&a->archive,
1256 ARCHIVE_ERRNO_FILE_FORMAT,
1257 "Pathname is too long");
1258 return (ARCHIVE_FATAL);
1259 } else {
1260 archive_string_empty(&iso9660->pathname);
1261 archive_entry_set_pathname(entry, path);
1262 }
1263 }
1264
1265 iso9660->entry_bytes_remaining = file->size;
1266 /* Offset for sparse-file-aware clients. */
1267 iso9660->entry_sparse_offset = 0;
1268
1269 if (file->offset + file->size > iso9660->volume_size) {
1270 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1271 "File is beyond end-of-media: %s",
1272 archive_entry_pathname(entry));
1273 iso9660->entry_bytes_remaining = 0;
1274 return (ARCHIVE_WARN);
1275 }
1276
1277 /* Set up the entry structure with information about this entry. */
1278 archive_entry_set_mode(entry, file->mode);
1279 archive_entry_set_uid(entry, file->uid);
1280 archive_entry_set_gid(entry, file->gid);
1281 archive_entry_set_nlink(entry, file->nlinks);
1282 if (file->birthtime_is_set)
1283 archive_entry_set_birthtime(entry, file->birthtime, 0);
1284 else
1285 archive_entry_unset_birthtime(entry);
1286 archive_entry_set_mtime(entry, file->mtime, 0);
1287 archive_entry_set_ctime(entry, file->ctime, 0);
1288 archive_entry_set_atime(entry, file->atime, 0);
1289 /* N.B.: Rock Ridge supports 64-bit device numbers. */
1290 archive_entry_set_rdev(entry, (dev_t)file->rdev);
1291 archive_entry_set_size(entry, iso9660->entry_bytes_remaining);
1292 if (file->symlink.s != NULL)
1293 archive_entry_copy_symlink(entry, file->symlink.s);
1294
1295 /* Note: If the input isn't seekable, we can't rewind to
1296 * return the same body again, so if the next entry refers to
1297 * the same data, we have to return it as a hardlink to the
1298 * original entry. */
1299 if (file->number != -1 &&
1300 file->number == iso9660->previous_number) {
1301 if (iso9660->seenJoliet) {
1302 r = archive_entry_copy_hardlink_l(entry,
1303 (const char *)iso9660->utf16be_previous_path,
1304 iso9660->utf16be_previous_path_len,
1305 iso9660->sconv_utf16be);
1306 if (r != 0) {
1307 if (errno == ENOMEM) {
1308 archive_set_error(&a->archive, ENOMEM,
1309 "No memory for Linkname");
1310 return (ARCHIVE_FATAL);
1311 }
1312 archive_set_error(&a->archive,
1313 ARCHIVE_ERRNO_FILE_FORMAT,
1314 "Linkname cannot be converted "
1315 "from %s to current locale.",
1316 archive_string_conversion_charset_name(
1317 iso9660->sconv_utf16be));
1318 rd_r = ARCHIVE_WARN;
1319 }
1320 } else
1321 archive_entry_set_hardlink(entry,
1322 iso9660->previous_pathname.s);
1323 archive_entry_unset_size(entry);
1324 iso9660->entry_bytes_remaining = 0;
1325 return (rd_r);
1326 }
1327
1328 if ((file->mode & AE_IFMT) != AE_IFDIR &&
1329 file->offset < iso9660->current_position) {
1330 int64_t r64;
1331
1332 r64 = __archive_read_seek(a, file->offset, SEEK_SET);
1333 if (r64 != (int64_t)file->offset) {
1334 /* We can't seek backwards to extract it, so issue
1335 * a warning. Note that this can only happen if
1336 * this entry was added to the heap after we passed
1337 * this offset, that is, only if the directory
1338 * mentioning this entry is later than the body of
1339 * the entry. Such layouts are very unusual; most
1340 * ISO9660 writers lay out and record all directory
1341 * information first, then store all file bodies. */
1342 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1343 "Ignoring out-of-order file @%jx (%s) %jd < %jd",
1344 (intmax_t)file->number,
1345 iso9660->pathname.s,
1346 (intmax_t)file->offset,
1347 (intmax_t)iso9660->current_position);
1348 iso9660->entry_bytes_remaining = 0;
1349 return (ARCHIVE_WARN);
1350 }
1351 iso9660->current_position = (uint64_t)r64;
1352 }
1353
1354 /* Initialize zisofs variables. */
1355 iso9660->entry_zisofs.pz = file->pz;
1356 if (file->pz) {
1357 #ifdef HAVE_ZLIB_H
1358 struct zisofs *zisofs;
1359
1360 zisofs = &iso9660->entry_zisofs;
1361 zisofs->initialized = 0;
1362 zisofs->pz_log2_bs = file->pz_log2_bs;
1363 zisofs->pz_uncompressed_size = file->pz_uncompressed_size;
1364 zisofs->pz_offset = 0;
1365 zisofs->header_avail = 0;
1366 zisofs->header_passed = 0;
1367 zisofs->block_pointers_avail = 0;
1368 #endif
1369 archive_entry_set_size(entry, file->pz_uncompressed_size);
1370 }
1371
1372 iso9660->previous_number = file->number;
1373 if (iso9660->seenJoliet) {
1374 memcpy(iso9660->utf16be_previous_path, iso9660->utf16be_path,
1375 iso9660->utf16be_path_len);
1376 iso9660->utf16be_previous_path_len = iso9660->utf16be_path_len;
1377 } else
1378 archive_strcpy(
1379 &iso9660->previous_pathname, iso9660->pathname.s);
1380
1381 /* Reset entry_bytes_remaining if the file is multi extent. */
1382 iso9660->entry_content = file->contents.first;
1383 if (iso9660->entry_content != NULL)
1384 iso9660->entry_bytes_remaining = iso9660->entry_content->size;
1385
1386 if (archive_entry_filetype(entry) == AE_IFDIR) {
1387 /* Overwrite nlinks by proper link number which is
1388 * calculated from number of sub directories. */
1389 archive_entry_set_nlink(entry, 2 + file->subdirs);
1390 /* Directory data has been read completely. */
1391 iso9660->entry_bytes_remaining = 0;
1392 }
1393
1394 if (rd_r != ARCHIVE_OK)
1395 return (rd_r);
1396 return (ARCHIVE_OK);
1397 }
1398
1399 static int
archive_read_format_iso9660_read_data_skip(struct archive_read * a)1400 archive_read_format_iso9660_read_data_skip(struct archive_read *a)
1401 {
1402 /* Because read_next_header always does an explicit skip
1403 * to the next entry, we don't need to do anything here. */
1404 (void)a; /* UNUSED */
1405 return (ARCHIVE_OK);
1406 }
1407
1408 #ifdef HAVE_ZLIB_H
1409
1410 static int
zisofs_read_data(struct archive_read * a,const void ** buff,size_t * size,int64_t * offset)1411 zisofs_read_data(struct archive_read *a,
1412 const void **buff, size_t *size, int64_t *offset)
1413 {
1414 struct iso9660 *iso9660;
1415 struct zisofs *zisofs;
1416 const unsigned char *p;
1417 size_t avail;
1418 ssize_t bytes_read;
1419 size_t uncompressed_size;
1420 int r;
1421
1422 iso9660 = (struct iso9660 *)(a->format->data);
1423 zisofs = &iso9660->entry_zisofs;
1424
1425 p = __archive_read_ahead(a, 1, &bytes_read);
1426 if (bytes_read <= 0) {
1427 archive_set_error(&a->archive, ARCHIVE_ERRNO_FILE_FORMAT,
1428 "Truncated zisofs file body");
1429 return (ARCHIVE_FATAL);
1430 }
1431 if (bytes_read > iso9660->entry_bytes_remaining)
1432 bytes_read = (ssize_t)iso9660->entry_bytes_remaining;
1433 avail = bytes_read;
1434 uncompressed_size = 0;
1435
1436 if (!zisofs->initialized) {
1437 size_t ceil, xsize;
1438
1439 /* Allocate block pointers buffer. */
1440 ceil = (size_t)((zisofs->pz_uncompressed_size +
1441 (((int64_t)1) << zisofs->pz_log2_bs) - 1)
1442 >> zisofs->pz_log2_bs);
1443 xsize = (ceil + 1) * 4;
1444 if (zisofs->block_pointers_alloc < xsize) {
1445 size_t alloc;
1446
1447 if (zisofs->block_pointers != NULL)
1448 free(zisofs->block_pointers);
1449 alloc = ((xsize >> 10) + 1) << 10;
1450 zisofs->block_pointers = malloc(alloc);
1451 if (zisofs->block_pointers == NULL) {
1452 archive_set_error(&a->archive, ENOMEM,
1453 "No memory for zisofs decompression");
1454 return (ARCHIVE_FATAL);
1455 }
1456 zisofs->block_pointers_alloc = alloc;
1457 }
1458 zisofs->block_pointers_size = xsize;
1459
1460 /* Allocate uncompressed data buffer. */
1461 xsize = (size_t)1UL << zisofs->pz_log2_bs;
1462 if (zisofs->uncompressed_buffer_size < xsize) {
1463 if (zisofs->uncompressed_buffer != NULL)
1464 free(zisofs->uncompressed_buffer);
1465 zisofs->uncompressed_buffer = malloc(xsize);
1466 if (zisofs->uncompressed_buffer == NULL) {
1467 archive_set_error(&a->archive, ENOMEM,
1468 "No memory for zisofs decompression");
1469 return (ARCHIVE_FATAL);
1470 }
1471 }
1472 zisofs->uncompressed_buffer_size = xsize;
1473
1474 /*
1475 * Read the file header, and check the magic code of zisofs.
1476 */
1477 if (zisofs->header_avail < sizeof(zisofs->header)) {
1478 xsize = sizeof(zisofs->header) - zisofs->header_avail;
1479 if (avail < xsize)
1480 xsize = avail;
1481 memcpy(zisofs->header + zisofs->header_avail, p, xsize);
1482 zisofs->header_avail += xsize;
1483 avail -= xsize;
1484 p += xsize;
1485 }
1486 if (!zisofs->header_passed &&
1487 zisofs->header_avail == sizeof(zisofs->header)) {
1488 int err = 0;
1489
1490 if (memcmp(zisofs->header, zisofs_magic,
1491 sizeof(zisofs_magic)) != 0)
1492 err = 1;
1493 if (archive_le32dec(zisofs->header + 8)
1494 != zisofs->pz_uncompressed_size)
1495 err = 1;
1496 if (zisofs->header[12] != 4)
1497 err = 1;
1498 if (zisofs->header[13] != zisofs->pz_log2_bs)
1499 err = 1;
1500 if (err) {
1501 archive_set_error(&a->archive,
1502 ARCHIVE_ERRNO_FILE_FORMAT,
1503 "Illegal zisofs file body");
1504 return (ARCHIVE_FATAL);
1505 }
1506 zisofs->header_passed = 1;
1507 }
1508 /*
1509 * Read block pointers.
1510 */
1511 if (zisofs->header_passed &&
1512 zisofs->block_pointers_avail < zisofs->block_pointers_size) {
1513 xsize = zisofs->block_pointers_size
1514 - zisofs->block_pointers_avail;
1515 if (avail < xsize)
1516 xsize = avail;
1517 memcpy(zisofs->block_pointers
1518 + zisofs->block_pointers_avail, p, xsize);
1519 zisofs->block_pointers_avail += xsize;
1520 avail -= xsize;
1521 p += xsize;
1522 if (zisofs->block_pointers_avail
1523 == zisofs->block_pointers_size) {
1524 /* We've got all block pointers and initialize
1525 * related variables. */
1526 zisofs->block_off = 0;
1527 zisofs->block_avail = 0;
1528 /* Complete a initialization */
1529 zisofs->initialized = 1;
1530 }
1531 }
1532
1533 if (!zisofs->initialized)
1534 goto next_data; /* We need more data. */
1535 }
1536
1537 /*
1538 * Get block offsets from block pointers.
1539 */
1540 if (zisofs->block_avail == 0) {
1541 uint32_t bst, bed;
1542
1543 if (zisofs->block_off + 4 >= zisofs->block_pointers_size) {
1544 /* There isn't a pair of offsets. */
1545 archive_set_error(&a->archive,
1546 ARCHIVE_ERRNO_FILE_FORMAT,
1547 "Illegal zisofs block pointers");
1548 return (ARCHIVE_FATAL);
1549 }
1550 bst = archive_le32dec(
1551 zisofs->block_pointers + zisofs->block_off);
1552 if (bst != zisofs->pz_offset + (bytes_read - avail)) {
1553 /* TODO: Should we seek offset of current file
1554 * by bst ? */
1555 archive_set_error(&a->archive,
1556 ARCHIVE_ERRNO_FILE_FORMAT,
1557 "Illegal zisofs block pointers(cannot seek)");
1558 return (ARCHIVE_FATAL);
1559 }
1560 bed = archive_le32dec(
1561 zisofs->block_pointers + zisofs->block_off + 4);
1562 if (bed < bst) {
1563 archive_set_error(&a->archive,
1564 ARCHIVE_ERRNO_FILE_FORMAT,
1565 "Illegal zisofs block pointers");
1566 return (ARCHIVE_FATAL);
1567 }
1568 zisofs->block_avail = bed - bst;
1569 zisofs->block_off += 4;
1570
1571 /* Initialize compression library for new block. */
1572 if (zisofs->stream_valid)
1573 r = inflateReset(&zisofs->stream);
1574 else
1575 r = inflateInit(&zisofs->stream);
1576 if (r != Z_OK) {
1577 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1578 "Can't initialize zisofs decompression.");
1579 return (ARCHIVE_FATAL);
1580 }
1581 zisofs->stream_valid = 1;
1582 zisofs->stream.total_in = 0;
1583 zisofs->stream.total_out = 0;
1584 }
1585
1586 /*
1587 * Make uncompressed data.
1588 */
1589 if (zisofs->block_avail == 0) {
1590 memset(zisofs->uncompressed_buffer, 0,
1591 zisofs->uncompressed_buffer_size);
1592 uncompressed_size = zisofs->uncompressed_buffer_size;
1593 } else {
1594 zisofs->stream.next_in = (Bytef *)(uintptr_t)(const void *)p;
1595 if (avail > zisofs->block_avail)
1596 zisofs->stream.avail_in = zisofs->block_avail;
1597 else
1598 zisofs->stream.avail_in = (uInt)avail;
1599 zisofs->stream.next_out = zisofs->uncompressed_buffer;
1600 zisofs->stream.avail_out =
1601 (uInt)zisofs->uncompressed_buffer_size;
1602
1603 r = inflate(&zisofs->stream, 0);
1604 switch (r) {
1605 case Z_OK: /* Decompressor made some progress.*/
1606 case Z_STREAM_END: /* Found end of stream. */
1607 break;
1608 default:
1609 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1610 "zisofs decompression failed (%d)", r);
1611 return (ARCHIVE_FATAL);
1612 }
1613 uncompressed_size =
1614 zisofs->uncompressed_buffer_size - zisofs->stream.avail_out;
1615 avail -= zisofs->stream.next_in - p;
1616 zisofs->block_avail -= (uint32_t)(zisofs->stream.next_in - p);
1617 }
1618 next_data:
1619 bytes_read -= avail;
1620 *buff = zisofs->uncompressed_buffer;
1621 *size = uncompressed_size;
1622 *offset = iso9660->entry_sparse_offset;
1623 iso9660->entry_sparse_offset += uncompressed_size;
1624 iso9660->entry_bytes_remaining -= bytes_read;
1625 iso9660->current_position += bytes_read;
1626 zisofs->pz_offset += (uint32_t)bytes_read;
1627 iso9660->entry_bytes_unconsumed += bytes_read;
1628
1629 return (ARCHIVE_OK);
1630 }
1631
1632 #else /* HAVE_ZLIB_H */
1633
1634 static int
zisofs_read_data(struct archive_read * a,const void ** buff,size_t * size,int64_t * offset)1635 zisofs_read_data(struct archive_read *a,
1636 const void **buff, size_t *size, int64_t *offset)
1637 {
1638
1639 (void)buff;/* UNUSED */
1640 (void)size;/* UNUSED */
1641 (void)offset;/* UNUSED */
1642 archive_set_error(&a->archive, ARCHIVE_ERRNO_FILE_FORMAT,
1643 "zisofs is not supported on this platform.");
1644 return (ARCHIVE_FAILED);
1645 }
1646
1647 #endif /* HAVE_ZLIB_H */
1648
1649 static int
archive_read_format_iso9660_read_data(struct archive_read * a,const void ** buff,size_t * size,int64_t * offset)1650 archive_read_format_iso9660_read_data(struct archive_read *a,
1651 const void **buff, size_t *size, int64_t *offset)
1652 {
1653 ssize_t bytes_read;
1654 struct iso9660 *iso9660;
1655
1656 iso9660 = (struct iso9660 *)(a->format->data);
1657
1658 if (iso9660->entry_bytes_unconsumed) {
1659 __archive_read_consume(a, iso9660->entry_bytes_unconsumed);
1660 iso9660->entry_bytes_unconsumed = 0;
1661 }
1662
1663 if (iso9660->entry_bytes_remaining <= 0) {
1664 if (iso9660->entry_content != NULL)
1665 iso9660->entry_content = iso9660->entry_content->next;
1666 if (iso9660->entry_content == NULL) {
1667 *buff = NULL;
1668 *size = 0;
1669 *offset = iso9660->entry_sparse_offset;
1670 return (ARCHIVE_EOF);
1671 }
1672 /* Seek forward to the start of the entry. */
1673 if (iso9660->current_position < iso9660->entry_content->offset) {
1674 int64_t step;
1675
1676 step = iso9660->entry_content->offset -
1677 iso9660->current_position;
1678 step = __archive_read_consume(a, step);
1679 if (step < 0)
1680 return ((int)step);
1681 iso9660->current_position =
1682 iso9660->entry_content->offset;
1683 }
1684 if (iso9660->entry_content->offset < iso9660->current_position) {
1685 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1686 "Ignoring out-of-order file (%s) %jd < %jd",
1687 iso9660->pathname.s,
1688 (intmax_t)iso9660->entry_content->offset,
1689 (intmax_t)iso9660->current_position);
1690 *buff = NULL;
1691 *size = 0;
1692 *offset = iso9660->entry_sparse_offset;
1693 return (ARCHIVE_WARN);
1694 }
1695 iso9660->entry_bytes_remaining = iso9660->entry_content->size;
1696 }
1697 if (iso9660->entry_zisofs.pz)
1698 return (zisofs_read_data(a, buff, size, offset));
1699
1700 *buff = __archive_read_ahead(a, 1, &bytes_read);
1701 if (bytes_read == 0)
1702 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1703 "Truncated input file");
1704 if (*buff == NULL)
1705 return (ARCHIVE_FATAL);
1706 if (bytes_read > iso9660->entry_bytes_remaining)
1707 bytes_read = (ssize_t)iso9660->entry_bytes_remaining;
1708 *size = bytes_read;
1709 *offset = iso9660->entry_sparse_offset;
1710 iso9660->entry_sparse_offset += bytes_read;
1711 iso9660->entry_bytes_remaining -= bytes_read;
1712 iso9660->entry_bytes_unconsumed = bytes_read;
1713 iso9660->current_position += bytes_read;
1714 return (ARCHIVE_OK);
1715 }
1716
1717 static int
archive_read_format_iso9660_cleanup(struct archive_read * a)1718 archive_read_format_iso9660_cleanup(struct archive_read *a)
1719 {
1720 struct iso9660 *iso9660;
1721 int r = ARCHIVE_OK;
1722
1723 iso9660 = (struct iso9660 *)(a->format->data);
1724 release_files(iso9660);
1725 free(iso9660->read_ce_req.reqs);
1726 archive_string_free(&iso9660->pathname);
1727 archive_string_free(&iso9660->previous_pathname);
1728 free(iso9660->pending_files.files);
1729 #ifdef HAVE_ZLIB_H
1730 free(iso9660->entry_zisofs.uncompressed_buffer);
1731 free(iso9660->entry_zisofs.block_pointers);
1732 if (iso9660->entry_zisofs.stream_valid) {
1733 if (inflateEnd(&iso9660->entry_zisofs.stream) != Z_OK) {
1734 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1735 "Failed to clean up zlib decompressor");
1736 r = ARCHIVE_FATAL;
1737 }
1738 }
1739 #endif
1740 free(iso9660->utf16be_path);
1741 free(iso9660->utf16be_previous_path);
1742 free(iso9660);
1743 (a->format->data) = NULL;
1744 return (r);
1745 }
1746
1747 /*
1748 * This routine parses a single ISO directory record, makes sense
1749 * of any extensions, and stores the result in memory.
1750 */
1751 static struct file_info *
parse_file_info(struct archive_read * a,struct file_info * parent,const unsigned char * isodirrec,size_t reclen)1752 parse_file_info(struct archive_read *a, struct file_info *parent,
1753 const unsigned char *isodirrec, size_t reclen)
1754 {
1755 struct iso9660 *iso9660;
1756 struct file_info *file, *filep;
1757 size_t name_len;
1758 const unsigned char *rr_start, *rr_end;
1759 const unsigned char *p;
1760 size_t dr_len;
1761 uint64_t fsize, offset;
1762 int32_t location;
1763 int flags;
1764
1765 iso9660 = (struct iso9660 *)(a->format->data);
1766
1767 if (reclen != 0)
1768 dr_len = (size_t)isodirrec[DR_length_offset];
1769 /*
1770 * Sanity check that reclen is not zero and dr_len is greater than
1771 * reclen but at least 34
1772 */
1773 if (reclen == 0 || reclen < dr_len || dr_len < 34) {
1774 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1775 "Invalid length of directory record");
1776 return (NULL);
1777 }
1778 name_len = (size_t)isodirrec[DR_name_len_offset];
1779 location = archive_le32dec(isodirrec + DR_extent_offset);
1780 fsize = toi(isodirrec + DR_size_offset, DR_size_size);
1781 /* Sanity check that name_len doesn't exceed dr_len. */
1782 if (dr_len - 33 < name_len || name_len == 0) {
1783 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1784 "Invalid length of file identifier");
1785 return (NULL);
1786 }
1787 /* Sanity check that location doesn't exceed volume block.
1788 * Don't check lower limit of location; it's possibility
1789 * the location has negative value when file type is symbolic
1790 * link or file size is zero. As far as I know latest mkisofs
1791 * do that.
1792 */
1793 if (location > 0 &&
1794 (location + ((fsize + iso9660->logical_block_size -1)
1795 / iso9660->logical_block_size))
1796 > (uint32_t)iso9660->volume_block) {
1797 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1798 "Invalid location of extent of file");
1799 return (NULL);
1800 }
1801 /* Sanity check that location doesn't have a negative value
1802 * when the file is not empty. it's too large. */
1803 if (fsize != 0 && location < 0) {
1804 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
1805 "Invalid location of extent of file");
1806 return (NULL);
1807 }
1808
1809 /* Sanity check that this entry does not create a cycle. */
1810 offset = iso9660->logical_block_size * (uint64_t)location;
1811 for (filep = parent; filep != NULL; filep = filep->parent) {
1812 if (filep->offset == offset) {
1813 archive_set_error(&a->archive, ARCHIVE_ERRNO_FILE_FORMAT,
1814 "Directory structure contains loop");
1815 return (NULL);
1816 }
1817 }
1818
1819 /* Create a new file entry and copy data from the ISO dir record. */
1820 file = (struct file_info *)calloc(1, sizeof(*file));
1821 if (file == NULL) {
1822 archive_set_error(&a->archive, ENOMEM,
1823 "No memory for file entry");
1824 return (NULL);
1825 }
1826 file->parent = parent;
1827 file->offset = offset;
1828 file->size = fsize;
1829 file->mtime = isodate7(isodirrec + DR_date_offset);
1830 file->ctime = file->atime = file->mtime;
1831 file->rede_files.first = NULL;
1832 file->rede_files.last = &(file->rede_files.first);
1833
1834 p = isodirrec + DR_name_offset;
1835 /* Rockridge extensions (if any) follow name. Compute this
1836 * before fidgeting the name_len below. */
1837 rr_start = p + name_len + (name_len & 1 ? 0 : 1);
1838 rr_end = isodirrec + dr_len;
1839
1840 if (iso9660->seenJoliet) {
1841 /* Joliet names are max 64 chars (128 bytes) according to spec,
1842 * but genisoimage/mkisofs allows recording longer Joliet
1843 * names which are 103 UCS2 characters(206 bytes) by their
1844 * option '-joliet-long'.
1845 */
1846 if (name_len > 206)
1847 name_len = 206;
1848 name_len &= ~1;
1849
1850 /* trim trailing first version and dot from filename.
1851 *
1852 * Remember we were in UTF-16BE land!
1853 * SEPARATOR 1 (.) and SEPARATOR 2 (;) are both
1854 * 16 bits big endian characters on Joliet.
1855 *
1856 * TODO: sanitize filename?
1857 * Joliet allows any UCS-2 char except:
1858 * *, /, :, ;, ? and \.
1859 */
1860 /* Chop off trailing ';1' from files. */
1861 if (name_len > 4 && p[name_len-4] == 0 && p[name_len-3] == ';'
1862 && p[name_len-2] == 0 && p[name_len-1] == '1')
1863 name_len -= 4;
1864 #if 0 /* XXX: this somehow manages to strip of single-character file extensions, like '.c'. */
1865 /* Chop off trailing '.' from filenames. */
1866 if (name_len > 2 && p[name_len-2] == 0 && p[name_len-1] == '.')
1867 name_len -= 2;
1868 #endif
1869 if ((file->utf16be_name = malloc(name_len)) == NULL) {
1870 archive_set_error(&a->archive, ENOMEM,
1871 "No memory for file name");
1872 goto fail;
1873 }
1874 memcpy(file->utf16be_name, p, name_len);
1875 file->utf16be_bytes = name_len;
1876 } else {
1877 /* Chop off trailing ';1' from files. */
1878 if (name_len > 2 && p[name_len - 2] == ';' &&
1879 p[name_len - 1] == '1')
1880 name_len -= 2;
1881 /* Chop off trailing '.' from filenames. */
1882 if (name_len > 1 && p[name_len - 1] == '.')
1883 --name_len;
1884
1885 archive_strncpy(&file->name, (const char *)p, name_len);
1886 }
1887
1888 flags = isodirrec[DR_flags_offset];
1889 if (flags & 0x02)
1890 file->mode = AE_IFDIR | 0700;
1891 else
1892 file->mode = AE_IFREG | 0400;
1893 if (flags & 0x80)
1894 file->multi_extent = 1;
1895 else
1896 file->multi_extent = 0;
1897 /*
1898 * Use a location for the file number, which is treated as an inode
1899 * number to find out hardlink target. If Rockridge extensions is
1900 * being used, the file number will be overwritten by FILE SERIAL
1901 * NUMBER of RRIP "PX" extension.
1902 * Note: Old mkisofs did not record that FILE SERIAL NUMBER
1903 * in ISO images.
1904 * Note2: xorriso set 0 to the location of a symlink file.
1905 */
1906 if (file->size == 0 && location >= 0) {
1907 /* If file->size is zero, its location points wrong place,
1908 * and so we should not use it for the file number.
1909 * When the location has negative value, it can be used
1910 * for the file number.
1911 */
1912 file->number = -1;
1913 /* Do not appear before any directory entries. */
1914 file->offset = -1;
1915 } else
1916 file->number = (int64_t)(uint32_t)location;
1917
1918 /* Rockridge extensions overwrite information from above. */
1919 if (iso9660->opt_support_rockridge) {
1920 if (parent == NULL && rr_end - rr_start >= 7) {
1921 p = rr_start;
1922 if (memcmp(p, "SP\x07\x01\xbe\xef", 6) == 0) {
1923 /*
1924 * SP extension stores the suspOffset
1925 * (Number of bytes to skip between
1926 * filename and SUSP records.)
1927 * It is mandatory by the SUSP standard
1928 * (IEEE 1281).
1929 *
1930 * It allows SUSP to coexist with
1931 * non-SUSP uses of the System
1932 * Use Area by placing non-SUSP data
1933 * before SUSP data.
1934 *
1935 * SP extension must be in the root
1936 * directory entry, disable all SUSP
1937 * processing if not found.
1938 */
1939 iso9660->suspOffset = p[6];
1940 iso9660->seenSUSP = 1;
1941 rr_start += 7;
1942 }
1943 }
1944 if (iso9660->seenSUSP) {
1945 int r;
1946
1947 file->name_continues = 0;
1948 file->symlink_continues = 0;
1949 rr_start += iso9660->suspOffset;
1950 r = parse_rockridge(a, file, rr_start, rr_end);
1951 if (r != ARCHIVE_OK)
1952 goto fail;
1953 /*
1954 * A file size of symbolic link files in ISO images
1955 * made by makefs is not zero and its location is
1956 * the same as those of next regular file. That is
1957 * the same as hard like file and it causes unexpected
1958 * error.
1959 */
1960 if (file->size > 0 &&
1961 (file->mode & AE_IFMT) == AE_IFLNK) {
1962 file->size = 0;
1963 file->number = -1;
1964 file->offset = -1;
1965 }
1966 } else
1967 /* If there isn't SUSP, disable parsing
1968 * rock ridge extensions. */
1969 iso9660->opt_support_rockridge = 0;
1970 }
1971
1972 file->nlinks = 1;/* Reset nlink. we'll calculate it later. */
1973 /* Tell file's parent how many children that parent has. */
1974 if (parent != NULL && (flags & 0x02))
1975 parent->subdirs++;
1976
1977 if (iso9660->seenRockridge) {
1978 if (parent != NULL && parent->parent == NULL &&
1979 (flags & 0x02) && iso9660->rr_moved == NULL &&
1980 file->name.s &&
1981 (strcmp(file->name.s, "rr_moved") == 0 ||
1982 strcmp(file->name.s, ".rr_moved") == 0)) {
1983 iso9660->rr_moved = file;
1984 file->rr_moved = 1;
1985 file->rr_moved_has_re_only = 1;
1986 file->re = 0;
1987 parent->subdirs--;
1988 } else if (file->re) {
1989 /*
1990 * Sanity check: file's parent is rr_moved.
1991 */
1992 if (parent == NULL || parent->rr_moved == 0) {
1993 archive_set_error(&a->archive,
1994 ARCHIVE_ERRNO_MISC,
1995 "Invalid Rockridge RE");
1996 goto fail;
1997 }
1998 /*
1999 * Sanity check: file does not have "CL" extension.
2000 */
2001 if (file->cl_offset) {
2002 archive_set_error(&a->archive,
2003 ARCHIVE_ERRNO_MISC,
2004 "Invalid Rockridge RE and CL");
2005 goto fail;
2006 }
2007 /*
2008 * Sanity check: The file type must be a directory.
2009 */
2010 if ((flags & 0x02) == 0) {
2011 archive_set_error(&a->archive,
2012 ARCHIVE_ERRNO_MISC,
2013 "Invalid Rockridge RE");
2014 goto fail;
2015 }
2016 } else if (parent != NULL && parent->rr_moved)
2017 file->rr_moved_has_re_only = 0;
2018 else if (parent != NULL && (flags & 0x02) &&
2019 (parent->re || parent->re_descendant))
2020 file->re_descendant = 1;
2021 if (file->cl_offset) {
2022 struct file_info *r;
2023
2024 if (parent == NULL || parent->parent == NULL) {
2025 archive_set_error(&a->archive,
2026 ARCHIVE_ERRNO_MISC,
2027 "Invalid Rockridge CL");
2028 goto fail;
2029 }
2030 /*
2031 * Sanity check: The file type must be a regular file.
2032 */
2033 if ((flags & 0x02) != 0) {
2034 archive_set_error(&a->archive,
2035 ARCHIVE_ERRNO_MISC,
2036 "Invalid Rockridge CL");
2037 goto fail;
2038 }
2039 parent->subdirs++;
2040 /* Overwrite an offset and a number of this "CL" entry
2041 * to appear before other dirs. "+1" to those is to
2042 * make sure to appear after "RE" entry which this
2043 * "CL" entry should be connected with. */
2044 file->offset = file->number = file->cl_offset + 1;
2045
2046 /*
2047 * Sanity check: cl_offset does not point at its
2048 * the parents or itself.
2049 */
2050 for (r = parent; r; r = r->parent) {
2051 if (r->offset == file->cl_offset) {
2052 archive_set_error(&a->archive,
2053 ARCHIVE_ERRNO_MISC,
2054 "Invalid Rockridge CL");
2055 goto fail;
2056 }
2057 }
2058 if (file->cl_offset == file->offset ||
2059 parent->rr_moved) {
2060 archive_set_error(&a->archive,
2061 ARCHIVE_ERRNO_MISC,
2062 "Invalid Rockridge CL");
2063 goto fail;
2064 }
2065 }
2066 }
2067
2068 #if DEBUG
2069 /* DEBUGGING: Warn about attributes I don't yet fully support. */
2070 if ((flags & ~0x02) != 0) {
2071 fprintf(stderr, "\n ** Unrecognized flag: ");
2072 dump_isodirrec(stderr, isodirrec);
2073 fprintf(stderr, "\n");
2074 } else if (toi(isodirrec + DR_volume_sequence_number_offset, 2) != 1) {
2075 fprintf(stderr, "\n ** Unrecognized sequence number: ");
2076 dump_isodirrec(stderr, isodirrec);
2077 fprintf(stderr, "\n");
2078 } else if (*(isodirrec + DR_file_unit_size_offset) != 0) {
2079 fprintf(stderr, "\n ** Unexpected file unit size: ");
2080 dump_isodirrec(stderr, isodirrec);
2081 fprintf(stderr, "\n");
2082 } else if (*(isodirrec + DR_interleave_offset) != 0) {
2083 fprintf(stderr, "\n ** Unexpected interleave: ");
2084 dump_isodirrec(stderr, isodirrec);
2085 fprintf(stderr, "\n");
2086 } else if (*(isodirrec + DR_ext_attr_length_offset) != 0) {
2087 fprintf(stderr, "\n ** Unexpected extended attribute length: ");
2088 dump_isodirrec(stderr, isodirrec);
2089 fprintf(stderr, "\n");
2090 }
2091 #endif
2092 register_file(iso9660, file);
2093 return (file);
2094 fail:
2095 archive_string_free(&file->name);
2096 free(file);
2097 return (NULL);
2098 }
2099
2100 static int
parse_rockridge(struct archive_read * a,struct file_info * file,const unsigned char * p,const unsigned char * end)2101 parse_rockridge(struct archive_read *a, struct file_info *file,
2102 const unsigned char *p, const unsigned char *end)
2103 {
2104 struct iso9660 *iso9660;
2105 int entry_seen = 0;
2106
2107 iso9660 = (struct iso9660 *)(a->format->data);
2108
2109 while (p + 4 <= end /* Enough space for another entry. */
2110 && p[0] >= 'A' && p[0] <= 'Z' /* Sanity-check 1st char of name. */
2111 && p[1] >= 'A' && p[1] <= 'Z' /* Sanity-check 2nd char of name. */
2112 && p[2] >= 4 /* Sanity-check length. */
2113 && p + p[2] <= end) { /* Sanity-check length. */
2114 const unsigned char *data = p + 4;
2115 int data_length = p[2] - 4;
2116 int version = p[3];
2117
2118 switch(p[0]) {
2119 case 'C':
2120 if (p[1] == 'E') {
2121 if (version == 1 && data_length == 24) {
2122 /*
2123 * CE extension comprises:
2124 * 8 byte sector containing extension
2125 * 8 byte offset w/in above sector
2126 * 8 byte length of continuation
2127 */
2128 int32_t location =
2129 archive_le32dec(data);
2130 file->ce_offset =
2131 archive_le32dec(data+8);
2132 file->ce_size =
2133 archive_le32dec(data+16);
2134 if (register_CE(a, location, file)
2135 != ARCHIVE_OK)
2136 return (ARCHIVE_FATAL);
2137 }
2138 }
2139 else if (p[1] == 'L') {
2140 if (version == 1 && data_length == 8) {
2141 file->cl_offset = (uint64_t)
2142 iso9660->logical_block_size *
2143 (uint64_t)archive_le32dec(data);
2144 iso9660->seenRockridge = 1;
2145 }
2146 }
2147 break;
2148 case 'N':
2149 if (p[1] == 'M') {
2150 if (version == 1) {
2151 parse_rockridge_NM1(file,
2152 data, data_length);
2153 iso9660->seenRockridge = 1;
2154 }
2155 }
2156 break;
2157 case 'P':
2158 /*
2159 * PD extension is padding;
2160 * contents are always ignored.
2161 *
2162 * PL extension won't appear;
2163 * contents are always ignored.
2164 */
2165 if (p[1] == 'N') {
2166 if (version == 1 && data_length == 16) {
2167 file->rdev = toi(data,4);
2168 file->rdev <<= 32;
2169 file->rdev |= toi(data + 8, 4);
2170 iso9660->seenRockridge = 1;
2171 }
2172 }
2173 else if (p[1] == 'X') {
2174 /*
2175 * PX extension comprises:
2176 * 8 bytes for mode,
2177 * 8 bytes for nlinks,
2178 * 8 bytes for uid,
2179 * 8 bytes for gid,
2180 * 8 bytes for inode.
2181 */
2182 if (version == 1) {
2183 if (data_length >= 8)
2184 file->mode
2185 = toi(data, 4);
2186 if (data_length >= 16)
2187 file->nlinks
2188 = toi(data + 8, 4);
2189 if (data_length >= 24)
2190 file->uid
2191 = toi(data + 16, 4);
2192 if (data_length >= 32)
2193 file->gid
2194 = toi(data + 24, 4);
2195 if (data_length >= 40)
2196 file->number
2197 = toi(data + 32, 4);
2198 iso9660->seenRockridge = 1;
2199 }
2200 }
2201 break;
2202 case 'R':
2203 if (p[1] == 'E' && version == 1) {
2204 file->re = 1;
2205 iso9660->seenRockridge = 1;
2206 }
2207 else if (p[1] == 'R' && version == 1) {
2208 /*
2209 * RR extension comprises:
2210 * one byte flag value
2211 * This extension is obsolete,
2212 * so contents are always ignored.
2213 */
2214 }
2215 break;
2216 case 'S':
2217 if (p[1] == 'L') {
2218 if (version == 1) {
2219 parse_rockridge_SL1(file,
2220 data, data_length);
2221 iso9660->seenRockridge = 1;
2222 }
2223 }
2224 else if (p[1] == 'T'
2225 && data_length == 0 && version == 1) {
2226 /*
2227 * ST extension marks end of this
2228 * block of SUSP entries.
2229 *
2230 * It allows SUSP to coexist with
2231 * non-SUSP uses of the System
2232 * Use Area by placing non-SUSP data
2233 * after SUSP data.
2234 */
2235 iso9660->seenSUSP = 0;
2236 iso9660->seenRockridge = 0;
2237 return (ARCHIVE_OK);
2238 }
2239 break;
2240 case 'T':
2241 if (p[1] == 'F') {
2242 if (version == 1) {
2243 parse_rockridge_TF1(file,
2244 data, data_length);
2245 iso9660->seenRockridge = 1;
2246 }
2247 }
2248 break;
2249 case 'Z':
2250 if (p[1] == 'F') {
2251 if (version == 1)
2252 parse_rockridge_ZF1(file,
2253 data, data_length);
2254 }
2255 break;
2256 default:
2257 break;
2258 }
2259
2260 p += p[2];
2261 entry_seen = 1;
2262 }
2263
2264 if (entry_seen)
2265 return (ARCHIVE_OK);
2266 else {
2267 archive_set_error(&a->archive, ARCHIVE_ERRNO_FILE_FORMAT,
2268 "Tried to parse Rockridge extensions, but none found");
2269 return (ARCHIVE_WARN);
2270 }
2271 }
2272
2273 static int
register_CE(struct archive_read * a,int32_t location,struct file_info * file)2274 register_CE(struct archive_read *a, int32_t location,
2275 struct file_info *file)
2276 {
2277 struct iso9660 *iso9660;
2278 struct read_ce_queue *heap;
2279 struct read_ce_req *p;
2280 uint64_t offset, parent_offset;
2281 int hole, parent;
2282
2283 iso9660 = (struct iso9660 *)(a->format->data);
2284 offset = ((uint64_t)location) * (uint64_t)iso9660->logical_block_size;
2285 if (((file->mode & AE_IFMT) == AE_IFREG &&
2286 offset >= file->offset) ||
2287 offset < iso9660->current_position ||
2288 (((uint64_t)file->ce_offset) + file->ce_size)
2289 > (uint64_t)iso9660->logical_block_size ||
2290 offset + file->ce_offset + file->ce_size
2291 > iso9660->volume_size) {
2292 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
2293 "Invalid parameter in SUSP \"CE\" extension");
2294 return (ARCHIVE_FATAL);
2295 }
2296
2297 /* Expand our CE list as necessary. */
2298 heap = &(iso9660->read_ce_req);
2299 if (heap->cnt >= heap->allocated) {
2300 int new_size;
2301
2302 if (heap->allocated < 16)
2303 new_size = 16;
2304 else
2305 new_size = heap->allocated * 2;
2306 /* Overflow might keep us from growing the list. */
2307 if (new_size <= heap->allocated) {
2308 archive_set_error(&a->archive, ENOMEM, "Out of memory");
2309 return (ARCHIVE_FATAL);
2310 }
2311 p = calloc(new_size, sizeof(p[0]));
2312 if (p == NULL) {
2313 archive_set_error(&a->archive, ENOMEM, "Out of memory");
2314 return (ARCHIVE_FATAL);
2315 }
2316 if (heap->reqs != NULL) {
2317 memcpy(p, heap->reqs, heap->cnt * sizeof(*p));
2318 free(heap->reqs);
2319 }
2320 heap->reqs = p;
2321 heap->allocated = new_size;
2322 }
2323
2324 /*
2325 * Start with hole at end, walk it up tree to find insertion point.
2326 */
2327 hole = heap->cnt++;
2328 while (hole > 0) {
2329 parent = (hole - 1)/2;
2330 parent_offset = heap->reqs[parent].offset;
2331 if (offset >= parent_offset) {
2332 heap->reqs[hole].offset = offset;
2333 heap->reqs[hole].file = file;
2334 return (ARCHIVE_OK);
2335 }
2336 /* Move parent into hole <==> move hole up tree. */
2337 heap->reqs[hole] = heap->reqs[parent];
2338 hole = parent;
2339 }
2340 heap->reqs[0].offset = offset;
2341 heap->reqs[0].file = file;
2342 return (ARCHIVE_OK);
2343 }
2344
2345 static void
next_CE(struct read_ce_queue * heap)2346 next_CE(struct read_ce_queue *heap)
2347 {
2348 uint64_t a_offset, b_offset, c_offset;
2349 int a, b, c;
2350 struct read_ce_req tmp;
2351
2352 if (heap->cnt < 1)
2353 return;
2354
2355 /*
2356 * Move the last item in the heap to the root of the tree
2357 */
2358 heap->reqs[0] = heap->reqs[--(heap->cnt)];
2359
2360 /*
2361 * Rebalance the heap.
2362 */
2363 a = 0; /* Starting element and its offset */
2364 a_offset = heap->reqs[a].offset;
2365 for (;;) {
2366 b = a + a + 1; /* First child */
2367 if (b >= heap->cnt)
2368 return;
2369 b_offset = heap->reqs[b].offset;
2370 c = b + 1; /* Use second child if it is smaller. */
2371 if (c < heap->cnt) {
2372 c_offset = heap->reqs[c].offset;
2373 if (c_offset < b_offset) {
2374 b = c;
2375 b_offset = c_offset;
2376 }
2377 }
2378 if (a_offset <= b_offset)
2379 return;
2380 tmp = heap->reqs[a];
2381 heap->reqs[a] = heap->reqs[b];
2382 heap->reqs[b] = tmp;
2383 a = b;
2384 }
2385 }
2386
2387
2388 static int
read_CE(struct archive_read * a,struct iso9660 * iso9660)2389 read_CE(struct archive_read *a, struct iso9660 *iso9660)
2390 {
2391 struct read_ce_queue *heap;
2392 const unsigned char *b, *p, *end;
2393 struct file_info *file;
2394 size_t step;
2395 int r;
2396
2397 /* Read data which RRIP "CE" extension points. */
2398 heap = &(iso9660->read_ce_req);
2399 step = iso9660->logical_block_size;
2400 while (heap->cnt &&
2401 heap->reqs[0].offset == iso9660->current_position) {
2402 b = __archive_read_ahead(a, step, NULL);
2403 if (b == NULL) {
2404 archive_set_error(&a->archive,
2405 ARCHIVE_ERRNO_MISC,
2406 "Failed to read full block when scanning "
2407 "ISO9660 directory list");
2408 return (ARCHIVE_FATAL);
2409 }
2410 do {
2411 file = heap->reqs[0].file;
2412 if (file->ce_offset + file->ce_size > step) {
2413 archive_set_error(&a->archive,
2414 ARCHIVE_ERRNO_FILE_FORMAT,
2415 "Malformed CE information");
2416 return (ARCHIVE_FATAL);
2417 }
2418 p = b + file->ce_offset;
2419 end = p + file->ce_size;
2420 next_CE(heap);
2421 r = parse_rockridge(a, file, p, end);
2422 if (r != ARCHIVE_OK)
2423 return (ARCHIVE_FATAL);
2424 } while (heap->cnt &&
2425 heap->reqs[0].offset == iso9660->current_position);
2426 /* NOTE: Do not move this consume's code to front of
2427 * do-while loop. Registration of nested CE extension
2428 * might cause error because of current position. */
2429 __archive_read_consume(a, step);
2430 iso9660->current_position += step;
2431 }
2432 return (ARCHIVE_OK);
2433 }
2434
2435 static void
parse_rockridge_NM1(struct file_info * file,const unsigned char * data,int data_length)2436 parse_rockridge_NM1(struct file_info *file,
2437 const unsigned char *data, int data_length)
2438 {
2439 if (!file->name_continues)
2440 archive_string_empty(&file->name);
2441 file->name_continues = 0;
2442 if (data_length < 1)
2443 return;
2444 /*
2445 * NM version 1 extension comprises:
2446 * 1 byte flag, value is one of:
2447 * = 0: remainder is name
2448 * = 1: remainder is name, next NM entry continues name
2449 * = 2: "."
2450 * = 4: ".."
2451 * = 32: Implementation specific
2452 * All other values are reserved.
2453 */
2454 switch(data[0]) {
2455 case 0:
2456 if (data_length < 2)
2457 return;
2458 archive_strncat(&file->name,
2459 (const char *)data + 1, data_length - 1);
2460 break;
2461 case 1:
2462 if (data_length < 2)
2463 return;
2464 archive_strncat(&file->name,
2465 (const char *)data + 1, data_length - 1);
2466 file->name_continues = 1;
2467 break;
2468 case 2:
2469 archive_strcat(&file->name, ".");
2470 break;
2471 case 4:
2472 archive_strcat(&file->name, "..");
2473 break;
2474 default:
2475 return;
2476 }
2477
2478 }
2479
2480 static void
parse_rockridge_TF1(struct file_info * file,const unsigned char * data,int data_length)2481 parse_rockridge_TF1(struct file_info *file, const unsigned char *data,
2482 int data_length)
2483 {
2484 char flag;
2485 /*
2486 * TF extension comprises:
2487 * one byte flag
2488 * create time (optional)
2489 * modify time (optional)
2490 * access time (optional)
2491 * attribute time (optional)
2492 * Time format and presence of fields
2493 * is controlled by flag bits.
2494 */
2495 if (data_length < 1)
2496 return;
2497 flag = data[0];
2498 ++data;
2499 --data_length;
2500 if (flag & 0x80) {
2501 /* Use 17-byte time format. */
2502 if ((flag & 1) && data_length >= 17) {
2503 /* Create time. */
2504 file->birthtime_is_set = 1;
2505 file->birthtime = isodate17(data);
2506 data += 17;
2507 data_length -= 17;
2508 }
2509 if ((flag & 2) && data_length >= 17) {
2510 /* Modify time. */
2511 file->mtime = isodate17(data);
2512 data += 17;
2513 data_length -= 17;
2514 }
2515 if ((flag & 4) && data_length >= 17) {
2516 /* Access time. */
2517 file->atime = isodate17(data);
2518 data += 17;
2519 data_length -= 17;
2520 }
2521 if ((flag & 8) && data_length >= 17) {
2522 /* Attribute change time. */
2523 file->ctime = isodate17(data);
2524 }
2525 } else {
2526 /* Use 7-byte time format. */
2527 if ((flag & 1) && data_length >= 7) {
2528 /* Create time. */
2529 file->birthtime_is_set = 1;
2530 file->birthtime = isodate7(data);
2531 data += 7;
2532 data_length -= 7;
2533 }
2534 if ((flag & 2) && data_length >= 7) {
2535 /* Modify time. */
2536 file->mtime = isodate7(data);
2537 data += 7;
2538 data_length -= 7;
2539 }
2540 if ((flag & 4) && data_length >= 7) {
2541 /* Access time. */
2542 file->atime = isodate7(data);
2543 data += 7;
2544 data_length -= 7;
2545 }
2546 if ((flag & 8) && data_length >= 7) {
2547 /* Attribute change time. */
2548 file->ctime = isodate7(data);
2549 }
2550 }
2551 }
2552
2553 static void
parse_rockridge_SL1(struct file_info * file,const unsigned char * data,int data_length)2554 parse_rockridge_SL1(struct file_info *file, const unsigned char *data,
2555 int data_length)
2556 {
2557 const char *separator = "";
2558
2559 if (!file->symlink_continues || file->symlink.length < 1)
2560 archive_string_empty(&file->symlink);
2561 file->symlink_continues = 0;
2562
2563 /*
2564 * Defined flag values:
2565 * 0: This is the last SL record for this symbolic link
2566 * 1: this symbolic link field continues in next SL entry
2567 * All other values are reserved.
2568 */
2569 if (data_length < 1)
2570 return;
2571 switch(*data) {
2572 case 0:
2573 break;
2574 case 1:
2575 file->symlink_continues = 1;
2576 break;
2577 default:
2578 return;
2579 }
2580 ++data; /* Skip flag byte. */
2581 --data_length;
2582
2583 /*
2584 * SL extension body stores "components".
2585 * Basically, this is a complicated way of storing
2586 * a POSIX path. It also interferes with using
2587 * symlinks for storing non-path data. <sigh>
2588 *
2589 * Each component is 2 bytes (flag and length)
2590 * possibly followed by name data.
2591 */
2592 while (data_length >= 2) {
2593 unsigned char flag = *data++;
2594 unsigned char nlen = *data++;
2595 data_length -= 2;
2596
2597 archive_strcat(&file->symlink, separator);
2598 separator = "/";
2599
2600 switch(flag) {
2601 case 0: /* Usual case, this is text. */
2602 if (data_length < nlen)
2603 return;
2604 archive_strncat(&file->symlink,
2605 (const char *)data, nlen);
2606 break;
2607 case 0x01: /* Text continues in next component. */
2608 if (data_length < nlen)
2609 return;
2610 archive_strncat(&file->symlink,
2611 (const char *)data, nlen);
2612 separator = "";
2613 break;
2614 case 0x02: /* Current dir. */
2615 archive_strcat(&file->symlink, ".");
2616 break;
2617 case 0x04: /* Parent dir. */
2618 archive_strcat(&file->symlink, "..");
2619 break;
2620 case 0x08: /* Root of filesystem. */
2621 archive_strcat(&file->symlink, "/");
2622 separator = "";
2623 break;
2624 case 0x10: /* Undefined (historically "volume root" */
2625 archive_string_empty(&file->symlink);
2626 archive_strcat(&file->symlink, "ROOT");
2627 break;
2628 case 0x20: /* Undefined (historically "hostname") */
2629 archive_strcat(&file->symlink, "hostname");
2630 break;
2631 default:
2632 /* TODO: issue a warning ? */
2633 return;
2634 }
2635 data += nlen;
2636 data_length -= nlen;
2637 }
2638 }
2639
2640 static void
parse_rockridge_ZF1(struct file_info * file,const unsigned char * data,int data_length)2641 parse_rockridge_ZF1(struct file_info *file, const unsigned char *data,
2642 int data_length)
2643 {
2644
2645 if (data[0] == 0x70 && data[1] == 0x7a && data_length == 12) {
2646 /* paged zlib */
2647 file->pz = 1;
2648 file->pz_log2_bs = data[3];
2649 file->pz_uncompressed_size = archive_le32dec(&data[4]);
2650 }
2651 }
2652
2653 static void
register_file(struct iso9660 * iso9660,struct file_info * file)2654 register_file(struct iso9660 *iso9660, struct file_info *file)
2655 {
2656
2657 file->use_next = iso9660->use_files;
2658 iso9660->use_files = file;
2659 }
2660
2661 static void
release_files(struct iso9660 * iso9660)2662 release_files(struct iso9660 *iso9660)
2663 {
2664 struct content *con, *connext;
2665 struct file_info *file;
2666
2667 file = iso9660->use_files;
2668 while (file != NULL) {
2669 struct file_info *next = file->use_next;
2670
2671 archive_string_free(&file->name);
2672 archive_string_free(&file->symlink);
2673 free(file->utf16be_name);
2674 con = file->contents.first;
2675 while (con != NULL) {
2676 connext = con->next;
2677 free(con);
2678 con = connext;
2679 }
2680 free(file);
2681 file = next;
2682 }
2683 }
2684
2685 static int
next_entry_seek(struct archive_read * a,struct iso9660 * iso9660,struct file_info ** pfile)2686 next_entry_seek(struct archive_read *a, struct iso9660 *iso9660,
2687 struct file_info **pfile)
2688 {
2689 struct file_info *file;
2690 int r;
2691
2692 r = next_cache_entry(a, iso9660, pfile);
2693 if (r != ARCHIVE_OK)
2694 return (r);
2695 file = *pfile;
2696
2697 /* Don't waste time seeking for zero-length bodies. */
2698 if (file->size == 0)
2699 file->offset = iso9660->current_position;
2700
2701 /* flush any remaining bytes from the last round to ensure
2702 * we're positioned */
2703 if (iso9660->entry_bytes_unconsumed) {
2704 __archive_read_consume(a, iso9660->entry_bytes_unconsumed);
2705 iso9660->entry_bytes_unconsumed = 0;
2706 }
2707
2708 /* Seek forward to the start of the entry. */
2709 if (iso9660->current_position < file->offset) {
2710 int64_t step;
2711
2712 step = file->offset - iso9660->current_position;
2713 step = __archive_read_consume(a, step);
2714 if (step < 0)
2715 return ((int)step);
2716 iso9660->current_position = file->offset;
2717 }
2718
2719 /* We found body of file; handle it now. */
2720 return (ARCHIVE_OK);
2721 }
2722
2723 static int
next_cache_entry(struct archive_read * a,struct iso9660 * iso9660,struct file_info ** pfile)2724 next_cache_entry(struct archive_read *a, struct iso9660 *iso9660,
2725 struct file_info **pfile)
2726 {
2727 struct file_info *file;
2728 struct {
2729 struct file_info *first;
2730 struct file_info **last;
2731 } empty_files;
2732 int64_t number;
2733 int count;
2734
2735 file = cache_get_entry(iso9660);
2736 if (file != NULL) {
2737 *pfile = file;
2738 return (ARCHIVE_OK);
2739 }
2740
2741 for (;;) {
2742 struct file_info *re, *d;
2743
2744 *pfile = file = next_entry(iso9660);
2745 if (file == NULL) {
2746 /*
2747 * If directory entries all which are descendant of
2748 * rr_moved are still remaining, expose their.
2749 */
2750 if (iso9660->re_files.first != NULL &&
2751 iso9660->rr_moved != NULL &&
2752 iso9660->rr_moved->rr_moved_has_re_only)
2753 /* Expose "rr_moved" entry. */
2754 cache_add_entry(iso9660, iso9660->rr_moved);
2755 while ((re = re_get_entry(iso9660)) != NULL) {
2756 /* Expose its descendant dirs. */
2757 while ((d = rede_get_entry(re)) != NULL)
2758 cache_add_entry(iso9660, d);
2759 }
2760 if (iso9660->cache_files.first != NULL)
2761 return (next_cache_entry(a, iso9660, pfile));
2762 return (ARCHIVE_EOF);
2763 }
2764
2765 if (file->cl_offset) {
2766 struct file_info *first_re = NULL;
2767 int nexted_re = 0;
2768
2769 /*
2770 * Find "RE" dir for the current file, which
2771 * has "CL" flag.
2772 */
2773 while ((re = re_get_entry(iso9660))
2774 != first_re) {
2775 if (first_re == NULL)
2776 first_re = re;
2777 if (re->offset == file->cl_offset) {
2778 re->parent->subdirs--;
2779 re->parent = file->parent;
2780 re->re = 0;
2781 if (re->parent->re_descendant) {
2782 nexted_re = 1;
2783 re->re_descendant = 1;
2784 if (rede_add_entry(re) < 0)
2785 goto fatal_rr;
2786 /* Move a list of descendants
2787 * to a new ancestor. */
2788 while ((d = rede_get_entry(
2789 re)) != NULL)
2790 if (rede_add_entry(d)
2791 < 0)
2792 goto fatal_rr;
2793 break;
2794 }
2795 /* Replace the current file
2796 * with "RE" dir */
2797 *pfile = file = re;
2798 /* Expose its descendant */
2799 while ((d = rede_get_entry(
2800 file)) != NULL)
2801 cache_add_entry(
2802 iso9660, d);
2803 break;
2804 } else
2805 re_add_entry(iso9660, re);
2806 }
2807 if (nexted_re) {
2808 /*
2809 * Do not expose this at this time
2810 * because we have not gotten its full-path
2811 * name yet.
2812 */
2813 continue;
2814 }
2815 } else if ((file->mode & AE_IFMT) == AE_IFDIR) {
2816 int r;
2817
2818 /* Read file entries in this dir. */
2819 r = read_children(a, file);
2820 if (r != ARCHIVE_OK)
2821 return (r);
2822
2823 /*
2824 * Handle a special dir of Rockridge extensions,
2825 * "rr_moved".
2826 */
2827 if (file->rr_moved) {
2828 /*
2829 * If this has only the subdirectories which
2830 * have "RE" flags, do not expose at this time.
2831 */
2832 if (file->rr_moved_has_re_only)
2833 continue;
2834 /* Otherwise expose "rr_moved" entry. */
2835 } else if (file->re) {
2836 /*
2837 * Do not expose this at this time
2838 * because we have not gotten its full-path
2839 * name yet.
2840 */
2841 re_add_entry(iso9660, file);
2842 continue;
2843 } else if (file->re_descendant) {
2844 /*
2845 * If the top level "RE" entry of this entry
2846 * is not exposed, we, accordingly, should not
2847 * expose this entry at this time because
2848 * we cannot make its proper full-path name.
2849 */
2850 if (rede_add_entry(file) == 0)
2851 continue;
2852 /* Otherwise we can expose this entry because
2853 * it seems its top level "RE" has already been
2854 * exposed. */
2855 }
2856 }
2857 break;
2858 }
2859
2860 if ((file->mode & AE_IFMT) != AE_IFREG || file->number == -1)
2861 return (ARCHIVE_OK);
2862
2863 count = 0;
2864 number = file->number;
2865 iso9660->cache_files.first = NULL;
2866 iso9660->cache_files.last = &(iso9660->cache_files.first);
2867 empty_files.first = NULL;
2868 empty_files.last = &empty_files.first;
2869 /* Collect files which has the same file serial number.
2870 * Peek pending_files so that file which number is different
2871 * is not put back. */
2872 while (iso9660->pending_files.used > 0 &&
2873 (iso9660->pending_files.files[0]->number == -1 ||
2874 iso9660->pending_files.files[0]->number == number)) {
2875 if (file->number == -1) {
2876 /* This file has the same offset
2877 * but it's wrong offset which empty files
2878 * and symlink files have.
2879 * NOTE: This wrong offset was recorded by
2880 * old mkisofs utility. If ISO images is
2881 * created by latest mkisofs, this does not
2882 * happen.
2883 */
2884 file->next = NULL;
2885 *empty_files.last = file;
2886 empty_files.last = &(file->next);
2887 } else {
2888 count++;
2889 cache_add_entry(iso9660, file);
2890 }
2891 file = next_entry(iso9660);
2892 }
2893
2894 if (count == 0) {
2895 *pfile = file;
2896 return ((file == NULL)?ARCHIVE_EOF:ARCHIVE_OK);
2897 }
2898 if (file->number == -1) {
2899 file->next = NULL;
2900 *empty_files.last = file;
2901 empty_files.last = &(file->next);
2902 } else {
2903 count++;
2904 cache_add_entry(iso9660, file);
2905 }
2906
2907 if (count > 1) {
2908 /* The count is the same as number of hardlink,
2909 * so much so that each nlinks of files in cache_file
2910 * is overwritten by value of the count.
2911 */
2912 for (file = iso9660->cache_files.first;
2913 file != NULL; file = file->next)
2914 file->nlinks = count;
2915 }
2916 /* If there are empty files, that files are added
2917 * to the tail of the cache_files. */
2918 if (empty_files.first != NULL) {
2919 *iso9660->cache_files.last = empty_files.first;
2920 iso9660->cache_files.last = empty_files.last;
2921 }
2922 *pfile = cache_get_entry(iso9660);
2923 return ((*pfile == NULL)?ARCHIVE_EOF:ARCHIVE_OK);
2924
2925 fatal_rr:
2926 archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
2927 "Failed to connect 'CL' pointer to 'RE' rr_moved pointer of "
2928 "Rockridge extensions: current position = %jd, CL offset = %jd",
2929 (intmax_t)iso9660->current_position, (intmax_t)file->cl_offset);
2930 return (ARCHIVE_FATAL);
2931 }
2932
2933 static inline void
re_add_entry(struct iso9660 * iso9660,struct file_info * file)2934 re_add_entry(struct iso9660 *iso9660, struct file_info *file)
2935 {
2936 file->re_next = NULL;
2937 *iso9660->re_files.last = file;
2938 iso9660->re_files.last = &(file->re_next);
2939 }
2940
2941 static inline struct file_info *
re_get_entry(struct iso9660 * iso9660)2942 re_get_entry(struct iso9660 *iso9660)
2943 {
2944 struct file_info *file;
2945
2946 if ((file = iso9660->re_files.first) != NULL) {
2947 iso9660->re_files.first = file->re_next;
2948 if (iso9660->re_files.first == NULL)
2949 iso9660->re_files.last =
2950 &(iso9660->re_files.first);
2951 }
2952 return (file);
2953 }
2954
2955 static inline int
rede_add_entry(struct file_info * file)2956 rede_add_entry(struct file_info *file)
2957 {
2958 struct file_info *re;
2959
2960 /*
2961 * Find "RE" entry.
2962 */
2963 re = file->parent;
2964 while (re != NULL && !re->re)
2965 re = re->parent;
2966 if (re == NULL)
2967 return (-1);
2968
2969 file->re_next = NULL;
2970 *re->rede_files.last = file;
2971 re->rede_files.last = &(file->re_next);
2972 return (0);
2973 }
2974
2975 static inline struct file_info *
rede_get_entry(struct file_info * re)2976 rede_get_entry(struct file_info *re)
2977 {
2978 struct file_info *file;
2979
2980 if ((file = re->rede_files.first) != NULL) {
2981 re->rede_files.first = file->re_next;
2982 if (re->rede_files.first == NULL)
2983 re->rede_files.last =
2984 &(re->rede_files.first);
2985 }
2986 return (file);
2987 }
2988
2989 static inline void
cache_add_entry(struct iso9660 * iso9660,struct file_info * file)2990 cache_add_entry(struct iso9660 *iso9660, struct file_info *file)
2991 {
2992 file->next = NULL;
2993 *iso9660->cache_files.last = file;
2994 iso9660->cache_files.last = &(file->next);
2995 }
2996
2997 static inline struct file_info *
cache_get_entry(struct iso9660 * iso9660)2998 cache_get_entry(struct iso9660 *iso9660)
2999 {
3000 struct file_info *file;
3001
3002 if ((file = iso9660->cache_files.first) != NULL) {
3003 iso9660->cache_files.first = file->next;
3004 if (iso9660->cache_files.first == NULL)
3005 iso9660->cache_files.last =
3006 &(iso9660->cache_files.first);
3007 }
3008 return (file);
3009 }
3010
3011 static int
heap_add_entry(struct archive_read * a,struct heap_queue * heap,struct file_info * file,uint64_t key)3012 heap_add_entry(struct archive_read *a, struct heap_queue *heap,
3013 struct file_info *file, uint64_t key)
3014 {
3015 uint64_t file_key, parent_key;
3016 int hole, parent;
3017
3018 /* Expand our pending files list as necessary. */
3019 if (heap->used >= heap->allocated) {
3020 struct file_info **new_pending_files;
3021 int new_size = heap->allocated * 2;
3022
3023 if (heap->allocated < 1024)
3024 new_size = 1024;
3025 /* Overflow might keep us from growing the list. */
3026 if (new_size <= heap->allocated) {
3027 archive_set_error(&a->archive,
3028 ENOMEM, "Out of memory");
3029 return (ARCHIVE_FATAL);
3030 }
3031 new_pending_files = (struct file_info **)
3032 malloc(new_size * sizeof(new_pending_files[0]));
3033 if (new_pending_files == NULL) {
3034 archive_set_error(&a->archive,
3035 ENOMEM, "Out of memory");
3036 return (ARCHIVE_FATAL);
3037 }
3038 if (heap->allocated)
3039 memcpy(new_pending_files, heap->files,
3040 heap->allocated * sizeof(new_pending_files[0]));
3041 free(heap->files);
3042 heap->files = new_pending_files;
3043 heap->allocated = new_size;
3044 }
3045
3046 file_key = file->key = key;
3047
3048 /*
3049 * Start with hole at end, walk it up tree to find insertion point.
3050 */
3051 hole = heap->used++;
3052 while (hole > 0) {
3053 parent = (hole - 1)/2;
3054 parent_key = heap->files[parent]->key;
3055 if (file_key >= parent_key) {
3056 heap->files[hole] = file;
3057 return (ARCHIVE_OK);
3058 }
3059 /* Move parent into hole <==> move hole up tree. */
3060 heap->files[hole] = heap->files[parent];
3061 hole = parent;
3062 }
3063 heap->files[0] = file;
3064
3065 return (ARCHIVE_OK);
3066 }
3067
3068 static struct file_info *
heap_get_entry(struct heap_queue * heap)3069 heap_get_entry(struct heap_queue *heap)
3070 {
3071 uint64_t a_key, b_key, c_key;
3072 int a, b, c;
3073 struct file_info *r, *tmp;
3074
3075 if (heap->used < 1)
3076 return (NULL);
3077
3078 /*
3079 * The first file in the list is the earliest; we'll return this.
3080 */
3081 r = heap->files[0];
3082
3083 /*
3084 * Move the last item in the heap to the root of the tree
3085 */
3086 heap->files[0] = heap->files[--(heap->used)];
3087
3088 /*
3089 * Rebalance the heap.
3090 */
3091 a = 0; /* Starting element and its heap key */
3092 a_key = heap->files[a]->key;
3093 for (;;) {
3094 b = a + a + 1; /* First child */
3095 if (b >= heap->used)
3096 return (r);
3097 b_key = heap->files[b]->key;
3098 c = b + 1; /* Use second child if it is smaller. */
3099 if (c < heap->used) {
3100 c_key = heap->files[c]->key;
3101 if (c_key < b_key) {
3102 b = c;
3103 b_key = c_key;
3104 }
3105 }
3106 if (a_key <= b_key)
3107 return (r);
3108 tmp = heap->files[a];
3109 heap->files[a] = heap->files[b];
3110 heap->files[b] = tmp;
3111 a = b;
3112 }
3113 }
3114
3115 static unsigned int
toi(const void * p,int n)3116 toi(const void *p, int n)
3117 {
3118 const unsigned char *v = (const unsigned char *)p;
3119 if (n > 1)
3120 return v[0] + 256 * toi(v + 1, n - 1);
3121 if (n == 1)
3122 return v[0];
3123 return (0);
3124 }
3125
3126 static time_t
isodate7(const unsigned char * v)3127 isodate7(const unsigned char *v)
3128 {
3129 struct tm tm;
3130 int offset;
3131 time_t t;
3132
3133 memset(&tm, 0, sizeof(tm));
3134 tm.tm_year = v[0];
3135 tm.tm_mon = v[1] - 1;
3136 tm.tm_mday = v[2];
3137 tm.tm_hour = v[3];
3138 tm.tm_min = v[4];
3139 tm.tm_sec = v[5];
3140 /* v[6] is the signed timezone offset, in 1/4-hour increments. */
3141 offset = ((const signed char *)v)[6];
3142 if (offset > -48 && offset < 52) {
3143 tm.tm_hour -= offset / 4;
3144 tm.tm_min -= (offset % 4) * 15;
3145 }
3146 t = time_from_tm(&tm);
3147 if (t == (time_t)-1)
3148 return ((time_t)0);
3149 return (t);
3150 }
3151
3152 static time_t
isodate17(const unsigned char * v)3153 isodate17(const unsigned char *v)
3154 {
3155 struct tm tm;
3156 int offset;
3157 time_t t;
3158
3159 memset(&tm, 0, sizeof(tm));
3160 tm.tm_year = (v[0] - '0') * 1000 + (v[1] - '0') * 100
3161 + (v[2] - '0') * 10 + (v[3] - '0')
3162 - 1900;
3163 tm.tm_mon = (v[4] - '0') * 10 + (v[5] - '0');
3164 tm.tm_mday = (v[6] - '0') * 10 + (v[7] - '0');
3165 tm.tm_hour = (v[8] - '0') * 10 + (v[9] - '0');
3166 tm.tm_min = (v[10] - '0') * 10 + (v[11] - '0');
3167 tm.tm_sec = (v[12] - '0') * 10 + (v[13] - '0');
3168 /* v[16] is the signed timezone offset, in 1/4-hour increments. */
3169 offset = ((const signed char *)v)[16];
3170 if (offset > -48 && offset < 52) {
3171 tm.tm_hour -= offset / 4;
3172 tm.tm_min -= (offset % 4) * 15;
3173 }
3174 t = time_from_tm(&tm);
3175 if (t == (time_t)-1)
3176 return ((time_t)0);
3177 return (t);
3178 }
3179
3180 static time_t
time_from_tm(struct tm * t)3181 time_from_tm(struct tm *t)
3182 {
3183 #if HAVE_TIMEGM
3184 /* Use platform timegm() if available. */
3185 return (timegm(t));
3186 #elif HAVE__MKGMTIME64
3187 return (_mkgmtime64(t));
3188 #else
3189 /* Else use direct calculation using POSIX assumptions. */
3190 /* First, fix up tm_yday based on the year/month/day. */
3191 if (mktime(t) == (time_t)-1)
3192 return ((time_t)-1);
3193 /* Then we can compute timegm() from first principles. */
3194 return (t->tm_sec
3195 + t->tm_min * 60
3196 + t->tm_hour * 3600
3197 + t->tm_yday * 86400
3198 + (t->tm_year - 70) * 31536000
3199 + ((t->tm_year - 69) / 4) * 86400
3200 - ((t->tm_year - 1) / 100) * 86400
3201 + ((t->tm_year + 299) / 400) * 86400);
3202 #endif
3203 }
3204
3205 static const char *
build_pathname(struct archive_string * as,struct file_info * file,int depth)3206 build_pathname(struct archive_string *as, struct file_info *file, int depth)
3207 {
3208 // Plain ISO9660 only allows 8 dir levels; if we get
3209 // to 1000, then something is very, very wrong.
3210 if (depth > 1000) {
3211 return NULL;
3212 }
3213 if (file->parent != NULL && archive_strlen(&file->parent->name) > 0) {
3214 if (build_pathname(as, file->parent, depth + 1) == NULL) {
3215 return NULL;
3216 }
3217 archive_strcat(as, "/");
3218 }
3219 if (archive_strlen(&file->name) == 0)
3220 archive_strcat(as, ".");
3221 else
3222 archive_string_concat(as, &file->name);
3223 return (as->s);
3224 }
3225
3226 static int
build_pathname_utf16be(unsigned char * p,size_t max,size_t * len,struct file_info * file)3227 build_pathname_utf16be(unsigned char *p, size_t max, size_t *len,
3228 struct file_info *file)
3229 {
3230 if (file->parent != NULL && file->parent->utf16be_bytes > 0) {
3231 if (build_pathname_utf16be(p, max, len, file->parent) != 0)
3232 return (-1);
3233 p[*len] = 0;
3234 p[*len + 1] = '/';
3235 *len += 2;
3236 }
3237 if (file->utf16be_bytes == 0) {
3238 if (*len + 2 > max)
3239 return (-1);/* Path is too long! */
3240 p[*len] = 0;
3241 p[*len + 1] = '.';
3242 *len += 2;
3243 } else {
3244 if (*len + file->utf16be_bytes > max)
3245 return (-1);/* Path is too long! */
3246 memcpy(p + *len, file->utf16be_name, file->utf16be_bytes);
3247 *len += file->utf16be_bytes;
3248 }
3249 return (0);
3250 }
3251
3252 #if DEBUG
3253 static void
dump_isodirrec(FILE * out,const unsigned char * isodirrec)3254 dump_isodirrec(FILE *out, const unsigned char *isodirrec)
3255 {
3256 fprintf(out, " l %d,",
3257 toi(isodirrec + DR_length_offset, DR_length_size));
3258 fprintf(out, " a %d,",
3259 toi(isodirrec + DR_ext_attr_length_offset, DR_ext_attr_length_size));
3260 fprintf(out, " ext 0x%x,",
3261 toi(isodirrec + DR_extent_offset, DR_extent_size));
3262 fprintf(out, " s %d,",
3263 toi(isodirrec + DR_size_offset, DR_extent_size));
3264 fprintf(out, " f 0x%x,",
3265 toi(isodirrec + DR_flags_offset, DR_flags_size));
3266 fprintf(out, " u %d,",
3267 toi(isodirrec + DR_file_unit_size_offset, DR_file_unit_size_size));
3268 fprintf(out, " ilv %d,",
3269 toi(isodirrec + DR_interleave_offset, DR_interleave_size));
3270 fprintf(out, " seq %d,",
3271 toi(isodirrec + DR_volume_sequence_number_offset,
3272 DR_volume_sequence_number_size));
3273 fprintf(out, " nl %d:",
3274 toi(isodirrec + DR_name_len_offset, DR_name_len_size));
3275 fprintf(out, " `%.*s'",
3276 toi(isodirrec + DR_name_len_offset, DR_name_len_size),
3277 isodirrec + DR_name_offset);
3278 }
3279 #endif
3280