gomp-20050608-branch/libjava/classpath/native/jni/midi-alsa/gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider.c

   1 /* gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider.c
   2    Copyright (C) 2005 Free Software Foundation, Inc.
   3
   4    This file is part of GNU Classpath.
   5
   6    GNU Classpath is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2, or (at your option)
   9    any later version.
  10
  11    GNU Classpath is distributed in the hope that it will be useful, but
  12    WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GNU Classpath; see the file COPYING.  If not, write to the
  18    Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19    02110-1301 USA.
  20
  21    Linking this library statically or dynamically with other modules is
  22    making a combined work based on this library.  Thus, the terms and
  23    conditions of the GNU General Public License cover the whole
  24    combination.
  25
  26    As a special exception, the copyright holders of this library give you
  27    permission to link this library with independent modules to produce an
  28    executable, regardless of the license terms of these independent
  29    modules, and to copy and distribute the resulting executable under
  30    terms of your choice, provided that you also meet, for each linked
  31    independent module, the terms and conditions of the license of that
  32    module.  An independent module is a module which is not derived from
  33    or based on this library.  If you modify this library, you may extend
  34    this exception to your version of the library, but you are not
  35    obligated to do so.  If you do not wish to do so, delete this
  36    exception statement from your version. */
  37
  38 #include <config.h>
  39 #include <gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider.h>
  40
  41 #include <alsa/asoundlib.h>
  42
  43 static snd_seq_t *seq;
  44
  45 JNIEXPORT void JNICALL
  46 Java_gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider_init_1
  47 (JNIEnv *env __attribute__((unused)), jobject this __attribute__((unused)))
  48 {
  49   int rc = snd_seq_open (&seq, "default", SND_SEQ_OPEN_DUPLEX, SND_SEQ_NONBLOCK);
  50   if (rc < 0)
  51     abort ();
  52   snd_seq_set_client_name(seq, "gnu.javax.sound.midi.alsa");
  53 }
  54
  55 /**
  56  * Return a CLAZZ[] filled with ports matching TYPE.
  57  */
  58 static jobjectArray
  59 getPortDeviceInfo (JNIEnv *env, unsigned type, const char *clazz)
  60 {
  61   jobjectArray rarray;
  62   snd_seq_client_info_t *cinfo;
  63   snd_seq_port_info_t *pinfo;
  64   int client;
  65   int count = 0;
  66   jclass icls;
  67   jmethodID mid;
  68
  69   snd_seq_client_info_alloca(&cinfo);
  70   snd_seq_port_info_alloca(&pinfo);
  71
  72   /* First, count the number of input devices.  */
  73   snd_seq_client_info_set_client (cinfo, -1);
  74   while (snd_seq_query_next_client (seq, cinfo) >= 0)
  75     {
  76       client = snd_seq_client_info_get_client (cinfo);
  77       if (client == 0)
  78         continue;
  79       snd_seq_port_info_set_client (pinfo, client);
  80       snd_seq_port_info_set_port (pinfo, -1);
  81       while (snd_seq_query_next_port (seq, pinfo) >= 0)
  82         {
  83           if ((snd_seq_port_info_get_capability (pinfo) & type) != type)
  84             continue;
  85           count++;
  86         }
  87     }
  88
  89   icls = (*env)->FindClass(env, clazz);
  90   mid = (*env)->GetMethodID(env, icls, "<init>",
  91                             "(Ljava/lang/String;Ljava/lang/String;JJ)V");
  92
  93   rarray = (jobjectArray) (*env)->NewObjectArray(env, count, icls, NULL);
  94
  95   /* Now, populate our array.  */
  96   count = 0;
  97   snd_seq_client_info_set_client (cinfo, -1);
  98   while (snd_seq_query_next_client (seq, cinfo) >= 0)
  99     {
 100       const char *client_name;
 101       client = snd_seq_client_info_get_client (cinfo);
 102       if (client == 0)
 103         continue;
 104       snd_seq_port_info_set_client (pinfo, client);
 105       snd_seq_port_info_set_port (pinfo, -1);
 106
 107       client_name = snd_seq_client_info_get_name (cinfo);
 108
 109       while (snd_seq_query_next_port (seq, pinfo) >= 0)
 110         {
 111           const char *port_name;
 112
 113           if ((snd_seq_port_info_get_capability (pinfo) & type) != type)
 114             continue;
 115
 116           port_name = snd_seq_port_info_get_name (pinfo);
 117
 118           (*env)->SetObjectArrayElement(env, rarray, count,
 119                                         (*env)->NewObject (env, icls, mid,
 120                                                            (*env)->NewStringUTF (env, client_name),
 121                                                            (*env)->NewStringUTF (env, port_name),
 122                                                            (jlong) snd_seq_port_info_get_client(pinfo),
 123                                                            (jlong) snd_seq_port_info_get_port(pinfo)));
 124           count++;
 125         }
 126     }
 127
 128   return rarray;
 129 }
 130
 131 JNIEXPORT jobjectArray JNICALL
 132 Java_gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider_getInputDeviceInfo_1
 133   (JNIEnv *env, jobject this __attribute__((unused)))
 134 {
 135   return getPortDeviceInfo (env,
 136                             (SND_SEQ_PORT_CAP_READ | SND_SEQ_PORT_CAP_SUBS_READ),
 137                             "gnu/javax/sound/midi/alsa/AlsaMidiDeviceProvider$AlsaInputPortInfo");
 138 }
 139
 140 JNIEXPORT jobjectArray JNICALL
 141 Java_gnu_javax_sound_midi_alsa_AlsaMidiDeviceProvider_getOutputDeviceInfo_1
 142   (JNIEnv *env, jobject this __attribute__((unused)))
 143 {
 144   return getPortDeviceInfo (env,
 145                             (SND_SEQ_PORT_CAP_WRITE | SND_SEQ_PORT_CAP_SUBS_WRITE),
 146                             "gnu/javax/sound/midi/alsa/AlsaMidiDeviceProvider$AlsaOutputPortInfo");
 147 }
 148