Alloca ()
La funzione alloca() dichiarata nel file header alloca.h
void *alloca (size_t __size)
alloca una porzione di memoria che verrà liberata quando si esce dalla funzione di chiamata.
Poiché detta funzione non è contenuta in alcuna libreria dinamica condivisa .so, si potrà fruire delle sue potenzialità richiamandola ed usandola all'interno di una libreria dinamica condivisa .so che dovrà essere da noi creata appositamente. Il suo codice sorgente, scritto nel progetto Gambas, potrà essere il seguente:
"/tmp/Alloca.c", "#include <alloca.h>" &
"\n\n" &
"char * Inizializza_Alloca (size_t dimen) {" &
"\n\n" &
" char * c;" &
"\n\n" &
" c = alloca(dimen);" &
"\n\n" &
" return c;" &
"\n\n}"
Va sottolineato che il valore da passare alla funzione alloca(), relativo alla dimensione dell'area di memoria da allocare, non deve essere inferiore a 256 byte.
Mostriamo di seguito un esempio pratico sull'uso della funzione alloca(), la quale verrà utilizzata per allocare un blocco di memoria, e che sarà puntato da un Puntatore da passare alla funzione esterna scanf():
' char * Inizializza_Alloca (size_t dimen)
' Invoca ed utilizza la funzione 'alloca()'.
Private Extern Inizializza_Alloca(dimen As Long) As Pointer In "/tmp/Alloca"
' int scanf (const char *__restrict __format, ...)
' Read formatted input from stdin.
Private Extern scanf(format$ As String, argsP As Pointer) As Integer In "libc:6"
Public Sub Main()
Dim p As Pointer
' Crea la nostra libreria dinamica condivisa per la gestione della funzione 'alloca()':
Creaso()
' Invoca la funzione presente nella nostra libreria dinamica condivisa contenente il codice per la gestione della funzione 'alloca()':
p = Inizializza_Alloca(512)
If p = 0 Then Error.Raise("Impossibile allocare memoria con 'alloca()' !")
' Resta in attesa che sia inviato un dato numerico intero immesso dalla tastiera nello spazio sottostante la console o nel Terminale:
scanf("%d", p)
' Stampa in console o nel Terminale il valore numerico intero inviato mediante la precedente funzione 'scanf()':
Print Int@(p)
End
Private Procedure Creaso()
File.Save("/tmp/Alloca.c", "#include <alloca.h>" &
"\n\n" &
"char * Inizializza_Alloca (size_t dimen) {" &
"\n\n" &
" char * c;" &
"\n\n" &
" c = alloca(dimen);" &
"\n\n" &
" return c;" &
"\n\n}")
Shell "gcc -o /tmp/Alloca.so /tmp/Alloca.c -shared" Wait
End
