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
