Lines Matching refs:f1
99 set f1 [open |$tclsh_path r+]
100 puts $f1 "source $test_path/test.tcl"
103 set dbenv [send_cmd $f1 $env_cmd]
106 set db [send_cmd $f1 "{berkdb_open_noerr} -env $dbenv $oflags"]
112 fconfigure $f1 -blocking 0
113 set ret [read $f1]
116 set stat [send_cmd $f1 "catch {$db get $i} r"]
117 set getret [send_cmd $f1 "puts \$r"]
118 set ret [read $f1]
133 set ret [send_cmd $f1 "$db close"]
134 set extra [read $f1]
137 set ret [send_cmd $f1 "$dbenv close"]
139 close $f1