package require csv
package require struct

set filename /tmp/csvtestfile.csv

set orig {
 {a b c}
 {d "e,\ne" f}
}

set testfile [open $filename w]
puts $testfile [csv::joinlist $orig]
close $testfile

set m [struct::matrix]
set f [open $filename]
csv::read2matrix $f $m , auto
close $f
puts [$m serialize]

set q [struct::queue]
set f [open $filename]
csv::read2queue $f $q
close $f
while {[$q size] > 0} {
   puts "rec: [$q get]"
}

