ALSA e Gambas - L'accodamento degli eventi

ALSA, per processare uno o più eventi, ha bisogno che sia creata una coda di eventi temporizzati. Come sappiamo, la temporizzazione degli eventi avviene mediante l'assegnazione per ciascun evento da parte dell'applicazione Midi di una marcatura temporale: il Timestamp. Una coda di eventi riceverà messaggi di temporizzazione, con i quali cercherà di adattare l'invio degli eventi Midi a questa temporizzazione.
L'evento, temporizzato con il proprio valore timestamp, viene innanzitutto inserito nella coda di priorità, ed indirizzato al proprio client di destinazione subito o successivamente a seconda di quanto stabilito dal timestamp.

Per creare una coda bisognerà utilizzare la funzione di ALSA:

int snd_seq_alloc_queue(snd_seq_t * seq)

La funzione ritorna il valore identificativo della coda, che potrà essere uguale o superiore a zero. Se la funzione, però, ritorna un valore minore di zero, riporterà un errore. L'identificativo della coda sarà utilizzato nella successiva funzione per far partire o arrestare la coda medesima.

Questa funzione, come ormai ben sappiamo, andrà richiamata in Gambas con la consueta voce Extern. Tenendo conto delle dichiarazioni assunte nel nostro codice nei capitoli iniziali di questa guida, inseriremo detta funzione nella routine alsa_open() presente in CAlsa.class, e così scriveremo:

Private Extern snd_seq_alloc_queue(seq As Pointer) As Integer

Public Sub alsa_open(myname As string)

 Dim err As Integer
 ......

 err = snd_seq_alloc_queue(handle)

IF err < 0 then error.Raise("Errore nella creazione di una coda")
outqueue = err

......

E' possibile dare anche un nome alla coda sostituendo la funzione di prima con la seguente funzione esterna di ALSA:

err = snd_seq_alloc_named_queue(snd_seq_t * seq, const char * name)

che sarà così richiamata con Extern ed utilizzata:

Private Extern snd_seq_alloc_named_queue(seq as Pointer, nome_coda As String) As Integer

...... ' come sopra
err = snd_seq_alloc_named_queue(handle, "coda_eventi")
...... ' come sopra

Dopo aver allocato la coda di eventi temporizzati, sarà necessario avviarla.
Ciò sarà compiuto mediante la funzione:

snd_seq_control_queue(seq, q, type, value, 0, ev)

Laddove:

• seq è l'handle del sequencer ALSA;
• q è l'identificativo della coda da avviare (o da fermare);
• type è il tipo di evento (Start, Stop oppure Continue);
• value è il valore relativo all'evento;
• ev è un istanza dell'evento.

In particolare per avviare la coda, si imposterà nel parametro "type" la Costante di ALSA:

SND_SEQ_EVENT_START

Se, invece, intendiamo fermare la coda utilizzeremo la medesima funzione cambiando, però il terzo parametro con la Costante:

SND_SEQ_EVENT_STOP.

Nel codice se poniamo due button, con i quali poter scatenare queste funzioni, avremo in CAlsa.class:

Private Const SND_SEQ_EVENT_START As Integer = 30
Private Const SND_SEQ_EVENT_STOP As Integer = 32

PRIVATE Extern snd_seq_control_queue(seq As Pointer, id_queue As integer, type_queue As Integer, val_queue As Integer, ev_queue As Integer) As Integer

Public Sub start_queue()

 Dim err As Integer

 err = snd_seq_control_queue(handle, outqueue, SND_SEQ_EVENT_START, 0, 0)

End


Public Sub stop_queue()
 
 Dim err As Integer

 err = snd_seq_control_queue(handle, outqueue, SND_SEQ_EVENT_STOP, 0, 0)
 
End