/* Spa ALSA Sequencer */
/* SPDX-FileCopyrightText: Copyright © 2019 Wim Taymans */
/* SPDX-License-Identifier: MIT */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sched.h>
#include <errno.h>
#include <getopt.h>
#include <sys/time.h>
#include <math.h>
#include <limits.h>

#include <spa/utils/result.h>
#include <spa/pod/filter.h>
#include <spa/support/system.h>
#include <spa/control/control.h>
#include <spa/control/ump-utils.h>

#include "alsa.h"

#include "alsa-seq.h"

#define CHECK(s,msg,...) if ((res = (s)) < 0) { spa_log_error(state->log, msg ": %s", ##__VA_ARGS__, snd_strerror(res)); return res; }

static int seq_open(struct seq_state *state, struct seq_conn *conn, bool with_queue, bool probe_ump)
{
	struct props *props = &state->props;
	int res;

	spa_log_debug(state->log, "%p: ALSA seq open '%s' duplex", state, props->device);

	if ((res = snd_seq_open(&conn->hndl,
			   props->device,
			   SND_SEQ_OPEN_DUPLEX,
			   0)) < 0)
		return res;

	if (!state->ump) {
		spa_log_info(state->log, "%p: ALSA UMP MIDI disabled", state);
		return 0;
	}

#ifdef HAVE_ALSA_UMP
	res = snd_seq_set_client_midi_version(conn->hndl, SND_SEQ_CLIENT_UMP_MIDI_2_0);
	if (!res) {
		snd_seq_client_info_t *info = NULL;

		/* Double check client version */
		res = snd_seq_client_info_malloc(&info);
		if (!res)
			res = snd_seq_get_client_info(conn->hndl, info);
		if (!res) {
			res = snd_seq_client_info_get_midi_version(info);
			if (res == SND_SEQ_CLIENT_UMP_MIDI_2_0)
				res = 0;
			else
				res = -EIO;
		}
		if (info)
			snd_seq_client_info_free(info);
	}
#else
	res = -EOPNOTSUPP;
#endif

	if (res < 0) {
		spa_log_lev(state->log, (probe_ump ? SPA_LOG_LEVEL_INFO : SPA_LOG_LEVEL_ERROR),
				"%p: ALSA failed to enable UMP MIDI: %s", state, snd_strerror(res));
		if (!probe_ump) {
			snd_seq_close(conn->hndl);
			return res;  /* either all are UMP or none are UMP */
		}

		state->ump = false;
	} else {
		spa_log_debug(state->log, "%p: ALSA UMP MIDI enabled", state);
		state->ump = true;
	}

	return 0;
}

static int seq_init(struct seq_state *state, struct seq_conn *conn, bool with_queue)
{
	struct pollfd pfd;
	snd_seq_port_info_t *pinfo;
	int res;

	/* client id */
	if ((res = snd_seq_client_id(conn->hndl)) < 0) {
		spa_log_error(state->log, "failed to get client id: %d", res);
		goto error_exit_close;
        }
	conn->addr.client = res;

	/* queue */
	if (with_queue) {
		if ((res = snd_seq_alloc_queue(conn->hndl)) < 0) {
			spa_log_error(state->log, "failed to create queue: %d", res);
			goto error_exit_close;
		}
		conn->queue_id = res;
	} else {
		conn->queue_id = -1;
	}

	if ((res = snd_seq_nonblock(conn->hndl, 1)) < 0)
		spa_log_warn(state->log, "can't set nonblock mode: %s", snd_strerror(res));

	/* port for receiving */
	snd_seq_port_info_alloca(&pinfo);
	snd_seq_port_info_set_name(pinfo, "input");
	snd_seq_port_info_set_type(pinfo, SND_SEQ_PORT_TYPE_MIDI_GENERIC);
	snd_seq_port_info_set_capability(pinfo,
			SND_SEQ_PORT_CAP_WRITE | SND_SEQ_PORT_CAP_READ);
        /* Enable timestamping for events sent by external subscribers. */
        snd_seq_port_info_set_timestamping(pinfo, 1);
        snd_seq_port_info_set_timestamp_real(pinfo, 1);
	if (with_queue)
	        snd_seq_port_info_set_timestamp_queue(pinfo, conn->queue_id);

        if ((res = snd_seq_create_port(conn->hndl, pinfo)) < 0) {
		spa_log_error(state->log, "failed to create port: %s", snd_strerror(res));
		goto error_exit_close;
        }
        conn->addr.port = snd_seq_port_info_get_port(pinfo);

	spa_log_debug(state->log, "queue:%d client:%d port:%d",
			conn->queue_id, conn->addr.client, conn->addr.port);

	snd_seq_poll_descriptors(conn->hndl, &pfd, 1, POLLIN);
	conn->source.fd = pfd.fd;
	conn->source.mask = SPA_IO_IN;

	return 0;

error_exit_close:
	snd_seq_close(conn->hndl);
	return res;
}

static int seq_close(struct seq_state *state, struct seq_conn *conn)
{
	int res;
	spa_log_debug(state->log, "%p: Device '%s' closing", state, state->props.device);
	if ((res = snd_seq_close(conn->hndl)) < 0) {
		spa_log_warn(state->log, "close failed: %s", snd_strerror(res));
	}
	return res;
}

static int init_stream(struct seq_state *state, enum spa_direction direction)
{
	struct seq_stream *stream = &state->streams[direction];
	int res;
	stream->direction = direction;
	if (direction == SPA_DIRECTION_INPUT) {
		stream->caps = SND_SEQ_PORT_CAP_SUBS_WRITE;
	} else {
		stream->caps = SND_SEQ_PORT_CAP_SUBS_READ;
	}
	if ((res = snd_midi_event_new(MAX_EVENT_SIZE, &stream->codec)) < 0) {
		spa_log_error(state->log, "can make event decoder: %s",
				snd_strerror(res));
		return res;
	}
	snd_midi_event_no_status(stream->codec, 1);

	spa_list_init(&stream->port_list);
	spa_list_init(&stream->mix_list);
	return 0;
}

static int uninit_stream(struct seq_state *state, enum spa_direction direction)
{
	struct seq_stream *stream = &state->streams[direction];
	spa_list_insert_list(&state->free_list, &stream->port_list);
	if (stream->codec)
		snd_midi_event_free(stream->codec);
	stream->codec = NULL;
	return 0;
}

static void init_ports(struct seq_state *state)
{
	snd_seq_addr_t addr;
	snd_seq_client_info_t *client_info;
	snd_seq_port_info_t *port_info;

	snd_seq_client_info_alloca(&client_info);
	snd_seq_port_info_alloca(&port_info);
	snd_seq_client_info_set_client(client_info, -1);

	while (snd_seq_query_next_client(state->sys.hndl, client_info) >= 0) {

		addr.client = snd_seq_client_info_get_client(client_info);
		if (addr.client == SND_SEQ_CLIENT_SYSTEM ||
		    addr.client == state->sys.addr.client ||
		    addr.client == state->event.addr.client)
			continue;

		snd_seq_port_info_set_client(port_info, addr.client);
		snd_seq_port_info_set_port(port_info, -1);
		while (snd_seq_query_next_port(state->sys.hndl, port_info) >= 0) {
			addr.port = snd_seq_port_info_get_port(port_info);
			state->port_info(state->port_info_data, &addr, port_info);
		}
	}
}

static void debug_event(struct seq_state *state, const char *prefix, snd_seq_event_t *ev)
{
	enum spa_log_level lev = SPA_LOG_LEVEL_TRACE;

	if (SPA_LIKELY(!spa_log_level_topic_enabled(state->log, SPA_LOG_TOPIC_DEFAULT, lev)))
		return;

	spa_log_lev(state->log, lev, "%s: event type:%d flags:0x%x", prefix, ev->type, ev->flags);
	switch (ev->flags & SND_SEQ_TIME_STAMP_MASK) {
	case SND_SEQ_TIME_STAMP_TICK:
		spa_log_lev(state->log, lev, "%s:  time: %d ticks", prefix, ev->time.tick);
		break;
	case SND_SEQ_TIME_STAMP_REAL:
		spa_log_lev(state->log, lev, "%s:  time = %d.%09d", prefix,
			(int)ev->time.time.tv_sec,
			(int)ev->time.time.tv_nsec);
		break;
	}
	spa_log_lev(state->log, lev, "%s:  source:%d.%d dest:%d.%d queue:%d", prefix,
			ev->source.client, ev->source.port, ev->dest.client,
			ev->dest.port, ev->queue);
}

#ifdef HAVE_ALSA_UMP
static void debug_ump_event(struct seq_state *state, const char *prefix, snd_seq_ump_event_t *ev)
{
	enum spa_log_level lev = SPA_LOG_LEVEL_TRACE;

	if (SPA_LIKELY(!spa_log_level_topic_enabled(state->log, SPA_LOG_TOPIC_DEFAULT, lev)))
		return;

	spa_log_lev(state->log, lev, "%s: event type:%d flags:0x%x", prefix, ev->type, ev->flags);
	switch (ev->flags & SND_SEQ_TIME_STAMP_MASK) {
	case SND_SEQ_TIME_STAMP_TICK:
		spa_log_lev(state->log, lev, "%s:  time: %d ticks", prefix, ev->time.tick);
		break;
	case SND_SEQ_TIME_STAMP_REAL:
		spa_log_lev(state->log, lev, "%s:  time = %d.%09d", prefix,
			(int)ev->time.time.tv_sec,
			(int)ev->time.time.tv_nsec);
		break;
	}
	spa_log_lev(state->log, lev, "%s:  source:%d.%d dest:%d.%d queue:%d %08x",
			prefix, ev->source.client, ev->source.port, ev->dest.client,
			ev->dest.port, ev->queue, ev->ump[0]);
}
#endif

static void alsa_seq_on_sys(struct spa_source *source)
{
	struct seq_state *state = source->data;
	const bool ump = state->ump;
	int res;

	while (1) {
		const snd_seq_addr_t *addr;
		snd_seq_event_type_t type;

		if (ump) {
#ifdef HAVE_ALSA_UMP
			snd_seq_ump_event_t *ev;

			res = snd_seq_ump_event_input(state->sys.hndl, &ev);
			if (res <= 0)
				break;

			debug_ump_event(state, "sys", ev);

			addr = &ev->data.addr;
			type = ev->type;
#else
			spa_assert_not_reached();
#endif
		} else {
			snd_seq_event_t *ev;

			res = snd_seq_event_input(state->sys.hndl, &ev);
			if (res <= 0)
				break;

			debug_event(state, "sys", ev);

			addr = &ev->data.addr;
			type = ev->type;
		}

		if (addr->client == state->event.addr.client)
			continue;

		switch (type) {
		case SND_SEQ_EVENT_CLIENT_START:
		case SND_SEQ_EVENT_CLIENT_CHANGE:
			spa_log_info(state->log, "client add/change %d", addr->client);
			break;
		case SND_SEQ_EVENT_CLIENT_EXIT:
			spa_log_info(state->log, "client exit %d", addr->client);
			break;

		case SND_SEQ_EVENT_PORT_START:
		case SND_SEQ_EVENT_PORT_CHANGE:
		{
			snd_seq_port_info_t *info;

			snd_seq_port_info_alloca(&info);

			if ((res = snd_seq_get_any_port_info(state->sys.hndl,
					addr->client, addr->port, info)) < 0) {
				spa_log_warn(state->log, "can't get port info %d.%d: %s",
						addr->client, addr->port, snd_strerror(res));
			} else {
				spa_log_info(state->log, "port add/change %d:%d",
						addr->client, addr->port);
				state->port_info(state->port_info_data, addr, info);
			}
			break;
		}
		case SND_SEQ_EVENT_PORT_EXIT:
			spa_log_info(state->log, "port_event: del %d:%d",
					addr->client, addr->port);
			state->port_info(state->port_info_data, addr, NULL);
			break;
		default:
			spa_log_debug(state->log, "unhandled event %d: %d:%d",
					type, addr->client, addr->port);
			break;

		}
        }
}

int spa_alsa_seq_open(struct seq_state *state)
{
	int n, i, res;
	snd_seq_port_subscribe_t *sub;
	snd_seq_addr_t addr;
	snd_seq_queue_timer_t *timer;
	snd_seq_client_pool_t *pool;
	struct seq_conn reserve[16];
	size_t pool_size;

	if (state->opened)
		return 0;

	spa_list_init(&state->free_list);
	init_stream(state, SPA_DIRECTION_INPUT);
	init_stream(state, SPA_DIRECTION_OUTPUT);

	spa_zero(reserve);
	for (i = 0; i < 16; i++) {
		spa_log_debug(state->log, "open %d", i);
		if ((res = seq_open(state, &reserve[i], false, (i == 0))) < 0)
			break;
	}
	if (i >= 2) {
		state->event = reserve[--i];
		state->sys = reserve[--i];
		res = 0;
	}
	for (n = --i; n >= 0; n--) {
		spa_log_debug(state->log, "close %d", n);
		seq_close(state, &reserve[n]);
	}
	if (res < 0) {
		spa_log_error(state->log, "open failed: %s", snd_strerror(res));
		return res;
	}

	if ((res = seq_init(state, &state->sys, false)) < 0)
		goto error_close;

	snd_seq_set_client_name(state->sys.hndl, "PipeWire-System");

	if ((res = seq_init(state, &state->event, true)) < 0)
		goto error_close;

	snd_seq_set_client_name(state->event.hndl, "PipeWire-RT-Event");

	/* connect to system announce */
	snd_seq_port_subscribe_alloca(&sub);
	addr.client = SND_SEQ_CLIENT_SYSTEM;
	addr.port = SND_SEQ_PORT_SYSTEM_ANNOUNCE;
	snd_seq_port_subscribe_set_sender(sub, &addr);
	snd_seq_port_subscribe_set_dest(sub, &state->sys.addr);
	if ((res = snd_seq_subscribe_port(state->sys.hndl, sub)) < 0) {
		spa_log_warn(state->log, "failed to connect announce port: %s", snd_strerror(res));
	}

	addr.client = SND_SEQ_CLIENT_SYSTEM;
	addr.port = SND_SEQ_PORT_SYSTEM_TIMER;
	snd_seq_port_subscribe_set_sender(sub, &addr);
	if ((res = snd_seq_subscribe_port(state->sys.hndl, sub)) < 0) {
		spa_log_warn(state->log, "failed to connect timer port: %s", snd_strerror(res));
	}

	state->sys.source.func = alsa_seq_on_sys;
	state->sys.source.data = state;

	/* increase event queue timer resolution */
	snd_seq_queue_timer_alloca(&timer);
	if ((res = snd_seq_get_queue_timer(state->event.hndl, state->event.queue_id, timer)) < 0) {
		spa_log_warn(state->log, "failed to get queue timer: %s", snd_strerror(res));
	}
	snd_seq_queue_timer_set_resolution(timer, INT_MAX);
	if ((res = snd_seq_set_queue_timer(state->event.hndl, state->event.queue_id, timer)) < 0) {
		spa_log_warn(state->log, "failed to set queue timer: %s", snd_strerror(res));
	}

	/* Increase client pool sizes. This determines the max sysex message that
	 * can be received. */
	snd_seq_client_pool_alloca(&pool);
	if ((res = snd_seq_get_client_pool(state->event.hndl, pool)) < 0) {
		spa_log_warn(state->log, "failed to get pool: %s", snd_strerror(res));
	} else {
		/* make sure we at least use the default size */
		pool_size = snd_seq_client_pool_get_output_pool(pool);
		pool_size = SPA_MAX(pool_size, snd_seq_client_pool_get_input_pool(pool));

		/* The pool size is in cells, which are about 24 bytes long. Try to
		 * make sure we can fit sysex of at least twice the quantum limit. */
		pool_size = SPA_MAX(pool_size, state->quantum_limit * 2 / 24);
		/* The kernel ignores values larger than 2000 (by default) so clamp
		 * this here. It's configurable in case the kernel was modified. */
		pool_size = SPA_CLAMP(pool_size, state->min_pool_size, state->max_pool_size);

		snd_seq_client_pool_set_input_pool(pool, pool_size);
		snd_seq_client_pool_set_output_pool(pool, pool_size);

		if ((res = snd_seq_set_client_pool(state->event.hndl, pool)) < 0) {
			spa_log_warn(state->log, "failed to set pool: %s", snd_strerror(res));
		}
	}

	init_ports(state);

	if ((res = spa_system_timerfd_create(state->data_system,
			CLOCK_MONOTONIC, SPA_FD_CLOEXEC | SPA_FD_NONBLOCK)) < 0)
		goto error_close;

	state->timerfd = res;

	spa_loop_add_source(state->main_loop, &state->sys.source);

	state->opened = true;

	return 0;

error_close:
	seq_close(state, &state->event);
	seq_close(state, &state->sys);
	return res;
}

int spa_alsa_seq_close(struct seq_state *state)
{
	int res = 0;
	struct seq_port *port;

	if (!state->opened)
		return 0;

	spa_loop_remove_source(state->main_loop, &state->sys.source);

	seq_close(state, &state->sys);
	seq_close(state, &state->event);

	uninit_stream(state, SPA_DIRECTION_INPUT);
	uninit_stream(state, SPA_DIRECTION_OUTPUT);

	spa_list_consume(port, &state->free_list, link) {
		spa_list_remove(&port->link);
		free(port);
	}
	spa_system_close(state->data_system, state->timerfd);
	state->opened = false;

	return res;
}

static int set_timeout(struct seq_state *state, uint64_t time)
{
	struct itimerspec ts;

	ts.it_value.tv_sec = time / SPA_NSEC_PER_SEC;
	ts.it_value.tv_nsec = time % SPA_NSEC_PER_SEC;
	ts.it_interval.tv_sec = 0;
	ts.it_interval.tv_nsec = 0;
	spa_system_timerfd_settime(state->data_system,
			state->timerfd, SPA_FD_TIMER_ABSTIME, &ts, NULL);
	return 0;
}

static struct seq_port *find_port(struct seq_state *state,
		struct seq_stream *stream, const snd_seq_addr_t *addr)
{
	struct seq_port *port;
	spa_list_for_each(port, &stream->mix_list, mix_link) {
		if (port->addr.client == addr->client &&
		    port->addr.port == addr->port)
			return port;
	}
	return NULL;
}

int spa_alsa_seq_activate_port(struct seq_state *state, struct seq_port *port, bool active)
{
	int res;
	snd_seq_port_subscribe_t* sub;

	spa_log_debug(state->log, "activate: %d.%d: started:%d active:%d wanted:%d",
			port->addr.client, port->addr.port, state->started, port->active, active);

	if (active && !state->started)
		return 0;
	if (port->active == active)
		return 0;

	snd_seq_port_subscribe_alloca(&sub);
	if (port->direction == SPA_DIRECTION_OUTPUT) {
		snd_seq_port_subscribe_set_sender(sub, &port->addr);
		snd_seq_port_subscribe_set_dest(sub, &state->event.addr);
	} else {
		snd_seq_port_subscribe_set_sender(sub, &state->event.addr);
		snd_seq_port_subscribe_set_dest(sub, &port->addr);
	}

	if (active) {
		snd_seq_port_subscribe_set_time_update(sub, 1);
		snd_seq_port_subscribe_set_time_real(sub, 1);
		snd_seq_port_subscribe_set_queue(sub, state->event.queue_id);
		if ((res = snd_seq_subscribe_port(state->event.hndl, sub)) < 0) {
			spa_log_error(state->log, "can't subscribe to %d:%d - %s",
				port->addr.client, port->addr.port, snd_strerror(res));
			active = false;
		}
		spa_log_info(state->log, "subscribe: %s port %d.%d",
				port->direction == SPA_DIRECTION_OUTPUT ? "output" : "input",
				port->addr.client, port->addr.port);
	} else {
		if ((res = snd_seq_unsubscribe_port(state->event.hndl, sub)) < 0) {
			spa_log_warn(state->log, "can't unsubscribe from %d:%d - %s",
				port->addr.client, port->addr.port, snd_strerror(res));
		}
		spa_log_info(state->log, "unsubscribe: %s port %d.%d",
				port->direction == SPA_DIRECTION_OUTPUT ? "output" : "input",
				port->addr.client, port->addr.port);
	}
	port->active = active;
	return res;
}

static struct buffer *peek_buffer(struct seq_state *state,
		struct seq_port *port)
{
	if (spa_list_is_empty(&port->free))
		return NULL;
	return spa_list_first(&port->free, struct buffer, link);
}

int spa_alsa_seq_recycle_buffer(struct seq_state *state, struct seq_port *port, uint32_t buffer_id)
{
	struct buffer *b = &port->buffers[buffer_id];

	if (SPA_FLAG_IS_SET(b->flags, BUFFER_FLAG_OUT)) {
		spa_log_trace_fp(state->log, "%p: recycle buffer port:%p buffer-id:%u",
				state, port, buffer_id);
		spa_list_append(&port->free, &b->link);
		SPA_FLAG_CLEAR(b->flags, BUFFER_FLAG_OUT);
	}
	return 0;
}

static int prepare_buffer(struct seq_state *state, struct seq_port *port)
{
	if (port->buffer != NULL)
		return 0;

	if ((port->buffer = peek_buffer(state, port)) == NULL)
		return -EPIPE;

	spa_pod_builder_init(&port->builder,
			port->buffer->buf->datas[0].data,
			port->buffer->buf->datas[0].maxsize);
        spa_pod_builder_push_sequence(&port->builder, &port->frame, 0);

	return 0;
}

static int process_recycle(struct seq_state *state)
{
	struct seq_stream *stream = &state->streams[SPA_DIRECTION_OUTPUT];
	struct seq_port *port;

	spa_list_for_each(port, &stream->mix_list, mix_link) {
		struct spa_io_buffers *io = port->io;
		if (io->status != SPA_STATUS_HAVE_DATA &&
		    io->buffer_id < port->n_buffers) {
			spa_alsa_seq_recycle_buffer(state, port, io->buffer_id);
			io->buffer_id = SPA_ID_INVALID;
		}
	}
	return 0;
}

#define NSEC_TO_CLOCK(r,n) (((n) * (r)->denom) / ((r)->num * SPA_NSEC_PER_SEC))
#define NSEC_FROM_CLOCK(r,n) (((n) * (r)->num * SPA_NSEC_PER_SEC) / (r)->denom)

static int process_read(struct seq_state *state)
{
	struct seq_stream *stream = &state->streams[SPA_DIRECTION_OUTPUT];
	const bool ump = state->ump;
	uint32_t *data;
	uint8_t midi1_data[MAX_EVENT_SIZE];
	uint32_t ump_data[MAX_EVENT_SIZE];
	long size;
	int res = -1;
	struct seq_port *port;

	/* copy all new midi events into their port buffers */
	while (1) {
		const snd_seq_addr_t *addr;
		uint64_t ev_time, diff;
		uint32_t offset;
		void *event;
		uint8_t *midi1_ptr;
		size_t midi1_size = 0;
		uint64_t ump_state = 0;
		snd_seq_event_type_t SPA_UNUSED type;

		if (ump) {
#ifdef HAVE_ALSA_UMP
			snd_seq_ump_event_t *ev;

			res = snd_seq_ump_event_input(state->event.hndl, &ev);
			if (res <= 0)
				break;

			debug_ump_event(state, "read", ev);

			event = ev;
			addr = &ev->source;
			ev_time = SPA_TIMESPEC_TO_NSEC(&ev->time.time);
			type = ev->type;
#else
			spa_assert_not_reached();
#endif
		} else {
			snd_seq_event_t *ev;

			res = snd_seq_event_input(state->event.hndl, &ev);
			if (res <= 0)
				break;

			debug_event(state, "read", ev);

			event = ev;
			addr = &ev->source;
			ev_time = SPA_TIMESPEC_TO_NSEC(&ev->time.time);
			type = ev->type;
		}

		if ((port = find_port(state, stream, addr)) == NULL) {
			spa_log_debug(state->log, "unknown port %d.%d",
					addr->client, addr->port);
			continue;
		}
		if (port->io == NULL || port->n_buffers == 0)
			continue;

		if ((res = prepare_buffer(state, port)) < 0) {
			spa_log_debug(state->log, "can't prepare buffer port:%p %d.%d: %s",
					port, addr->client, addr->port, spa_strerror(res));
			continue;
		}

		/* queue_time is the estimated current time of the queue as calculated by
		 * the DLL. Calculate the age of the event. */
		if (state->queue_time > ev_time)
			diff = state->queue_time - ev_time;
		else
			diff = 0;

		/* convert the age to samples and convert to an offset */
		offset = NSEC_TO_CLOCK(&state->rate, diff);
		if (state->duration > offset)
			offset = state->duration - 1 - offset;
		else
			offset = 0;

		if (ump) {
#ifdef HAVE_ALSA_UMP
			snd_seq_ump_event_t *ev = event;

			data = (uint32_t*)&ev->ump[0];
			size = spa_ump_message_size(snd_ump_msg_hdr_type(ev->ump[0])) * 4;
#else
			spa_assert_not_reached();
#endif
		} else {
			snd_seq_event_t *ev = event;

			snd_midi_event_reset_decode(stream->codec);
			if ((size = snd_midi_event_decode(stream->codec, midi1_data, sizeof(midi1_data), ev)) < 0) {
				spa_log_warn(state->log, "decode failed: %s", snd_strerror(size));
				continue;
			}

			midi1_ptr = midi1_data;
			midi1_size = size;
		}

		do {
			if (!ump) {
				data = ump_data;
				size = spa_ump_from_midi(&midi1_ptr, &midi1_size,
						ump_data, sizeof(ump_data), 0, &ump_state);
				if (size <= 0)
					break;
			}

			spa_log_trace_fp(state->log, "event %d time:%"PRIu64" offset:%d size:%ld port:%d.%d",
					type, ev_time, offset, size, addr->client, addr->port);

			spa_pod_builder_control(&port->builder, offset, SPA_CONTROL_UMP);
			spa_pod_builder_bytes(&port->builder, data, size);

			/* make sure we can fit at least one control event of max size otherwise
			 * we keep the event in the queue and try to copy it in the next cycle */
			if (port->builder.state.offset +
					sizeof(struct spa_pod_control) +
					MAX_EVENT_SIZE > port->buffer->buf->datas[0].maxsize)
				goto done;

		} while (!ump);
        }

done:
	if (res < 0 && res != -EAGAIN)
		spa_log_warn(state->log, "event read failed: %s", snd_strerror(res));

	/* prepare a buffer on each port, some ports might have their
	 * buffer filled above */
	res = 0;
	spa_list_for_each(port, &stream->mix_list, mix_link) {
		struct spa_io_buffers *io = port->io;

		if (prepare_buffer(state, port) >= 0) {
			spa_pod_builder_pop(&port->builder, &port->frame);

			port->buffer->buf->datas[0].chunk->offset = 0;
			port->buffer->buf->datas[0].chunk->size = port->builder.state.offset;

			if (port->builder.state.offset > port->buffer->buf->datas[0].maxsize) {
				spa_log_warn(state->log, "control overflow: %d > %d",
						port->builder.state.offset,
						port->buffer->buf->datas[0].maxsize);
			}

			/* move buffer to ready queue */
			spa_list_remove(&port->buffer->link);
			SPA_FLAG_SET(port->buffer->flags, BUFFER_FLAG_OUT);
			spa_list_append(&port->ready, &port->buffer->link);
			port->buffer = NULL;
		}

		/* if there is already data, continue */
		if (io->status == SPA_STATUS_HAVE_DATA) {
			res |= SPA_STATUS_HAVE_DATA;
			continue;
		}

		if (io->buffer_id < port->n_buffers)
			spa_alsa_seq_recycle_buffer(state, port, io->buffer_id);

		if (spa_list_is_empty(&port->ready)) {
			/* we have no ready buffers */
			io->buffer_id = SPA_ID_INVALID;
			io->status = -EPIPE;
		} else {
			struct buffer *b = spa_list_first(&port->ready, struct buffer, link);
			spa_list_remove(&b->link);

			/* dequeue ready buffer */
			io->buffer_id = b->id;
			io->status = SPA_STATUS_HAVE_DATA;
			res |= SPA_STATUS_HAVE_DATA;
		}
	}
	return res;
}

static int process_write(struct seq_state *state)
{
	struct seq_stream *stream = &state->streams[SPA_DIRECTION_INPUT];
	const bool ump = state->ump;
	int err, res = 0;
	struct seq_port *port;

	spa_list_for_each(port, &stream->mix_list, mix_link) {
		struct spa_io_buffers *io = port->io;
		struct buffer *buffer;
		struct spa_pod_parser parser;
		struct spa_pod_frame frame;
		struct spa_pod_sequence seq;
		const void *seq_body;
		struct spa_data *d;
		struct spa_pod_control c;
		const void *c_body;
		uint64_t out_time;
		snd_seq_real_time_t out_rt;
		bool first = true;

		if (io->status != SPA_STATUS_HAVE_DATA ||
		    io->buffer_id >= port->n_buffers)
			continue;

		buffer = &port->buffers[io->buffer_id];
		d = &buffer->buf->datas[0];

		io->status = SPA_STATUS_NEED_DATA;
		spa_node_call_reuse_buffer(&state->callbacks, port->id, io->buffer_id);
		res |= SPA_STATUS_NEED_DATA;

		spa_pod_parser_init_from_data(&parser, d->data, d->maxsize,
			d->chunk->offset, d->chunk->size);

		if (spa_pod_parser_push_sequence_body(&parser, &frame, &seq, &seq_body) < 0) {
			spa_log_warn(state->log, "invalid sequence in buffer max:%u offset:%u size:%u",
					d->maxsize, d->chunk->offset, d->chunk->size);
			continue;
		}
		while (spa_pod_parser_get_control_body(&parser, &c, &c_body) >= 0) {
			size_t body_size;
			uint8_t *body;

			if (c.type != SPA_CONTROL_UMP)
				continue;

			body = (uint8_t*)c_body;
			body_size = c.value.size;

			out_time = state->queue_time + NSEC_FROM_CLOCK(&state->rate, c.offset);
			out_rt.tv_nsec = out_time % SPA_NSEC_PER_SEC;
			out_rt.tv_sec = out_time / SPA_NSEC_PER_SEC;

			spa_log_trace_fp(state->log, "event time:%"PRIu64" offset:%d size:%zd port:%d.%d",
					out_time, c.offset, body_size, port->addr.client, port->addr.port);

			if (ump) {
#ifdef HAVE_ALSA_UMP
				snd_seq_ump_event_t ev;

				snd_seq_ump_ev_clear(&ev);
				snd_seq_ev_set_ump_data(&ev, body, SPA_MIN(sizeof(ev.ump), (size_t)body_size));
				snd_seq_ev_set_source(&ev, state->event.addr.port);
				snd_seq_ev_set_dest(&ev, port->addr.client, port->addr.port);
				snd_seq_ev_schedule_real(&ev, state->event.queue_id, 0, &out_rt);

				debug_ump_event(state, "send", &ev);

				if ((err = snd_seq_ump_event_output(state->event.hndl, &ev)) < 0) {
					spa_log_warn(state->log, "failed to output event: %s",
							snd_strerror(err));
				}
#else
				spa_assert_not_reached();
#endif
			} else {
				snd_seq_event_t ev;
				uint8_t data[MAX_EVENT_SIZE];
				int size;
				uint64_t st = 0;

				while (body_size > 0) {
					if ((size = spa_ump_to_midi((const uint32_t **)&body, &body_size,
									data, sizeof(data), &st)) <= 0)
						break;

					if (first)
						snd_seq_ev_clear(&ev);

					if ((size = snd_midi_event_encode(stream->codec, data, size, &ev)) < 0) {
						spa_log_warn(state->log, "failed to encode event: %s",
								snd_strerror(size));
						snd_midi_event_reset_encode(stream->codec);
						first = true;
						continue;
					}
					first = false;
					if (ev.type == SND_SEQ_EVENT_NONE)
						/* this can happen when the event is not complete yet, like
						 * a sysex message and we need to encode some more data. */
						continue;

					snd_seq_ev_set_source(&ev, state->event.addr.port);
					snd_seq_ev_set_dest(&ev, port->addr.client, port->addr.port);
					snd_seq_ev_schedule_real(&ev, state->event.queue_id, 0, &out_rt);

					debug_event(state, "send", &ev);

					if ((err = snd_seq_event_output(state->event.hndl, &ev)) < 0) {
						spa_log_warn(state->log, "failed to output event: %s",
								snd_strerror(err));
					}
					first = true;
				}
			}
		}
	}
	snd_seq_drain_output(state->event.hndl);

	return res;
}

static void update_position(struct seq_state *state)
{
	if (SPA_LIKELY(state->position)) {
		struct spa_io_clock *clock = &state->position->clock;
		state->rate = clock->rate;
		if (state->rate.num == 0 || state->rate.denom == 0)
			state->rate = SPA_FRACTION(1, 48000);
		state->duration = clock->duration;
	} else {
		state->rate = SPA_FRACTION(1, 48000);
		state->duration = 1024;
	}
	state->threshold = state->duration;
}

static int update_time(struct seq_state *state, uint64_t nsec, bool follower)
{
	snd_seq_queue_status_t *status;
	const snd_seq_real_time_t* queue_time;
	uint64_t queue_real;
	double err, corr;
	uint64_t q1, q2;

	/* take queue time */
	snd_seq_queue_status_alloca(&status);
        snd_seq_get_queue_status(state->event.hndl, state->event.queue_id, status);
	queue_time = snd_seq_queue_status_get_real_time(status);
	queue_real = SPA_TIMESPEC_TO_NSEC(queue_time);

	if (state->dll.bw == 0.0) {
		spa_dll_set_bw(&state->dll, SPA_DLL_BW_MAX, state->threshold,
				state->rate.denom);
		state->next_time = nsec;
		state->base_time = nsec;
		state->queue_next = queue_real;
	}

	/* track our estimated elapsed time against the real elapsed queue time */
	q1 = NSEC_TO_CLOCK(&state->rate, state->queue_next);
	q2 = NSEC_TO_CLOCK(&state->rate, queue_real);
	err = ((int64_t)q1 - (int64_t) q2);

	if (fabs(err) > state->threshold)
		spa_dll_init(&state->dll);

	err = SPA_CLAMP(err, -64, 64);
	corr = spa_dll_update(&state->dll, err);

	/* this is our current estimated queue time and rate */
	state->queue_time = state->queue_next;
	state->queue_corr = corr;

	/* make a new estimated queue time with the current quantum, if we are following,
	 * use the rate correction, else we will use the rate correction only for the new
	 * timeout. */
	if (state->following)
		state->queue_next += (uint64_t)(state->threshold * corr * 1e9 / state->rate.denom);
	else
		state->queue_next += (uint64_t)(state->threshold * 1e9 / state->rate.denom);

	if ((state->next_time - state->base_time) > BW_PERIOD) {
		state->base_time = state->next_time;
		spa_log_debug(state->log, "%p: follower:%d rate:%f bw:%f err:%f (%f %f %f)",
				state, follower, corr, state->dll.bw, err,
				state->dll.z1, state->dll.z2, state->dll.z3);
	}
	state->next_time += (uint64_t)(state->threshold / corr * 1e9 / state->rate.denom);

	if (SPA_LIKELY(state->clock)) {
		state->clock->nsec = nsec;
		state->clock->rate = state->rate;
		state->clock->position += state->clock->duration;
		state->clock->duration = state->duration;
		state->clock->delay = (int64_t)(state->duration * corr);
		state->clock->rate_diff = corr;
		state->clock->next_nsec = state->next_time;
	}

	spa_log_trace_fp(state->log, "now:%"PRIu64" queue:%"PRIu64" err:%f corr:%f next:%"PRIu64" thr:%d",
			nsec, queue_real, err, corr, state->next_time, state->threshold);

	return 0;
}

int spa_alsa_seq_process(struct seq_state *state)
{
	int res;

	update_position(state);

	res = process_recycle(state);

	if (state->following && state->position) {
		update_time(state, state->position->clock.nsec, true);
		res |= process_read(state);
	}
	res |= process_write(state);

	return res;
}

static void alsa_on_timeout_event(struct spa_source *source)
{
	struct seq_state *state = source->data;
	uint64_t expire;
	int res;

	if (state->started) {
		if ((res = spa_system_timerfd_read(state->data_system, state->timerfd, &expire)) < 0) {
			if (res != -EAGAIN)
				spa_log_warn(state->log, "%p: error reading timerfd: %s",
						state, spa_strerror(res));
			return;
		}
	}

	state->current_time = state->next_time;

	spa_log_trace(state->log, "timeout %"PRIu64, state->current_time);

	if (SPA_LIKELY(state->position)) {
		struct spa_io_clock *clock = &state->position->clock;
		state->rate = clock->target_rate;
		if (state->rate.num == 0 || state->rate.denom == 0)
			state->rate = SPA_FRACTION(1, 48000);
		state->duration = clock->target_duration;
	} else {
		state->rate = SPA_FRACTION(1, 48000);
		state->duration = 1024;
	}
	state->threshold = state->duration;

	update_time(state, state->current_time, false);

	res = process_read(state);
	if (res >= 0)
		spa_node_call_ready(&state->callbacks, res | SPA_STATUS_NEED_DATA);

	set_timeout(state, state->next_time);
}

static void reset_buffers(struct seq_state *this, struct seq_port *port)
{
	uint32_t i;

	spa_list_init(&port->free);
	spa_list_init(&port->ready);

	for (i = 0; i < port->n_buffers; i++) {
		struct buffer *b = &port->buffers[i];
		if (port->direction == SPA_DIRECTION_INPUT) {
			SPA_FLAG_SET(b->flags, BUFFER_FLAG_OUT);
		} else {
			spa_list_append(&port->free, &b->link);
			SPA_FLAG_CLEAR(b->flags, BUFFER_FLAG_OUT);
		}
	}
}
static void reset_stream(struct seq_state *this, struct seq_stream *stream, bool active)
{
	struct seq_port *port;
	spa_list_for_each(port, &stream->port_list, link) {
		reset_buffers(this, port);
		spa_alsa_seq_activate_port(this, port, active);
	}
}

static int set_timers(struct seq_state *state)
{
	struct timespec now;
	int res;

	if ((res = spa_system_clock_gettime(state->data_system, CLOCK_MONOTONIC, &now)) < 0)
		return res;

	state->queue_time = 0;
	state->queue_corr = 1.0;
	spa_dll_init(&state->dll);
	state->next_time = SPA_TIMESPEC_TO_NSEC(&now);
	if (state->following) {
		set_timeout(state, 0);
	} else {
		set_timeout(state, state->next_time);
	}
	return 0;
}

static inline bool is_following(struct seq_state *state)
{
	return state->position && state->clock && state->position->clock.id != state->clock->id;
}

int spa_alsa_seq_start(struct seq_state *state)
{
	int res;

	if (state->started)
		return 0;

	state->following = is_following(state);

	spa_log_debug(state->log, "alsa %p: start follower:%d", state, state->following);

	if ((res = snd_seq_start_queue(state->event.hndl, state->event.queue_id, NULL)) < 0) {
		spa_log_error(state->log, "failed to start queue: %s", snd_strerror(res));
		return res;
	}
	while (snd_seq_drain_output(state->event.hndl) > 0)
		sleep(1);

	update_position(state);

	state->started = true;

	reset_stream(state, &state->streams[SPA_DIRECTION_INPUT], true);
	reset_stream(state, &state->streams[SPA_DIRECTION_OUTPUT], true);

	state->source.func = alsa_on_timeout_event;
	state->source.data = state;
	state->source.fd = state->timerfd;
	state->source.mask = SPA_IO_IN;
	state->source.rmask = 0;
	spa_loop_add_source(state->data_loop, &state->source);

	res = set_timers(state);

	return res;
}

static int do_reassign_follower(struct spa_loop *loop,
			    bool async,
			    uint32_t seq,
			    const void *data,
			    size_t size,
			    void *user_data)
{
	struct seq_state *state = user_data;
	int res;

	if ((res = set_timers(state)) < 0)
		spa_log_error(state->log, "can't set timers: %s", spa_strerror(res));
	return 0;
}

int spa_alsa_seq_reassign_follower(struct seq_state *state)
{
	bool following;

	if (!state->started)
		return 0;

	following = is_following(state);
	if (following != state->following) {
		spa_log_debug(state->log, "alsa %p: reassign follower %d->%d", state, state->following, following);
		state->following = following;
		spa_loop_locked(state->data_loop, do_reassign_follower, 0, NULL, 0, state);
	}
	return 0;
}

static int do_remove_source(struct spa_loop *loop,
			    bool async,
			    uint32_t seq,
			    const void *data,
			    size_t size,
			    void *user_data)
{
	struct seq_state *state = user_data;

	spa_loop_remove_source(state->data_loop, &state->source);
	set_timeout(state, 0);

	return 0;
}

int spa_alsa_seq_pause(struct seq_state *state)
{
	int res;

	if (!state->started)
		return 0;

	spa_log_debug(state->log, "alsa %p: pause", state);

	spa_loop_locked(state->data_loop, do_remove_source, 0, NULL, 0, state);

	if ((res = snd_seq_stop_queue(state->event.hndl, state->event.queue_id, NULL)) < 0) {
		spa_log_warn(state->log, "failed to stop queue: %s", snd_strerror(res));
	}
	while (snd_seq_drain_output(state->event.hndl) > 0)
		sleep(1);

	state->started = false;

	reset_stream(state, &state->streams[SPA_DIRECTION_INPUT], false);
	reset_stream(state, &state->streams[SPA_DIRECTION_OUTPUT], false);

	return 0;
}
