Visualizza wikitesto di Scrivere una libreria esterna contenente una Funzione di Callback che chiama una Funzione Callback in Gambas

La "''Funzione Callback''" è una funzione, della quale viene passato mediante una variabile di tipo ''Puntatore'' l'indirizzo ad una funzione di libreria (''Funzione <SPAN style="text-decoration:underline">di</span> Callback'') in modo tale che al momento previsto questa ''Funzione di Callback'' della libreria possa chiamare la ''Funzione Callback'', eventualmente anche passandole dei parametri.

[[Extern:_richiamare_funzioni_esterne_a_Gambas#Funzione_esterna_che_fa_riferimento_ad_una_funzione_interna_Callback|Come sappiamo]] è possibile passare l'indirizzo di una ''Funzione CallBack'' di Gambas ad una ''Funzione di Callback'' presente in una libreria esterna. In questa pagina vedremo come scrivere un'apposita libreria esterna contenente una ''Funzione di Callback'', alla quale viene passato l'indirizzo di una ''Funzione Callback'' presente nel codice dell'applicativo Gambas.


Facciamo due esempi.


===Primo esempio===
La libreria esterna, da noi scritta e che chiameremo ''libadhoc.c'', sarà la seguente:
 #include <unistd.h>
 
 
 <FONT Color=blue>int (*po)(int)</font>;   <FONT color=gray>// Dichiarazione del "Puntatore a Funzione"</font>
 
 
 void invia(<FONT Color=#B22222>void (*fp)</font>) {    <FONT color=gray>// Funzione di Callback</font>
 
   int i = 0;
 
   <FONT Color=blue>po</font> = <FONT Color=#B22222>fp</font>;   <FONT color=gray>// Inizializzazione del "Puntatore a Funzione"</font>
   
   while (i < 100) {
   
 <FONT color=gray>/* Invoca la funzione callback di Gambas mediante il "Puntatore a Funzione"
    e le passa il valore della variabile intera "i": */</font>
     if ((i % 10) == 0)  <FONT Color=blue>(*po)(i)</font>;
 
     usleep(50000);
     
     i++;
 
   }
 
 }
Il codice sorgente della libreria esterna, da noi scritta, verrà posto nella cartella ''Dati'' del progetto Gambas.


L'applicativo Gambas sarà invece il seguente:
 Private Extern invia(<FONT Color=#B22222>ricP As Pointer</font>) In "/tmp/libadhoc"
 
 
 '''Public''' Sub Main()
 
   Shell "gcc -o /tmp/libadhoc.so " & Application.Path &/ "libadhoc.c -shared -fPIC" Wait
 
 <FONT Color=gray>' ''Invoca la "Funzione di Callback" della libreria esterna,''
 ' ''passandole l'indirizzo della "Funzione Callback" di Gambas:''</font>
   invia(<FONT Color=#B22222>riceve</font>)
 
 '''End'''
 
 
 
 '''Private''' Function <FONT Color=#B22222>riceve</font>(i As Integer)   <FONT color=gray>' ''Funzione Callback''</font>
  
   Print "Ricevuto: "; i
  
 '''End'''



===Secondo esempio===
La libreria esterna, da noi scritta e che chiameremo ''libadhoc.c'', sarà la seguente:
 void Funzione_C(int i, void (*Funzione_Gambas)(int)) {
 
   int n = 100;
   int a;
  
   for (i = 0; i < n ; i++) {
      a = i * n;
      Funzione_Gambas(a);
   }
  
 }


L'applicativo Gambas sarà invece il seguente:
 Public Extern Funzione_C(i As Integer, FunzioneCallback As Pointer) In "/tmp/libadhoc"
 
 
 '''Public''' Sub Main()
 
  Shell "gcc -o /tmp/libadhoc.so " & Application.Path &/ "libadhoc.c -shared -fPIC" Wait
  
  Funzione_C(10, Funzione_Callback)
 
 '''End'''
 
 
 '''Private''' Sub Funzione_Callback(ris As Integer)
     
  Print ris
 
 '''End'''