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, puntato da un Puntatore, nel quale sarà scritto mediante i Memory Stream un valore numerico di tip/tmp/Alloca"o Intero immesso dalla tastiera.
Library "/tmp/Alloca"
' char * Inizializza_Alloca (size_t dimen)
' Invoca ed utilizza la funzione 'alloca()'.
Private Extern Inizializza_Alloca(dimen As Long) As Pointer
Public Sub Main()
Dim p As Pointer
Dim i As Integer
Dim st As Stream
' 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(256)
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:
Input i
st = Memory p For Write
Write #st, i As Integer
st.Close
' Stampa in console o nel Terminale il valore numerico intero immesso con la tastiera:
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
