/* @(#)cd_extra.c	1.19 10/12/19 Copyright 2000-2001 Heiko Eissfeldt, Copyright 2004-2010 J. Schilling */
#ifndef lint
static	const char _sccsid[] =
"@(#)cd_extra.c	1.19 10/12/19 Copyright 2000-2001 Heiko Eissfeldt, Copyright 2004-2010 J. Schilling";
#endif

/*
 * This is an include file!
 */
/*
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * See the file CDDL.Schily.txt in this distribution for details.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file CDDL.Schily.txt from this distribution.
 */

/**************** CD-Extra special treatment *********************************/

#include <schily/ctype.h>

static unsigned long Read_CD_Extra_File __PR((unsigned char *Extra_buf,
						unsigned long sector));

static unsigned long
Read_CD_Extra_File(Extra_buf, sector)
	unsigned char	*Extra_buf;
	unsigned long	sector;
{
	unsigned long	mysec;

	/* read PVD */
	ReadCdRomData(get_scsi_p(), Extra_buf, sector+16, 1);

	/* check ISO signature */
	if (memcmp(Extra_buf, "\001CD001", 6) != 0)
		return (0);

	/* get path_table */
	mysec = Extra_buf[148] << 24;
	mysec |= Extra_buf[149] << 16;
	mysec |= Extra_buf[150] << 8;
	mysec |= Extra_buf[151];

	if (mysec <= sector)
		return (0);

	/* read path table */
	ReadCdRomData(get_scsi_p(), Extra_buf, mysec, 1);

	/* find cdplus subdirectory */
	{ unsigned char * p = Extra_buf;
		while (p+8 < Extra_buf + CD_FRAMESIZE_RAW) {
			int namelength;

			namelength = p[0] | (p[1] << 8);
			if (namelength == 6 &&
			    !memcmp(p+8, "CDPLUS", 6)) break;

			p += 8 + namelength + (namelength & 1);
		}
		if (p+8 >= Extra_buf + CD_FRAMESIZE_RAW)
			return (0);

		/* get extent */
		mysec = p[2] << 24;
		mysec |= p[3] << 16;
		mysec |= p[4] << 8;
		mysec |= p[5];
	}

	if (mysec <= sector)
		return (0);

	ReadCdRomData(get_scsi_p(), Extra_buf, mysec, 1);

	/* find file info.cdp */
	{ unsigned char * p = Extra_buf;
		while (p+33 < Extra_buf + CD_FRAMESIZE_RAW) {
			int namelength;

			namelength = p[32];
			if (namelength < 1)	/* Not a valid filename	*/
				return (0);
			if (namelength == 10 &&
			    !memcmp(p+33, "INFO.CDP;1", 10)) break;

			p += p[0];
			if (p[0] == 0)		/* Avoid endless loop	*/
				return (0);	/* with bad dir content	*/
		}
		if (p+33 >= Extra_buf + CD_FRAMESIZE_RAW)
			return (0);

		/* get extent */
		mysec = p[6] << 24;
		mysec |= p[7] << 16;
		mysec |= p[8] << 8;
		mysec |= p[9];
	}

	if (mysec <= sector)
		return (0);

	/* read file info.cdp */
	ReadCdRomData(get_scsi_p(), Extra_buf, mysec, 1);

	return (mysec - sector);
}

static unsigned char Extra_buffer[CD_FRAMESIZE_RAW];

/*
 * Read the file cdplus/info.cdp from the cd extra disc.
 * This file has to reside at exactly 75 sectors after start of
 * the last session (according to Blue Book).
 * Of course, there are a lot dubious cd extras, which don't care :-(((
 * As an alternative method, we try reading through the iso9660 file system...
 */
static int Read_CD_Extra_Info __PR((unsigned long sector));
static int Read_CD_Extra_Info(sector)
	unsigned long sector;
{
	unsigned	i;
static int		offsets[] = {
		75		/* this is what blue book says */
	};

	for (i = 0; i < sizeof (offsets)/sizeof (int); i++) {
#ifdef DEBUG_XTRA
		fprintf(stderr,
			"debug: Read_CD_Extra_Info at sector %lu\n",
			sector+offsets[i]);
#endif
		ReadCdRomData(get_scsi_p(), Extra_buffer,
							sector+offsets[i], 1);

		/*
		 * If we are unlucky the drive cannot handle XA sectors by
		 * default.
		 * We try to compensate by ignoring the first eight bytes.
		 * Of course then we lack the last 8 bytes of the sector...
		 */
		if (Extra_buffer[0] == 0)
			memmove(Extra_buffer, Extra_buffer +8,
							CD_FRAMESIZE - 8);

		/*
		 * check for cd extra
		 */
		if (Extra_buffer[0] == 'C' && Extra_buffer[1] == 'D')
			return (sector+offsets[i]);

	/*
	 * CD is not conforming to BlueBook!
	 * Read the file through ISO9660 file system.
	 */
	{
		unsigned long	offset = Read_CD_Extra_File(Extra_buffer,
								sector);

		if (offset == 0)
			return (0);

		if (Extra_buffer[0] == 0)
			memmove(Extra_buffer, Extra_buffer +8,
							CD_FRAMESIZE - 8);

		/*
		 * check for cd extra
		 */
		if (Extra_buffer[0] == 'C' && Extra_buffer[1] == 'D')
			return (sector+offset);
		}
	}

	return (0);
}

static void Read_Subinfo __PR((unsigned pos, unsigned length));
static void
Read_Subinfo(pos, length)
	unsigned	pos;
	unsigned	length;
{
	unsigned	num_infos, num;
	unsigned char	*Subp, *orgSubp;
	unsigned	this_track = 0xff;
#ifdef DEBUG_XTRA
	unsigned char	*up;
	unsigned char	*sp;
	unsigned	u;
	unsigned short	s;
#endif

	length += 8;
	length = (length + CD_FRAMESIZE_RAW-1) / CD_FRAMESIZE_RAW;
	length *= CD_FRAMESIZE_RAW;
	orgSubp = Subp = malloc(length);

	if (Subp == NULL) {
		errmsg(_("Read_Subinfo no memory(%d).\n"), length);
		goto errorout;
	}

	ReadCdRomData(get_scsi_p(), Subp, pos, 1);

	num_infos = Subp[45]+(Subp[44] << 8);
#ifdef DEBUG_XTRA
	fprintf(stderr, "subinfo version %c%c.%c%c, %d info packets\n",
			Subp[8],
			Subp[9],
			Subp[10],
			Subp[11],
			num_infos);
#endif
	length -= 46;
	Subp += 46;

	for (num = 0; num < num_infos && length > 0; num++) {
		unsigned	id = *Subp;
		unsigned	len = *(Subp +1);
#define	INFOPACKETTYPES	0x44
#ifdef	INFOPACKETSTRINGS
		static const char *infopacketID[INFOPACKETTYPES] = { "0",
			"track identifier",
			"album title",
			"universal product code",
			"international standard book number",
			"copyright",
			"track title",
			"notes",
			"main interpret",
			"secondary interpret",
			"composer",
			"original composer",
			"creation date",
			"release  date",
			"publisher",
			"0f",
			"isrc audio track",
			"isrc lyrics",
			"isrc pictures",
			"isrc MIDI data",
			"14", "15", "16", "17", "18", "19",
			"copyright state SUB_INFO",
			"copyright state intro lyrics",
			"copyright state lyrics",
			"copyright state MIDI data",
			"1e", "1f",
			"intro lyrics",
			"pointer to lyrics text file and length",
			"22", "23", "24", "25", "26", "27", "28",
			"29", "2a", "2b", "2c", "2d", "2e", "2f",
			"still picture descriptor",
			"31",
			"32", "33", "34", "35", "36", "37", "38",
			"39", "3a", "3b", "3c", "3d", "3e", "3f",
			"MIDI file descriptor",
			"genre code",
			"tempo",
			"key"
		};
#endif

		if (id >= INFOPACKETTYPES) {
			fprintf(stderr,
			"Off=%4d, ind=%2d/%2d, unknown Id=%2u, len=%2u ",
				/*
				 * this pointer difference is assumed to be
				 * small enough for an int.
				 */
				(int)(Subp - orgSubp),
				num, num_infos, id, len);
			Subp += 2 + 1;
			length -= 2 + 1;
			break;
		}
#ifdef DEBUG_XTRA
		fprintf(stderr, "info packet %d\n", id);
#endif

		switch (id) {

		case 1:    /* track nummer or 0 */
			this_track = 10 * (*(Subp + 2) - '0') +
					(*(Subp + 3) - '0');
			break;

		case 0x02: /* album title */
			if (global.disctitle == NULL) {
				global.disctitle = malloc(len + 1);
				if (global.disctitle != NULL) {
					memcpy(global.disctitle, Subp + 2,
									len);
					global.disctitle[len] = '\0';
				}
			}
			break;

		case 0x03: /* media catalog number */
			if (Get_MCN()[0] == '\0' && Subp[2] != '\0' &&
			    len >= 13) {
				Set_MCN(Subp + 2);
			}
			break;

		case 0x06: /* track title */
			if (this_track > 0 && this_track < 100 &&
			    global.tracktitle[this_track] == NULL) {
				global.tracktitle[this_track] = malloc(len+1);
				if (global.tracktitle[this_track] != NULL) {
					memcpy(global.tracktitle[this_track],
								Subp + 2, len);
					global.tracktitle[this_track][len] = '\0';
				}
			}
			break;

		case 0x05: /* copyright message */
			if (global.copyright_message == NULL) {
				global.copyright_message = malloc(len + 1);
				if (global.copyright_message != NULL) {
					memcpy(global.copyright_message,
								Subp + 2, len);
					global.copyright_message[len] = '\0';
				}
			}
			break;

		case 0x08: /* creator -> CD-Text performer */
			if (global.performer == NULL) {
				global.performer = malloc(len + 1);
				if (global.performer != NULL) {
					memcpy(global.performer, Subp + 2, len);
					global.performer[len] = '\0';
				}
			}
			break;

		case 0x10: /* isrc */
			if (this_track > 0 && this_track < 100 &&
			    Get_ISRC(this_track)[0] == '\0' &&
			    Subp[2] != '\0' &&
			    len >= 15) {
				Set_ISRC(this_track, Subp + 2);
			}
			break;

#if 0
		case 0x04:
		case 0x07:
		case 0x09:
		case 0x0a:
		case 0x0b:
		case 0x0c:
		case 0x0d:
		case 0x0e:
		case 0x0f:
#ifdef	INFOPACKETSTRINGS
			fprintf(outfp, "%s: %*.*s\n",
				infopacketID[id],
				(int) len, (int) len, (Subp +2));
#endif
			break;

#ifdef DEBUG_XTRA
		case 0x1a:
		case 0x1b:
		case 0x1c:
		case 0x1d:
#ifdef	INFOPACKETSTRINGS
			fprintf(outfp, _("%s %scopyrighted\n"),
				infopacketID[id], *(Subp + 2) == 0 ?
								_("not ") : "");
#endif
			break;

	case 0x21:
			fprintf(outfp, _("lyrics file beginning at sector %u"),
				(unsigned) GET_BE_UINT_FROM_CHARP(Subp + 2));
			if (len == 8)
				fprintf(outfp, _(", having length: %u\n"),
				(unsigned) GET_BE_UINT_FROM_CHARP(Subp + 6));
			else
				fputs("\n", outfp);
			break;

		case 0x30:
			sp = Subp + 2;
			while (sp < Subp + 2 + len) {
			/*while (len >= 10) {*/
				s = be16_to_cpu((*(sp)) | (*(sp) << 8));
				fprintf(outfp, "%04x, ", s);
				sp += 2;
				up = sp;
				switch (s) {
				case 0:
					break;
				case 4:
					break;
				case 5:
					break;
				case 6:
					break;
				}
				u = GET_BE_UINT_FROM_CHARP(up);
				fprintf(outfp, "%04lx, ", (long) u);
				up += 4;
				u = GET_BE_UINT_FROM_CHARP(up);
				fprintf(outfp, "%04lx, ", (long) u);
				up += 4;
				sp += 8;
			}
			fputs("\n", outfp);
			break;

		case 0x40:
			fprintf(outfp, _("MIDI file beginning at sector %u"),
				(unsigned) GET_BE_UINT_FROM_CHARP(Subp + 2));
			if (len == 8)
				fprintf(outfp, _(", having length: %u\n"),
				(unsigned) GET_BE_UINT_FROM_CHARP(Subp + 6));
			else
				fputs("\n", outfp);
			break;

#ifdef	INFOPACKETSTRINGS
		case 0x42:
			fprintf(outfp, _("%s: %d beats per minute\n"),
					infopacketID[id], *(Subp + 2));
			break;

		case 0x41:
			if (len == 8) {
				fprintf(outfp,
					"%s: %x, %x, %x, %x, %x, %x, %x, %x\n",
					infopacketID[id],
					*(Subp + 2),
					*(Subp + 3),
					*(Subp + 4),
					*(Subp + 5),
					*(Subp + 6),
					*(Subp + 7),
					*(Subp + 8),
					*(Subp + 9));
			} else {
				fprintf(outfp, "%s:\n", infopacketID[id]);
			}
			break;

		case 0x43:
			fprintf(outfp,
				"%s: %x\n", infopacketID[id], *(Subp + 2));
			break;

		default:
			fprintf(outfp,
				"%s: %*.*s\n", infopacketID[id],
				(int)len, (int)len, (Subp +2));
#endif
#endif
#endif
		}

		if (len & 1)
			len++;
		Subp += 2 + len;
		length -= 2 + len;
	}

	/*
	 * cleanup
	 */
	free(orgSubp);

errorout:
	;
}
