Visualizza wikitesto di Creare un link simbolico di un file

Per creare un link simbolico di un file, è possibile utilizzare almeno due modalità che prevedono entrambe il richiamo di due librerie esterne.


==Uso della libreria ''libc.6.so''==
Per creare un file link simbolico di un file esistente, è possibile utilizzare la funzione esterna ''symlink()'' della libreria ''libc.6.so'' .
<BR>Se il link simbolico e' gia' esistente, la funzione ''symlink()'' fallisce e restituisce il valore -1 .

E' necessario richiamare in Gambas la libreria dinamica condivisa: ''libc.6.so''


Mostriamo un esempio:
 Library "libc:6"
  
 <FONT Color=gray>' ''int symlink(const char *__from, const char *__to)''
 ' ''Make a symbolic link to FROM named TO.''</font>
 Private Extern symlink(__from As String, __to As String) as Integer
 
 
 '''Public''' Sub Main()
  
  Dim err As Integer
  
   err = symlink("<FONT Color=gray>''/percorso/del/file/esistente''</font>", "<FONT Color=gray>''/percorso/del/link/simbolico''</font>")
   If err = -1 Then Error.Raise("Impossibile creare il link simbolico !")
   
 '''End'''



==Uso della libreria ''libgio-2.0.so==
Per creare un file link simbolico di un file esistente, è possibile utilizzare un paio di funzioni della libreria ''libgio-2.0.so'' .
<BR>Se il link simbolico e' gia' esistente, la funzione ''symlink()'' fallisce e restituisce il valore booleano ''False''.

E' necessario richiamare in Gambas la libreria dinamica condivisa: ''libgio-2.0.so''

Mostriamo un esempio:
 Library "libgio-2.0"
 
 <FONT Color=gray>' ''GFile * g_file_new_for_path (const char *path)''
 ' ''Constructs a GFile for a given path.''</font>
 Private Extern g_file_new_for_path(path As String) As Pointer
 
 <FONT Color=gray>' ''gboolean g_file_make_symbolic_link (GFile *file, const char *symlink_value, GCancellable *cancellable, GError **error)
 ' ''Creates a symbolic link named file which contains the string symlink_value.''</font>
 Private Extern g_file_make_symbolic_link(GFile As Pointer, symlink_value As String, cancellable As Pointer, GError As Pointer) As Boolean
 
 
 '''Public''' Sub Main()
 
  Dim gf As Pointer
  Dim bo As Boolean
  
 <FONT Color=gray>' ''Genera un generico file (che diventerà poi il link simbolico):''</font>
   gf = g_file_new_for_path("<FONT Color=gray>''/percorso/del/futuro/link/simbolico''</font>")
   If IsNull(gf) Then Error.Raise("Impossibile creare il file !")
   
 <FONT Color=gray>' ''Trasforma il file, appena creato, in un link simbolico del file principale qui specificato nel 2° argomento:''</font>
   bo = g_file_make_symbolic_link(gf, "<FONT Color=gray>''/percorso/del/file/principale''</font>", 0, 0)
   If bo = False Then Error.Raise("Impossibile creare il file simbolico !")
   
 '''End'''




=Riferimenti=
* http://www.gnu.org/software/libc/manual/html_node/Symbolic-Links.html
* http://linux.die.net/man/3/symlink
* https://developer.gnome.org/gio/stable/GFile.html#g-file-make-symbolic-link