midi_inspector.c 4.12 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
/*
 * Copyright (c) 2015 Hanspeter Portner (dev@open-music-kontrollers.ch)
 *
 * This is free software: you can redistribute it and/or modify
 * it under the terms of the Artistic License 2.0 as published by
 * The Perl Foundation.
 *
 * This source 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
 * Artistic License 2.0 for more details.
 *
 * You should have received a copy of the Artistic License 2.0
 * along the source as a COPYING file. If not, obtain it from
 * http://www.perlfoundation.org/artistic_license_2_0.
 */

#include <stdio.h>
#include <stdlib.h>

#include <sherlock.h>

#include "lv2/lv2plug.in/ns/ext/midi/midi.h"

typedef struct _handle_t handle_t;

struct _handle_t {
	LV2_URID_Map *map;
	const LV2_Atom_Sequence *control_in;
	LV2_Atom_Sequence *control_out;
	LV2_Atom_Sequence *notify;
	LV2_Atom_Forge forge;

	LV2_URID midi_event;
35
	uint64_t offset;
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
};

static LV2_Handle
instantiate(const LV2_Descriptor* descriptor, double rate,
	const char *bundle_path, const LV2_Feature *const *features)
{
	int i;
	handle_t *handle = calloc(1, sizeof(handle_t));
	if(!handle)
		return NULL;

	for(i=0; features[i]; i++)
		if(!strcmp(features[i]->URI, LV2_URID__map))
			handle->map = (LV2_URID_Map *)features[i]->data;

	if(!handle->map)
	{
		fprintf(stderr, "%s: Host does not support urid:map\n", descriptor->URI);
		free(handle);
		return NULL;
	}

	handle->midi_event = handle->map->map(handle->map->handle, LV2_MIDI__MidiEvent);

	lv2_atom_forge_init(&handle->forge, handle->map);

	return handle;
}

static void
connect_port(LV2_Handle instance, uint32_t port, void *data)
{
	handle_t *handle = (handle_t *)instance;

	switch(port)
	{
		case 0:
			handle->control_in = (const LV2_Atom_Sequence *)data;
			break;
		case 1:
			handle->control_out = (LV2_Atom_Sequence *)data;
			break;
		case 2:
			handle->notify = (LV2_Atom_Sequence *)data;
			break;
		default:
			break;
	}
}

static void
run(LV2_Handle instance, uint32_t nsamples)
{
	handle_t *handle = (handle_t *)instance;
	uint32_t capacity;
	LV2_Atom_Forge *forge = &handle->forge;
92
	LV2_Atom_Forge_Frame frame [3];
93 94 95 96 97 98 99 100 101 102 103 104 105 106 107
	LV2_Atom_Forge_Ref ref;

	// size of input sequence
	size_t size = sizeof(LV2_Atom) + handle->control_in->atom.size;
	
	// copy whole input sequence to through port
	capacity = handle->control_out->atom.size;
	lv2_atom_forge_set_buffer(forge, (uint8_t *)handle->control_out, capacity);
	ref = lv2_atom_forge_raw(forge, handle->control_in, size);
	if(!ref)
		lv2_atom_sequence_clear(handle->control_out);

	// forge whole sequence as single event
	capacity = handle->notify->atom.size;
	lv2_atom_forge_set_buffer(forge, (uint8_t *)handle->notify, capacity);
108 109 110

	bool has_midi = false;

111 112 113 114
	ref = lv2_atom_forge_sequence_head(forge, &frame[0], 0);
	if(ref)
		ref = lv2_atom_forge_frame_time(forge, 0);
	if(ref)
115 116 117 118 119 120 121
		ref = lv2_atom_forge_tuple(forge, &frame[1]);
	if(ref)
		ref = lv2_atom_forge_long(forge, handle->offset);
	if(ref)
		ref = lv2_atom_forge_int(forge, nsamples);
	if(ref)
		ref = lv2_atom_forge_sequence_head(forge, &frame[2], 0);
122 123 124 125 126 127

	// only serialize MIDI events to UI
	LV2_ATOM_SEQUENCE_FOREACH(handle->control_in, ev)
	{
		if(ev->body.type == handle->midi_event)
		{
128
			has_midi = true;
129 130 131 132 133 134 135 136 137
			if(ref)
				ref = lv2_atom_forge_frame_time(forge, ev->time.frames);
			if(ref)
				ref = lv2_atom_forge_raw(forge, &ev->body, sizeof(LV2_Atom) + ev->body.size);
			if(ref)
				lv2_atom_forge_pad(forge, ev->body.size);
		}
	}

138 139
	if(ref)
		lv2_atom_forge_pop(forge, &frame[2]);
140 141 142 143 144 145
	if(ref)
		lv2_atom_forge_pop(forge, &frame[1]);
	if(ref)
		lv2_atom_forge_pop(forge, &frame[0]);
	else
		lv2_atom_sequence_clear(handle->notify);
146 147 148 149 150

	if(!has_midi) // don't send anything
		lv2_atom_sequence_clear(handle->notify);

	handle->offset += nsamples;
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170
}

static void
cleanup(LV2_Handle instance)
{
	handle_t *handle = (handle_t *)instance;

	free(handle);
}

const LV2_Descriptor midi_inspector = {
	.URI						= SHERLOCK_MIDI_INSPECTOR_URI,
	.instantiate		= instantiate,
	.connect_port		= connect_port,
	.activate				= NULL,
	.run						= run,
	.deactivate			= NULL,
	.cleanup				= cleanup,
	.extension_data	= NULL
};