Visualizza wikitesto di Effettuare con le funzioni Glib-2.0 alcune operazioni sui bit di un valore di una variabile puntata da un Puntatore

La libreria ''Glib'' ci consente con alcune sue funzioni di effettuare operazioni sui bit (''bitwise'') del tipo ''AND'', ''OR'' e ''XOR'' diun valore contenuto in una variabile ''Integer'' puntata da un ''Puntatore''.

E' necessario avere installata nel sistema e richiamare in Gambas la libreria condivisa: "''libglib-2.0.so.0.8000.2'' ".


===Operazione con l'operando ''AND''===
Mostriamo un esempio pratico, nel quale si effettuerà l'operazione: 14 And 9.
 Library "libglib-2.0:0.8000.2"
 
 <FONT Color=gray>' ''guint g_atomic_int_and (volatile guint *atomic, guint val)''
 ' ''Performs an atomic bitwise 'and' of the value of atomic and val, storing the result back in atomic.''</font>
 Private Extern g_atomic_int_and(atomic As Pointer, gval As Integer) As Integer
 
 
 Public Sub Main()
  
  Dim p As Pointer
  Dim i As Integer
  
  i = 14
    
  p = VarPtr(i)
   
  g_atomic_int_and(p, 9)
  
  Print Int@(p)
  
 <FONT Color=gray>' ''Effettuiamo una verifica del risultato precedente, usando esclusivamente l'operando "AND" nativo di Gambas:''</font>
  Print 14 And 9
   
 End


===Operazione con l'operando ''OR''===
Mostriamo un esempio pratico, nel quale si effettuerà l'operazione: 14 OR 9.
 Library "libglib-2.0:0.8000.2"
 
 <FONT Color=gray>' ''guint g_atomic_int_or (volatile guint *atomic, guint val)''
 ' ''Performs an atomic bitwise 'or' of the value of atomic and val, storing the result back in atomic.''</font>
 Private Extern g_atomic_int_or(atomic As Pointer, gval As Integer) As Integer
 
 
 Public Sub Main()
  
  Dim p As Pointer
  Dim i As Integer
  
  i = 14
   
  p = VarPtr(i)
   
  g_atomic_int_or(p, 9)
  
  Print Int@(p)
  
 <FONT Color=gray>' ''Effettuiamo una verifica del risultato precedente, usando esclusivamente l'operando "OR" nativo di Gambas:''</font>
  Print 14 Or 9
   
 End


===Operazione con l'operando ''XOR''===
Mostriamo un esempio pratico, nel quale si effettuerà l'operazione: 14 XOR 9.
 Library "libglib-2.0:0.8000.2"
 
 <FONT Color=gray>' ''guint g_atomic_int_xor (volatile guint *atomic, guint val)''
 ' ''Performs an atomic bitwise 'xor' of the value of atomic and val, storing the result back in atomic.''</font>
 Private Extern g_atomic_int_xor(atomic As Pointer, gval As Integer) As Integer
 
 
 Public Sub Main()
  
  Dim p As Pointer
  Dim i As Integer
 
  i = 14
   
  p = VarPtr(i)
   
  g_atomic_int_xor(p, 9)
  
  Print Int@(p)
  
 <FONT Color=gray>' ''Effettuiamo una verifica del risultato precedente, usando esclusivamente l'operando "XOR" nativo di Gambas:''</font>
  Print 14 Xor 9
  
 End



=Riferimenti=
* https://docs.gtk.org/glib/func.usleep.html?q=g_atomic