/*

TiMidity -- Experimental MIDI to WAVE converter

Copyright (C) 1995 Tuukka Toivonen <toivonen@clinet.fi>

This program is free software; you can redistribute it and/or modify

it under the terms of the Perl Artistic License, available in COPYING.

*/

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "config.h"

#include "common.h"

#include "instrum.h"

#include "playmidi.h"

#include "readmidi.h"

#include "output.h"

#include "timidity.h"

#include "tables.h"

void (*s32tobuf)(void *dp, int32 *lp, int32 c);

int free_instruments_afterwards=0;

static char def_instr_name[256]="";

int AUDIO_BUFFER_SIZE;

resample_t *resample_buffer=NULL;

int32 *common_buffer=NULL;

#define MAXWORDS 10

{

FILE *fp;

ToneBank *bank=0;

int i, j, k, line=0, words;

static int rcf_count=0;

if (rcf_count>50)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"Probable source loop in configuration files");

return (-1);

}

if (!(fp=open_file(name, 1, OF_VERBOSE)))

return -1;

while (fgets(tmp, sizeof(tmp), fp))

{

line++;

w[words=0]=strtok(tmp, " \t\r\n\240");

if (!w[0] || (*w[0]=='#')) continue;

while (w[words] && (words < MAXWORDS))

{

w[++words]=strtok(0," \t\r\n\240");

if (w[words] && w[words][0]=='#') break;

}

if (!strcmp(w[0], "map")) continue;

if (!strcmp(w[0], "dir"))

{

if (words < 2)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: No directory given\n", name, line);

return -2;

}

for (i=1; i<words; i++)

add_to_pathlist(w[i]);

}

else if (!strcmp(w[0], "source"))

{

if (words < 2)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: No file name given\n", name, line);

return -2;

}

for (i=1; i<words; i++)

{

rcf_count++;

read_config_file(w[i]);

rcf_count--;

}

}

else if (!strcmp(w[0], "default"))

{

if (words != 2)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: Must specify exactly one patch name\n",

name, line);

return -2;

}

strncpy(def_instr_name, w[1], 255);

def_instr_name[255]='\0';

}

else if (!strcmp(w[0], "drumset"))

{

if (words < 2)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: No drum set number given\n",

name, line);

return -2;

}

i=atoi(w[1]);

if (i<0 || i>127)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: Drum set must be between 0 and 127\n",

name, line);

return -2;

}

if (!drumset[i])

{

drumset[i]=safe_malloc(sizeof(ToneBank));

memset(drumset[i], 0, sizeof(ToneBank));

}

bank=drumset[i];

}

else if (!strcmp(w[0], "bank"))

{

if (words < 2)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: No bank number given\n",

name, line);

return -2;

}

i=atoi(w[1]);

if (i<0 || i>127)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: Tone bank must be between 0 and 127\n",

name, line);

return -2;

}

if (!tonebank[i])

{

tonebank[i]=safe_malloc(sizeof(ToneBank));

memset(tonebank[i], 0, sizeof(ToneBank));

}

bank=tonebank[i];

}

else {

if ((words < 2) || (*w[0] < '0' || *w[0] > '9'))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: syntax error\n", name, line);

}

i=atoi(w[0]);

if (i<0 || i>127)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: Program must be between 0 and 127\n",

name, line);

return -2;

}

if (!bank)

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: Must specify tone bank or drum set "

"before assignment\n",

name, line);

return -2;

}

if (bank->tone[i].name)

free(bank->tone[i].name);

strcpy((bank->tone[i].name=safe_malloc(strlen(w[1])+1)),w[1]);

bank->tone[i].note=bank->tone[i].amp=bank->tone[i].pan=

bank->tone[i].strip_loop=bank->tone[i].strip_envelope=

bank->tone[i].strip_tail=-1;

for (j=2; j<words; j++)

{

if (!(cp=strchr(w[j], '=')))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: bad patch option %s\n",

name, line, w[j]);

return -2;

}

*cp++=0;

if (!strcmp(w[j], "amp"))

{

k=atoi(cp);

if ((k<0 || k>MAX_AMPLIFICATION) || (*cp < '0' || *cp > '9'))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: amplification must be between "

"0 and %d\n", name, line, MAX_AMPLIFICATION);

return -2;

}

bank->tone[i].amp=k;

}

else if (!strcmp(w[j], "note"))

{

k=atoi(cp);

if ((k<0 || k>127) || (*cp < '0' || *cp > '9'))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: note must be between 0 and 127\n",

name, line);

return -2;

}

bank->tone[i].note=k;

}

else if (!strcmp(w[j], "pan"))

{

if (!strcmp(cp, "center"))

k=64;

else if (!strcmp(cp, "left"))

k=0;

else if (!strcmp(cp, "right"))

k=127;

else

k=((atoi(cp)+100) * 100) / 157;

if ((k<0 || k>127) ||

(k==0 && *cp!='-' && (*cp < '0' || *cp > '9')))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: panning must be left, right, "

"center, or between -100 and 100\n",

name, line);

return -2;

}

bank->tone[i].pan=k;

}

else if (!strcmp(w[j], "keep"))

{

if (!strcmp(cp, "env"))

bank->tone[i].strip_envelope=0;

else if (!strcmp(cp, "loop"))

bank->tone[i].strip_loop=0;

else

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: keep must be env or loop\n", name, line);

return -2;

}

}

else if (!strcmp(w[j], "strip"))

{

if (!strcmp(cp, "env"))

bank->tone[i].strip_envelope=1;

else if (!strcmp(cp, "loop"))

bank->tone[i].strip_loop=1;

else if (!strcmp(cp, "tail"))

bank->tone[i].strip_tail=1;

else

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL,

"%s: line %d: strip must be env, loop, or tail\n",

name, line);

return -2;

}

}

else

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: bad patch option %s\n",

name, line, w[j]);

return -2;

}

}

}

}

if (ferror(fp))

{

ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "Can't read from %s\n", name);

close_file(fp);

return -2;

}

close_file(fp);

return 0;

}

int Timidity_Init(int rate, int format, int channels, int samples)

{

const char *env = getenv("TIMIDITY_CFG");

if (!env || read_config_file(env)<0) {

if (read_config_file(CONFIG_FILE)<0) {

if (read_config_file(CONFIG_FILE_ETC)<0) {

if (read_config_file(CONFIG_FILE_ETC_TIMIDITY_FREEPATS)<0) {

return(-1);

}

}

if (channels < 1 || channels == 3 || channels == 5 || channels > 6) return(-1);

num_ochannels = channels;

/* Set play mode parameters */

play_mode->rate = rate;

play_mode->encoding = 0;

if ( (format&0xFF) == 16 ) {

play_mode->encoding |= PE_16BIT;

}

if ( (format&0x8000) ) {

play_mode->encoding |= PE_SIGNED;

}

if ( channels == 1 ) {

play_mode->encoding |= PE_MONO;

}

switch (format) {

case AUDIO_S8:

s32tobuf = s32tos8;

break;

case AUDIO_U8:

s32tobuf = s32tou8;

break;

case AUDIO_S16LSB:

s32tobuf = s32tos16l;

break;

case AUDIO_S16MSB:

s32tobuf = s32tos16b;

break;

case AUDIO_U16LSB:

s32tobuf = s32tou16l;

break;

case AUDIO_U16MSB:

s32tobuf = s32tou16b;

break;

default:

ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "Unsupported audio format");

return(-1);

}

AUDIO_BUFFER_SIZE = samples;

/* Allocate memory for mixing (WARNING: Memory leak!) */

resample_buffer = safe_malloc(AUDIO_BUFFER_SIZE*sizeof(resample_t)+100);

common_buffer = safe_malloc(AUDIO_BUFFER_SIZE*num_ochannels*sizeof(int32));

init_tables();

if (ctl->open(0, 0)) {

ctl->cmsg(CMSG_ERROR, VERB_NORMAL, "Couldn't open %s\n", ctl->id_name);

return(-1);

}

if (!control_ratio) {

control_ratio = play_mode->rate / CONTROLS_PER_SECOND;

if(control_ratio<1)

control_ratio=1;

else if (control_ratio > MAX_CONTROL_RATIO)

control_ratio=MAX_CONTROL_RATIO;

}

if (*def_instr_name)

set_default_instrument(def_instr_name);

return(0);

}

{

return(timidity_error);

}