set parent_id   [$package_id folder_id] //id della folder cui il file appartiene
set package_url [$package_id package_url] //url del package contenente il file
set dav_prefix  [string trimright [${:dav} url] /]$package_url //prefisso dav ottenuto rimuovendo '/' dall'url (?perchè?) e concatenando l'url del package (?)
set rel_path  [string range $path [string length $package_url] end] //path ottenuto estraendo la stringa con inizio=num di caratteri di package_url (toglie il riferimento assoluto) e fine =fine del path

rimanga la stessa.

Così come l'inizializzazione del dict r:
set r [dict create
package_id $package_id
parent_id $parent_id
            collection 0 // inizializzato a file
item_id 0 // inizializzato a zero
href $dav_prefix$rel_path //ottenuto concatenando prefissoDAV e pathrelativo
fname ""
last_modified ""
content_type ""
content_length ""]


Da qui ho avuto difficoltà:

set rpath [string trim $rel_path /]
if {$rpath eq ""} {
      # the root folder of the package
      set folder_object [$package_id require_folder_object]
      return [dict replace $r
item_id $parent_id
href $dav_prefix$rpath
creationdate [$folder_object set creation_date]
last_modified [$folder_object last_modified]
content_type "httpd/unix-directory"
collection 1]

 }