Visualizza wikitesto di Readlink ()

La funzione esterna '''readlink()''', dichiarata nel file header ''/usr/include/unistd.h'':
 ssize_t readlink (const char *__restrict __path, char *__restrict __buf, size_t __len)
legge i contenuti di un collegamento simbolico.


Volendola utilizzare 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 readlink</font>(__path As String, __buf As Byte[], __len As Long) As Long In "<FONT color=#B22222>libc:6</font>"
Semplice esempio di uso in Gambas:
 Library "libc:6"
 
 
 <FONT Color=gray>' ''ssize_t readlink (const char *path, char *buf, size_t len)''
 ' ''Read the contents of the symbolic link PATH into no more than LEN bytes of BUF.''</font>
 Private Extern readlink(path As String, buf As Byte[], _len As Long) As Long
 
 
 Public Sub Main()
 
  Dim buf As New Byte[32]
  Dim sl As String
  Dim l As Long
 
  sl = "<FONT Color=darkgreen>''/percorso/del/collegamento/simbolico''</font>"
 
  l = <FONT color=red>readlink</font>(sl, buf, buf.Count) 
 
  Print buf.ToString(0, l)
 
 End