zdoom/qzdoom
0
0
Fork 0
mirror of https://github.com/ZDoom/qzdoom.git synced 2024-12-02 08:52:12 +00:00
Code Issues Projects Releases Packages Wiki Activity
qzdoom/src/sound/timiditypp/configfile.cpp

1618 lines
38 KiB
C++
Raw Normal View History

- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
/*
TiMidity++ -- MIDI to WAVE converter and player
Copyright (C) 1999-2008 Masanao Izumo <iz@onicos.co.jp>
Copyright (C) 1995 Tuukka Toivonen <tt@cgs.fi>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <signal.h>
#include "timidity.h"
#include "common.h"
#include "instrum.h"
#include "quantity.h"
- something can be heard. This doesn't pipe the audio through OpenAL yet but the fundamentals for further progress are done.
2018-02-20 19:50:01 +00:00
#include "cmdlib.h"
Adjusted Timidity++ to soundfint manager
2018-02-23 07:54:01 +00:00
#include "i_soundfont.h"
- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
namespace TimidityPlus
{
#define MAXWORDS 130
#define CHECKERRLIMIT \
if(++errcnt >= 10) { \
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, \
"Too many errors... Give up read %s", name); \
reuse_mblock(&varbuf); \
close_file(tf); return 1; }
typedef struct {
const char *name;
int mapid, isdrum;
} MapNameEntry;
static int mapnamecompare(const void *name, const void *entry)
{
return strcmp((const char *)name, ((const MapNameEntry *)entry)->name);
}
static int mapname2id(char *name, int *isdrum)
{
static const MapNameEntry data[] = {
/* sorted in alphabetical order */
{ "gm2", GM2_TONE_MAP, 0 },
{ "gm2drum", GM2_DRUM_MAP, 1 },
{ "sc55", SC_55_TONE_MAP, 0 },
{ "sc55drum", SC_55_DRUM_MAP, 1 },
{ "sc88", SC_88_TONE_MAP, 0 },
{ "sc8850", SC_8850_TONE_MAP, 0 },
{ "sc8850drum", SC_8850_DRUM_MAP, 1 },
{ "sc88drum", SC_88_DRUM_MAP, 1 },
{ "sc88pro", SC_88PRO_TONE_MAP, 0 },
{ "sc88prodrum", SC_88PRO_DRUM_MAP, 1 },
{ "xg", XG_NORMAL_MAP, 0 },
{ "xgdrum", XG_DRUM_MAP, 1 },
{ "xgsfx126", XG_SFX126_MAP, 1 },
{ "xgsfx64", XG_SFX64_MAP, 0 }
};
const MapNameEntry *found;
found = (MapNameEntry *)bsearch(name, data, sizeof data / sizeof data[0], sizeof data[0], mapnamecompare);
if (found != NULL)
{
*isdrum = found->isdrum;
return found->mapid;
}
return -1;
}
static float *config_parse_tune(const char *cp, int *num)
{
const char *p;
float *tune_list;
int i;
/* count num */
*num = 1, p = cp;
while ((p = strchr(p, ',')) != NULL)
(*num)++, p++;
/* alloc */
tune_list = (float *)safe_malloc((*num) * sizeof(float));
/* regist */
for (i = 0, p = cp; i < *num; i++, p++) {
tune_list[i] = atof(p);
if (!(p = strchr(p, ',')))
break;
}
return tune_list;
}
static int16_t *config_parse_int16(const char *cp, int *num)
{
const char *p;
int16_t *list;
int i;
/* count num */
*num = 1, p = cp;
while ((p = strchr(p, ',')) != NULL)
(*num)++, p++;
/* alloc */
list = (int16_t *)safe_malloc((*num) * sizeof(int16_t));
/* regist */
for (i = 0, p = cp; i < *num; i++, p++) {
list[i] = atoi(p);
if (!(p = strchr(p, ',')))
break;
}
return list;
}
static int **config_parse_envelope(const char *cp, int *num)
{
const char *p, *px;
int **env_list;
int i, j;
/* count num */
*num = 1, p = cp;
while ((p = strchr(p, ',')) != NULL)
(*num)++, p++;
/* alloc */
env_list = (int **)safe_malloc((*num) * sizeof(int *));
for (i = 0; i < *num; i++)
env_list[i] = (int *)safe_malloc(6 * sizeof(int));
/* init */
for (i = 0; i < *num; i++)
for (j = 0; j < 6; j++)
env_list[i][j] = -1;
/* regist */
for (i = 0, p = cp; i < *num; i++, p++) {
px = strchr(p, ',');
for (j = 0; j < 6; j++, p++) {
if (*p == ':')
continue;
env_list[i][j] = atoi(p);
if (!(p = strchr(p, ':')))
break;
if (px && p > px)
break;
}
if (!(p = px))
break;
}
return env_list;
}
static Quantity **config_parse_modulation(const char *name, int line, const char *cp, int *num, int mod_type)
{
const char *p, *px, *err;
char buf[128], *delim;
Quantity **mod_list;
int i, j;
static const char * qtypestr[] = { "tremolo", "vibrato" };
static const uint16_t qtypes[] = {
QUANTITY_UNIT_TYPE(TREMOLO_SWEEP), QUANTITY_UNIT_TYPE(TREMOLO_RATE), QUANTITY_UNIT_TYPE(DIRECT_INT),
QUANTITY_UNIT_TYPE(VIBRATO_SWEEP), QUANTITY_UNIT_TYPE(VIBRATO_RATE), QUANTITY_UNIT_TYPE(DIRECT_INT)
};
/* count num */
*num = 1, p = cp;
while ((p = strchr(p, ',')) != NULL)
(*num)++, p++;
/* alloc */
mod_list = (Quantity **)safe_malloc((*num) * sizeof(Quantity *));
for (i = 0; i < *num; i++)
mod_list[i] = (Quantity *)safe_malloc(3 * sizeof(Quantity));
/* init */
for (i = 0; i < *num; i++)
for (j = 0; j < 3; j++)
INIT_QUANTITY(mod_list[i][j]);
buf[sizeof buf - 1] = '\0';
/* regist */
for (i = 0, p = cp; i < *num; i++, p++) {
px = strchr(p, ',');
for (j = 0; j < 3; j++, p++) {
if (*p == ':')
continue;
if ((delim = strpbrk(strncpy(buf, p, sizeof buf - 1), ":,")) != NULL)
*delim = '\0';
if (*buf != '\0' && (err = string_to_quantity(buf, &mod_list[i][j], qtypes[mod_type * 3 + j])) != NULL) {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: %s: parameter %d of item %d: %s (%s)",
name, line, qtypestr[mod_type], j + 1, i + 1, err, buf);
free_ptr_list(mod_list, *num);
mod_list = NULL;
*num = 0;
return NULL;
}
if (!(p = strchr(p, ':')))
break;
if (px && p > px)
break;
}
if (!(p = px))
break;
}
return mod_list;
}
/*! copy bank and, if necessary, map appropriately */
void Instruments::copybank(ToneBank *to, ToneBank *from, int mapid, int bankmapfrom, int bankno)
{
ToneBankElement *toelm, *fromelm;
int i;
if (from == NULL)
return;
for (i = 0; i < 128; i++)
{
toelm = &to->tone[i];
fromelm = &from->tone[i];
if (fromelm->name == NULL)
continue;
copy_tone_bank_element(toelm, fromelm);
toelm->instrument = NULL;
if (mapid != INST_NO_MAP)
set_instrument_map(mapid, bankmapfrom, i, bankno, i);
}
}
/*! copy the whole mapped bank. returns 0 if no error. */
int Instruments::copymap(int mapto, int mapfrom, int isdrum)
{
ToneBank **tb = isdrum ? drumset : tonebank;
int i, bankfrom, bankto;
for (i = 0; i < 128; i++)
{
bankfrom = find_instrument_map_bank(isdrum, mapfrom, i);
if (bankfrom <= 0) /* not mapped */
continue;
bankto = alloc_instrument_map_bank(isdrum, mapto, i);
if (bankto == -1) /* failed */
return 1;
copybank(tb[bankto], tb[bankfrom], mapto, i, bankto);
}
return 0;
}
int Instruments::set_gus_patchconf_opts(const char *name, int line, char *opts, ToneBankElement *tone)
{
char *cp;
int k;
if (!(cp = strchr(opts, '='))) {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: bad patch option %s", name, line, opts);
return 1;
}
*cp++ = 0;
if (!strcmp(opts, "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",
name, line, MAX_AMPLIFICATION);
return 1;
}
tone->amp = k;
}
else if (!strcmp(opts, "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",
name, line);
return 1;
}
tone->note = k;
tone->scltune = config_parse_int16("100", &tone->scltunenum);
}
else if (!strcmp(opts, "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",
name, line);
return 1;
}
}
tone->pan = k;
}
else if (!strcmp(opts, "tune"))
tone->tune = config_parse_tune(cp, &tone->tunenum);
else if (!strcmp(opts, "rate"))
tone->envrate = config_parse_envelope(cp, &tone->envratenum);
else if (!strcmp(opts, "offset"))
tone->envofs = config_parse_envelope(cp, &tone->envofsnum);
else if (!strcmp(opts, "keep")) {
if (!strcmp(cp, "env"))
tone->strip_envelope = 0;
else if (!strcmp(cp, "loop"))
tone->strip_loop = 0;
else {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: keep must be env or loop", name, line);
return 1;
}
}
else if (!strcmp(opts, "strip")) {
if (!strcmp(cp, "env"))
tone->strip_envelope = 1;
else if (!strcmp(cp, "loop"))
tone->strip_loop = 1;
else if (!strcmp(cp, "tail"))
tone->strip_tail = 1;
else {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: strip must be env, loop, or tail",
name, line);
return 1;
}
}
else if (!strcmp(opts, "tremolo")) {
if ((tone->trem = config_parse_modulation(name,
line, cp, &tone->tremnum, 0)) == NULL)
return 1;
}
else if (!strcmp(opts, "vibrato")) {
if ((tone->vib = config_parse_modulation(name,
line, cp, &tone->vibnum, 1)) == NULL)
return 1;
}
else if (!strcmp(opts, "sclnote"))
tone->sclnote = config_parse_int16(cp, &tone->sclnotenum);
else if (!strcmp(opts, "scltune"))
tone->scltune = config_parse_int16(cp, &tone->scltunenum);
else if (!strcmp(opts, "comm")) {
char *p;
if (tone->comment)
free(tone->comment);
p = tone->comment = safe_strdup(cp);
while (*p) {
if (*p == ',')
*p = ' ';
p++;
}
}
else if (!strcmp(opts, "modrate"))
tone->modenvrate = config_parse_envelope(cp, &tone->modenvratenum);
else if (!strcmp(opts, "modoffset"))
tone->modenvofs = config_parse_envelope(cp, &tone->modenvofsnum);
else if (!strcmp(opts, "envkeyf"))
tone->envkeyf = config_parse_envelope(cp, &tone->envkeyfnum);
else if (!strcmp(opts, "envvelf"))
tone->envvelf = config_parse_envelope(cp, &tone->envvelfnum);
else if (!strcmp(opts, "modkeyf"))
tone->modenvkeyf = config_parse_envelope(cp, &tone->modenvkeyfnum);
else if (!strcmp(opts, "modvelf"))
tone->modenvvelf = config_parse_envelope(cp, &tone->modenvvelfnum);
else if (!strcmp(opts, "trempitch"))
tone->trempitch = config_parse_int16(cp, &tone->trempitchnum);
else if (!strcmp(opts, "tremfc"))
tone->tremfc = config_parse_int16(cp, &tone->tremfcnum);
else if (!strcmp(opts, "modpitch"))
tone->modpitch = config_parse_int16(cp, &tone->modpitchnum);
else if (!strcmp(opts, "modfc"))
tone->modfc = config_parse_int16(cp, &tone->modfcnum);
else if (!strcmp(opts, "fc"))
tone->fc = config_parse_int16(cp, &tone->fcnum);
else if (!strcmp(opts, "q"))
tone->reso = config_parse_int16(cp, &tone->resonum);
else if (!strcmp(opts, "fckeyf")) /* filter key-follow */
tone->key_to_fc = atoi(cp);
else if (!strcmp(opts, "fcvelf")) /* filter velocity-follow */
tone->vel_to_fc = atoi(cp);
else if (!strcmp(opts, "qvelf")) /* resonance velocity-follow */
tone->vel_to_resonance = atoi(cp);
else {
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: bad patch option %s",
name, line, opts);
return 1;
}
return 0;
}
void Instruments::reinit_tone_bank_element(ToneBankElement *tone)
{
free_tone_bank_element(tone);
tone->note = tone->pan = -1;
tone->strip_loop = tone->strip_envelope = tone->strip_tail = -1;
tone->amp = -1;
tone->rnddelay = 0;
tone->loop_timeout = 0;
tone->legato = tone->damper_mode = tone->key_to_fc = tone->vel_to_fc = 0;
tone->reverb_send = tone->chorus_send = tone->delay_send = -1;
tone->tva_level = -1;
tone->play_note = -1;
}
int Instruments::set_gus_patchconf(const char *name, int line, ToneBankElement *tone, char *pat, char **opts)
{
int j;
reinit_tone_bank_element(tone);
if (strcmp(pat, "%font") == 0) /* Font extention */
{
/* %font filename bank prog [note-to-use]
* %font filename 128 bank key
*/
if (opts[0] == NULL || opts[1] == NULL || opts[2] == NULL ||
(atoi(opts[1]) == 128 && opts[3] == NULL))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Syntax error", name, line);
return 1;
}
tone->name = safe_strdup(opts[0]);
tone->instype = 1;
if (atoi(opts[1]) == 128) /* drum */
{
tone->font_bank = 128;
tone->font_preset = atoi(opts[2]);
tone->font_keynote = atoi(opts[3]);
opts += 4;
}
else
{
tone->font_bank = atoi(opts[1]);
tone->font_preset = atoi(opts[2]);
if (opts[3] && isdigit(opts[3][0]))
{
tone->font_keynote = atoi(opts[3]);
opts += 4;
}
else
{
tone->font_keynote = -1;
opts += 3;
}
}
}
else if (strcmp(pat, "%sample") == 0) /* Sample extention */
{
/* %sample filename */
if (opts[0] == NULL)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Syntax error", name, line);
return 1;
}
tone->name = safe_strdup(opts[0]);
tone->instype = 2;
opts++;
}
else
{
tone->instype = 0;
tone->name = safe_strdup(pat);
}
for (j = 0; opts[j] != NULL; j++)
{
int err;
if ((err = set_gus_patchconf_opts(name, line, opts[j], tone)) != 0)
return err;
}
if (tone->comment == NULL)
tone->comment = safe_strdup(tone->name);
return 0;
}
int Instruments::set_patchconf(const char *name, int line, ToneBank *bank, char *w[], int dr, int mapid, int bankmapfrom, int bankno)
{
int i;
i = atoi(w[0]);
if (!dr)
i -= progbase;
if (i < 0 || i > 127)
{
if (dr)
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Drum number must be between "
"0 and 127",
name, line);
else
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Program must be between "
"%d and %d",
name, line, progbase, 127 + progbase);
return 1;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
return 1;
}
if (set_gus_patchconf(name, line, &bank->tone[i], w[1], w + 2))
return 1;
if (mapid != INST_NO_MAP)
set_instrument_map(mapid, bankmapfrom, i, bankno, i);
return 0;
}
/* string[0] should not be '#' */
int Instruments::strip_trailing_comment(char *string, int next_token_index)
{
if (string[next_token_index - 1] == '#' /* strip \1 in /^\S+(#*[ \t].*)/ */
&& (string[next_token_index] == ' ' || string[next_token_index] == '\t'))
{
string[next_token_index] = '\0'; /* new c-string terminator */
while (string[--next_token_index - 1] == '#')
;
}
return next_token_index;
}
char *Instruments::expand_variables(char *string, MBlockList *varbuf, const char *basedir)
{
char *p, *expstr;
const char *copystr;
int limlen, copylen, explen, varlen, braced;
if ((p = strchr(string, '$')) == NULL)
return string;
varlen = (int)strlen(basedir);
explen = limlen = 0;
expstr = NULL;
copystr = string;
copylen = p - string;
string = p;
for (;;)
{
if (explen + copylen + 1 > limlen)
{
limlen += copylen + 128;
expstr = (char*)memcpy(new_segment(varbuf, limlen), expstr, explen);
}
memcpy(&expstr[explen], copystr, copylen);
explen += copylen;
if (*string == '\0')
break;
else if (*string == '$')
{
braced = *++string == '{';
if (braced)
{
if ((p = strchr(string + 1, '}')) == NULL)
p = string; /* no closing brace */
else
string++;
}
else
for (p = string; isalnum(*p) || *p == '_'; p++);
if (p == string) /* empty */
{
copystr = "${";
copylen = 1 + braced;
}
else
{
if (p - string == 7 && memcmp(string, "basedir", 7) == 0)
{
copystr = basedir;
copylen = varlen;
}
else /* undefined variable */
copylen = 0;
string = p + braced;
}
}
else /* search next */
{
p = strchr(string, '$');
if (p == NULL)
copylen = (int)strlen(string);
else
copylen = int(p - string);
copystr = string;
string += copylen;
}
}
expstr[explen] = '\0';
return expstr;
}
Adjusted Timidity++ to soundfint manager
2018-02-23 07:54:01 +00:00
int Instruments::read_config_file(const char *name, int self, int allow_missing_file)
- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
{
struct timidity_file *tf;
char buf[1024], *tmp, *w[MAXWORDS + 1], *cp;
ToneBank *bank = NULL;
int i, j, k, line = 0, words, errcnt = 0;
static int rcf_count = 0;
int dr = 0, bankno = 0, mapid = INST_NO_MAP, origbankno = 0x7FFFFFFF;
int extension_flag, param_parse_err;
MBlockList varbuf;
const char *basedir;
char *sep;
if (rcf_count > 50)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"Probable source loop in configuration files");
return READ_CONFIG_RECURSION;
}
Adjusted Timidity++ to soundfint manager
2018-02-23 07:54:01 +00:00
tf = open_file(name, sfreader);
- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
if (tf == NULL)
return allow_missing_file ? READ_CONFIG_FILE_NOT_FOUND :
READ_CONFIG_ERROR;
init_mblock(&varbuf);
if (!self)
{
basedir = strdup_mblock(&varbuf, tf->filename.c_str());
- something can be heard. This doesn't pipe the audio through OpenAL yet but the fundamentals for further progress are done.
2018-02-20 19:50:01 +00:00
FixPathSeperator((char*)basedir);
- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
sep = (char*)strrchr(basedir, '/');
}
else
sep = NULL;
if (sep == NULL)
{
basedir = ".";
}
else
{
if ((cp = (char*)strchr(sep, '#')) != NULL)
sep = cp + 1; /* inclusive of '#' */
*sep = '\0';
}
while (tf_gets(buf, sizeof(buf), tf))
{
line++;
if (strncmp(buf, "#extension", 10) == 0) {
extension_flag = 1;
i = 10;
}
else
{
extension_flag = 0;
i = 0;
}
while (isspace(buf[i])) /* skip /^\s*(?#)/ */
i++;
if (buf[i] == '#' || buf[i] == '\0') /* /^#|^$/ */
continue;
tmp = expand_variables(buf, &varbuf, basedir);
j = (int)strcspn(tmp + i, " \t\r\n\240");
if (j == 0)
j = (int)strlen(tmp + i);
j = strip_trailing_comment(tmp + i, j);
tmp[i + j] = '\0'; /* terminate the first token */
w[0] = tmp + i;
i += j + 1;
words = param_parse_err = 0;
while (words < MAXWORDS - 1) /* -1 : next arg */
{
char *terminator;
while (isspace(tmp[i])) /* skip /^\s*(?#)/ */
i++;
if (tmp[i] == '\0'
|| tmp[i] == '#') /* /\s#/ */
break;
if ((tmp[i] == '"' || tmp[i] == '\'')
&& (terminator = strchr(tmp + i + 1, tmp[i])) != NULL)
{
if (!isspace(terminator[1]) && terminator[1] != '\0')
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: there must be at least one whitespace between "
"string terminator (%c) and the next parameter", name, line, tmp[i]);
CHECKERRLIMIT;
param_parse_err = 1;
break;
}
w[++words] = tmp + i + 1;
i = terminator - tmp + 1;
*terminator = '\0';
}
else /* not terminated */
{
j = (int)strcspn(tmp + i, " \t\r\n\240");
if (j > 0)
j = strip_trailing_comment(tmp + i, j);
w[++words] = tmp + i;
i += j;
if (tmp[i] != '\0') /* unless at the end-of-string (i.e. EOF) */
tmp[i++] = '\0'; /* terminate the token */
}
}
if (param_parse_err)
continue;
w[++words] = NULL;
/*
* #extension [something...]
*/
/* #extension timeout program sec */
if (strcmp(w[0], "timeout") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension timeout "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
bank->tone[i].loop_timeout = atoi(w[2]);
}
/* #extension copydrumset drumset */
else if (strcmp(w[0], "copydrumset") == 0)
{
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No copydrumset number given",
name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension copydrumset "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or "
"drum set before assignment", name, line);
CHECKERRLIMIT;
continue;
}
copybank(bank, drumset[i], mapid, origbankno, bankno);
}
/* #extension copybank bank */
else if (strcmp(w[0], "copybank") == 0)
{
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No copybank number given",
name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension copybank "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or "
"drum set before assignment", name, line);
CHECKERRLIMIT;
continue;
}
copybank(bank, tonebank[i], mapid, origbankno, bankno);
}
/* #extension copymap tomapid frommapid */
else if (strcmp(w[0], "copymap") == 0)
{
int mapto, mapfrom;
int toisdrum, fromisdrum;
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if ((mapto = mapname2id(w[1], &toisdrum)) == -1)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid map name: %s", name, line, w[1]);
CHECKERRLIMIT;
continue;
}
if ((mapfrom = mapname2id(w[2], &fromisdrum)) == -1)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid map name: %s", name, line, w[2]);
CHECKERRLIMIT;
continue;
}
if (toisdrum != fromisdrum)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Map type should be matched", name, line);
CHECKERRLIMIT;
continue;
}
if (copymap(mapto, mapfrom, toisdrum))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No free %s available to map",
name, line, toisdrum ? "drum set" : "tone bank");
CHECKERRLIMIT;
continue;
}
}
/* #extension undef program */
else if (strcmp(w[0], "undef") == 0)
{
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No undef number given",
name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension undef "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or "
"drum set before assignment", name, line);
CHECKERRLIMIT;
continue;
}
free_tone_bank_element(&bank->tone[i]);
}
/* #extension altassign numbers... */
else if (strcmp(w[0], "altassign") == 0)
{
ToneBank *bk;
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before altassign", name, line);
CHECKERRLIMIT;
continue;
}
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No alternate assignment", name, line);
CHECKERRLIMIT;
continue;
}
if (!dr) {
ctl_cmsg(CMSG_WARNING, VERB_NORMAL,
"%s: line %d: Warning: Not a drumset altassign"
" (ignored)",
name, line);
continue;
}
bk = drumset[bankno];
bk->alt = add_altassign_string(bk->alt, w + 1, words - 1);
} /* #extension legato [program] [0 or 1] */
else if (strcmp(w[0], "legato") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension legato "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
bank->tone[i].legato = atoi(w[2]);
} /* #extension damper [program] [0 or 1] */
else if (strcmp(w[0], "damper") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension damper "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
bank->tone[i].damper_mode = atoi(w[2]);
} /* #extension rnddelay [program] [0 or 1] */
else if (strcmp(w[0], "rnddelay") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[1]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension rnddelay "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
bank->tone[i].rnddelay = atoi(w[2]);
} /* #extension level program tva_level */
else if (strcmp(w[0], "level") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[2]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension level "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
cp = w[1];
do {
if (string_to_7bit_range(cp, &j, &k))
{
while (j <= k)
bank->tone[j++].tva_level = i;
}
cp = strchr(cp, ',');
} while (cp++ != NULL);
} /* #extension reverbsend */
else if (strcmp(w[0], "reverbsend") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[2]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension reverbsend "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
cp = w[1];
do {
if (string_to_7bit_range(cp, &j, &k))
{
while (j <= k)
bank->tone[j++].reverb_send = i;
}
cp = strchr(cp, ',');
} while (cp++ != NULL);
} /* #extension chorussend */
else if (strcmp(w[0], "chorussend") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[2]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension chorussend "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
cp = w[1];
do {
if (string_to_7bit_range(cp, &j, &k))
{
while (j <= k)
bank->tone[j++].chorus_send = i;
}
cp = strchr(cp, ',');
} while (cp++ != NULL);
} /* #extension delaysend */
else if (strcmp(w[0], "delaysend") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[2]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension delaysend "
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
cp = w[1];
do {
if (string_to_7bit_range(cp, &j, &k))
{
while (j <= k)
bank->tone[j++].delay_send = i;
}
cp = strchr(cp, ',');
} while (cp++ != NULL);
} /* #extension playnote */
else if (strcmp(w[0], "playnote") == 0)
{
if (words != 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL, "%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (!bank)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify tone bank or drum set "
"before assignment", name, line);
CHECKERRLIMIT;
continue;
}
i = atoi(w[2]);
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: extension playnote"
"must be between 0 and 127", name, line);
CHECKERRLIMIT;
continue;
}
cp = w[1];
do {
if (string_to_7bit_range(cp, &j, &k))
{
while (j <= k)
bank->tone[j++].play_note = i;
}
cp = strchr(cp, ',');
} while (cp++ != NULL);
}
else if (!strcmp(w[0], "soundfont"))
{
int order, cutoff, isremove, reso, amp;
char *sf_file;
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No soundfont file given",
name, line);
CHECKERRLIMIT;
continue;
}
sf_file = w[1];
order = cutoff = reso = amp = -1;
isremove = 0;
for (j = 2; j < words; j++)
{
if (strcmp(w[j], "remove") == 0)
{
isremove = 1;
break;
}
if (!(cp = strchr(w[j], '=')))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: bad patch option %s",
name, line, w[j]);
CHECKERRLIMIT;
break;
}
*cp++ = 0;
k = atoi(cp);
if (!strcmp(w[j], "order"))
{
if (k < 0 || (*cp < '0' || *cp > '9'))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: order must be a digit",
name, line);
CHECKERRLIMIT;
break;
}
order = k;
}
else if (!strcmp(w[j], "cutoff"))
{
if (k < 0 || (*cp < '0' || *cp > '9'))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: cutoff must be a digit",
name, line);
CHECKERRLIMIT;
break;
}
cutoff = k;
}
else if (!strcmp(w[j], "reso"))
{
if (k < 0 || (*cp < '0' || *cp > '9'))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: reso must be a digit",
name, line);
CHECKERRLIMIT;
break;
}
reso = k;
}
else if (!strcmp(w[j], "amp"))
{
amp = k;
}
}
if (isremove)
remove_soundfont(sf_file);
else
add_soundfont(sf_file, order, cutoff, reso, amp);
}
else if (!strcmp(w[0], "font"))
{
int bank, preset, keynote;
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: no font command", name, line);
CHECKERRLIMIT;
continue;
}
if (!strcmp(w[1], "exclude"))
{
if (words < 3)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No bank/preset/key is given",
name, line);
CHECKERRLIMIT;
continue;
}
bank = atoi(w[2]);
if (words >= 4)
preset = atoi(w[3]) - progbase;
else
preset = -1;
if (words >= 5)
keynote = atoi(w[4]);
else
keynote = -1;
if (exclude_soundfont(bank, preset, keynote))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No soundfont is given",
name, line);
CHECKERRLIMIT;
}
}
else if (!strcmp(w[1], "order"))
{
int order;
if (words < 4)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No order/bank is given",
name, line);
CHECKERRLIMIT;
continue;
}
order = atoi(w[2]);
bank = atoi(w[3]);
if (words >= 5)
preset = atoi(w[4]) - progbase;
else
preset = -1;
if (words >= 6)
keynote = atoi(w[5]);
else
keynote = -1;
if (order_soundfont(bank, preset, keynote, order))
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No soundfont is given",
name, line);
CHECKERRLIMIT;
}
}
}
else if (!strcmp(w[0], "progbase"))
{
if (words < 2 || *w[1] < '0' || *w[1] > '9')
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
progbase = atoi(w[1]);
}
else if (!strcmp(w[0], "map")) /* map <name> set1 elem1 set2 elem2 */
{
int arg[5], isdrum;
if (words != 6)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if ((arg[0] = mapname2id(w[1], &isdrum)) == -1)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid map name: %s", name, line, w[1]);
CHECKERRLIMIT;
continue;
}
for (i = 2; i < 6; i++)
arg[i - 1] = atoi(w[i]);
if (isdrum)
{
arg[1] -= progbase;
arg[3] -= progbase;
}
else
{
arg[2] -= progbase;
arg[4] -= progbase;
}
for (i = 1; i < 5; i++)
if (arg[i] < 0 || arg[i] > 127)
break;
if (i != 5)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid parameter", name, line);
CHECKERRLIMIT;
continue;
}
set_instrument_map(arg[0], arg[1], arg[2], arg[3], arg[4]);
}
/*
* Standard configurations
*/
else if (!strcmp(w[0], "dir"))
{
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No directory given", name, line);
CHECKERRLIMIT;
continue;
}
for (i = 1; i < words; i++)
Adjusted Timidity++ to soundfint manager
2018-02-23 07:54:01 +00:00
sfreader->AddPath(w[i]);
- Timidity++ sources added. This compiles but isn't hooked into the engine yet. This source has been heavily edited to remove the deep integration with the provided UI modules and to eliminate use of global variables and puts everything into a small number of C++ classes.
2018-02-19 21:14:22 +00:00
}
else if (!strcmp(w[0], "source") || !strcmp(w[0], "trysource"))
{
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No file name given", name, line);
CHECKERRLIMIT;
continue;
}
for (i = 1; i < words; i++)
{
int status;
rcf_count++;
status = read_config_file(w[i], 0, !strcmp(w[0], "trysource"));
rcf_count--;
switch (status) {
case READ_CONFIG_SUCCESS:
break;
case READ_CONFIG_ERROR:
CHECKERRLIMIT;
continue;
case READ_CONFIG_RECURSION:
reuse_mblock(&varbuf);
close_file(tf);
return READ_CONFIG_RECURSION;
case READ_CONFIG_FILE_NOT_FOUND:
break;
}
}
}
else if (!strcmp(w[0], "default"))
{
if (words != 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Must specify exactly one patch name",
name, line);
CHECKERRLIMIT;
continue;
}
strncpy(def_instr_name, w[1], 255);
def_instr_name[255] = '\0';
default_instrument_name = def_instr_name;
}
/* drumset [mapid] num */
else if (!strcmp(w[0], "drumset"))
{
int newmapid, isdrum, newbankno;
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No drum set number given", name, line);
CHECKERRLIMIT;
continue;
}
if (words != 2 && !isdigit(*w[1]))
{
if ((newmapid = mapname2id(w[1], &isdrum)) == -1 || !isdrum)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid drum set map name: %s", name, line, w[1]);
CHECKERRLIMIT;
continue;
}
words--;
memmove(&w[1], &w[2], sizeof w[0] * words);
}
else
newmapid = INST_NO_MAP;
i = atoi(w[1]) - progbase;
if (i < 0 || i > 127)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Drum set must be between %d and %d",
name, line,
progbase, progbase + 127);
CHECKERRLIMIT;
continue;
}
newbankno = i;
i = alloc_instrument_map_bank(1, newmapid, i);
if (i == -1)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No free drum set available to map",
name, line);
CHECKERRLIMIT;
continue;
}
if (words == 2)
{
bank = drumset[i];
bankno = i;
mapid = newmapid;
origbankno = newbankno;
dr = 1;
}
else
{
if (words < 4 || *w[2] < '0' || *w[2] > '9')
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (set_patchconf(name, line, drumset[i], &w[2], 1, newmapid, newbankno, i))
{
CHECKERRLIMIT;
continue;
}
}
}
/* bank [mapid] num */
else if (!strcmp(w[0], "bank"))
{
int newmapid, isdrum, newbankno;
if (words < 2)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No bank number given", name, line);
CHECKERRLIMIT;
continue;
}
if (words != 2 && !isdigit(*w[1]))
{
if ((newmapid = mapname2id(w[1], &isdrum)) == -1 || isdrum)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: Invalid bank map name: %s", name, line, w[1]);
CHECKERRLIMIT;
continue;
}
words--;
memmove(&w[1], &w[2], sizeof w[0] * words);
}
else
newmapid = INST_NO_MAP;
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",
name, line);
CHECKERRLIMIT;
continue;
}
newbankno = i;
i = alloc_instrument_map_bank(0, newmapid, i);
if (i == -1)
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: No free tone bank available to map",
name, line);
CHECKERRLIMIT;
continue;
}
if (words == 2)
{
bank = tonebank[i];
bankno = i;
mapid = newmapid;
origbankno = newbankno;
dr = 0;
}
else
{
if (words < 4 || *w[2] < '0' || *w[2] > '9')
{
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (set_patchconf(name, line, tonebank[i], &w[2], 0, newmapid, newbankno, i))
{
CHECKERRLIMIT;
continue;
}
}
}
else
{
if (words < 2 || *w[0] < '0' || *w[0] > '9')
{
if (extension_flag)
continue;
ctl_cmsg(CMSG_ERROR, VERB_NORMAL,
"%s: line %d: syntax error", name, line);
CHECKERRLIMIT;
continue;
}
if (set_patchconf(name, line, bank, w, dr, mapid, origbankno, bankno))
{
CHECKERRLIMIT;
continue;
}
}
}
reuse_mblock(&varbuf);
close_file(tf);
return (errcnt == 0) ? READ_CONFIG_SUCCESS : READ_CONFIG_ERROR;
}
Adjusted Timidity++ to soundfint manager
2018-02-23 07:54:01 +00:00
}
Reference in a new issue Copy permalink