Differenze tra le versioni di "Gestire un Puntatore con le funzioni esterne del API di Glib"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
Con alcune risorse della libreria di '''Glib-2.0''' è 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.
+
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''
 
E' necessario avere installata e richiamare nel programma Gambas la libreria: ''libglib-2.0.so''
Riga 35: Riga 39:
 
   Print Int@(p)
 
   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"
 +
 +
<FONT Color=gray>' ''void g_nullify_pointer (gpointer *nullify_location)''
 +
' ''Set the pointer at the specified location to NULL.''</font>
 +
Private Extern g_nullify_pointer(nullify_location As Pointer)
 +
 
 +
 +
'''Public''' Sub Main()
 +
 
 +
  Dim p As Pointer
 +
 
 +
  p = Alloc("Questa è una prova.")
 +
 
 +
<FONT Color=gray>' ''Verifichiamo "prima" dell'uso della funzione "g_nullify_pointer()":''</font>
 +
  Print String@(p)
 +
 
 +
 
 +
  g_nullify_pointer(p)
 +
 
 +
<FONT Color=gray>' ''Verifichiamo "dopo" l'uso della funzione "g_nullify_pointer()":''</font>
 +
  Print String@(p)
 +
 
 
   Free(p)
 
   Free(p)
 
    
 
    
Riga 44: Riga 81:
 
=Riferimenti=
 
=Riferimenti=
 
* https://developer.gnome.org/glib/stable/glib-Atomic-Operations.html
 
* https://developer.gnome.org/glib/stable/glib-Atomic-Operations.html
 +
* https://developer.gnome.org/glib/stable/glib-Miscellaneous-Utility-Functions.html#g-nullify-pointer

Versione delle 12:25, 29 ott 2015

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.Integer))
  
' 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