Scrivere una libreria esterna che ritorna un Vettore di tipo char

Di seguito è mostrato un esempio, nel quale la funzione esterna della libreria in C ritorna un Vettore di tipo "char".

Codice C:

char a[4];


char *prova() {

   a[0] = 'p';   // assegna un carattere per ciascun elemento del vettore di tipo "chr"
   a[1] = 'e';
   a[2] = 'r';
   a[3] = 'a';

   return a;   // ritorna l'indirizzo del vettore "a"

}

Codice Gambas:

Library "/tmp/libprovaC"
Private Extern prova() As Pointer


Public Sub Main()

 Dim p As Pointer

 Shell "gcc -o /tmp/libprovaC.so " & Application.Path & "/libprovaC.c -shared -fPIC" Wait

 p = prova()

 Print string@(p)

End