123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379 |
- /*
- * 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 USE_LIBRETRO_VFS
- #include "file_stream_transforms.h"
- #endif
- #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 int get_ext(const char *fname, char ext[4],
- char *base, size_t base_size)
- {
- int len, pos = 0;
-
- len = strlen(fname);
- if (len >= 3)
- pos = len - 3;
- strcpy(ext, fname + pos);
- if (base != NULL) {
- if (pos + 1 < base_size)
- pos = base_size - 1;
- len = (pos < len) ? pos : len;
- memcpy(base, fname, len);
- base[len] = 0;
- }
- return pos;
- }
- static void change_case(char *p, int to_upper)
- {
- for (; *p != 0; p++) {
- if (to_upper && 'a' <= *p && *p <= 'z')
- *p += 'A' - 'a';
- else if (!to_upper && 'A' <= *p && *p <= 'Z')
- *p += 'a' - 'A';
- }
- }
- static int file_openable(const char *fname)
- {
- FILE *f = fopen(fname, "rb");
- if (f == NULL)
- return 0;
- fclose(f);
- return 1;
- }
- #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 current_file[256], *current_filep, cue_base[256];
- char buff[256], buff2[32], ext[4], *p;
- int ret, count = 0, count_alloc = 2, pending_pregap = 0;
- size_t current_filep_size, fname_len;
- cue_data_t *data = NULL;
- FILE *f = NULL;
- void *tmp;
- if (fname == NULL || (fname_len = strlen(fname)) == 0)
- return NULL;
- ret = get_ext(fname, ext, cue_base, sizeof(cue_base));
- if (strcasecmp(ext, "cue") == 0) {
- f = fopen(fname, "r");
- }
- else {
- // not a .cue, try one with the same base name
- if (ret + 3 < sizeof(cue_base)) {
- strcpy(cue_base + ret, "cue");
- f = fopen(cue_base, "r");
- if (f == NULL) {
- strcpy(cue_base + ret, "CUE");
- f = fopen(cue_base, "r");
- }
- }
- }
- if (f == NULL)
- return NULL;
- snprintf(current_file, sizeof(current_file), "%s", fname);
- current_filep = current_file + strlen(current_file);
- for (; current_filep > current_file; current_filep--)
- if (current_filep[-1] == '/' || current_filep[-1] == '\\')
- break;
- current_filep_size = sizeof(current_file) - (current_filep - current_file);
- // the basename of cuefile, no path
- snprintf(cue_base, sizeof(cue_base), "%s", current_filep);
- p = cue_base + strlen(cue_base);
- if (p - 3 >= cue_base)
- p[-3] = 0;
- data = calloc(1, sizeof(*data) + count_alloc * sizeof(cue_track));
- if (data == NULL)
- goto out;
- 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, current_filep_size);
- }
- 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)
- {
- if (file_openable(current_file))
- goto file_ok;
- elprintf(EL_STATUS, "cue: bad/missing file: \"%s\"", current_file);
- if (count == 1) {
- int cue_ucase;
- char v;
- get_ext(current_file, ext, NULL, 0);
- snprintf(current_filep, current_filep_size,
- "%s%s", cue_base, ext);
- if (file_openable(current_file))
- goto file_ok;
- // try with the same case (for unix)
- v = fname[fname_len - 1];
- cue_ucase = ('A' <= v && v <= 'Z');
- change_case(ext, cue_ucase);
- snprintf(current_filep, current_filep_size,
- "%s%s", cue_base, ext);
- if (file_openable(current_file))
- goto file_ok;
- }
- count--;
- break;
- file_ok:
- data->tracks[count].fname = strdup(current_file);
- if (data->tracks[count].fname == NULL)
- break;
- }
- 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..
- get_ext(data->tracks[count].fname, ext, NULL, 0);
- if (strcasecmp(ext, "mp3") == 0)
- data->tracks[count].type = CT_MP3;
- else if (strcasecmp(ext, "wav") == 0)
- data->tracks[count].type = CT_WAV;
- else if (strcasecmp(ext, "bin") == 0)
- data->tracks[count].type = CT_BIN;
- 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);
- data = NULL;
- goto out;
- }
- data->track_count = count;
- out:
- if (f != NULL)
- fclose(f);
- 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
|