/*

  Copyright (C) 2004-2005, 2008-2009, 2012, 2014, 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/>.

*/

/* A program to using the MMC interface to list CD and drive features

   from the MMC GET_CONFIGURATION command . */

#ifdef HAVE_CONFIG_H

#include "config.h"

#define __CDIO_CONFIG_H__ 1

#endif

#ifdef HAVE_STDIO_H

#include <stdio.h>

#endif

#ifdef HAVE_SYS_TYPES_H

#include <sys/types.h>

#endif

#ifdef HAVE_STRING_H

#include <string.h>

#endif

#include <cdio/cdio.h>

#include <cdio/mmc.h>

int

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

{

  CdIo_t *p_cdio;

  const char *psz_drive = NULL;

  if (argc > 1) psz_drive = argv[1];

  p_cdio = cdio_open (psz_drive, DRIVER_DEVICE);

  if (NULL == p_cdio) {

    printf("-- Couldn't find CD\n");

    return 77;

  } else {

    int i_status;              /* Result of MMC command */

    uint8_t buf[65530] = { 0, }; /* Place to hold returned data */

    mmc_cdb_t cdb = {{0, }};   /* Command Descriptor Buffer */

    CDIO_MMC_SET_COMMAND(cdb.field, CDIO_MMC_GPCMD_GET_CONFIGURATION);

    CDIO_MMC_SET_READ_LENGTH8(cdb.field, sizeof(buf));

    cdb.field[1] = CDIO_MMC_GET_CONF_ALL_FEATURES;

    cdb.field[3] = 0x0;

    i_status = mmc_run_cmd(p_cdio, 0, &cdb, SCSI_MMC_DATA_READ, sizeof(buf),

			   &buf;;

    if (i_status == 0) {

      uint8_t *p;

      uint32_t i_data;

      uint8_t *p_max = buf + sizeof(buf);

      i_data = (unsigned int) CDIO_MMC_GET_LEN32(buf);

      /* set to first sense feature code, and then walk through the masks */

      p = buf + 8;

      while( (p < &(buf[i_data])) && (p < p_max) ) {

	uint16_t i_feature;

	uint8_t i_feature_additional = p[3];

	i_feature = CDIO_MMC_GET_LEN16(p);

	{

	  const char *feature_str = mmc_feature2str(i_feature);

	  printf("-- %s Feature\n", feature_str);

	  switch( i_feature )

	    {

	    case CDIO_MMC_FEATURE_PROFILE_LIST:

	      {

		uint8_t *q;

		for ( q = p+4 ; q < p + i_feature_additional ; q += 4 ) {

		  int i_profile=CDIO_MMC_GET_LEN16(q);

		  const char *feature_profile_str =

		    mmc_feature_profile2str(i_profile);

		  printf( "-- \t%s", feature_profile_str );

		  if (q[2] & 1) {

		    printf(" - on");

		  }

		  printf("\n");

		}

		printf("\n");

		break;

	      }

	    case CDIO_MMC_FEATURE_CORE:

	      {

		uint8_t *q = p+4;

		uint32_t 	i_interface_standard = CDIO_MMC_GET_LEN32(q);

		switch(i_interface_standard) {

		case 0:

		  printf("-- \tunspecified interface.\n");

		  break;

		case 1:

		  printf("-- \tSCSI interface.\n");

		  break;

		case 2:

		  printf("-- \tATAPI interface.\n");

		  break;

		case 3:

		  printf("-- \tIEEE 1394 interface.\n");

		  break;

		case 4:

		  printf("-- \tIEEE 1394A interface.\n");

		  break;

		case 5:

		  printf("-- \tFibre Channel interface.\n");

		}

		printf("\n");

		break;

	      }

	    case CDIO_MMC_FEATURE_REMOVABLE_MEDIUM:

	      switch(p[4] >> 5) {

	      case 0:

		printf("-- \tCaddy/Slot type loading mechanism,\n");

		break;

	      case 1:

		printf("-- \tTray type loading mechanism,\n");

		break;

	      case 2:

		printf("-- \tPop-up type loading mechanism,\n");

		break;

	      case 4:

		printf("-- \tEmbedded changer with individually changeable discs,\n");

		break;

	      case 5:

		printf("-- \tEmbedded changer using a magazine mechanism,\n");

		break;

	      default:

		printf("-- \tUnknown changer mechanism,\n");

	      }

	      printf("-- \tcan%s eject the medium or magazine via the normal "

		     "START/STOP command,\n",

		     (p[4] & 8) ? "": "not");

	      printf("-- \tcan%s be locked into the Logical Unit.\n",

		     (p[4] & 1) ? "": "not");

	      printf("\n");

	      break;

	    case CDIO_MMC_FEATURE_CD_READ:

	      printf("-- CD Read Feature\n");

	      printf("-- \tC2 Error pointers are %ssupported,\n",

		     (p[4] & 2) ? "": "not ");

	      printf("-- \tCD-Text is %ssupported.\n",

		     (p[4] & 1) ? "": "not ");

	      printf("\n");

	      break;

	    case CDIO_MMC_FEATURE_CDDA_EXT_PLAY:

	      printf("\tSCAN command is %ssupported,\n",

		     (p[4] & 4) ? "": "not ");

	      printf("\taudio channels can %sbe muted separately,\n",

		     (p[4] & 2) ? "": "not ");

	      printf("\taudio channels can %shave separate volume levels.\n",

		     (p[4] & 1) ? "": "not ");

	      {

		uint8_t *q = p+6;

		uint16_t i_vol_levels = CDIO_MMC_GET_LEN16(q);

		printf("\t%d volume levels can be set\n", i_vol_levels);

	      }

	      printf("\n");

	      break;

	    case CDIO_MMC_FEATURE_LU_SN: {

	      uint8_t i_serial = *(p+3);

	      char serial[257] = { '\0', };

	      memcpy(serial, p+4, i_serial);

	      printf("\t%s\n\n", serial);

	      break;

	    }

	    default:

	      printf("\n");

	      break;

	    }

	  p += i_feature_additional + 4;

	}

      }

    } else {

      printf("-- Didn't get all feature codes.\n");

    }

  }

  if (mmc_have_interface(p_cdio, CDIO_MMC_FEATURE_INTERFACE_ATAPI))

    printf("-- CD-ROM is an ATAPI interface.\n");

  else

    printf("-- CD-ROM is not an ATAPI interface.\n");

  cdio_destroy(p_cdio);

  return 0;

}