## dc_shell -f ./convert_db.tcl

sh ls ./*lib > lib_file

sh sed -e 's/\@//g' lib_file > lib_file1
set all_libs [sh cat lib_file1]
foreach lib $all_libs { 
#	regexp {(\w+).lib} $lib dummy lib_name ; 
	regexp {\(\s*\"*(\w+)\"*\s*\)} [sh grep 'library\[ \]*(' $lib] dummy lib_name ;
	read_lib $lib; 
	regsub {\.lib} $lib ".db" db_name;
	write_lib -format db $lib_name -output $db_name
}
sh rm -f lib_file lib_file1
exit