File: dodirs.tcl

package info (click to toggle)
tclws 2.6.2-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 884 kB
  • sloc: tcl: 7,431; makefile: 18
file content (15 lines) | stat: -rw-r--r-- 492 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# code to start tclhttpd modules contained in subdirs of custom/

set here [file dirname [info script]]
foreach dir [glob -nocomplain [file join [file normalize $here] *]] {
    if {[file isdirectory $dir] && [file exists [file join $dir startup.tcl]]} {
	if {$Config(debug)} {
	    Stderr "Loading code from module $dir"
	}
	if {[catch {source [file join $dir startup.tcl]} err]} {
	    Stderr "$dir: $err"
	} elseif {$Config(debug)} {
	    Stderr "Loaded [file tail $dir]: $err"
	}
    }
}