Copiare due stringhe in un'area di memoria con la funzione esterna memcpy( )

[vuott]

Di seguito un esempio per copiare in modo contiguo due stringhe all'interno di un'area di memoria riservata mediante la funzione esterna memcpy( ) contenuta nella libreria condivisa libc.so.6.


Utilizzando una variabile di tipo Puntatore:

Codice: [Seleziona]

Library "libc:6"

' void *memcpy (void *__restrict __dest, const void *__restrict __src, size_t __n)
' Copy N bytes of SRC to DEST.
Private Extern memcpy(__dest As Pointer, __src As String, __n As Long) As Pointer


Public Sub Main()

  Dim a, b As String
  Dim dest As Pointer
  Dim i As Integer
  
   a = "aaaa"
   b = "bbbb"
    
' Allochiamo una sufficiente area di memoria ove saranno memorizzati in successione i dati delle due variabili stringa:
   dest = Alloc(SizeOf(gb.Byte), 16)
    
   i = Len(a)
    
' Copiamo nell'area di memoria l'intero numero di dati contenuti dalla variabile stringa "a":
   memcpy(dest, a, i)
    
' Poiché dobbiamo memorizzare successivamente anche i dati presenti nella variabile stringa "b",
' è necessario spostarci all'interno dell'area di memoria allocata di un numero di byte pari alla dimensione della stringa:
   dest += i
    
   i = Len(b)
    
' Copiamo nell'area di memoria, dopo i dati già copiati dalla variabile stringa "a", l'intero numero di dati contenuti dalla variabile stringa "b":
   memcpy(dest, b, i)
    
' Poiché il puntatore interno dell'area di memoria riservata è spostato in avanti rispetto al primo byte dell'area medesima,
' è necessario riportare appunto all'inizio il puntatore:
   dest -= i
    
' Dereferenziamo il Puntatore all'area di memoria allocata per vederne il contenuto in console:
   Print String@(dest)
    
' Liberiamo l'area di memoria precedentemente allocata:
   Free(dest)

' Ci assicuriamo comunque che il Puntatore non punti ad alcuna cella di memoria importante:
   dest = 0

End

Ora utilizzando un vettore di tipo Byte[ ]:

Codice: [Seleziona]

Library "libc:6"

' void *memcpy (void *__restrict __dest, const void *__restrict __src, size_t __n)
' Copy N bytes of SRC to DEST.
Private Extern memcpy(__dest As Pointer, __src As String, __n As Long) As Pointer


Public Sub Main()

  Dim a, b As String
  Dim dest As Byte[]
  Dim ia, ib As Integer
  
   a = "aaaa"
   b = "bbbb"
    
' Attribuiamo un sufficiente numero di elementi al vettore, ossia allochiamo una sufficiente area di memoria per il vettore medesimo:
   dest = New Byte[16]
    
   ia = Len(a)
    
' Copiamo nell'area di memoria l'intero numero di dati contenuti dalla variabile stringa "a":
   memcpy(dest.Data, a, ia)
   
   ib = Len(b)
    
' Copiamo nell'area di memoria del vettore, destinata a memorizzare i propri dati, l'intero numero di dati contenuti dalla variabile stringa "b".
' L'area di memoria di memorizzazione dei dati del vettore è individuata dal suo indirizzo ritornato dalla proprietà ".Data" del vettore medesimo.
' Ci spostiamo di 4 byte avanti nell'area di memoria del vettore, al fine di non sovrascrivere i dati già copiati precedentemente della stringa "a":
   memcpy(dest.Data + ia, b, ib)

' Mostriamo in console i dati "utili" (ossia in questo caso quelli rappresentanti la copia delle due stringhe originarie) contenuti dal vettore:
   Print dest.ToString(0, ia + ib)

' ...o magari leggendo con la funzione di dereferenziazione di Gambas direttamente nell'area di memoria dei dati memorizzati dal vettore:
   Print String@(dest.Data)

End