#!/bin/sh
# the next line restarts using wish \
exec tclsh "$0"  ${1+"$@"}

# Cration des librairie pour stead83
# 
# En cas de rorganisation de stead : mettre  jour la variable dirPats

proc main {argv} {



    set exe [file:normalName [info script] ]
    set stead_home [file dir [file dir $exe]]

        
}


## file:normalName -- return normalized name of the parameter
# 
# Cette version DOIT fonctionner avec wish3.6
# 
# Cette procdure est une version simplifie de file:realName.
# Cette procdure fait l'impasse sur le bug d'autodmontage suppos 
# corrig dans les version actuelles du syteme sunOS
# 
# name: file or directory, absolute or relative, could contain link.
# 
# 
proc file:normalName {name} {
    
    # # puts "file:normalName: name=$name"
    
    # If the name is relative: one make it absolute
    if {[file pathtype $name] == "relative"} {
       # !!! remettre le "join"  ds que [tk8] est toujours vrai !!!
       # # set name [file join [pwd] $name]
       set name "[pwd]/$name"
    }

    # # puts "file:normalName: name=$name"

    
    # One follows a possible link (which can be absolute or relative)
    while {[string match "link" [file type $name] ]} {
       set followName [file readlink $name]
       # If the name is relative: one make it absolute
       if {[file pathtype $followName] == "relative"} {
          # 
          # !!! remettre le "join"  ds que [tk8] est toujours vrai !!!
          # set followName \
          #      [file join [ [file dirname $name] $followName]
          set followName "[file dirname $name]/$followName"
       }
       set name $followName
    }
    
    # $name could be relative or absolute
    set pwd_ori [pwd]
    cd [file dirname $name]
    set theDir [pwd]
    
    # !!! A nettoyer ds que [tk8] est toujours vrai !!!
    # 
    # set name [file join $theDir [file tail $name]]
    set name "$theDir/[file tail $name]"
    
    cd $pwd_ori
    
    # # puts "file:normalName: name=$name"
    return $name

} ;# endproc file:realName



main $argv
# ./



