14 lines
339 B
Tcl
Executable File
14 lines
339 B
Tcl
Executable File
set SOURCE_FILES [glob *.lib]
|
|
foreach FILE ${SOURCE_FILES} {
|
|
read_lib $FILE
|
|
redirect -variable CURR_LIB {get_lib}
|
|
|
|
set CURR_LIB [string range $CURR_LIB 2 end-3]
|
|
set CURR_LIB [lindex $CURR_LIB 0]
|
|
set FILENAME [string range $FILE 0 end-4]
|
|
write_lib $CURR_LIB -output ${FILENAME}.db
|
|
remove_lib $CURR_LIB
|
|
}
|
|
|
|
exit
|