bhab_parser.tcl

puts "Loading BHAB Parser"

package require csv
package require struct::matrix
catch {
	#doing a lot of reloading on the data matrix
	#need to delete the data command before issuing the 
	#struct command again
	rename data {}
}
::struct::matrix data

proc parseB5evCsv {csvFile} {

	set chan [open $csvFile r]
	csv::read2matrix $chan data  , auto
	close $chan

	set rows [data rows]

	for {set row 0} {$row < $rows} {incr row} {
		if {$row == 0} {
			set title [lindex [data get row $row] 0]
			puts "Title: $title" 
}
}

return [list $title]
}