Lines Matching refs:config

27 proc kill_server config {  argument
32     if {![is_alive $config]} { return }
33     set pid [dict get $config pid]
36     if {![dict exists $config "skipleaks"]} {
62     while {[is_alive $config]} {
76         check_valgrind_errors [dict get $config stderr]
83 proc is_alive config {  argument
84     set pid [dict get $config pid]
180     set config {}
186             dict set config $directive $arguments
191     dict set config dir [tmpdir server]
195     dict set config port $::port
199         dict set config $directive $arguments
205     foreach directive [dict keys $config] {
207         puts $fp [dict get $config $directive]
211     set stdout [format "%s/%s" [dict get $config "dir"] "stdout"]
212     set stderr [format "%s/%s" [dict get $config "dir"] "stderr"]
257     if {[dict exists $config bind]} { set host [dict get $config bind] }
258     if {[dict exists $config port]} { set port [dict get $config port] }
262     dict set srv "config" $config