Memcmp ()

Da Gambas-it.org - Wikipedia.

La funzione

int memcmp(const void *__s1, const void *__s2, size_t __n)

compara i primi n bytes dell'area di memoria __1 e dell'area di memoria __s2.

La funzione ritornerà il valore zero, se i dati contenuti dalle due aree di memoria sono uguali; altrimenti restituirà un valore negativo.

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 memcmp(__s1 As Pointer, __s2 As Pointer, __n As Long) As Integer In "libc:6"

Qualora le due aree di memoria contengono sono puntate da due variabili di tipo String, allora i due parametri della funzione esterna potranno assumere il tipo di valore String .


Mostriamo di seguito un semplice esempio, nel quale si compareranno due variabili di tipo Stringa:

Library "libc:6"

' int memcmp(const void *__s1, const void *__s2, size_t __n)
' Compare N bytes of S1 and S2.
Private Extern memcmp(__s1 As String, __s2 As String, __n As Long) As Integer


Public Sub Main()

 Dim s1, s2 As String
 Dim i As Integer
 
  s1 = "Gambas è un linguaggio di programmazione"
  s2 = "Gembas è un linguaggio di programmazione"
 
' Verifichiamo la corrispondenza fra i primi 6 caratteri contenuti dalle due variabili di tipo "String":
  i = memcmp(s1, s2, 6)
  
  If i = 0 Then
    Print "I primi sei caratteri contenuti dalle due variabili sono identici."
  Else
    Print "I primi sei caratteri contenuti dalle due variabili NON sono identici."
  Endif
   
End



Riferimenti