luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add procedure `fix_symbols <n>`to set `n` last directory components to all symbols in current design

This commit is contained in:
Stefan Schippers 2023-06-07 20:41:09 +02:00
parent bbb239dc21
commit ff99381624
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/xschem.tcl
View File

@ -4611,6 +4611,21 @@ proc get_directory {f} {
return $r return $r
} }
# set 'n' last directory components to every symbol
proc fix_symbols {n} {
set fast {}
foreach {i s t} [xschem instance_list] {
set sympath [find_file_first $s]
if { $sympath ne {}} {
set new_sym_ref [get_cell $sympath $n]
puts "$i: $s --> $new_sym_ref"
xschem replace_symbol $i $new_sym_ref $fast
set fast fast
}
}
xschem redraw
}
# fetch a remote url into ${XSCHEM_TMP_DIR}/xschem_web # fetch a remote url into ${XSCHEM_TMP_DIR}/xschem_web
proc download_url {url} { proc download_url {url} {
global XSCHEM_TMP_DIR download_url_helper OS global XSCHEM_TMP_DIR download_url_helper OS