Memcpy ()

Da Gambas-it.org - Wikipedia.

La funzione della libreria di C

void *memcpy(void *__restrict __dest, const void *__restrict __src, size_t __n)

copia n caratteri da un'area di memoria str2 ad un'altra area di memoria str1, entrambe puntate da due variabili di tipo Puntatore.

Va ricordato che per la variabile di tipo Puntatore del primo parametro (__dest) deve essere sempre allocata un'area di memoria di quantità adeguata.


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 memcpy(__dest As Pointer, __src As Pointer, __n As Long) In "libc:6"


Semplice esempio di uso in Gambas con un valore numerico di tipo Intero

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 Pointer, __n As Long)

Public Sub Main()

 Dim a, b As Pointer
 Dim num As Integer
 
 
  num = 999

  a = VarPtr(num)
  b = Alloc(SizeOf(gb.Integer), 1)
  
  memcpy(b, a, SizeOf(gb.Integer))
  
  Print Int@(b)

  Free(b)

End


Semplice esempio di uso in Gambas con un valore di tipo Stringa

In questo caso il secondo parametro della funzione esterna memcpy( ) sarà di tipo Stringa.

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)


Public Sub Main()

 Dim dest As Pointer
 Dim src As String = "Questa è una prova con la funzione 'memcpy()'."
 Dim i As Integer
  
  i = Len(src)
  
  dest = Alloc(SizeOf(gb.Byte), i)
   
  memcpy(dest, src, i)
   
  Print "Dopo memcpy, " & Quote("dest") & ":\n"; String@(dest)
  
  Free(dest)
  
End



Riferimenti