source: proiecte/pmake3d/make3d_original/Make3dSingleImageStanford_version0.1/third_party/vrippack-0.31/src/vrip/conf_to_scanalyze.tcl @ 37

#!/usr/common/bin/tclsh

set confFile [lindex $argv 0]
set fileid [open $confFile "r"]

set numchars [gets $fileid line]
set scanalyzeString "readfile [lindex $line 1]"

while {$numchars > 0} {
   set numchars [gets $fileid line]
   set scanalyzeString "$scanalyzeString [lindex $line 1]"
}

puts $scanalyzeString