Calloc ()
Da Gambas-it.org - Wikipedia.
Versione del 20 dic 2016 alle 10:35 di Vuott (Discussione | contributi)
La funzione della libreria di C
void *calloc (size_t __nmemb, size_t __size)
alloca la memoria richiesta e restituisce un Puntatore ad essa, ossia restituisce una variabile contenente l'indirizzo della prima cella della predetta area di memoria riservata.
La differenza di malloc( ) e di calloc( ) è che malloc( ) non imposta la memoria a zero, laddove invece calloc( ) alloca la memoria a zero.
Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché bisognerà dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta:
Private Extern calloc(__nmeb as Long, __size As Long) As Pointer In "libc:6"
Semplice esempio di uso in Gambas:
Library "libc:6"
' void *calloc (size_t __nmemb, size_t __size)
' Allocate NMEMB elements of SIZE bytes each, all initialized to 0.
Private Extern calloc(__nmeb as Long, __size As Long) As Pointer
' void free(void *__ptr)
' Free a block allocated by `malloc', `realloc' or `calloc'.
Private Extern free_C(__ptr As Pointer) Exec "free"
Public Sub Main()
Dim p As Pointer
p = calloc(16, Sizeof(gb.byte))
If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
' Qui fa qualcosa con il puntatore creato......
' Infine liberiamo l'area di memoria appena prima allocata:
free_C(p)
End
In quest'altro esempio viene allocata con la funzione esterna calloc( ) un'area di memoria, nella quale poi si provvederà a scrivere una stringa di cartteri mediante la funzione esterna sprintf( ):
Library "libc:6"
' void *calloc (size_t __nmemb, size_t __size)
' Allocate NMEMB elements of SIZE bytes each, all initialized to 0.
Private Extern calloc(__nmeb as Long, __size As Long) As Pointer
' int sprintf (char *__restrict __s, const char *__restrict __format, ...)
' Write formatted output to S.
Private Extern sprintf(__s As Pointer, __format As String, s As String) As Integer
' void free(void *__ptr)
' Free a block allocated by `malloc', `realloc' or `calloc'.
Private Extern free_C(__ptr As Pointer) Exec "free"
Public Sub Main()
Dim p As Pointer
p = calloc(16, Sizeof(gb.byte))
If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
' Memorizziamo nell'area di memoria appena allocata una stringa di caratteri:
sprintf(p, "%s", "Testo qualsiasi")
' Quindi andiamo a leggere in console il contenuto dell'area riservata dereferenziandone opportunamente il "Puntatore":
Print String@(p)
' Infine liberiamo l'area di memoria appena prima allocata, e ci assicuriamo anche che il "PUntatore" non punti ad alcuna cella di memoria:
free_C(p)
p = 0
End
