Realloc ()

Da Gambas-it.org - Wikipedia.

La funzione della libreria di C

void *realloc (void *__ptr, size_t __size)

ridimensiona, incrementando o riducendo, il blocco di memoria precedentemente dimensionato con una chiamata alle funzioni di C malloc() o a calloc() e puntato dal Puntatore ptr.


Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "realloc()" è omonima alla funzione di Gambas "Realloc()", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
Dunque avremo ad esempio:

Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer In "libc:6" Exec "realloc"

La funzione realloc() va utilizzata in Gambas per attribuire una nuova dimensione ad una area di memoria precedentemente dimensionata soltanto con le funzioni esterni malloc() o calloc(), e non dalla funzione di Gambas Alloc().

Semplice esempio di uso in Gambas:

Library "libc:6"

' void *malloc (size_t __size)
' Allocate SIZE bytes of memory.
Private Extern malloc(__size As Long) As Pointer

' void *realloc (void *__ptr, size_t __size)
' Re-allocate the previously allocated block in PTR, making the new block SIZE bytes long.
Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer Exec "realloc"

' 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 p1, p2 As Pointer
 Dim st As Stream
 
' Viene allocata mediante la funzione esterna "malloc()" un'area di memoria pari a 4 byte:
  p1 = malloc(4)
  If p1 = 0 Then Error.Raise("Impossibile allocare memoria !")
   
' Nell'area di memoria allocata vengono scritti alcuni valori:
  st = Memory p1 For Write
  Write #st, 11 As Byte
  Write #st, 22 As Byte
  Write #st, 33 As Byte
  Write #st, 44 As Byte
  st.Close
   
' Dereferenziamo il "Puntatore" alla'area di memoria allocata, per vedere i valori or ora memorizzati:
  Print Byte@(p1)
  Print Byte@(p1 + 1)
  Print Byte@(p1 + 2)
  Print Byte@(p1 + 3)
  
   
' Utilizziamo, dunque, la funzione esterna "realloc()" per ridefinire la quantità di memoria riservata:
  p2 = realloc_C(p1, 8 * SizeOf(gb.Byte))
  If p2 = 0 Then Error.Raise("Impossibile riallocare la memoria già allocata !")
  
' Scriviamo alcuni valori nei byte aggiunti alla memoria allocata:
  st = Memory p2 For Write
  Seek #st, 4
  Write #st, 55 As Byte
  Write #st, 66 As Byte
  Write #st, 77 As Byte
  Write #st, 88 As Byte
  st.Close

' Andiamo a vedere i valori or ora memorizzati nei byte di memoria allocata aggiunti:
  Print Byte@(p2 + 4)
  Print Byte@(p2 + 5)
  Print Byte@(p2 + 6)
  Print Byte@(p2 + 7)
  
' Liberiamo la memoria complesivamente allocata. Dovremo utilizzare la funzione esterna "free()" !
  free_C(p2)
  
End


In quest'altro esempio di allocazione dinamica di un'area di meoria si utilizzeranno le seguenti funzioni esterne:
- malloc( ), per allocare inizialmente un'area di memoria;
- memset( ), per scrivere un dato all'interno della memoria allocata;
- realloc( ), per allocare una nuova quantità dell'area memoria precedentemente riservata;
- free( ), per liberare la memoria allocata.

Library "libc:6"

' void *malloc (size_t __size)
' Allocate SIZE bytes of memory.
Private Extern malloc(__size As Long) As Pointer

' void * memset(void *buffer, int c, size_t count)
' Copies the character c (an unsigned char) to the first count characters of the string pointed to, by the argument buffer.
Private Extern memset(dest As Pointer, c As Integer, count As Long) As Pointer

' void *realloc (void *__ptr, size_t __size)
' Re-allocate the previously allocated block in PTR, making the new block SIZE bytes long.
Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer Exec "realloc"

' 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
 Dim all, i As Integer
 
  all = 1
  
' Effettua una prima allocazione dell'area di memoria necessaria:
  p = malloc(all * SizeOf(gb.Byte))
  If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
  
  While i < 20
' Scrive un dato nell'area di memoria riservata:
    memset(p + i, i * 10, 1)   [Nota 1]
    Inc all
' Alloca una nuova quantità di memoria:
    p = realloc_C(p, all)
    If p = 0 Then Error.Raise("Impossibile riallocare l'area di memoria !")
    Inc i
  Wend
  
' Verifica il risultato:
  For i = 0 To 19
    Print Byte@(p + i)
  Next
  
' Liberia la memoria allocata:
  free_C(p)
' Si assicura che il Puntatore non punti più ad alcuna cella di memoria:
  p = 0
  
End


Note

[1] Per scrivere i dati nell'area di memoria allocata, è possibile utilizzare anche la funzione esterna sprintf( ) in sostituzione di memset( ), come segue:

sprintf(p + i, "%c", i * 10);


Riferimenti