/*-

 * Copyright (c) 2003-2012 Tim Kientzle

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES

 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.

 * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,

 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT

 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,

 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

#include "archive_platform.h"

__FBSDID("$FreeBSD$");

#ifdef HAVE_ERRNO_H

#include <errno.h>

#endif

#include "archive.h"

#include "archive_private.h"

#include "archive_read_private.h"

int

archive_read_set_format(struct archive *_a, int code)

{

  int r1, r2, slots, i;

  char str[10];

  struct archive_read *a = (struct archive_read *)_a;

  if ((r1 = archive_read_support_format_by_code(_a, code)) < (ARCHIVE_OK))

    return r1;

  r1 = r2 = (ARCHIVE_OK);

  if (a->format)

    r2 = (ARCHIVE_WARN);

  switch (code & ARCHIVE_FORMAT_BASE_MASK)

  {

    case ARCHIVE_FORMAT_7ZIP:

      strcpy(str, "7zip");

      break;

    case ARCHIVE_FORMAT_AR:

      strcpy(str, "ar");

      break;

    case ARCHIVE_FORMAT_CAB:

      strcpy(str, "cab");

      break;

    case ARCHIVE_FORMAT_CPIO:

      strcpy(str, "cpio");

      break;

    case ARCHIVE_FORMAT_ISO9660:

      strcpy(str, "iso9660");

      break;

    case ARCHIVE_FORMAT_LHA:

      strcpy(str, "lha");

      break;

    case ARCHIVE_FORMAT_MTREE:

      strcpy(str, "mtree");

      break;

    case ARCHIVE_FORMAT_RAR:

      strcpy(str, "rar");

      break;

    case ARCHIVE_FORMAT_TAR:

      strcpy(str, "tar");

      break;

    case ARCHIVE_FORMAT_XAR:

      strcpy(str, "xar");

      break;

    case ARCHIVE_FORMAT_ZIP:

      strcpy(str, "zip");

      break;

    default:

      archive_set_error(&a->archive, ARCHIVE_ERRNO_PROGRAMMER,

          "Invalid format code specified");

      return (ARCHIVE_FATAL);

  }

  slots = sizeof(a->formats) / sizeof(a->formats[0]);

  a->format = &(a->formats[0]);

  for (i = 0; i < slots; i++, a->format++) {

    if (!a->format->name || !strcmp(a->format->name, str))

      break;

  }

  if (!a->format->name || strcmp(a->format->name, str))

  {

    archive_set_error(&a->archive, ARCHIVE_ERRNO_PROGRAMMER,

        "Internal error: Unable to set format");

    r1 = (ARCHIVE_FATAL);

  }

  return (r1 < r2) ? r1 : r2;

}