Ottenere la directory di appartenenza di un file mediante le funzioni esterne del API di libgio

La libreria Libgio fornisce un'astrazione del file system che permette alle applicazioni di accedere ai file locali e remoti.

E' possibile con alcune funzioni della libreria Libgio sapere se un file possiede una directory genitore (di appartenza) e quale è tale directory.

Sarà necessario richiamare la libreria (nella sua attuale versione): libgio-2.0.so.0.4002.0

Mostriamo di seguito un semplice esempio pratico:

Library "libgio-2.0:0.4002.0"

' GFile * g_file_new_for_path (const char *path)
' Constructs a GFile for a given path. This operation never fails.
Private Extern g_file_new_for_path(path As String) As Pointer

' gboolean g_file_has_parent (GFile *file, GFile *parent)
' Checks if file has a parent, and optionally, if it is parent.
' If parent is NULL then this function returns TRUE if file has any parent at all.
' If parent is non-NULL then TRUE is only returned if file is a child of parent.
Private Extern g_file_has_parent(gfile As Pointer, parent As Pointer) As Boolean

' GFile * g_file_get_parent (GFile *file)
' Gets the parent directory for the file. If the file represents the root directory of the file system, then NULL will be returned.
Private Extern g_file_get_parent(gfile As Pointer) As Pointer

' char * g_file_get_path (GFile *file)
' Gets the local pathname for GFile, if one exists.
Private Extern g_file_get_path(gfile As Pointer) As String


Public Sub Main()

 Dim gf, parent As Pointer
 Dim bo As Boolean
 Dim s As String

  gf = g_file_new_for_path("/percorso/del/file")
  If IsNull(gf) Then Error.Raise("Impossibile creare un oggetto GFile con il percorso del file impostato !")
  
  If g_file_has_parent(gf, 0) Then  
    parent = g_file_get_parent(gf)
    If IsNull(parent) Then Error.Raise("Impossibile creare un oggetto GFile con il percorso del primo file impostato !")
  Endif
 
  s = g_file_get_path(parent)

  Print s

End

Riferimenti

• L'API di GIO