Comment obtenir le chemin d'accès du script courant?

Alors qu'un script est en cours d'évaluation (mais pas nécessairement tandis que ses procédures sont appelés) l'actuel nom du script (strictement, ce qui a été transmis à source ou de l'API C équivalent, Tcl_EvalFile() et liée) est le résultat de info script; il est fortement recommandé de normaliser qu'à un chemin absolu, de sorte que tous les appels à cd ne pas modifier l'interprétation.

Scripts qui ont besoin de l'information ont tendance à mettre quelque chose comme ceci à l'intérieur d'eux-mêmes:

# This is a *good* use of [variable]…
variable myLocation [file normalize [info script]]

Ils peuvent ensuite récupérer la valeur (ou les choses qui en découlent) facilement:

proc getResourceDirectory {} {
    variable myLocation
    return [file dirname $myLocation]
}

---

Les autres endroits communs sont:

• $::argv0 qui est le “principal” de script (et vous cherchez à déterminer le script principal, si elle est égale à info script)
• [info nameofexecutable] qui est l'interpréteur Tcl programme lui-même (généralement le argv[0] au niveau C)
• [info library] qui est l'endroit où Tcl sa propre bibliothèque de scripts sont situés
• $::tcl_pkgPath qui est un Tcl liste de répertoires où les paquets sont installés
• $::auto_path qui est un Tcl liste de répertoires où les scripts sont recherchés (y compris les forfaits! Le chemin d'accès au package est utilisé pour initialiser).

OriginalL'auteur Donal Fellows

Vous pouvez également essayer comme ceci:

file normalize $argv0
file normalize [info nameofexecutable]

pour obtenir entièrement normalisé nom

OriginalL'auteur Rahul Tripathi