[picodrive.git] / pico / cd / cue.c

/*
 * cuefile handling
 * (C) notaz, 2008
 *
 * This work is licensed under the terms of MAME license.
 * See COPYING file in the top-level directory.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "cue.h"

#include "../pico_int.h"
// #define elprintf(w,f,...) printf(f "\n",##__VA_ARGS__);

#ifdef _MSC_VER
#define snprintf _snprintf
#endif
#ifdef __EPOC32__
#define snprintf(b,s,...) sprintf(b,##__VA_ARGS__)
#endif

static char *mystrip(char *str)
{
	int i, len;

	len = strlen(str);
	for (i = 0; i < len; i++)
		if (str[i] != ' ') break;
	if (i > 0) memmove(str, str + i, len - i + 1);

	len = strlen(str);
	for (i = len - 1; i >= 0; i--)
		if (str[i] != ' ' && str[i] != '\r' && str[i] != '\n') break;
	str[i+1] = 0;

	return str;
}

static int get_token(const char *buff, char *dest, int len)
{
	const char *p = buff;
	char sep = ' ';
	int d = 0, skip = 0;

	while (*p && *p == ' ') {
		skip++;
		p++;
	}

	if (*p == '\"') {
		sep = '\"';
		p++;
	}
	while (*p && *p != sep && d < len-1)
		dest[d++] = *p++;
	dest[d] = 0;

	if (sep == '\"' && *p != sep)
		elprintf(EL_STATUS, "cue: bad token: \"%s\"", buff);

	return d + skip;
}

static char *get_ext(char *fname)
{
	int len = strlen(fname);
	return (len >= 3) ? (fname + len - 3) : fname;
}


#define BEGINS(buff,str) (strncmp(buff,str,sizeof(str)-1) == 0)

/* note: tracks[0] is not used */
cue_data_t *cue_parse(const char *fname)
{
	char buff[256], current_file[256], buff2[32], *current_filep;
	FILE *f, *tmpf;
	int ret, count = 0, count_alloc = 2, pending_pregap = 0;
	cue_data_t *data;
	void *tmp;

	f = fopen(fname, "r");
	if (f == NULL) return NULL;

	snprintf(current_file, sizeof(current_file), "%s", fname);
	for (current_filep = current_file + strlen(current_file); current_filep > current_file; current_filep--)
		if (current_filep[-1] == '/' || current_filep[-1] == '\\') break;

	data = calloc(1, sizeof(*data) + count_alloc * sizeof(cue_track));
	if (data == NULL) {
		fclose(f);
		return NULL;
	}

	while (!feof(f))
	{
		tmp = fgets(buff, sizeof(buff), f);
		if (tmp == NULL) break;

		mystrip(buff);
		if (buff[0] == 0) continue;
		if      (BEGINS(buff, "TITLE ") || BEGINS(buff, "PERFORMER ") || BEGINS(buff, "SONGWRITER "))
			continue;	/* who would put those here? Ignore! */
		else if (BEGINS(buff, "FILE "))
		{
			get_token(buff+5, current_filep, sizeof(current_file) - (current_filep - current_file));
		}
		else if (BEGINS(buff, "TRACK "))
		{
			count++;
			if (count >= count_alloc) {
				count_alloc *= 2;
				tmp = realloc(data, sizeof(*data) + count_alloc * sizeof(cue_track));
				if (tmp == NULL) { count--; break; }
				data = tmp;
			}
			memset(&data->tracks[count], 0, sizeof(data->tracks[0]));
			if (count == 1 || strcmp(data->tracks[1].fname, current_file) != 0)
			{
				data->tracks[count].fname = strdup(current_file);
				if (data->tracks[count].fname == NULL) break;

				tmpf = fopen(current_file, "rb");
				if (tmpf == NULL) {
					elprintf(EL_STATUS, "cue: bad/missing file: \"%s\"", current_file);
					count--; break;
				}
				fclose(tmpf);
			}
			data->tracks[count].pregap = pending_pregap;
			pending_pregap = 0;
			// track number
			ret = get_token(buff+6, buff2, sizeof(buff2));
			if (count != atoi(buff2))
				elprintf(EL_STATUS, "cue: track index mismatch: track %i is track %i in cue",
					count, atoi(buff2));
			// check type
			get_token(buff+6+ret, buff2, sizeof(buff2));
			if      (strcmp(buff2, "MODE1/2352") == 0)
				data->tracks[count].type = CT_BIN;
			else if (strcmp(buff2, "MODE1/2048") == 0)
				data->tracks[count].type = CT_ISO;
			else if (strcmp(buff2, "AUDIO") == 0)
			{
				if (data->tracks[count].fname != NULL)
				{
					// rely on extension, not type in cue..
					char *ext = get_ext(data->tracks[count].fname);
					if      (strcasecmp(ext, "mp3") == 0)
						data->tracks[count].type = CT_MP3;
					else if (strcasecmp(ext, "wav") == 0)
						data->tracks[count].type = CT_WAV;
					else {
						elprintf(EL_STATUS, "unhandled audio format: \"%s\"",
							data->tracks[count].fname);
					}
				}
				else
				{
					// propagate previous
					data->tracks[count].type = data->tracks[count-1].type;
				}
			}
			else {
				elprintf(EL_STATUS, "unhandled track type: \"%s\"", buff2);
			}
		}
		else if (BEGINS(buff, "INDEX "))
		{
			int m, s, f;
			// type
			ret = get_token(buff+6, buff2, sizeof(buff2));
			if (atoi(buff2) == 0) continue;
			if (atoi(buff2) != 1) {
				elprintf(EL_STATUS, "cue: don't know how to handle: \"%s\"", buff);
				count--; break;
			}
			// offset in file
			get_token(buff+6+ret, buff2, sizeof(buff2));
			ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
			if (ret != 3) {
				elprintf(EL_STATUS, "cue: failed to parse: \"%s\"", buff);
				count--; break;
			}
			data->tracks[count].sector_offset = m*60*75 + s*75 + f;
			// some strange .cues may need this
			if (data->tracks[count].fname != NULL && strcmp(data->tracks[count].fname, current_file) != 0)
			{
				free(data->tracks[count].fname);
				data->tracks[count].fname = strdup(current_file);
			}
			if (data->tracks[count].fname == NULL && strcmp(data->tracks[1].fname, current_file) != 0)
			{
				data->tracks[count].fname = strdup(current_file);
			}
		}
		else if (BEGINS(buff, "PREGAP ") || BEGINS(buff, "POSTGAP "))
		{
			int m, s, f;
			get_token(buff+7, buff2, sizeof(buff2));
			ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
			if (ret != 3) {
				elprintf(EL_STATUS, "cue: failed to parse: \"%s\"", buff);
				continue;
			}
			// pregap overrides previous postgap?
			// by looking at some .cues produced by some programs I've decided that..
			if (BEGINS(buff, "PREGAP "))
				data->tracks[count].pregap = m*60*75 + s*75 + f;
			else
				pending_pregap = m*60*75 + s*75 + f;
		}
		else if (BEGINS(buff, "REM LENGTH ")) // custom "extension"
		{
			int m, s, f;
			get_token(buff+11, buff2, sizeof(buff2));
			ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
			if (ret != 3) continue;
			data->tracks[count].sector_xlength = m*60*75 + s*75 + f;
		}
		else if (BEGINS(buff, "REM"))
			continue;
		else
		{
			elprintf(EL_STATUS, "cue: unhandled line: \"%s\"", buff);
		}
	}

	if (count < 1 || data->tracks[1].fname == NULL) {
		// failed..
		for (; count > 0; count--)
			if (data->tracks[count].fname != NULL)
				free(data->tracks[count].fname);
		free(data);
		return NULL;
	}

	data->track_count = count;
	return data;
}


void cue_destroy(cue_data_t *data)
{
	int c;

	if (data == NULL) return;

	for (c = data->track_count; c > 0; c--)
		if (data->tracks[c].fname != NULL)
			free(data->tracks[c].fname);
	free(data);
}


#if 0
int main(int argc, char *argv[])
{
	cue_data_t *data = cue_parse(argv[1]);
	int c;

	if (data == NULL) return 1;

	for (c = 1; c <= data->track_count; c++)
		printf("%2i: %i %9i %02i:%02i:%02i %9i %s\n", c, data->tracks[c].type, data->tracks[c].sector_offset,
			data->tracks[c].sector_offset / (75*60), data->tracks[c].sector_offset / 75 % 60,
			data->tracks[c].sector_offset % 75, data->tracks[c].pregap, data->tracks[c].fname);

	cue_destroy(data);

	return 0;
}
#endif
Commit	Line	Data
cff531af	1	/*
	2	* cuefile handling
	3	* (C) notaz, 2008
	4	*
	5	* This work is licensed under the terms of MAME license.
	6	* See COPYING file in the top-level directory.
	7	*/
b923ecbe	8	#include <stdio.h>
	9	#include <stdlib.h>
	10	#include <string.h>
	11	#include "cue.h"
	12
efcba75f	13	#include "../pico_int.h"
9037e45d	14	// #define elprintf(w,f,...) printf(f "\n",##__VA_ARGS__);
b923ecbe	15
67c81ee2	16	#ifdef _MSC_VER
	17	#define snprintf _snprintf
	18	#endif
f8af9634	19	#ifdef __EPOC32__
ca482e5d	20	#define snprintf(b,s,...) sprintf(b,##__VA_ARGS__)
ca482e5d	21	#endif
67c81ee2	22
b923ecbe	23	static char mystrip(char str)
	24	{
	25	int i, len;
	26
	27	len = strlen(str);
	28	for (i = 0; i < len; i++)
	29	if (str[i] != ' ') break;
	30	if (i > 0) memmove(str, str + i, len - i + 1);
	31
	32	len = strlen(str);
	33	for (i = len - 1; i >= 0; i--)
	34	if (str[i] != ' ' && str[i] != '\r' && str[i] != '\n') break;
	35	str[i+1] = 0;
	36
	37	return str;
	38	}
	39
	40	static int get_token(const char buff, char dest, int len)
	41	{
	42	const char *p = buff;
	43	char sep = ' ';
	44	int d = 0, skip = 0;
	45
	46	while (p && p == ' ') {
	47	skip++;
	48	p++;
	49	}
	50
	51	if (*p == '\"') {
	52	sep = '\"';
	53	p++;
	54	}
	55	while (p && p != sep && d < len-1)
	56	dest[d++] = *p++;
	57	dest[d] = 0;
	58
9037e45d	59	if (sep == '\"' && *p != sep)
b923ecbe	60	elprintf(EL_STATUS, "cue: bad token: \"%s\"", buff);
	61
	62	return d + skip;
	63	}
	64
	65	static char get_ext(char fname)
	66	{
	67	int len = strlen(fname);
9037e45d	68	return (len >= 3) ? (fname + len - 3) : fname;
b923ecbe	69	}
	70
	71
	72	#define BEGINS(buff,str) (strncmp(buff,str,sizeof(str)-1) == 0)
	73
	74	/* note: tracks[0] is not used */
9037e45d	75	cue_data_t cue_parse(const char fname)
b923ecbe	76	{
c9e1affc	77	char buff[256], current_file[256], buff2[32], *current_filep;
b923ecbe	78	FILE f, tmpf;
c9e1affc	79	int ret, count = 0, count_alloc = 2, pending_pregap = 0;
9037e45d	80	cue_data_t *data;
b923ecbe	81	void *tmp;
	82
	83	f = fopen(fname, "r");
	84	if (f == NULL) return NULL;
	85
c9e1affc	86	snprintf(current_file, sizeof(current_file), "%s", fname);
	87	for (current_filep = current_file + strlen(current_file); current_filep > current_file; current_filep--)
	88	if (current_filep[-1] == '/' \|\| current_filep[-1] == '\\') break;
	89
b923ecbe	90	data = calloc(1, sizeof(data) + count_alloc sizeof(cue_track));
c9e1affc	91	if (data == NULL) {
	92	fclose(f);
	93	return NULL;
	94	}
b923ecbe	95
	96	while (!feof(f))
	97	{
	98	tmp = fgets(buff, sizeof(buff), f);
	99	if (tmp == NULL) break;
	100
	101	mystrip(buff);
	102	if (buff[0] == 0) continue;
0bccafeb	103	if (BEGINS(buff, "TITLE ") \|\| BEGINS(buff, "PERFORMER ") \|\| BEGINS(buff, "SONGWRITER "))
b923ecbe	104	continue; /* who would put those here? Ignore! */
	105	else if (BEGINS(buff, "FILE "))
	106	{
c9e1affc	107	get_token(buff+5, current_filep, sizeof(current_file) - (current_filep - current_file));
b923ecbe	108	}
	109	else if (BEGINS(buff, "TRACK "))
	110	{
	111	count++;
	112	if (count >= count_alloc) {
	113	count_alloc *= 2;
	114	tmp = realloc(data, sizeof(data) + count_alloc sizeof(cue_track));
	115	if (tmp == NULL) { count--; break; }
9037e45d	116	data = tmp;
b923ecbe	117	}
	118	memset(&data->tracks[count], 0, sizeof(data->tracks[0]));
	119	if (count == 1 \|\| strcmp(data->tracks[1].fname, current_file) != 0)
	120	{
	121	data->tracks[count].fname = strdup(current_file);
	122	if (data->tracks[count].fname == NULL) break;
	123
	124	tmpf = fopen(current_file, "rb");
	125	if (tmpf == NULL) {
	126	elprintf(EL_STATUS, "cue: bad/missing file: \"%s\"", current_file);
	127	count--; break;
	128	}
	129	fclose(tmpf);
	130	}
c9e1affc	131	data->tracks[count].pregap = pending_pregap;
c9e1affc	132	pending_pregap = 0;
b923ecbe	133	// track number
	134	ret = get_token(buff+6, buff2, sizeof(buff2));
	135	if (count != atoi(buff2))
	136	elprintf(EL_STATUS, "cue: track index mismatch: track %i is track %i in cue",
	137	count, atoi(buff2));
	138	// check type
	139	get_token(buff+6+ret, buff2, sizeof(buff2));
9037e45d	140	if (strcmp(buff2, "MODE1/2352") == 0)
b923ecbe	141	data->tracks[count].type = CT_BIN;
9037e45d	142	else if (strcmp(buff2, "MODE1/2048") == 0)
b923ecbe	143	data->tracks[count].type = CT_ISO;
9037e45d	144	else if (strcmp(buff2, "AUDIO") == 0)
b923ecbe	145	{
	146	if (data->tracks[count].fname != NULL)
	147	{
	148	// rely on extension, not type in cue..
	149	char *ext = get_ext(data->tracks[count].fname);
	150	if (strcasecmp(ext, "mp3") == 0)
	151	data->tracks[count].type = CT_MP3;
	152	else if (strcasecmp(ext, "wav") == 0)
	153	data->tracks[count].type = CT_WAV;
	154	else {
	155	elprintf(EL_STATUS, "unhandled audio format: \"%s\"",
	156	data->tracks[count].fname);
	157	}
	158	}
9037e45d	159	else
	160	{
	161	// propagate previous
	162	data->tracks[count].type = data->tracks[count-1].type;
	163	}
b923ecbe	164	}
	165	else {
	166	elprintf(EL_STATUS, "unhandled track type: \"%s\"", buff2);
	167	}
	168	}
	169	else if (BEGINS(buff, "INDEX "))
	170	{
	171	int m, s, f;
	172	// type
	173	ret = get_token(buff+6, buff2, sizeof(buff2));
	174	if (atoi(buff2) == 0) continue;
	175	if (atoi(buff2) != 1) {
	176	elprintf(EL_STATUS, "cue: don't know how to handle: \"%s\"", buff);
	177	count--; break;
	178	}
	179	// offset in file
	180	get_token(buff+6+ret, buff2, sizeof(buff2));
9037e45d	181	ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
b923ecbe	182	if (ret != 3) {
	183	elprintf(EL_STATUS, "cue: failed to parse: \"%s\"", buff);
	184	count--; break;
	185	}
	186	data->tracks[count].sector_offset = m6075 + s*75 + f;
9037e45d	187	// some strange .cues may need this
	188	if (data->tracks[count].fname != NULL && strcmp(data->tracks[count].fname, current_file) != 0)
	189	{
	190	free(data->tracks[count].fname);
	191	data->tracks[count].fname = strdup(current_file);
	192	}
	193	if (data->tracks[count].fname == NULL && strcmp(data->tracks[1].fname, current_file) != 0)
	194	{
	195	data->tracks[count].fname = strdup(current_file);
	196	}
b923ecbe	197	}
c9e1affc	198	else if (BEGINS(buff, "PREGAP ") \|\| BEGINS(buff, "POSTGAP "))
b923ecbe	199	{
	200	int m, s, f;
	201	get_token(buff+7, buff2, sizeof(buff2));
9037e45d	202	ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
b923ecbe	203	if (ret != 3) {
	204	elprintf(EL_STATUS, "cue: failed to parse: \"%s\"", buff);
	205	continue;
	206	}
c9e1affc	207	// pregap overrides previous postgap?
	208	// by looking at some .cues produced by some programs I've decided that..
	209	if (BEGINS(buff, "PREGAP "))
	210	data->tracks[count].pregap = m6075 + s*75 + f;
	211	else
	212	pending_pregap = m6075 + s*75 + f;
b923ecbe	213	}
0bccafeb	214	else if (BEGINS(buff, "REM LENGTH ")) // custom "extension"
	215	{
	216	int m, s, f;
	217	get_token(buff+11, buff2, sizeof(buff2));
	218	ret = sscanf(buff2, "%d:%d:%d", &m, &s, &f);
	219	if (ret != 3) continue;
	220	data->tracks[count].sector_xlength = m6075 + s*75 + f;
	221	}
	222	else if (BEGINS(buff, "REM"))
	223	continue;
b923ecbe	224	else
b923ecbe	225	{
9037e45d	226	elprintf(EL_STATUS, "cue: unhandled line: \"%s\"", buff);
b923ecbe	227	}
	228	}
	229
	230	if (count < 1 \|\| data->tracks[1].fname == NULL) {
	231	// failed..
	232	for (; count > 0; count--)
	233	if (data->tracks[count].fname != NULL)
	234	free(data->tracks[count].fname);
	235	free(data);
	236	return NULL;
	237	}
	238
	239	data->track_count = count;
	240	return data;
	241	}
	242
	243
9037e45d	244	void cue_destroy(cue_data_t *data)
b923ecbe	245	{
	246	int c;
	247
	248	if (data == NULL) return;
	249
	250	for (c = data->track_count; c > 0; c--)
	251	if (data->tracks[c].fname != NULL)
	252	free(data->tracks[c].fname);
	253	free(data);
	254	}
	255
	256
9037e45d	257	#if 0
b923ecbe	258	int main(int argc, char *argv[])
b923ecbe	259	{
9037e45d	260	cue_data_t *data = cue_parse(argv[1]);
b923ecbe	261	int c;
	262
	263	if (data == NULL) return 1;
	264
	265	for (c = 1; c <= data->track_count; c++)
9037e45d	266	printf("%2i: %i %9i %02i:%02i:%02i %9i %s\n", c, data->tracks[c].type, data->tracks[c].sector_offset,
	267	data->tracks[c].sector_offset / (75*60), data->tracks[c].sector_offset / 75 % 60,
	268	data->tracks[c].sector_offset % 75, data->tracks[c].pregap, data->tracks[c].fname);
b923ecbe	269
	270	cue_destroy(data);
	271
	272	return 0;
	273	}
9037e45d	274	#endif
b923ecbe	275