Versione delle 05:48, 2 feb 2018

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: libglib-2.0.so

Mostriamo un esempio pratico, nel quale viene modificato il valore contenuto dalla variabile di tipo Intero puntata da un "Puntatore":

Library "libglib-2.0"

' 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)
  
End

Impostare a NULL un Puntatore

E' possibile impostare a NULL (in Gambas il valore di default di una variabile di tipo Puntatore è uguale a zero) con la funzione g_nullify_pointer().

Mostriamo un esempio:

 Library "libglib-2.0"

' 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)
     
  g_nullify_pointer(p)
  
' Verifichiamo "dopo" l'uso della funzione "g_nullify_pointer()":
  Print String@(p)
  
  Free(p)
  
End

Riferimenti

• https://developer.gnome.org/glib/stable/glib-Atomic-Operations.html
• https://developer.gnome.org/glib/stable/glib-Miscellaneous-Utility-Functions.html#g-nullify-pointer