Differenze tra le versioni di "Calloc ()"

Da Gambas-it.org - Wikipedia.
 
Riga 2: Riga 2:
 
  void *calloc (size_t __nmemb, size_t __size)
 
  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.
 
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.
<BR>La differenza di ''[[Malloc_()|malloc( )]]'' e di ''calloc( )'' è che ''[[Malloc_()|malloc( )]]'' non imposta la memoria a zero, laddove invece ''calloc( )'' alloca la memoria a zero.
+
<BR>La differenza di "[[Malloc_()|malloc()]]" e di "calloc()" è che "[[Malloc_()|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:
 
Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
Riga 21: Riga 20:
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim p As Pointer
 
   Dim p As Pointer
 
    
 
    
  p = <FONT color=#B22222>calloc(16, Sizeof(gb.byte))</font>
+
  p = <FONT color=#B22222>calloc(16, Sizeof(gb.byte))</font>
  If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
+
  If p == 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
 
    
 
    
 
  <FONT color=Gray>' Qui fa qualcosa con il puntatore creato......</font>
 
  <FONT color=Gray>' Qui fa qualcosa con il puntatore creato......</font>
 
      
 
      
 
  <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'''
+
  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( )'':
+
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"
 
  Library "libc:6"
 
   
 
   
Riga 52: Riga 51:
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim p As Pointer
 
   Dim p As Pointer
 
    
 
    
  p = <FONT color=#B22222>calloc(16, Sizeof(gb.byte))</font>
+
  p = <FONT color=#B22222>calloc(16, Sizeof(gb.byte))</font>
  If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
+
  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>
 
  <FONT color=Gray>' ''Memorizziamo nell'area di memoria appena allocata una stringa di caratteri:''</font>
  sprintf(p, "%s", "Testo qualsiasi")
+
  sprintf(p, "%s", "Testo qualsiasi")
 
   
 
   
 
  <FONT color=Gray>' ''Quindi andiamo a leggere in console il contenuto dell'area riservata dereferenziandone opportunamente il "Puntatore":''</font>
 
  <FONT color=Gray>' ''Quindi andiamo a leggere in console il contenuto dell'area riservata dereferenziandone opportunamente il "Puntatore":''</font>
  Print String@(p)
+
  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>
+
  <FONT color=Gray>' ''Infine liberiamo l'area di memoria appena prima allocata, e ci assicuriamo anche che il "PUntatore" non punti ad alcun indirizzorilevante di memoria:''</font>
  free_C(p)
+
  free_C(p)
  p = 0
+
  p = 0
 
      
 
      
  '''End'''
+
  End
 
 
  
  

Versione attuale delle 08:16, 13 giu 2024

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 alcun indirizzorilevante di memoria:
 free_C(p)
 p = 0
   
End


Riferimenti