/*
 *  dolmetschctl
 *
 *
 *  Copyright (C) 2015 Christian Pointner <equinox@spreadspace.org>
 *
 *  This file is part of dolmetschctl.
 *
 *  dolmetschctl 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 3 of the License, or
 *  any later version.
 *
 *  dolmetschctl 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 dolmetschctl. If not, see <http://www.gnu.org/licenses/>.
 */

#include "config.h"

#include <stdio.h>
#include <error.h>
#include <poll.h>

#include "midi.h"


int midi_init(midi_t* m, const char* device)
{
  if(!m)
    return -1;

  int ret = snd_rawmidi_open(&(m->input_), &(m->output_), device, SND_RAWMIDI_NONBLOCK);
  if(ret < 0) {
    error(0, 0, "cannot open midi port '%s': %s", device, snd_strerror(ret));
    return ret;
  }

  return 0;
}

void midi_run(midi_t* m)
{
  if(!m)
    return;

  int npfds;
  struct pollfd *pfds;

  npfds = snd_rawmidi_poll_descriptors_count(m->input_);
  pfds = alloca(npfds * sizeof(struct pollfd));
  snd_rawmidi_poll_descriptors(m->input_, pfds, npfds);
  for (;;) {
    int err = poll(pfds, npfds, 200);
    if(err < 0 && errno == EINTR)
      break;
    if(err < 0) {
      error(0, errno, "poll failed");
      break;
    }
    /* if(err == 0) { */
    /*       // TIMEOUT */
    /* } */

    unsigned short revents;
    if((err = snd_rawmidi_poll_descriptors_revents(m->input_, pfds, npfds, &revents)) < 0) {
      error(0, 0, "cannot get poll events: %s", snd_strerror(errno));
      break;
    }
    if(revents & (POLLERR | POLLHUP))
      break;
    if(!(revents & POLLIN))
      continue;

    u_int8_t buf[256];
    int ret = snd_rawmidi_read(m->input_, buf, sizeof(buf));
    if (ret == -EAGAIN)
      continue;
    if(ret < 0) {
      error(0, 0, "cannot read from midi port: %s", snd_strerror(ret));
      break;
    }

    int i;
    for (i = 0; i < ret; ++i)
      printf("%02X%c", buf[i], (i >= (ret-1)) ? '\n' : ' ');
  }

}