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

add option add_all_windows_drives

This commit is contained in:
Stefan Frederik 2022-10-28 08:54:52 +02:00
parent 5fb452f37f
commit 9c5fc0b266
3 changed files with 34 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XSchemWin/XSchemWix/xschemrc
View File

@ -382,4 +382,12 @@ set editor {notepad.exe}
###########################################################################
#### if enabled will backannotate values in schematic at cursor 'b' position
#### in graph. Default: not enabled (0)
# set live_cursor2_backannotate 1
# set live_cursor2_backannotate 1
###########################################################################
#### INCLUDE ALL WINDOWS DRIVES IN XSCHEM PATHS
###########################################################################
#### This option will not include all windows drives in xschem paths
#### Instead, additional drives can be added using XSCHEM_LIBRARY_PATH
#### default: 1
# set add_all_windows_drives 0

21
src/xschem.tcl
View File

@ -4380,8 +4380,7 @@ proc find_file { f {paths {}} } {
# given an absolute path of a symbol/schematic remove the path prefix
# if file is in a library directory (a $pathlist dir)
proc rel_sym_path {symbol} {
global pathlist
global OS pathlist
set curr_dirname [xschem get current_dirname]
set name {}
foreach path_elem $pathlist {
@ -4391,6 +4390,13 @@ proc rel_sym_path {symbol} {
set pl [string length $path_elem]
if { [string equal -length $pl $path_elem $symbol] } {
set name [string range $symbol [expr {$pl+1}] end]
# When $path_elem is "C:/", string equal will match,
# but $path_elem should not be removed from $name if $name
# has more / for more directory levels.
if {$OS eq "Windows" && [regexp {^[A-Za-z]\:/$} $path_elem ] && [regexp {/} $name]} {
set name {}
continue
}
break
}
}
@ -5141,7 +5147,7 @@ set tctx::global_list {
textwindow_fileid textwindow_filename textwindow_w tmp_bus_char toolbar_horiz toolbar_list
toolbar_visible top_subckt transparent_svg undo_type use_lab_wire use_label_prefix
user_wants_copy_cell verilog_2001 verilog_bitblast viewdata_fileid viewdata_filename viewdata_w
vsize xschem_libs xschem_listen_port
vsize xschem_libs xschem_listen_port add_all_windows_drives
}
## list of global arrays to save/restore on context switching
@ -5929,11 +5935,17 @@ tclcommand=\"xschem raw_read \$netlist_dir/[file tail [file rootname [xschem get
}
proc set_paths {} {
global XSCHEM_LIBRARY_PATH env pathlist OS
global XSCHEM_LIBRARY_PATH env pathlist OS add_all_windows_drives
set pathlist {}
if { [info exists XSCHEM_LIBRARY_PATH] } {
if {$OS == "Windows"} {
set pathlist_orig [split $XSCHEM_LIBRARY_PATH \;]
if {$add_all_windows_drives} {
set win_vol [file volumes]
foreach disk $win_vol {
lappend pathlist_orig $disk
}
}
} else {
set pathlist_orig [split $XSCHEM_LIBRARY_PATH :]
}
@ -6086,6 +6098,7 @@ set OS [lindex $tcl_platform(os) 0]
set env(LC_ALL) C
# tcl variable XSCHEM_LIBRARY_PATH should already be set in xschemrc
set_ne add_all_windows_drives 1
set_paths
print_help_and_exit

8
src/xschemrc
View File

@ -383,3 +383,11 @@
#### if enabled will backannotate values in schematic at cursor 'b' position
#### in graph. Default: not enabled (0)
# set live_cursor2_backannotate 1
###########################################################################
#### INCLUDE ALL WINDOWS DRIVES IN XSCHEM PATHS
###########################################################################
#### This option will not include all windows drives in xschem paths
#### Instead, additional drives can be added using XSCHEM_LIBRARY_PATH
#### default: 1
# set add_all_windows_drives 0