Gestire un Puntatore con le funzioni esterne del API di Glib
Da Gambas-it.org - Wikipedia.
Con alcune risorse della libreria di Glib-2.0 è possibile gestire le variabili di tipo Puntatore.
Creare e Dereferenziare un Puntatore
E' possibile creare e dereferenziare una variabile di tipo Puntatore che punta ad una variabile di tipo Intero (Integer), nonché modificare il valore contenuto da una varibile di tipo Intero puntata da un Puntatore.
E' necessario avere installata e richiamare nel programma Gambas la libreria condivisa: "libglib-2.0.so.0.7200.4 ".
Mostriamo un esempio pratico, nel quale viene modificato il valore contenuto dalla variabile di tipo Intero puntata da un "Puntatore":
Library "libglib-2.0:0.7200.4"
' void g_atomic_int_set (volatile gint *atomic, gint newval)
' Sets the value of atomic to newval.
Private Extern g_atomic_int_set(atomic As Pointer, newval As Integer)
' gint g_atomic_int_get (const volatile gint *atomic)
' Gets the current value of atomic.
Private Extern g_atomic_int_get(atomic As Pointer) As Integer
Public Sub Main()
Dim p As Pointer
Dim i As Integer
p = Alloc(SizeOf(gb.Pointer), 1)
' Modifichiamo il valore contenuto dalla variabile di tipo Intero puntata dal "Puntatore":
g_atomic_int_set(p, 99999)
' Dereferenziamo il "Puntatore" con la funzione di Glib:
i = g_atomic_int_get(p)
Print i
' Per verifica, dereferenziamo il "Puntatore" con la funzione propria di Gambas:
Print Int@(p)
Free(p)
p = 0
End
Impostare a NULL il contenuto dell'area di memoria puntata da un Puntatore
E' possibile impostare a NULL il contenuto dell'area di memoria puntata da una variabile di tipo Puntatore con la funzione g_nullify_pointer( ).
Mostriamo un esempio:
Library "libglib-2.0:0.7200.4"
' void g_nullify_pointer (gpointer *nullify_location)
' Set the pointer at the specified location to NULL.
Private Extern g_nullify_pointer(nullify_location As Pointer)
Public Sub Main()
Dim p As Pointer
p = Alloc("Questa è una prova.")
' Verifichiamo "prima" dell'uso della funzione "g_nullify_pointer()":
Print String@(p), p
g_nullify_pointer(p)
' Verifichiamo "dopo" l'uso della funzione "g_nullify_pointer()":
Print String@(p), p
Free(p)
p = 0
End
