static void load_sample_names(int size, SFInfo *sf, FILE *fd)
{
int i, nsamples;
if (sf->version > 1) {
fprintf(stderr, "*** version 2 has obsolete format??\n");
FSKIP(size, fd);
return;
}
/* each sample name has a fixed lentgh (20 bytes) */
nsamples = size / 20;
if (sf->sample == NULL) {
sf->nsamples = nsamples;
sf->sample = NEW(SFSampleInfo, sf->nsamples);
} else if (sf->nsamples != nsamples) {
fprintf(stderr, "*** different # of samples ?? (%d : %d)\n",
sf->nsamples, nsamples);
FSKIP(size, fd);
return;
}
/* read each name from file */
for (i = 0; i < sf->nsamples; i++) {
READSTR(sf->sample[i].name, fd);
}
}
static int process_sdta(int size, SFInfo *sf, FILE *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a sub chunk */
READCHUNK(chunk, fd); size -= 8;
if (feof(fd))
return -1;
switch (chunkid(chunk.id)) {
case SNAM_ID:
/* sample name list */
load_sample_names(chunk.size, sf, fd);
break;
case SMPL_ID:
/* sample data starts from here */
sf->samplepos = ftell(fd);
sf->samplesize = chunk.size;
FSKIP(chunk.size, fd);
break;
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
void Instruments::load_sample_names(int size, SFInfo *sf, struct timidity_file *fd)
{
int i, nsamples;
if (sf->version > 1) {
ctl_cmsg(CMSG_WARNING, VERB_NORMAL, "%s: *** version 2 has obsolete format??",fd->filename.c_str());
FSKIP(size, fd);
return;
}
/* each sample name has a fixed lentgh (20 bytes) */
nsamples = size / 20;
if (sf->sample == NULL) {
sf->nsamples = nsamples;
sf->sample = NEW(SFSampleInfo, sf->nsamples);
}
else if (sf->nsamples != nsamples) {
ctl_cmsg(CMSG_WARNING, VERB_NORMAL, "%s: *** different # of samples ?? (%d : %d)\n",fd->filename.c_str(), sf->nsamples, nsamples);
FSKIP(size, fd);
return;
}
/* read each name from file */
for (i = 0; i < sf->nsamples; i++) {
READSTR(sf->sample[i].name, fd);
}
}
int Instruments::process_sdta(int size, SFInfo *sf, struct timidity_file *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a sub chunk */
if (READCHUNK(&chunk, fd) <= 0)
return -1;
size -= 8;
ctl_cmsg(CMSG_INFO, VERB_DEBUG, " %c%c%c%c:",
chunk.id[0], chunk.id[1], chunk.id[2], chunk.id[3]);
switch (chunkid(chunk.id)) {
case SNAM_ID:
/* sample name list */
load_sample_names(chunk.size, sf, fd);
break;
case SMPL_ID:
/* sample data starts from here */
sf->samplepos = tf_tell(fd);
sf->samplesize = chunk.size;
FSKIP(chunk.size, fd);
break;
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static int process_info(int size, SFInfo *sf, FILE *fd)
{
sf->infopos = ftell(fd);
sf->infosize = size;
/* parse the buffer */
while (size > 0) {
SFChunk chunk;
/* read a sub chunk */
READCHUNK(chunk, fd); size -= 8;
if (feof(fd))
return -1;
switch (chunkid(chunk.id)) {
case IFIL_ID:
/* soundfont file version */
READW(sf->version, fd);
READW(sf->minorversion, fd);
break;
case INAM_ID:
/* name of the font */
sf->sf_name = (char*)safe_malloc(chunk.size + 1);
fread(sf->sf_name, 1, chunk.size, fd);
sf->sf_name[chunk.size] = 0;
break;
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static void load_sample_info(int size, SFInfo *sf, FILE *fd)
{
int i;
int in_rom;
/* the record size depends on the soundfont version */
if (sf->version > 1) {
/* SF2 includes sample name and other infos */
sf->nsamples = size / 46;
sf->sample = NEW(SFSampleInfo, sf->nsamples);
} else {
/* SBK; sample name may be read already */
int nsamples = size / 16;
if (sf->sample == NULL) {
sf->nsamples = nsamples;
sf->sample = NEW(SFSampleInfo, sf->nsamples);
} else if (sf->nsamples != nsamples) {
#if 0
fprintf(stderr, "*** different # of infos ?? (%d : %d)\n",
sf->nsamples, nsamples);
FSKIP(size, fd);
return;
#endif
/* overwrite it */
sf->nsamples = nsamples;
}
}
in_rom = 1; /* data may start from ROM samples */
for (i = 0; i < sf->nsamples; i++) {
if (sf->version > 1) /* SF2 only */
READSTR(sf->sample[i].name, fd);
READDW(sf->sample[i].startsample, fd);
READDW(sf->sample[i].endsample, fd);
READDW(sf->sample[i].startloop, fd);
READDW(sf->sample[i].endloop, fd);
if (sf->version > 1) { /* SF2 only */
READDW(sf->sample[i].samplerate, fd);
READB(sf->sample[i].originalPitch, fd);
READB(sf->sample[i].pitchCorrection, fd);
READW(sf->sample[i].samplelink, fd);
READW(sf->sample[i].sampletype, fd);
} else { /* for SBK; set missing infos */
sf->sample[i].samplerate = 44100;
sf->sample[i].originalPitch = 60;
sf->sample[i].pitchCorrection = 0;
sf->sample[i].samplelink = 0;
/* the first RAM data starts from address 0 */
if (sf->sample[i].startsample == 0)
in_rom = 0;
if (in_rom)
sf->sample[i].sampletype = 0x8001;
else
sf->sample[i].sampletype = 1;
}
}
}
int Instruments::load_soundfont(SFInfo *sf, struct timidity_file *fd)
{
SFChunk chunk;
sf->preset = NULL;
sf->sample = NULL;
sf->inst = NULL;
sf->sf_name = NULL;
prbags.bag = inbags.bag = NULL;
prbags.gen = inbags.gen = NULL;
prbags.nbags = inbags.nbags =
prbags.ngens = inbags.ngens = 0;
/* check RIFF file header */
READCHUNK(&chunk, fd);
if (chunkid(chunk.id) != RIFF_ID) {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: *** not a RIFF file", fd->filename.c_str());
return -1;
}
/* check file id */
READID(chunk.id, fd);
if (chunkid(chunk.id) != SFBK_ID) {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: *** not a SoundFont file", fd->filename.c_str());
return -1;
}
for (;;) {
if (READCHUNK(&chunk, fd) <= 0)
break;
else if (chunkid(chunk.id) == LIST_ID) {
if (process_list(chunk.size, sf, fd))
break;
}
else {
ctl_cmsg(CMSG_WARNING, VERB_NORMAL, "%s: *** illegal id in level 0: %4.4s %4d", fd->filename.c_str(), chunk.id, chunk.size);
FSKIP(chunk.size, fd);
// Not aborting here will inevitably crash.
return -1;
}
}
/* parse layer structure */
convert_layers(sf);
/* free private tables */
if (prbags.bag) free(prbags.bag);
if (prbags.gen) free(prbags.gen);
if (inbags.bag) free(inbags.bag);
if (inbags.gen) free(inbags.gen);
return 0;
}
int awe_load_soundfont(SFInfo *sf, FILE *fd, int is_seekable)
{
SFChunk chunk;
seekable = is_seekable;
sf->preset = NULL;
sf->sample = NULL;
sf->inst = NULL;
sf->sf_name = NULL;
prbags.bag = inbags.bag = NULL;
prbags.gen = inbags.gen = NULL;
/* check RIFF file header */
READCHUNK(chunk, fd);
if (chunkid(chunk.id) != RIFF_ID) {
fprintf(stderr, "*** not a RIFF file\n");
return -1;
}
/* check file id */
READID(chunk.id, fd);
if (chunkid(chunk.id) != SFBK_ID) {
fprintf(stderr, "*** not a SoundFont file\n");
return -1;
}
for (;;) {
READCHUNK(chunk, fd);
if (feof(fd))
break;
else if (chunkid(chunk.id) == LIST_ID) {
if (process_list(chunk.size, sf, fd))
break;
} else {
fprintf(stderr, "*** illegal id in level 0: %4.4s %4d\n",
chunk.id, chunk.size);
FSKIP(chunk.size, fd);
}
}
/* parse layer structure */
convert_layers(sf);
/* free private tables */
if (prbags.bag) free(prbags.bag);
if (prbags.gen) free(prbags.gen);
if (inbags.bag) free(inbags.bag);
if (inbags.gen) free(inbags.gen);
return 0;
}
int Instruments::process_pdta(int size, SFInfo *sf, struct timidity_file *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a subchunk */
if (READCHUNK(&chunk, fd) <= 0)
return -1;
size -= 8;
ctl_cmsg(CMSG_INFO, VERB_DEBUG, " %c%c%c%c:",
chunk.id[0], chunk.id[1], chunk.id[2], chunk.id[3]);
switch (chunkid(chunk.id)) {
case PHDR_ID:
load_preset_header(chunk.size, sf, fd);
break;
case PBAG_ID:
load_bag(chunk.size, &prbags, fd);
break;
case PGEN_ID:
load_gen(chunk.size, &prbags, fd);
break;
case INST_ID:
load_inst_header(chunk.size, sf, fd);
break;
case IBAG_ID:
load_bag(chunk.size, &inbags, fd);
break;
case IGEN_ID:
load_gen(chunk.size, &inbags, fd);
break;
case SHDR_ID:
load_sample_info(chunk.size, sf, fd);
break;
case PMOD_ID: /* ignored */
case IMOD_ID: /* ingored */
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static int process_pdta(int size, SFInfo *sf, FILE *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a subchunk */
READCHUNK(chunk, fd); size -= 8;
if (feof(fd))
return -1;
switch (chunkid(chunk.id)) {
case PHDR_ID:
load_preset_header(chunk.size, sf, fd);
break;
case PBAG_ID:
load_bag(chunk.size, &prbags, fd);
break;
case PGEN_ID:
load_gen(chunk.size, &prbags, fd);
break;
case INST_ID:
load_inst_header(chunk.size, sf, fd);
break;
case IBAG_ID:
load_bag(chunk.size, &inbags, fd);
break;
case IGEN_ID:
load_gen(chunk.size, &inbags, fd);
break;
case SHDR_ID:
load_sample_info(chunk.size, sf, fd);
break;
case PMOD_ID: /* ignored */
case IMOD_ID: /* ingored */
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
int Instruments::process_info(int size, SFInfo *sf, struct timidity_file *fd)
{
sf->infopos = tf_tell(fd);
sf->infosize = size;
/* parse the buffer */
while (size > 0) {
SFChunk chunk;
/* read a sub chunk */
if (READCHUNK(&chunk, fd) <= 0)
return -1;
size -= 8;
ctl_cmsg(CMSG_INFO, VERB_DEBUG, " %c%c%c%c:",
chunk.id[0], chunk.id[1], chunk.id[2], chunk.id[3]);
switch (chunkid(chunk.id)) {
case IFIL_ID:
/* soundfont file version */
READW(&sf->version, fd);
READW(&sf->minorversion, fd);
ctl_cmsg(CMSG_INFO, VERB_DEBUG,
" version %d, minor %d",
sf->version, sf->minorversion);
break;
case INAM_ID:
/* name of the font */
sf->sf_name = (char*)safe_malloc(chunk.size + 1);
tf_read(sf->sf_name, 1, chunk.size, fd);
sf->sf_name[chunk.size] = 0;
ctl_cmsg(CMSG_INFO, VERB_DEBUG,
" name %s", sf->sf_name);
break;
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static int process_list(int size, SFInfo *sf, FILE *fd)
{
SFChunk chunk;
/* read the following id string */
READID(chunk.id, fd); size -= 4;
switch (chunkid(chunk.id)) {
case INFO_ID:
return process_info(size, sf, fd);
case SDTA_ID:
return process_sdta(size, sf, fd);
case PDTA_ID:
return process_pdta(size, sf, fd);
default:
fprintf(stderr, "*** illegal id in level 1: %4.4s\n", chunk.id);
FSKIP(size, fd); /* skip it */
return 0;
}
}
int Instruments::process_list(int size, SFInfo *sf, struct timidity_file *fd)
{
SFChunk chunk;
/* read the following id string */
READID(chunk.id, fd); size -= 4;
ctl_cmsg(CMSG_INFO, VERB_DEBUG, "%c%c%c%c:",
chunk.id[0], chunk.id[1], chunk.id[2], chunk.id[3]);
switch (chunkid(chunk.id)) {
case INFO_ID:
return process_info(size, sf, fd);
case SDTA_ID:
return process_sdta(size, sf, fd);
case PDTA_ID:
return process_pdta(size, sf, fd);
default:
ctl_cmsg(CMSG_WARNING, VERB_NORMAL, "%s: *** illegal id in level 1: %4.4s", fd->filename.c_str(), chunk.id);
FSKIP(size, fd); /* skip it */
return 0;
}
}
