Visualizza wikitesto di Verificare quali dati Gambas passa ad una funzione esterna

Per sapere quali dati Gambas invia ad una funzione esterna, dovremo servirci di un'apposita libreria esterna in C che ci restituirà i risultati dei dati effettivi passati da Gambas. In tal modo sarà possibile verificare se Gambas invia ad una funzione esterna qualsiasi i dati corretti.

Nell'esempio, che utilizzeremo in questa pagina, abbiamo un applicativo Gambas che riempie una ''Struttura'' ed una variabile vettoriale con alcuni dati.
<BR>L'applicativo, poi, passerà l'indirizzo di memoria della predetta ''Struttura'' ad una funzione della predetta libreria esterna, da noi realizzata, per la verifica dei dati effettivamente passati.

====Passare l'indirizzo di memoria della Struttura, ottenuto con la funzione "VarPtr()"====
 Public Struct prova
   a As Byte
   b As Short
   c As Integer
 End Struct
 
 Private pr As Struct Prova
 Private vett[10] As Byte
  
 Private Extern verifica(p As Pointer) In "/tmp/libverifica"
 
 
 Public Sub Main()
 
 <FONT color=gray>' ''Va a generare l'apposita libreria esterna .so per la verifica:''</font>
  Creaso()
 
 <FONT color=gray>' ''Assegna dei valori ai campi della Struttura:''</font>
  With pr
    .a = 44
    .b = 444
    .c = 44444
  End With
 
 <FONT color=gray>' ''Assegna due valori anche a due rispettivi elementi del vettore:''</font>
  vett[0] = 5
  vett[4] = 10
    
  
 <FONT color=gray>' '''Vengono mostrati in console i risultati'''</font>
  verifica(VarPtr(pr))    <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
  
  verifica(VarPtr(vett))
  <FONT color=gray>' ''oppure:'' '''verifica(vett.Data)'''</font>
 
 End
 
 
 Private Procedure Creaso()
 
  File.Save("/tmp/libverifica.c", "#include <stdio.h>\n\n" &
                                  "void verifica(unsigned char *p) {\n" &
                                  "   int   i;\n" &
                                  "   printf(\"Valore puntatore: %x;\\n dump:\", (int) *p);\n" &
                                  "   for (i=0; i<8; i++)\n" &
                                  "     printf(\"  %2.2x  \", *p++);\n" &
                                  "   printf(\"\\n\\n\");\n}")
 
  Shell "gcc -fPIC -o /tmp/libverifica.so /tmp/libverifica.c -shared" Wait
 
 End

====Passare l'indirizzo di memoria della Struttura, ottenuto con il Metodo "Object.Address()"====
 Public Struct prova
   a As Byte
   b As Short
   c As Integer
 End Struct
  
 Private Extern verifica(p As Pointer) In "/tmp/libverifica"
 
 
 Public Sub Main()
 
  Dim pr As New Prova
  Dim vett As New Byte[10]
 
 <FONT color=gray>' ''Va a generare l'apposita libreria esterna .so per la verifica:''</font>
  Creaso()
 
 <FONT color=gray>' ''Assegna dei valori ai campi della Struttura:''</font>
  With pr
    .a = 44
    .b = 444
    .c = 44444
  End With
 
 <FONT color=gray>' ''Assegna due valori anche a due rispettivi elementi del vettore:''</font>
  vett[0] = 5
  vett[4] = 10
    
  
 <FONT color=gray>' '''Vengono mostrati in console i risultati'''</font>
  verifica(Object.Address(pr) + 24) <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
  
  verifica(vett.Data)
 
 End
 
 
 Private Procedure Creaso()
 
  File.Save("/tmp/libverifica.c", "#include <stdio.h>\n\n" &
                                  "void verifica(unsigned char *p) {\n" &
                                  "   int   i;\n" &
                                  "   printf(\"Valore puntatore: %x;\\n dump:\", (int) *p);\n" &
                                  "   for (i=0; i<8; i++)\n" &
                                  "     printf(\"  %2.2x  \", *p++);\n" &
                                  "   printf(\"\\n\\n\");\n}")
 
  Shell "gcc -fPIC -o /tmp/libverifica.so /tmp/libverifica.c -shared" Wait
 
 End



=Note=
[1] Vedere la seguente pagina: [[Ottenere il puntatore di una variabile di tipo Struttura]]