/**

 * \file include/seqmid.h

 * \brief Application interface library for the ALSA driver

 * \author Jaroslav Kysela <perex@perex.cz>

 * \author Abramo Bagnara <abramo@alsa-project.org>

 * \author Takashi Iwai <tiwai@suse.de>

 * \date 1998-2001

 *

 * Application interface library for the ALSA driver

 */

/*

 *   This library is free software; you can redistribute it and/or modify

 *   it under the terms of the GNU Lesser General Public License as

 *   published by the Free Software Foundation; either version 2.1 of

 *   the License, or (at your option) any later version.

 *

 *   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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

 *

 */

#ifndef __ALSA_SEQMID_H

#define __ALSA_SEQMID_H

#ifdef __cplusplus

extern "C" {

#endif

/**

 *  \defgroup SeqMiddle Sequencer Middle Level Interface

 *  Sequencer Middle Level Interface

 *  \ingroup Sequencer

 *  \{

 */

/**

 * \brief initialize event record

 * \param ev event record pointer

 * 

 * This macro clears the given event record pointer to the default status.

 */

#define snd_seq_ev_clear(ev) \

	memset(ev, 0, sizeof(snd_seq_event_t))

/**

 * \brief set the tag for given event

 * \param ev event record

 * \param t event tag

 *

 * This macro sets the tag to the given event record.

 */

#define snd_seq_ev_set_tag(ev,t) \

	((ev)->tag = (t))

/**

 * \brief set the explicit destination

 * \param ev event record

 * \param c destination client id

 * \param p destination port id

 *

 * This macro sets the client and port id numbers to the given event record.

 *

 * \sa snd_seq_ev_set_subs()

 */

#define snd_seq_ev_set_dest(ev,c,p) \

	((ev)->dest.client = (c), (ev)->dest.port = (p))

/**

 * \brief set broadcasting to subscribers

 * \param ev event record

 *

 * This macro sets the destination as the subscribers.

 *

 * \sa snd_seq_ev_set_dest()

 */

#define snd_seq_ev_set_subs(ev) \

	((ev)->dest.client = SND_SEQ_ADDRESS_SUBSCRIBERS,\

	 (ev)->dest.port = SND_SEQ_ADDRESS_UNKNOWN)

/**

 * \brief set broadcasting to all clients/ports

 * \param ev event record

 *

 * This macro sets the destination as the broadcasting.

 *

 * \sa snd_seq_ev_set_dest()

 */

#define snd_seq_ev_set_broadcast(ev) \

	((ev)->dest.client = SND_SEQ_ADDRESS_BROADCAST,\

	 (ev)->dest.port = SND_SEQ_ADDRESS_BROADCAST)

/**

 * \brief set the source port

 * \param ev event record

 * \param p source port id

 *

 * This macro sets the source port id number.

 */

#define snd_seq_ev_set_source(ev,p) \

	((ev)->source.port = (p))

/**

 * \brief set direct passing mode (without queued)

 * \param ev event instance

 *

 * This macro sets the event to the direct passing mode

 * to be delivered immediately without queueing.

 * 

 * \sa snd_seq_ev_schedule_tick(), snd_seq_ev_schedule_real()

 */

#define snd_seq_ev_set_direct(ev) \

	((ev)->queue = SND_SEQ_QUEUE_DIRECT)

/**

 * \brief set tick-scheduling mode on queue

 * \param ev event instance

 * \param q queue id to schedule

 * \param relative relative time-stamp if non-zero

 * \param ttick tick time-stamp to be delivered

 *

 * This macro sets the scheduling of the event in the

 * MIDI tick mode.

 *

 * \sa snd_seq_ev_schedule_real(), snd_seq_ev_set_direct()

 */

#define snd_seq_ev_schedule_tick(ev, q, relative, ttick) \

	((ev)->flags &= ~(SND_SEQ_TIME_STAMP_MASK | SND_SEQ_TIME_MODE_MASK),\

	 (ev)->flags |= SND_SEQ_TIME_STAMP_TICK,\

	 (ev)->flags |= (relative) ? SND_SEQ_TIME_MODE_REL : SND_SEQ_TIME_MODE_ABS,\

	 (ev)->time.tick = (ttick),\

	 (ev)->queue = (q))

/**

 * \brief set real-time-scheduling mode on queue

 * \param ev event instance

 * \param q queue id to schedule

 * \param relative relative time-stamp if non-zero

 * \param rtime time-stamp to be delivered

 *

 * This macro sets the scheduling of the event in the

 * realtime mode.

 *

 * \sa snd_seq_ev_schedule_tick(), snd_seq_ev_set_direct()

 */

#define snd_seq_ev_schedule_real(ev, q, relative, rtime) \

	((ev)->flags &= ~(SND_SEQ_TIME_STAMP_MASK | SND_SEQ_TIME_MODE_MASK),\

	 (ev)->flags |= SND_SEQ_TIME_STAMP_REAL,\

	 (ev)->flags |= (relative) ? SND_SEQ_TIME_MODE_REL : SND_SEQ_TIME_MODE_ABS,\

	 (ev)->time.time = *(rtime),\

	 (ev)->queue = (q))

/**

 * \brief set event priority

 * \param ev event instance

 * \param high_prior 1 for high priority mode

 */

#define snd_seq_ev_set_priority(ev, high_prior) \

	((ev)->flags &= ~SND_SEQ_PRIORITY_MASK,\

	 (ev)->flags |= (high_prior) ? SND_SEQ_PRIORITY_HIGH : SND_SEQ_PRIORITY_NORMAL)

/**

 * \brief set fixed data

 * \param ev event instance

 *

 * Sets the event length mode as fixed size.

 *

 * \sa snd_seq_ev_set_variable(), snd_seq_ev_set_varusr()

 */

#define snd_seq_ev_set_fixed(ev) \

	((ev)->flags &= ~SND_SEQ_EVENT_LENGTH_MASK,\

	 (ev)->flags |= SND_SEQ_EVENT_LENGTH_FIXED)

/**

 * \brief set variable data

 * \param ev event instance

 * \param datalen length of the external data

 * \param dataptr pointer of the external data

 *

 * Sets the event length mode as variable length and stores the data.

 *

 * \sa snd_seq_ev_set_fixed(), snd_seq_ev_set_varusr()

 */

#define snd_seq_ev_set_variable(ev, datalen, dataptr) \

	((ev)->flags &= ~SND_SEQ_EVENT_LENGTH_MASK,\

	 (ev)->flags |= SND_SEQ_EVENT_LENGTH_VARIABLE,\

	 (ev)->data.ext.len = (datalen),\

	 (ev)->data.ext.ptr = (dataptr))

/**

 * \brief set varusr data

 * \param ev event instance

 * \param datalen length of the external data

 * \param dataptr pointer of the external data

 *

 * Sets the event length mode as variable user-space data and stores the data.

 *

 * \sa snd_seq_ev_set_fixed(), snd_seq_ev_set_variable()

 */

#define snd_seq_ev_set_varusr(ev, datalen, dataptr) \

	((ev)->flags &= ~SND_SEQ_EVENT_LENGTH_MASK,\

	 (ev)->flags |= SND_SEQ_EVENT_LENGTH_VARUSR,\

	 (ev)->data.ext.len = (datalen),\

	 (ev)->data.ext.ptr = (dataptr))

/**

 * \brief set queue controls

 * \param ev event record

 * \param typ event type

 * \param q queue id

 * \param val control value

 */

#define snd_seq_ev_set_queue_control(ev, typ, q, val) \

	((ev)->type = (typ),\

	 snd_seq_ev_set_dest(ev, SND_SEQ_CLIENT_SYSTEM, SND_SEQ_PORT_SYSTEM_TIMER),\

	 (ev)->data.queue.queue = (q),\

	 (ev)->data.queue.param.value = (val))

/**

 * \brief set the start queue event

 * \param ev event record

 * \param q queue id to start

 *

 * \sa snd_seq_ev_set_queue_stop(), snd_seq_ev_set_queue_continue()

 */

#define snd_seq_ev_set_queue_start(ev, q) \

	snd_seq_ev_set_queue_control(ev, SND_SEQ_EVENT_START, q, 0)

/**

 * \brief set the stop queue event

 * \param ev event record

 * \param q queue id to stop

 *

 * \sa snd_seq_ev_set_queue_start(), snd_seq_ev_set_queue_continue()

 */

#define snd_seq_ev_set_queue_stop(ev, q) \

	snd_seq_ev_set_queue_control(ev, SND_SEQ_EVENT_STOP, q, 0)

/**

 * \brief set the stop queue event

 * \param ev event record

 * \param q queue id to continue

 *

 * \sa snd_seq_ev_set_queue_start(), snd_seq_ev_set_queue_stop()

 */

#define snd_seq_ev_set_queue_continue(ev, q) \

	snd_seq_ev_set_queue_control(ev, SND_SEQ_EVENT_CONTINUE, q, 0)

/**

 * \brief set the stop queue event

 * \param ev event record

 * \param q queue id to change tempo

 * \param val the new tempo value

 */

#define snd_seq_ev_set_queue_tempo(ev, q, val) \

	snd_seq_ev_set_queue_control(ev, SND_SEQ_EVENT_TEMPO, q, val)

/**

 * \brief set the real-time position of a queue

 * \param ev event record

 * \param q queue id to change tempo

 * \param rtime the new real-time pointer

 */

#define snd_seq_ev_set_queue_pos_real(ev, q, rtime) \

	((ev)->type = SND_SEQ_EVENT_SETPOS_TIME,\

	 snd_seq_ev_set_dest(ev, SND_SEQ_CLIENT_SYSTEM, SND_SEQ_PORT_SYSTEM_TIMER),\

	 (ev)->data.queue.queue = (q),\

	 (ev)->data.queue.param.time.time = *(rtime))

/**

 * \brief set the tick-time position of a queue

 * \param ev event record

 * \param q queue id to change tempo

 * \param ttime the new tick-time

 */

#define snd_seq_ev_set_queue_pos_tick(ev, q, ttime) \

	((ev)->type = SND_SEQ_EVENT_SETPOS_TICK,\

	 snd_seq_ev_set_dest(ev, SND_SEQ_CLIENT_SYSTEM, SND_SEQ_PORT_SYSTEM_TIMER),\

	 (ev)->data.queue.queue = (q),\

	 (ev)->data.queue.param.time.tick = (ttime))

/* set and send a queue control event */

int snd_seq_control_queue(snd_seq_t *seq, int q, int type, int value, snd_seq_event_t *ev);

/**

 * \brief start the specified queue

 * \param seq sequencer handle

 * \param q queue id to start

 * \param ev optional event record (see #snd_seq_control_queue)

 */

#define snd_seq_start_queue(seq, q, ev) \

	snd_seq_control_queue(seq, q, SND_SEQ_EVENT_START, 0, ev)

/**

 * \brief stop the specified queue

 * \param seq sequencer handle

 * \param q queue id to stop

 * \param ev optional event record (see #snd_seq_control_queue)

 */

#define snd_seq_stop_queue(seq, q, ev) \

	snd_seq_control_queue(seq, q, SND_SEQ_EVENT_STOP, 0, ev)

/**

 * \brief continue the specified queue

 * \param seq sequencer handle

 * \param q queue id to continue

 * \param ev optional event record (see #snd_seq_control_queue)

 */

#define snd_seq_continue_queue(seq, q, ev) \

	snd_seq_control_queue(seq, q, SND_SEQ_EVENT_CONTINUE, 0, ev)

/**

 * \brief change the tempo of the specified queue

 * \param seq sequencer handle

 * \param q queue id

 * \param tempo the new tempo value

 * \param ev optional event record (see #snd_seq_control_queue)

 */

#define snd_seq_change_queue_tempo(seq, q, tempo, ev) \

	snd_seq_control_queue(seq, q, SND_SEQ_EVENT_TEMPO, tempo, ev)

/* create a port - simple version - return the port number */

int snd_seq_create_simple_port(snd_seq_t *seq, const char *name,

			       unsigned int caps, unsigned int type);

/* delete the port */

int snd_seq_delete_simple_port(snd_seq_t *seq, int port);

/* simple subscription between this port and another port

   (w/o exclusive & time conversion)

   */

int snd_seq_connect_from(snd_seq_t *seq, int my_port, int src_client, int src_port);

int snd_seq_connect_to(snd_seq_t *seq, int my_port, int dest_client, int dest_port);

int snd_seq_disconnect_from(snd_seq_t *seq, int my_port, int src_client, int src_port);

int snd_seq_disconnect_to(snd_seq_t *seq, int my_port, int dest_client, int dest_port);

/*

 * set client information

 */

int snd_seq_set_client_name(snd_seq_t *seq, const char *name);

int snd_seq_set_client_event_filter(snd_seq_t *seq, int event_type);

int snd_seq_set_client_pool_output(snd_seq_t *seq, size_t size);

int snd_seq_set_client_pool_output_room(snd_seq_t *seq, size_t size);

int snd_seq_set_client_pool_input(snd_seq_t *seq, size_t size);

/* sync output queue */

int snd_seq_sync_output_queue(snd_seq_t *seq);

/*

 * parse the given string and get the sequencer address

 */

int snd_seq_parse_address(snd_seq_t *seq, snd_seq_addr_t *addr, const char *str);

/*

 * reset client input/output pool

 */

int snd_seq_reset_pool_output(snd_seq_t *seq);

int snd_seq_reset_pool_input(snd_seq_t *seq);

/**

 * \brief set note event

 * \param ev event record

 * \param ch channel number

 * \param key note key

 * \param vel velocity

 * \param dur duration (in tick or msec)

 */

#define snd_seq_ev_set_note(ev, ch, key, vel, dur) \

	((ev)->type = SND_SEQ_EVENT_NOTE,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.note.channel = (ch),\

	 (ev)->data.note.note = (key),\

	 (ev)->data.note.velocity = (vel),\

	 (ev)->data.note.duration = (dur))

/**

 * \brief set note-on event

 * \param ev event record

 * \param ch channel number

 * \param key note key

 * \param vel velocity

 */

#define snd_seq_ev_set_noteon(ev, ch, key, vel) \

	((ev)->type = SND_SEQ_EVENT_NOTEON,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.note.channel = (ch),\

	 (ev)->data.note.note = (key),\

	 (ev)->data.note.velocity = (vel))

/**

 * \brief set note-off event

 * \param ev event record

 * \param ch channel number

 * \param key note key

 * \param vel velocity

 */

#define snd_seq_ev_set_noteoff(ev, ch, key, vel) \

	((ev)->type = SND_SEQ_EVENT_NOTEOFF,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.note.channel = (ch),\

	 (ev)->data.note.note = (key),\

	 (ev)->data.note.velocity = (vel))

/**

 * \brief set key-pressure event

 * \param ev event record

 * \param ch channel number

 * \param key note key

 * \param vel velocity

 */

#define snd_seq_ev_set_keypress(ev,ch,key,vel) \

	((ev)->type = SND_SEQ_EVENT_KEYPRESS,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.note.channel = (ch),\

	 (ev)->data.note.note = (key),\

	 (ev)->data.note.velocity = (vel))

/**

 * \brief set MIDI controller event

 * \param ev event record

 * \param ch channel number

 * \param cc controller number

 * \param val control value

 */

#define snd_seq_ev_set_controller(ev,ch,cc,val) \

	((ev)->type = SND_SEQ_EVENT_CONTROLLER,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.control.channel = (ch),\

	 (ev)->data.control.param = (cc),\

	 (ev)->data.control.value = (val))

/**

 * \brief set program change event

 * \param ev event record

 * \param ch channel number

 * \param val program number

 */

#define snd_seq_ev_set_pgmchange(ev,ch,val) \

	((ev)->type = SND_SEQ_EVENT_PGMCHANGE,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.control.channel = (ch),\

	 (ev)->data.control.value = (val))

/**

 * \brief set pitch-bend event

 * \param ev event record

 * \param ch channel number

 * \param val pitch bend; zero centered from -8192 to 8191

 */

#define snd_seq_ev_set_pitchbend(ev,ch,val) \

	((ev)->type = SND_SEQ_EVENT_PITCHBEND,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.control.channel = (ch),\

	 (ev)->data.control.value = (val))

/**

 * \brief set channel pressure event

 * \param ev event record

 * \param ch channel number

 * \param val channel pressure value

 */

#define snd_seq_ev_set_chanpress(ev,ch,val) \

	((ev)->type = SND_SEQ_EVENT_CHANPRESS,\

	 snd_seq_ev_set_fixed(ev),\

	 (ev)->data.control.channel = (ch),\

	 (ev)->data.control.value = (val))

/**

 * \brief set sysex event

 * \param ev event record

 * \param datalen length of sysex data

 * \param dataptr sysex data pointer

 *

 * the sysex data must contain the start byte 0xf0 and the end byte 0xf7.

 */

#define snd_seq_ev_set_sysex(ev,datalen,dataptr) \

	((ev)->type = SND_SEQ_EVENT_SYSEX,\

	 snd_seq_ev_set_variable(ev, datalen, dataptr))

/** \} */

#ifdef __cplusplus

}

#endif

#endif /* __ALSA_SEQMID_H */