Differenze tra le versioni di "Calloc ()"
Da Gambas-it.org - Wikipedia.
Riga 32: | Riga 32: | ||
<FONT color=Gray>' ''Infine liberiamo l'area di memoria appena prima allocata:''</font> | <FONT color=Gray>' ''Infine liberiamo l'area di memoria appena prima allocata:''</font> | ||
free_C(p) | 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" | ||
+ | |||
+ | <FONT color=Gray>' ''void *calloc (size_t __nmemb, size_t __size)'' | ||
+ | ' ''Allocate NMEMB elements of SIZE bytes each, all initialized to 0.''</font> | ||
+ | Private Extern <FONT color=#B22222>calloc</font>(__nmeb as Long, __size As Long) As Pointer | ||
+ | |||
+ | <FONT color=Gray>' ''int sprintf (char *__restrict __s, const char *__restrict __format, ...)'' | ||
+ | ' ''Write formatted output to S.''</font> | ||
+ | Private Extern sprintf(__s As Pointer, __format As String, s As String) As Integer | ||
+ | |||
+ | <FONT color=Gray>' ''void free(void *__ptr)'' | ||
+ | ' ''Free a block allocated by `malloc', `realloc' or `calloc'.''</font> | ||
+ | Private Extern free_C(__ptr As Pointer) Exec "free" | ||
+ | |||
+ | |||
+ | '''Public''' Sub Main() | ||
+ | |||
+ | Dim p As Pointer | ||
+ | |||
+ | p = <FONT color=#B22222>calloc(16, Sizeof(gb.byte))</font> | ||
+ | If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !") | ||
+ | |||
+ | <FONT color=Gray>' ''Memorizziamo nell'area di memoria appena allocata una stringa di caratteri:''</font> | ||
+ | sprintf(p, "%s", "Testo qualsiasi") | ||
+ | |||
+ | <FONT color=Gray>' ''Quindi andiamo a leggere in console il contenuto dell'area riservata dereferenziandone opportunamente il "Puntatore":''</font> | ||
+ | Print String@(p) | ||
+ | |||
+ | <FONT color=Gray>' ''Infine liberiamo l'area di memoria appena prima allocata, e ci assicuriamo anche che il "PUntatore" non punti ad alcuna cella di memoria:''</font> | ||
+ | free_C(p) | ||
+ | p = 0 | ||
'''End''' | '''End''' |
Versione delle 11:35, 20 dic 2016
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