contrib/libarchive/libarchive/archive_read_open_filename.c

   1 /*-
   2  * Copyright (c) 2003-2010 Tim Kientzle
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR
  15  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  16  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  17  * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,
  18  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  19  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  20  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  21  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  22  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  23  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  24  */
  25
  26 #include "archive_platform.h"
  27 __FBSDID("$FreeBSD$");
  28
  29 #ifdef HAVE_SYS_IOCTL_H
  30 #include <sys/ioctl.h>
  31 #endif
  32 #ifdef HAVE_SYS_STAT_H
  33 #include <sys/stat.h>
  34 #endif
  35 #ifdef HAVE_ERRNO_H
  36 #include <errno.h>
  37 #endif
  38 #ifdef HAVE_FCNTL_H
  39 #include <fcntl.h>
  40 #endif
  41 #ifdef HAVE_IO_H
  42 #include <io.h>
  43 #endif
  44 #ifdef HAVE_STDLIB_H
  45 #include <stdlib.h>
  46 #endif
  47 #ifdef HAVE_STRING_H
  48 #include <string.h>
  49 #endif
  50 #ifdef HAVE_UNISTD_H
  51 #include <unistd.h>
  52 #endif
  53 #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
  54 #include <sys/disk.h>
  55 #elif defined(__NetBSD__) || defined(__OpenBSD__)
  56 #include <sys/disklabel.h>
  57 #include <sys/dkio.h>
  58 #elif defined(__DragonFly__)
  59 #include <sys/diskslice.h>
  60 #endif
  61
  62 #include "archive.h"
  63 #include "archive_private.h"
  64 #include "archive_string.h"
  65
  66 #ifndef O_BINARY
  67 #define O_BINARY 0
  68 #endif
  69 #ifndef O_CLOEXEC
  70 #define O_CLOEXEC       0
  71 #endif
  72
  73 struct read_file_data {
  74         int      fd;
  75         size_t   block_size;
  76         void    *buffer;
  77         mode_t   st_mode;  /* Mode bits for opened file. */
  78         char     use_lseek;
  79         enum fnt_e { FNT_STDIN, FNT_MBS, FNT_WCS } filename_type;
  80         union {
  81                 char     m[1];/* MBS filename. */
  82                 wchar_t  w[1];/* WCS filename. */
  83         } filename; /* Must be last! */
  84 };
  85
  86 static int      file_open(struct archive *, void *);
  87 static int      file_close(struct archive *, void *);
  88 static int file_close2(struct archive *, void *);
  89 static int file_switch(struct archive *, void *, void *);
  90 static ssize_t  file_read(struct archive *, void *, const void **buff);
  91 static int64_t  file_seek(struct archive *, void *, int64_t request, int);
  92 static int64_t  file_skip(struct archive *, void *, int64_t request);
  93 static int64_t  file_skip_lseek(struct archive *, void *, int64_t request);
  94
  95 int
  96 archive_read_open_file(struct archive *a, const char *filename,
  97     size_t block_size)
  98 {
  99         return (archive_read_open_filename(a, filename, block_size));
 100 }
 101
 102 int
 103 archive_read_open_filename(struct archive *a, const char *filename,
 104     size_t block_size)
 105 {
 106         const char *filenames[2];
 107         filenames[0] = filename;
 108         filenames[1] = NULL;
 109         return archive_read_open_filenames(a, filenames, block_size);
 110 }
 111
 112 int
 113 archive_read_open_filenames(struct archive *a, const char **filenames,
 114     size_t block_size)
 115 {
 116         struct read_file_data *mine;
 117         const char *filename = NULL;
 118         if (filenames)
 119                 filename = *(filenames++);
 120
 121         archive_clear_error(a);
 122         do
 123         {
 124                 if (filename == NULL)
 125                         filename = "";
 126                 mine = (struct read_file_data *)calloc(1,
 127                         sizeof(*mine) + strlen(filename));
 128                 if (mine == NULL)
 129                         goto no_memory;
 130                 strcpy(mine->filename.m, filename);
 131                 mine->block_size = block_size;
 132                 mine->fd = -1;
 133                 mine->buffer = NULL;
 134                 mine->st_mode = mine->use_lseek = 0;
 135                 if (filename == NULL || filename[0] == '\0') {
 136                         mine->filename_type = FNT_STDIN;
 137                 } else
 138                         mine->filename_type = FNT_MBS;
 139                 if (archive_read_append_callback_data(a, mine) != (ARCHIVE_OK))
 140                         return (ARCHIVE_FATAL);
 141                 if (filenames == NULL)
 142                         break;
 143                 filename = *(filenames++);
 144         } while (filename != NULL && filename[0] != '\0');
 145         archive_read_set_open_callback(a, file_open);
 146         archive_read_set_read_callback(a, file_read);
 147         archive_read_set_skip_callback(a, file_skip);
 148         archive_read_set_close_callback(a, file_close);
 149         archive_read_set_switch_callback(a, file_switch);
 150         archive_read_set_seek_callback(a, file_seek);
 151
 152         return (archive_read_open1(a));
 153 no_memory:
 154         archive_set_error(a, ENOMEM, "No memory");
 155         return (ARCHIVE_FATAL);
 156 }
 157
 158 int
 159 archive_read_open_filename_w(struct archive *a, const wchar_t *wfilename,
 160     size_t block_size)
 161 {
 162         struct read_file_data *mine = (struct read_file_data *)calloc(1,
 163                 sizeof(*mine) + wcslen(wfilename) * sizeof(wchar_t));
 164         if (!mine)
 165         {
 166                 archive_set_error(a, ENOMEM, "No memory");
 167                 return (ARCHIVE_FATAL);
 168         }
 169         mine->fd = -1;
 170         mine->block_size = block_size;
 171
 172         if (wfilename == NULL || wfilename[0] == L'\0') {
 173                 mine->filename_type = FNT_STDIN;
 174         } else {
 175 #if defined(_WIN32) && !defined(__CYGWIN__)
 176                 mine->filename_type = FNT_WCS;
 177                 wcscpy(mine->filename.w, wfilename);
 178 #else
 179                 /*
 180                  * POSIX system does not support a wchar_t interface for
 181                  * open() system call, so we have to translate a wchar_t
 182                  * filename to multi-byte one and use it.
 183                  */
 184                 struct archive_string fn;
 185
 186                 archive_string_init(&fn);
 187                 if (archive_string_append_from_wcs(&fn, wfilename,
 188                     wcslen(wfilename)) != 0) {
 189                         if (errno == ENOMEM)
 190                                 archive_set_error(a, errno,
 191                                     "Can't allocate memory");
 192                         else
 193                                 archive_set_error(a, EINVAL,
 194                                     "Failed to convert a wide-character"
 195                                     " filename to a multi-byte filename");
 196                         archive_string_free(&fn);
 197                         free(mine);
 198                         return (ARCHIVE_FATAL);
 199                 }
 200                 mine->filename_type = FNT_MBS;
 201                 strcpy(mine->filename.m, fn.s);
 202                 archive_string_free(&fn);
 203 #endif
 204         }
 205         if (archive_read_append_callback_data(a, mine) != (ARCHIVE_OK))
 206                 return (ARCHIVE_FATAL);
 207         archive_read_set_open_callback(a, file_open);
 208         archive_read_set_read_callback(a, file_read);
 209         archive_read_set_skip_callback(a, file_skip);
 210         archive_read_set_close_callback(a, file_close);
 211         archive_read_set_switch_callback(a, file_switch);
 212         archive_read_set_seek_callback(a, file_seek);
 213
 214         return (archive_read_open1(a));
 215 }
 216
 217 static int
 218 file_open(struct archive *a, void *client_data)
 219 {
 220         struct stat st;
 221         struct read_file_data *mine = (struct read_file_data *)client_data;
 222         void *buffer;
 223         const char *filename = NULL;
 224         const wchar_t *wfilename = NULL;
 225         int fd = -1;
 226         int is_disk_like = 0;
 227 #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
 228         off_t mediasize = 0; /* FreeBSD-specific, so off_t okay here. */
 229 #elif defined(__NetBSD__) || defined(__OpenBSD__)
 230         struct disklabel dl;
 231 #elif defined(__DragonFly__)
 232         struct partinfo pi;
 233 #endif
 234
 235         archive_clear_error(a);
 236         if (mine->filename_type == FNT_STDIN) {
 237                 /* We used to delegate stdin support by
 238                  * directly calling archive_read_open_fd(a,0,block_size)
 239                  * here, but that doesn't (and shouldn't) handle the
 240                  * end-of-file flush when reading stdout from a pipe.
 241                  * Basically, read_open_fd() is intended for folks who
 242                  * are willing to handle such details themselves.  This
 243                  * API is intended to be a little smarter for folks who
 244                  * want easy handling of the common case.
 245                  */
 246                 fd = 0;
 247 #if defined(__CYGWIN__) || defined(_WIN32)
 248                 setmode(0, O_BINARY);
 249 #endif
 250                 filename = "";
 251         } else if (mine->filename_type == FNT_MBS) {
 252                 filename = mine->filename.m;
 253                 fd = open(filename, O_RDONLY | O_BINARY | O_CLOEXEC);
 254                 __archive_ensure_cloexec_flag(fd);
 255                 if (fd < 0) {
 256                         archive_set_error(a, errno,
 257                             "Failed to open '%s'", filename);
 258                         return (ARCHIVE_FATAL);
 259                 }
 260         } else {
 261 #if defined(_WIN32) && !defined(__CYGWIN__)
 262                 wfilename = mine->filename.w;
 263                 fd = _wopen(wfilename, O_RDONLY | O_BINARY);
 264                 if (fd < 0 && errno == ENOENT) {
 265                         wchar_t *fullpath;
 266                         fullpath = __la_win_permissive_name_w(wfilename);
 267                         if (fullpath != NULL) {
 268                                 fd = _wopen(fullpath, O_RDONLY | O_BINARY);
 269                                 free(fullpath);
 270                         }
 271                 }
 272                 if (fd < 0) {
 273                         archive_set_error(a, errno,
 274                             "Failed to open '%S'", wfilename);
 275                         return (ARCHIVE_FATAL);
 276                 }
 277 #else
 278                 archive_set_error(a, ARCHIVE_ERRNO_MISC,
 279                     "Unexpedted operation in archive_read_open_filename");
 280                 goto fail;
 281 #endif
 282         }
 283         if (fstat(fd, &st) != 0) {
 284                 if (mine->filename_type == FNT_WCS)
 285                         archive_set_error(a, errno, "Can't stat '%S'",
 286                             wfilename);
 287                 else
 288                         archive_set_error(a, errno, "Can't stat '%s'",
 289                             filename);
 290                 goto fail;
 291         }
 292
 293         /*
 294          * Determine whether the input looks like a disk device or a
 295          * tape device.  The results are used below to select an I/O
 296          * strategy:
 297          *  = "disk-like" devices support arbitrary lseek() and will
 298          *    support I/O requests of any size.  So we get easy skipping
 299          *    and can cheat on block sizes to get better performance.
 300          *  = "tape-like" devices require strict blocking and use
 301          *    specialized ioctls for seeking.
 302          *  = "socket-like" devices cannot seek at all but can improve
 303          *    performance by using nonblocking I/O to read "whatever is
 304          *    available right now".
 305          *
 306          * Right now, we only specially recognize disk-like devices,
 307          * but it should be straightforward to add probes and strategy
 308          * here for tape-like and socket-like devices.
 309          */
 310         if (S_ISREG(st.st_mode)) {
 311                 /* Safety:  Tell the extractor not to overwrite the input. */
 312                 archive_read_extract_set_skip_file(a, st.st_dev, st.st_ino);
 313                 /* Regular files act like disks. */
 314                 is_disk_like = 1;
 315         }
 316 #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
 317         /* FreeBSD: if it supports DIOCGMEDIASIZE ioctl, it's disk-like. */
 318         else if (S_ISCHR(st.st_mode) &&
 319             ioctl(fd, DIOCGMEDIASIZE, &mediasize) == 0 &&
 320             mediasize > 0) {
 321                 is_disk_like = 1;
 322         }
 323 #elif defined(__NetBSD__) || defined(__OpenBSD__)
 324         /* Net/OpenBSD: if it supports DIOCGDINFO ioctl, it's disk-like. */
 325         else if ((S_ISCHR(st.st_mode) || S_ISBLK(st.st_mode)) &&
 326             ioctl(fd, DIOCGDINFO, &dl) == 0 &&
 327             dl.d_partitions[DISKPART(st.st_rdev)].p_size > 0) {
 328                 is_disk_like = 1;
 329         }
 330 #elif defined(__DragonFly__)
 331         /* DragonFly BSD:  if it supports DIOCGPART ioctl, it's disk-like. */
 332         else if (S_ISCHR(st.st_mode) &&
 333             ioctl(fd, DIOCGPART, &pi) == 0 &&
 334             pi.media_size > 0) {
 335                 is_disk_like = 1;
 336         }
 337 #elif defined(__linux__)
 338         /* Linux:  All block devices are disk-like. */
 339         else if (S_ISBLK(st.st_mode) &&
 340             lseek(fd, 0, SEEK_CUR) == 0 &&
 341             lseek(fd, 0, SEEK_SET) == 0 &&
 342             lseek(fd, 0, SEEK_END) > 0 &&
 343             lseek(fd, 0, SEEK_SET) == 0) {
 344                 is_disk_like = 1;
 345         }
 346 #endif
 347         /* TODO: Add an "is_tape_like" variable and appropriate tests. */
 348
 349         /* Disk-like devices prefer power-of-two block sizes.  */
 350         /* Use provided block_size as a guide so users have some control. */
 351         if (is_disk_like) {
 352                 size_t new_block_size = 64 * 1024;
 353                 while (new_block_size < mine->block_size
 354                     && new_block_size < 64 * 1024 * 1024)
 355                         new_block_size *= 2;
 356                 mine->block_size = new_block_size;
 357         }
 358         buffer = malloc(mine->block_size);
 359         if (buffer == NULL) {
 360                 archive_set_error(a, ENOMEM, "No memory");
 361                 goto fail;
 362         }
 363         mine->buffer = buffer;
 364         mine->fd = fd;
 365         /* Remember mode so close can decide whether to flush. */
 366         mine->st_mode = st.st_mode;
 367
 368         /* Disk-like inputs can use lseek(). */
 369         if (is_disk_like)
 370                 mine->use_lseek = 1;
 371
 372         return (ARCHIVE_OK);
 373 fail:
 374         /*
 375          * Don't close file descriptors not opened or ones pointing referring
 376          * to `FNT_STDIN`.
 377          */
 378         if (fd != -1 && fd != 0)
 379                 close(fd);
 380         return (ARCHIVE_FATAL);
 381 }
 382
 383 static ssize_t
 384 file_read(struct archive *a, void *client_data, const void **buff)
 385 {
 386         struct read_file_data *mine = (struct read_file_data *)client_data;
 387         ssize_t bytes_read;
 388
 389         /* TODO: If a recent lseek() operation has left us
 390          * mis-aligned, read and return a short block to try to get
 391          * us back in alignment. */
 392
 393         /* TODO: Someday, try mmap() here; if that succeeds, give
 394          * the entire file to libarchive as a single block.  That
 395          * could be a lot faster than block-by-block manual I/O. */
 396
 397         /* TODO: We might be able to improve performance on pipes and
 398          * sockets by setting non-blocking I/O and just accepting
 399          * whatever we get here instead of waiting for a full block
 400          * worth of data. */
 401
 402         *buff = mine->buffer;
 403         for (;;) {
 404                 bytes_read = read(mine->fd, mine->buffer, mine->block_size);
 405                 if (bytes_read < 0) {
 406                         if (errno == EINTR)
 407                                 continue;
 408                         else if (mine->filename_type == FNT_STDIN)
 409                                 archive_set_error(a, errno,
 410                                     "Error reading stdin");
 411                         else if (mine->filename_type == FNT_MBS)
 412                                 archive_set_error(a, errno,
 413                                     "Error reading '%s'", mine->filename.m);
 414                         else
 415                                 archive_set_error(a, errno,
 416                                     "Error reading '%S'", mine->filename.w);
 417                 }
 418                 return (bytes_read);
 419         }
 420 }
 421
 422 /*
 423  * Regular files and disk-like block devices can use simple lseek
 424  * without needing to round the request to the block size.
 425  *
 426  * TODO: This can leave future reads mis-aligned.  Since we know the
 427  * offset here, we should store it and use it in file_read() above
 428  * to determine whether we should perform a short read to get back
 429  * into alignment.  Long series of mis-aligned reads can negatively
 430  * impact disk throughput.  (Of course, the performance impact should
 431  * be carefully tested; extra code complexity is only worthwhile if
 432  * it does provide measurable improvement.)
 433  *
 434  * TODO: Be lazy about the actual seek.  There are a few pathological
 435  * cases where libarchive makes a bunch of seek requests in a row
 436  * without any intervening reads.  This isn't a huge performance
 437  * problem, since the kernel handles seeks lazily already, but
 438  * it would be very slightly faster if we simply remembered the
 439  * seek request here and then actually performed the seek at the
 440  * top of the read callback above.
 441  */
 442 static int64_t
 443 file_skip_lseek(struct archive *a, void *client_data, int64_t request)
 444 {
 445         struct read_file_data *mine = (struct read_file_data *)client_data;
 446 #if defined(_WIN32) && !defined(__CYGWIN__)
 447         /* We use _lseeki64() on Windows. */
 448         int64_t old_offset, new_offset;
 449 #else
 450         off_t old_offset, new_offset;
 451 #endif
 452
 453         /* We use off_t here because lseek() is declared that way. */
 454
 455         /* TODO: Deal with case where off_t isn't 64 bits.
 456          * This shouldn't be a problem on Linux or other POSIX
 457          * systems, since the configuration logic for libarchive
 458          * tries to obtain a 64-bit off_t.
 459          */
 460         if ((old_offset = lseek(mine->fd, 0, SEEK_CUR)) >= 0 &&
 461             (new_offset = lseek(mine->fd, request, SEEK_CUR)) >= 0)
 462                 return (new_offset - old_offset);
 463
 464         /* If lseek() fails, don't bother trying again. */
 465         mine->use_lseek = 0;
 466
 467         /* Let libarchive recover with read+discard */
 468         if (errno == ESPIPE)
 469                 return (0);
 470
 471         /* If the input is corrupted or truncated, fail. */
 472         if (mine->filename_type == FNT_STDIN)
 473                 archive_set_error(a, errno, "Error seeking in stdin");
 474         else if (mine->filename_type == FNT_MBS)
 475                 archive_set_error(a, errno, "Error seeking in '%s'",
 476                     mine->filename.m);
 477         else
 478                 archive_set_error(a, errno, "Error seeking in '%S'",
 479                     mine->filename.w);
 480         return (-1);
 481 }
 482
 483
 484 /*
 485  * TODO: Implement another file_skip_XXXX that uses MTIO ioctls to
 486  * accelerate operation on tape drives.
 487  */
 488
 489 static int64_t
 490 file_skip(struct archive *a, void *client_data, int64_t request)
 491 {
 492         struct read_file_data *mine = (struct read_file_data *)client_data;
 493
 494         /* Delegate skip requests. */
 495         if (mine->use_lseek)
 496                 return (file_skip_lseek(a, client_data, request));
 497
 498         /* If we can't skip, return 0; libarchive will read+discard instead. */
 499         return (0);
 500 }
 501
 502 /*
 503  * TODO: Store the offset and use it in the read callback.
 504  */
 505 static int64_t
 506 file_seek(struct archive *a, void *client_data, int64_t request, int whence)
 507 {
 508         struct read_file_data *mine = (struct read_file_data *)client_data;
 509         int64_t r;
 510
 511         /* We use off_t here because lseek() is declared that way. */
 512         /* See above for notes about when off_t is less than 64 bits. */
 513         r = lseek(mine->fd, request, whence);
 514         if (r >= 0)
 515                 return r;
 516
 517         /* If the input is corrupted or truncated, fail. */
 518         if (mine->filename_type == FNT_STDIN)
 519                 archive_set_error(a, errno, "Error seeking in stdin");
 520         else if (mine->filename_type == FNT_MBS)
 521                 archive_set_error(a, errno, "Error seeking in '%s'",
 522                     mine->filename.m);
 523         else
 524                 archive_set_error(a, errno, "Error seeking in '%S'",
 525                     mine->filename.w);
 526         return (ARCHIVE_FATAL);
 527 }
 528
 529 static int
 530 file_close2(struct archive *a, void *client_data)
 531 {
 532         struct read_file_data *mine = (struct read_file_data *)client_data;
 533
 534         (void)a; /* UNUSED */
 535
 536         /* Only flush and close if open succeeded. */
 537         if (mine->fd >= 0) {
 538                 /*
 539                  * Sometimes, we should flush the input before closing.
 540                  *   Regular files: faster to just close without flush.
 541                  *   Disk-like devices:  Ditto.
 542                  *   Tapes: must not flush (user might need to
 543                  *      read the "next" item on a non-rewind device).
 544                  *   Pipes and sockets:  must flush (otherwise, the
 545                  *      program feeding the pipe or socket may complain).
 546                  * Here, I flush everything except for regular files and
 547                  * device nodes.
 548                  */
 549                 if (!S_ISREG(mine->st_mode)
 550                     && !S_ISCHR(mine->st_mode)
 551                     && !S_ISBLK(mine->st_mode)) {
 552                         ssize_t bytesRead;
 553                         do {
 554                                 bytesRead = read(mine->fd, mine->buffer,
 555                                     mine->block_size);
 556                         } while (bytesRead > 0);
 557                 }
 558                 /* If a named file was opened, then it needs to be closed. */
 559                 if (mine->filename_type != FNT_STDIN)
 560                         close(mine->fd);
 561         }
 562         free(mine->buffer);
 563         mine->buffer = NULL;
 564         mine->fd = -1;
 565         return (ARCHIVE_OK);
 566 }
 567
 568 static int
 569 file_close(struct archive *a, void *client_data)
 570 {
 571         struct read_file_data *mine = (struct read_file_data *)client_data;
 572         file_close2(a, client_data);
 573         free(mine);
 574         return (ARCHIVE_OK);
 575 }
 576
 577 static int
 578 file_switch(struct archive *a, void *client_data1, void *client_data2)
 579 {
 580         file_close2(a, client_data1);
 581         return file_open(a, client_data2);
 582 }