15 lines
336 B
Tcl
15 lines
336 B
Tcl
# 将lib_path下的所有lib文件转换成db文件
|
|
set lib_path user/src/utils/RAM/2048FP
|
|
|
|
proc lib2db {path} {
|
|
set dir [file dirname $path]
|
|
set name [file rootname [file tail $path]]
|
|
read_lib $path
|
|
write_lib -format db ${name} -output $dir/db/${name}.db
|
|
}
|
|
|
|
foreach lib [glob $lib_path/*.lib] {
|
|
lib2db $lib
|
|
}
|
|
|
|
exit |