Differenze tra le versioni di "Isprint()"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 1: Riga 1:
 
La funzione della libreria di C
 
La funzione della libreria di C
  ''int isprint(int c)''
+
  int isprint(int c)
 
ritorna 1 (Vero) se "c" e' il valore che rappresenta un carattere (compreso quello dello ''spazio'') stampabile.
 
ritorna 1 (Vero) se "c" e' il valore che rappresenta un carattere (compreso quello dello ''spazio'') stampabile.
  
Riga 6: Riga 6:
 
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
 
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
 
  Private <FONT color=#B22222>Extern isprint</font>(num As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  Private <FONT color=#B22222>Extern isprint</font>(num As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  
  
Riga 18: Riga 17:
 
   Dim i, n As Integer
 
   Dim i, n As Integer
 
    
 
    
    For n = 0 To 255
+
  For n = 0 To 255
      i = isprint(n)
+
    i = isprint(n)
      Print n, CBool(i)
+
    Print n, CBool(i)
    Next
+
  Next
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione attuale delle 20:11, 11 mag 2023

La funzione della libreria di C

int isprint(int c)

ritorna 1 (Vero) se "c" e' il valore che rappresenta un carattere (compreso quello dello spazio) stampabile.


Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta:

Private Extern isprint(num As Integer) As Integer In "libc:6"


Semplice esempio di uso in Gambas:

' int isprint(int c)
' Checks for any printable character including space.
Private Extern isprint(num As Integer) As Integer In "libc:6"

Public Sub Main()

 Dim i, n As Integer
 
 For n = 0 To 255
   i = isprint(n)
   Print n, CBool(i)
 Next
 
End