/*

  Copyright (C) 2003-2008, 2011, 2017 Rocky Bernstein

  <rocky@gnu.org>

  This program is free software: you can redistribute it and/or modify

  it under the terms of the GNU General Public License as published by

  the Free Software Foundation, either version 3 of the License, or

  (at your option) any later version.

  This program is distributed in the hope that it will be useful,

  but WITHOUT ANY WARRANTY; without even the implied warranty of

  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License

  along with this program.  If not, see <http://www.gnu.org/licenses/>.

*/

/* Tests reading ISO 9660 info from a CD.  */

#include "portable.h"

#include "cdio_assert.h"

#ifdef HAVE_SYS_TYPES_H

#include <sys/types.h>

#endif

#ifdef HAVE_STDLIB_H

#include <stdlib.h>

#endif

#ifdef HAVE_STDIO_H

#include <stdio.h>

#endif

#ifdef HAVE_ERRNO_H

#include <errno.h>

#endif

#ifdef HAVE_STRING_H

#include <string.h>

#endif

#ifdef HAVE_UNISTD_H

#include <unistd.h>

#endif

#include <cdio/cdio.h>

#include <cdio/iso9660.h>

#include <cdio/cd_types.h>

#define SKIP_TEST_RC 77

int

main(int argc, const char *argv[])

{

  char **ppsz_cd_drives = NULL; /* All drives with an ISO9660 filesystem. */

  driver_id_t driver_id;  /* Driver ID found */

  char *psz_drive;        /* Name of drive */

  CdIo_t *p_cdio;

  /* See if we can find a device with a loaded CD-DA in it. If successful

     drive_id will be set.  */

  ppsz_cd_drives =

    cdio_get_devices_with_cap_ret(NULL, CDIO_FS_ANAL_ISO9660_ANY,

				  true, &driver_id);

  if (ppsz_cd_drives && ppsz_cd_drives[0]) {

    /* Found such a CD-ROM with an ISO 9660 filesystem. Use the first drive in

       the list. */

    psz_drive = strdup(ppsz_cd_drives[0]);

    /* Don't need a list of CD's with CD-DA's any more. */

    cdio_free_device_list(ppsz_cd_drives);

    ppsz_cd_drives = NULL;

  } else {

    printf("-- Unable find or access a CD-ROM drive with an ISO-9660 "

	   "filesystem.\n");

    if (ppsz_cd_drives)

      cdio_free_device_list(ppsz_cd_drives);

    exit(SKIP_TEST_RC);

  }

  p_cdio = cdio_open (psz_drive, driver_id);

  if (!p_cdio) {

    fprintf(stderr, "Sorry, couldn't open %s\n", psz_drive);

    free(psz_drive);

    return 1;

  } else {

    /* You make get different results looking up "/" versus "/." and the

       latter may give more complete information. "/" will take information

       from the PVD only, whereas "/." will force a directory read of "/" and

       find "." and in that Rock-Ridge information might be found which fills

       in more stat information that iso9660_fs_find_lsn also will find.

       . Ideally iso9660_fs_stat should be fixed. */

    iso9660_stat_t *p_statbuf = iso9660_fs_stat (p_cdio, "/.");

    free(psz_drive);

    if (NULL == p_statbuf) {

      fprintf(stderr,

	      "Could not get ISO-9660 file information for file /.\n");

      cdio_destroy(p_cdio);

      exit(2);

    } else {

      /* Now try getting the statbuf another way */

      char buf[ISO_BLOCKSIZE];

      char *psz_path = NULL;

      const lsn_t i_lsn = p_statbuf->lsn;

      iso9660_stat_t *p_statbuf2 = iso9660_fs_find_lsn (p_cdio, i_lsn);

      iso9660_stat_t *p_statbuf3 =

	iso9660_fs_find_lsn_with_path (p_cdio, i_lsn, &psz_path);

      int rc=0;

      const unsigned int statbuf_test_size = 100;

      /* Compare the two statbufs. */

      if (p_statbuf->lsn != p_statbuf2->lsn ||

	  p_statbuf->size != p_statbuf2->size ||

	  p_statbuf->type != p_statbuf2->type) {

	  fprintf(stderr, "File stat information between fs_stat and "

		  "fs_find_lsn isn't the same\n");

	  rc=3;

	  goto exit;

      }

      cdio_assert(statbuf_test_size < sizeof(iso9660_stat_t));

      if (0 != memcmp(p_statbuf3, p_statbuf2, statbuf_test_size)) {

	  fprintf(stderr, "File stat information between fs_find_lsn and "

		  "fs_find_lsn_with_path isn't the same\n");

	  rc=4;

	  goto exit;

      }

      if (psz_path != NULL) {

	if (0 != strncmp("/./", psz_path, strlen("/./"))) {

	  fprintf(stderr, "Path returned for fs_find_lsn_with_path "

		  "is not correct should be /./, is %s\n", psz_path);

	  free(psz_path);

	  rc=5;

	  goto exit;

	}

      } else {

	fprintf(stderr, "Path returned for fs_find_lsn_with_path is NULL\n");

	rc=6;

	goto exit;

      }

      /* Try reading from the directory. */

      memset (buf, 0, ISO_BLOCKSIZE);

      if ( 0 != cdio_read_data_sectors (p_cdio, buf, i_lsn, ISO_BLOCKSIZE, 1) )

	{

	  fprintf(stderr, "Error reading ISO 9660 file at lsn %lu\n",

		  (long unsigned int) p_statbuf->lsn);

	  rc=7;

	}

    exit:

      iso9660_stat_free(p_statbuf);

      iso9660_stat_free(p_statbuf2);

      iso9660_stat_free(p_statbuf3);

      cdio_destroy(p_cdio);

      exit(rc);

    }

  }

  exit(0);

}