#!/usr/local/bin/wish proc SourceGscopeFile {{Quoi ""} {ScriptDir ""}} { if {$Quoi==""} { set Quoi "outils" } if {[info exists env(GSCOPEDIR)]} { set GscopeDir [set env(GSCOPEDIR)] set FichierGscopeFile "$GscopeDir/gscope_$Quoi.tcl" if {[file exists $FichierGscopeFile]} { source $FichierGscopeFile return $FichierGscopeFile } } if {$ScriptDir==""} { $ScriptDir "." } set FichierGscopeFile "$ScriptDir/gscope_$Quoi.tcl" if {[file exists $FichierGscopeFile]} { source $FichierGscopeFile return $FichierGscopeFile } set FichierGscopeFile "$ScriptDir/../gscope_$Quoi.tcl" if {[file exists $FichierGscopeFile]} { source $FichierGscopeFile return $FichierGscopeFile } set FichierGscopeFile "$ScriptDir/../gscope/gscope_$Quoi.tcl" if {[file exists $FichierGscopeFile]} { source $FichierGscopeFile return $FichierGscopeFile } return "" } proc LesHTMLSousOLD Rep { global AskForLesHTMLSous set LesH [lsort [glob -nocomplain -directory $Rep "*.htm" "*.html" "*.avi" "*.mov" "*.mp3 "*.3gp""]] set LesD [lsort [glob -nocomplain -directory $Rep -type d *]] if { ! [info exists AskForLesHTMLSous] || $AskForLesHTMLSous} { set AskForLesHTMLSous [OuiOuNon "Do I ask to remove some sub-directories ?"] } if {$AskForLesHTMLSous} { set LesD [MorceauxChoisis $LesD] } foreach D $LesD { set SesH [LesHTMLSous $D] set LesH [concat $LesH $SesH] } return $LesH } proc LesHTMLSous {Rep {AskForLesHTMLSous ""}} { set RepOrPwd $Rep if {$RepOrPwd==""} { set RepOrPwd [pwd] } if {$AskForLesHTMLSous=="" || $AskForLesHTMLSous} { set AskForLesHTMLSous [OuiOuNon "Do I ask to choose only a few sub-directories of \n$RepOrPwd ?"] } set LesH [lsort [glob -nocomplain -directory $Rep "*.htm" "*.html" "*.avi" "*.mov" "*.mp3"]] set LesD [lsort [glob -nocomplain -directory $Rep -type d *]] if {$AskForLesHTMLSous} { set LesD [MorceauxChoisis $LesD] } foreach D $LesD { set SesH [LesHTMLSous $D $AskForLesHTMLSous] set LesH [concat $LesH $SesH] } return $LesH } proc CreePlanDuSite Racine { set MemoPwd [pwd] cd $Racine set Ici [file tail $Racine] set LesBGI [glob -nocomplain "background*.jpg" "background*.gif" "background*.png"] set FichierBackground [lindex $LesBGI 0] set Sortie [open "PlanDuSite.html" "w"] puts $Sortie "" puts $Sortie "
" puts $Sortie "" set LesO {} foreach H [LesHTMLSous ""] { set Queue [file tail $H] if {[regexp {^(node|sld|tsld)[0-9]+.htm} $Queue]} { continue } set LesR [split $H "/"] set Meme "" foreach R $LesR { set ProchainMeme "$Meme$R/" if { ! [info exists DejaVu($ProchainMeme)]} { set DejaVu($ProchainMeme) 1 ; break } set Meme $ProchainMeme } set Decal [string repeat " " [string length $Meme]] # regsub $Meme $H $Decal BeauH regsub $Meme $H "" BeauH puts $Sortie "$Decal$BeauH " } puts $Sortie "" puts $Sortie "