Alsa e Gambas: Accodamento di 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)
printerr("Creazione della coda", err)
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: err = snd_seq_alloc_queue(snd_seq_t * seq, const char * name), che sarà così richiamata con Extern ed utilizzata:

PRIVATE Extern snd_seq_alloc_queue(seq as Pointer, nome_coda As String) As Integer

...... ' come sopra
err = snd_seq_alloc_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, SND_SEQ_EVENT_START, 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 valore relativo all'evento;
• ev è un istanza dell'evento.

Se, invece, intendiamo fermare la coda utilizzeremo aggiungeremo la medesima funzione cambiando, però il terzo parametro nella costante: SND_SEQ_EVENT_STOP.

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

Const SND_SEQ_EVENT_START As Integer = 30
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)
printerr("Avvio della coda"), err)

End


Public Sub stop_queue()
Dim err As Integer

err = snd_seq_control_queue(handle, outqueue, SND_SEQ_EVENT_STOP, 0, 0)
printerr("Arresto della coda", err)

End

Queste funzioni di per sé, però, non sono sufficienti, bisognerà sempre accompagnarle con la funzione di ALSA, che già conosciamo, snd_seq_drai_output().