text: /*
    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;
  }
  