1 files changed, 205 insertions, 0 deletions
diff --git a/lib/libsalsa/seqmid.c b/lib/libsalsa/seqmid.c
new file mode 100644
index 0000000..e3ad1d0
--- /dev/null
+++ b/lib/libsalsa/seqmid.c
@@ -0,0 +1,205 @@
+/*
+ *  Copyright (c) 2004 by Hannu Savolainen < hannu@opensound.com>
+ *
+ *   This library is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU Lesser General Public License version 2.1 as
+ *   published by the Free Software Foundation.
+ *
+ *   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 Lesser General Public License for more details.
+ *
+ *   You should have received a copy of the GNU Lesser General Public
+ *   License along with this library; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+ *
+ */
+#include <stdio.h>
+#include "local.h"
+
+/**
+ * \brief create a port - simple version
+ * \param seq sequencer handle
+ * \param name the name of the port
+ * \param caps capability bits
+ * \param type type bits
+ * \return the created port number or negative error code
+ *
+ * Creates a port with the given capability and type bits.
+ *
+ * \sa snd_seq_create_port(), snd_seq_delete_simple_port()
+ */
+int
+snd_seq_create_simple_port (snd_seq_t * seq, const char *name,
+			    unsigned int caps, unsigned int type)
+{
+  snd_seq_port_info_t pinfo;
+  int result;
+
+  dbg_printf
+    ("snd_seq_create_simple_port(seq=%x, name='%s', caps=%x, type=%x)\n", seq,
+     name, caps, type);
+
+  memset (&pinfo, 0, sizeof (pinfo));
+  if (name)
+    strncpy (pinfo.name, name, sizeof (pinfo.name) - 1);
+  pinfo.capability = caps;
+  pinfo.type = type;
+  pinfo.midi_channels = 16;
+  pinfo.midi_voices = 64;	/* XXX */
+  pinfo.synth_voices = 0;	/* XXX */
+
+  result = snd_seq_create_port (seq, &pinfo);
+  if (result < 0)
+    return result;
+  else
+    return pinfo.port;
+}
+
+/**
+ * \brief delete the port
+ * \param seq sequencer handle
+ * \param port port id
+ * \return 0 on success or negative error code
+ *
+ * \sa snd_seq_delete_port(), snd_seq_create_simple_port()
+ */
+int
+snd_seq_delete_simple_port (snd_seq_t * seq, int port)
+{
+  dbg_printf ("snd_seq_delete_simple_port()\n");
+
+  return 0;
+}
+
+/**
+ * \brief set client name
+ * \param seq sequencer handle
+ * \param name name string
+ * \return 0 on success or negative error code
+ *
+ * \sa snd_seq_set_client_info()
+ */
+int
+snd_seq_set_client_name (snd_seq_t * seq, const char *name)
+{
+  snd_seq_client_info_t info;
+  int err;
+
+  dbg_printf ("snd_seq_set_client_name(seq=%x, name='%s')\n", seq, name);
+
+  if ((err = snd_seq_get_client_info (seq, &info)) < 0)
+    return err;
+  strncpy (info.name, name, sizeof (info.name) - 1);
+  return snd_seq_set_client_info (seq, &info);
+}
+
+/**
+ * \brief change the output pool size of the given client
+ * \param seq sequencer handle
+ * \param size output pool size
+ * \return 0 on success or negative error code
+ *
+ * \sa snd_seq_set_client_pool()
+ */
+int
+snd_seq_set_client_pool_output (snd_seq_t * seq, size_t size)
+{
+  dbg_printf ("snd_seq_set_client_pool_output(seq=%x, size=%d)\n", seq, size);
+  return 0;
+}
+
+/**
+ * \brief parse the given string and get the sequencer address
+ * \param seq sequencer handle
+ * \param addr the address pointer to be returned
+ * \param arg the string to be parsed
+ * \return 0 on success or negative error code
+ *
+ * This function parses the sequencer client and port numbers from the given string.
+ * The client and port tokes are separated by either colon or period, e.g. 128:1.
+ * When \a seq is not NULL, the function accepts also a client name not only
+ * digit numbers.
+ */
+int
+snd_seq_parse_address (snd_seq_t * seq, snd_seq_addr_t * addr,
+		       const char *arg)
+{
+  dbg_printf ("snd_seq_parse_address()\n");
+
+  return 0;
+}
+
+/**
+ * \brief wait until all events are processed
+ * \param seq sequencer handle
+ * \return 0 on success or negative error code
+ *
+ * This function waits until all events of this client are processed.
+ *
+ * \sa snd_seq_drain_output()
+ */
+int
+snd_seq_sync_output_queue (snd_seq_t * seq)
+{
+  dbg_printf ("snd_seq_sync_output_queue()\n");
+
+  return 0;
+}
+
+/**
+ * \brief simple disconnection
+ * \param myport the port id as sender
+ * \param dest_client destination client id
+ * \param dest_port destination port id
+ * \return 0 on success or negative error code
+ *
+ * Remove connection from the given sender client:port
+ * to the given destination port in the current client.
+ *
+ * \sa snd_seq_unsubscribe_port(), snd_seq_connect_to()
+ */
+int
+snd_seq_disconnect_to (snd_seq_t * seq, int myport, int dest_client,
+		       int dest_port)
+{
+  dbg_printf
+    ("snd_seq_disconnect_to(seq=%x, myport=%d, dest_client=%d, dest_port=%d)\n",
+     seq, myport, dest_client, dest_port);
+
+  return 0;
+}
+
+/**
+ * \brief change the input pool size of the given client
+ * \param seq sequencer handle
+ * \param size input pool size
+ * \return 0 on success or negative error code
+ *
+ * \sa snd_seq_set_client_pool()
+ */
+int
+snd_seq_set_client_pool_input (snd_seq_t * seq, size_t size)
+{
+  dbg_printf ("snd_seq_set_client_pool_input(seq=%x, size=%d)\n", seq, size);
+
+  return 0;
+}
+
+/**
+ * \brief change the output room size of the given client
+ * \param seq sequencer handle
+ * \param size output room size
+ * \return 0 on success or negative error code
+ *
+ * \sa snd_seq_set_client_pool()
+ */
+int
+snd_seq_set_client_pool_output_room (snd_seq_t * seq, size_t size)
+{
+  dbg_printf ("snd_seq_set_client_pool_output_room(seq=%x, size=%d)\n", seq,
+	      size);
+
+  return 0;
+}