Visualizza wikitesto di Emulare i Puntatori a Funzione del linguaggio C mediante gli Oggetti

È possibile emulare in Gambas i Puntatori a Funzioni del linguaggio C tramite ''Oggetti''.

In tal modo è possibile in pratica invocare una Funzione attraverso il nome di una variabile di tipo ''Oggetto''.

A seconda di come è strutturato il set di Funzioni e di quante ve ne sono nel codice, si possono adottare  almeno due modalità. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>


===Uso del Metodo speciale "_call()"===
Si definisce una Classe (usando le parole-chiave: ''Create Static'' ) che rappresenti la Funzione, e si implementa poi la Funzione nel suo Metodo speciale "_call()".
<BR>Così è possibile passare quella Classe (che in realtà è un Oggetto ''singleton'') come una sorta di Puntatore a Funzione surrogato.

Di seguito un esempio pratico in cui si crea la Classe "secondaria" che emula il Puntatore a Funzione e che chiameremo "Class1.class":
 Create Static
 
 Public Sub _call(Variabile As String)
   Print Variabile
 End
Nella Classe o Modulo "principale" avremo:
 Public Sub Main()
 
  PassaUnPuntatoreAFunzione(Class1)
 
 End
 
 Public Sub PassaUnPuntatoreAFunzione(Funz As '''Object''')
 
  Funz("testo qualsiasi")
 
 End


===Uso di nomi noti delle Funzioni a cui fare riferimento===
'''2''') Definire una Classe (usando le parole-chiave: ''Create Static'' ) che rappresenti l'intero set di Funzioni. Quella Classe deve implementare funzioni di nomi noti a cui fare riferimento in seguito nlla Classe o nel Modulo principale.

Esempio pratico in cui si crea la Classe "secondaria", contenente tre Funzioni, e che chiameremo "Class1.class":
 Create Static
 
 Public Sub Funzione1(Messaggio As String)
 
 Print Messaggio
 
 End
 
 Public Sub Funzione2(Messaggio As String)
 
  Print Messaggio
 
 End
 
 Public Sub Funzione3(Messaggio As String)
 
  Print Messaggio
 
 End
Nella Classe o Modulo "principale" invece avremo:
 Public Sub Main()
 
  PassaUnSetDiFunzioni(Class1, ["Funzione1", "Funzione2", "Funzione3"])
 
 End
 
 Public Sub PassaUnSetDiFunzioni(Set As '''Object''', Funzioni As String[])
  
  Dim funz As String
  Dim indice As Integer
 
  For Each funz In Funzioni
    Object.Call(Set, funz, [funz & " #" & indice])
    Inc indice
  Next
 
 End
Va fatto notare che il 3° parametro formale del Metodo "Object.Call()" richiede comunque che il tipo di dato o l'Oggetto passato sia ridotto a un array, e ciò anche se esso è già un array. In tal senso dunque, se si passa al 3° argomento un array, bisognerà inserire la variabile di tale Oggetto array nelle parentesi quadre per renderlo così un array di array.



=Note=
[1] Vedere anche queste pagine analoghe:
* [[Gestire_Funzioni_come_oggetti|Gestire Funzioni come oggetti]]
* [[Usare_una_Classe_come_fosse_una_Funzione|Usare una Classe come fosse una Funzione]]