diff src/timidity/libtimidity/timidity.c @ 12:3da1b8942b8b trunk

[svn] - remove src/Input src/Output src/Effect src/General src/Visualization src/Container

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/timidity/libtimidity/timidity.c	Mon Sep 18 03:14:20 2006 -0700
@@ -0,0 +1,606 @@
+/*
+
+    TiMidity -- Experimental MIDI to WAVE converter
+    Copyright (C) 1995 Tuukka Toivonen <[e-mail]>
+
+	 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+*/
+
+#if HAVE_CONFIG_H
+#  include <config.h>
+#endif
+
+#include "audacious/vfs.h"
+#include <stdlib.h>
+#include <string.h>
+
+#include "timidity.h"
+#include "timidity_internal.h"
+
+#include "options.h"
+#include "common.h"
+#include "instrum.h"
+#include "playmidi.h"
+#include "readmidi.h"
+#include "output.h"
+
+#include "tables.h"
+
+MidToneBank *master_tonebank[128], *master_drumset[128];
+
+static char def_instr_name[256] = "";
+
+#define MAXWORDS 10
+
+/* Quick-and-dirty fgets() replacement. */
+
+static char *__fgets(char *s, int size, VFSFile *fp)
+{
+    int num_read = 0;
+    int newline = 0;
+
+    while (num_read < size && !newline)
+    {
+	if (vfs_fread(&s[num_read], 1, 1, fp) != 1)
+	    break;
+
+	/* Unlike fgets(), don't store newline. Under Windows/DOS we'll
+	 * probably get an extra blank line for every line that's being
+	 * read, but that should be ok.
+	 */
+	if (s[num_read] == '\n' || s[num_read] == '\r')
+	{
+	    s[num_read] = '\0';
+	    newline = 1;
+	}
+	
+	num_read++;
+    }
+
+    s[num_read] = '\0';
+    
+    return (num_read != 0) ? s : NULL;
+}
+
+static int read_config_file(char *name)
+{
+  VFSFile *fp;
+  char tmp[1024], *w[MAXWORDS], *cp;
+  MidToneBank *bank=0;
+  int i, j, k, line=0, words;
+  static int rcf_count=0;
+
+  if (rcf_count>50)
+  {
+    DEBUG_MSG("Probable source loop in configuration files\n");
+    return (-1);
+  }
+
+  if (!(fp=open_file(name)))
+   return -1;
+
+  while (__fgets(tmp, sizeof(tmp), fp))
+  {
+    line++;
+    w[words=0]=strtok(tmp, " \t\240");
+    if (!w[0]) continue;
+
+        /* Originally the TiMidity++ extensions were prefixed like this */
+    if (strcmp(w[0], "#extension") == 0)
+        words = -1;
+    else if (*w[0] == '#')
+        continue;
+
+    while (w[words] && *w[words] != '#' && (words < MAXWORDS))
+      w[++words]=strtok(0," \t\240");
+
+        /*
+         * TiMidity++ adds a number of extensions to the config file format.
+         * Many of them are completely irrelevant to SDL_sound, but at least
+         * we shouldn't choke on them.
+         *
+         * Unfortunately the documentation for these extensions is often quite
+         * vague, gramatically strange or completely absent.
+         */
+    if (
+           !strcmp(w[0], "comm")      /* "comm" program second        */
+        || !strcmp(w[0], "HTTPproxy") /* "HTTPproxy" hostname:port    */
+        || !strcmp(w[0], "FTPproxy")  /* "FTPproxy" hostname:port     */
+        || !strcmp(w[0], "mailaddr")  /* "mailaddr" your-mail-address */
+        || !strcmp(w[0], "opt")       /* "opt" timidity-options       */
+       )
+    {
+            /*
+             * + "comm" sets some kind of comment -- the documentation is too
+             *   vague for me to understand at this time.
+             * + "HTTPproxy", "FTPproxy" and "mailaddr" are for reading data
+             *   over a network, rather than from the file system.
+             * + "opt" specifies default options for TiMidity++.
+             *
+             * These are all quite useless for our version of TiMidity, so
+             * they can safely remain no-ops.
+             */
+    } else if (!strcmp(w[0], "timeout")) /* "timeout" program second */
+    {
+            /*
+             * Specifies a timeout value of the program. A number of seconds
+             * before TiMidity kills the note. This may be useful to implement
+             * later, but I don't see any urgent need for it.
+             */
+        DEBUG_MSG("FIXME: Implement \"timeout\" in TiMidity config.\n");
+    } else if (!strcmp(w[0], "copydrumset")  /* "copydrumset" drumset */
+               || !strcmp(w[0], "copybank")) /* "copybank" bank       */
+    {
+            /*
+             * Copies all the settings of the specified drumset or bank to
+             * the current drumset or bank. May be useful later, but not a
+             * high priority.
+             */
+        DEBUG_MSG("FIXME: Implement \"%s\" in TiMidity config.\n", w[0]);
+    } else if (!strcmp(w[0], "undef")) /* "undef" progno */
+    {
+            /*
+             * Undefines the tone "progno" of the current tone bank (or
+             * drum set?). Not a high priority.
+             */
+        DEBUG_MSG("FIXME: Implement \"undef\" in TiMidity config.\n");
+    } else if (!strcmp(w[0], "altassign")) /* "altassign" prog1 prog2 ... */
+    {
+            /*
+             * Sets the alternate assign for drum set. Whatever that's
+             * supposed to mean.
+             */
+        DEBUG_MSG("FIXME: Implement \"altassign\" in TiMidity config.\n");
+    } else if (!strcmp(w[0], "soundfont")
+               || !strcmp(w[0], "font"))
+    {
+            /*
+             * I can't find any documentation for these, but I guess they're
+             * an alternative way of loading/unloading instruments.
+             * 
+             * "soundfont" sf_file "remove"
+             * "soundfont" sf_file ["order=" order] ["cutoff=" cutoff]
+             *                     ["reso=" reso] ["amp=" amp]
+             * "font" "exclude" bank preset keynote
+             * "font" "order" order bank preset keynote
+             */
+        DEBUG_MSG("FIXME: Implmement \"%s\" in TiMidity config.\n", w[0]);
+    } else if (!strcmp(w[0], "progbase"))
+    {
+            /*
+             * The documentation for this makes absolutely no sense to me, but
+             * apparently it sets some sort of base offset for tone numbers.
+             * Why anyone would want to do this is beyond me.
+             */
+        DEBUG_MSG("FIXME: Implement \"progbase\" in TiMidity config.\n");
+    } else if (!strcmp(w[0], "map")) /* "map" name set1 elem1 set2 elem2 */
+    {
+            /*
+             * This extension is the one we will need to implement, as it is
+             * used by the "eawpats". Unfortunately I cannot find any
+             * documentation whatsoever for it, but it looks like it's used
+             * for remapping one instrument to another somehow.
+             */
+        DEBUG_MSG("FIXME: Implement \"map\" in TiMidity config.\n");
+    }
+
+        /* Standard TiMidity config */
+    
+    else if (!strcmp(w[0], "dir"))
+    {
+      if (words < 2)
+      {
+	DEBUG_MSG("%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)
+      {
+	DEBUG_MSG("%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)
+      {
+	DEBUG_MSG("%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)
+      {
+	DEBUG_MSG("%s: line %d: No drum set number given\n", name, line);
+	return -2;
+      }
+      i=atoi(w[1]);
+      if (i<0 || i>127)
+      {
+	DEBUG_MSG("%s: line %d: Drum set must be between 0 and 127\n",
+		name, line);
+	return -2;
+      }
+      if (!master_drumset[i])
+      {
+	master_drumset[i] = safe_malloc(sizeof(MidToneBank));
+	memset(master_drumset[i], 0, sizeof(MidToneBank));
+	master_drumset[i]->tone = safe_malloc(128 * sizeof(MidToneBankElement));
+	memset(master_drumset[i]->tone, 0, 128 * sizeof(MidToneBankElement));
+      }
+      bank=master_drumset[i];
+    }
+    else if (!strcmp(w[0], "bank"))
+    {
+      if (words < 2)
+      {
+	DEBUG_MSG("%s: line %d: No bank number given\n", name, line);
+	return -2;
+      }
+      i=atoi(w[1]);
+      if (i<0 || i>127)
+      {
+	DEBUG_MSG("%s: line %d: Tone bank must be between 0 and 127\n",
+		name, line);
+	return -2;
+      }
+      if (!master_tonebank[i])
+      {
+	master_tonebank[i] = safe_malloc(sizeof(MidToneBank));
+	memset(master_tonebank[i], 0, sizeof(MidToneBank));
+	master_tonebank[i]->tone = safe_malloc(128 * sizeof(MidToneBankElement));
+	memset(master_tonebank[i]->tone, 0, 128 * sizeof(MidToneBankElement));
+      }
+      bank=master_tonebank[i];
+    }
+    else
+    {
+      if ((words < 2) || (*w[0] < '0' || *w[0] > '9'))
+      {
+	DEBUG_MSG("%s: line %d: syntax error\n", name, line);
+	return -2;
+      }
+      i=atoi(w[0]);
+      if (i<0 || i>127)
+      {
+	DEBUG_MSG("%s: line %d: Program must be between 0 and 127\n",
+		name, line);
+	return -2;
+      }
+      if (!bank)
+      {
+	DEBUG_MSG("%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], '=')))
+	{
+	  DEBUG_MSG("%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'))
+	  {
+	    DEBUG_MSG("%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'))
+	  {
+	    DEBUG_MSG("%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')))
+	  {
+	    DEBUG_MSG("%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
+	  {
+	    DEBUG_MSG("%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
+	  {
+	    DEBUG_MSG("%s: line %d: strip must be env, loop, or tail\n",
+		    name, line);
+	    return -2;
+	  }
+	}
+	else
+	{
+	  DEBUG_MSG("%s: line %d: bad patch option %s\n", name, line, w[j]);
+	  return -2;
+	}
+      }
+    }
+  }
+  vfs_fclose(fp);
+  return 0;
+}
+
+int mid_init_no_config()
+{
+  /* Allocate memory for the standard tonebank and drumset */
+  master_tonebank[0] = safe_malloc(sizeof(MidToneBank));
+  memset(master_tonebank[0], 0, sizeof(MidToneBank));
+  master_tonebank[0]->tone = safe_malloc(128 * sizeof(MidToneBankElement));
+  memset(master_tonebank[0]->tone, 0, 128 * sizeof(MidToneBankElement));
+
+  master_drumset[0] = safe_malloc(sizeof(MidToneBank));
+  memset(master_drumset[0], 0, sizeof(MidToneBank));
+  master_drumset[0]->tone = safe_malloc(128 * sizeof(MidToneBankElement));
+  memset(master_drumset[0]->tone, 0, 128 * sizeof(MidToneBankElement));
+
+  return 0;
+}
+
+int mid_init(char *config_file)
+{
+  /* !!! FIXME: This may be ugly, but slightly less so than requiring the
+   *            default search path to have only one element. I think.
+   *
+   *            We only need to include the likely locations for the config
+   *            file itself since that file should contain any other directory
+   *            that needs to be added to the search path.
+   */
+#ifdef WIN32
+  add_to_pathlist("\\TIMIDITY");
+#else
+  add_to_pathlist("/usr/local/lib/timidity");
+  add_to_pathlist("/etc");
+#endif
+
+  mid_init_no_config();
+
+  if (config_file == NULL || *config_file == '\0')
+      config_file = CONFIG_FILE;
+
+  return read_config_file(config_file);
+}
+
+MidSong *mid_song_load_dls(MidIStream *stream, MidDLSPatches *patches, MidSongOptions *options)
+{
+  MidSong *song;
+  int i;
+
+  if (stream == NULL)
+      return NULL;
+  
+  /* Allocate memory for the song */
+  song = (MidSong *)safe_malloc(sizeof(*song));
+  memset(song, 0, sizeof(*song));
+  song->patches = patches;
+
+  for (i = 0; i < 128; i++)
+  {
+    if (master_tonebank[i])
+    {
+      song->tonebank[i] = safe_malloc(sizeof(MidToneBank));
+      memset(song->tonebank[i], 0, sizeof(MidToneBank));
+      song->tonebank[i]->tone = master_tonebank[i]->tone;
+    }
+    if (master_drumset[i])
+    {
+      song->drumset[i] = safe_malloc(sizeof(MidToneBank));
+      memset(song->drumset[i], 0, sizeof(MidToneBank));
+      song->drumset[i]->tone = master_drumset[i]->tone;
+    }
+  }
+
+  song->amplification = DEFAULT_AMPLIFICATION;
+  song->voices = DEFAULT_VOICES;
+  song->drumchannels = DEFAULT_DRUMCHANNELS;
+
+  song->rate = options->rate;
+  song->encoding = 0;
+  if ((options->format & 0xFF) == 16)
+      song->encoding |= PE_16BIT;
+  if (options->format & 0x8000)
+      song->encoding |= PE_SIGNED;
+  if (options->channels == 1)
+      song->encoding |= PE_MONO;
+  switch (options->format) {
+      case MID_AUDIO_S8:
+	  song->write = s32tos8;
+	  break;
+      case MID_AUDIO_U8:
+	  song->write = s32tou8;
+	  break;
+      case MID_AUDIO_S16LSB:
+	  song->write = s32tos16l;
+	  break;
+      case MID_AUDIO_S16MSB:
+	  song->write = s32tos16b;
+	  break;
+      case MID_AUDIO_U16LSB:
+	  song->write = s32tou16l;
+	  break;
+      default:
+	  DEBUG_MSG("Unsupported audio format\n");
+	  song->write = s32tou16l;
+	  break;
+  }
+
+  song->buffer_size = options->buffer_size;
+  song->resample_buffer = safe_malloc(options->buffer_size * sizeof(sample_t));
+  song->common_buffer = safe_malloc(options->buffer_size * 2 * sizeof(sint32));
+
+  song->bytes_per_sample =
+        ((song->encoding & PE_MONO) ? 1 : 2)
+      * ((song->encoding & PE_16BIT) ? 2 : 1);
+  
+  song->control_ratio = options->rate / CONTROLS_PER_SECOND;
+  if (song->control_ratio < 1)
+      song->control_ratio = 1;
+  else if (song->control_ratio > MAX_CONTROL_RATIO)
+      song->control_ratio = MAX_CONTROL_RATIO;
+
+  song->lost_notes = 0;
+  song->cut_notes = 0;
+
+  song->events = read_midi_file(stream, song, &(song->groomed_event_count),
+      &song->samples);
+
+  /* Make sure everything is okay */
+  if (!song->events) {
+    free(song);
+    return(NULL);
+  }
+
+  song->default_instrument = 0;
+  song->default_program = DEFAULT_PROGRAM;
+
+  if (*def_instr_name)
+    set_default_instrument(song, def_instr_name);
+
+  load_missing_instruments(song);
+
+  return(song);
+}
+
+MidSong *mid_song_load(MidIStream *stream, MidSongOptions *options)
+{
+  return mid_song_load_dls(stream, NULL, options);
+}
+
+void mid_song_free(MidSong *song)
+{
+  size_t i;
+
+  free_instruments(song);
+
+  for (i = 0; i < 128; i++)
+  {
+    if (song->tonebank[i])
+      free(song->tonebank[i]);
+    if (song->drumset[i])
+      free(song->drumset[i]);
+  }
+  
+  free(song->common_buffer);
+  free(song->resample_buffer);
+  free(song->events);
+
+  for (i = 0; i < (sizeof(song->meta_data) / sizeof(song->meta_data[0])); i++)
+  {
+    if (song->meta_data[i])
+      free(song->meta_data[i]);
+  }
+  
+  free(song);
+}
+
+void mid_exit(void)
+{
+  int i, j;
+
+  for (i = 0; i < 128; i++)
+  {
+    if (master_tonebank[i])
+    {
+      MidToneBankElement *e = master_tonebank[i]->tone;
+      if (e != NULL)
+      {
+        for (j = 0; j < 128; j++)
+        {
+          if (e[j].name != NULL)
+            free(e[j].name);
+        }
+        free(e);
+      }
+      free(master_tonebank[i]);
+    }
+    if (master_drumset[i])
+    {
+      MidToneBankElement *e = master_drumset[i]->tone;
+      if (e != NULL)
+      {
+        for (j = 0; j < 128; j++)
+        {
+          if (e[j].name != NULL)
+            free(e[j].name);
+        }
+        free(e);
+      }
+      free(master_drumset[i]);
+    }
+  }
+
+  free_pathlist();
+}