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

global attribute editing: add a Mode: combobox to select the global attribute to change: spice/vhdl/verilog/symbol/....

This commit is contained in:
stefan schippers 2025-09-10 19:26:25 +02:00
parent e5a3ac19b8
commit 20bccdc589
2 changed files with 220 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/editprop.c
View File

@ -1929,6 +1929,7 @@ void edit_property(int x)
{ {
char *new_prop = NULL; char *new_prop = NULL;
if(x == 1) {
if(xctx->netlist_type==CAD_SYMBOL_ATTRS) { if(xctx->netlist_type==CAD_SYMBOL_ATTRS) {
if(xctx->schsymbolprop!=NULL) if(xctx->schsymbolprop!=NULL)
tclsetvar("retval",xctx->schsymbolprop); tclsetvar("retval",xctx->schsymbolprop);
@ -1965,6 +1966,7 @@ void edit_property(int x)
else else
tclsetvar("retval",""); tclsetvar("retval","");
} }
}
if(x==0) { if(x==0) {
xctx->semaphore++; xctx->semaphore++;
@ -1984,7 +1986,7 @@ void edit_property(int x)
my_free(_ALLOC_ID_, &new_prop); my_free(_ALLOC_ID_, &new_prop);
if(strcmp(tclgetvar("tctx::rcode"),"") ) if(x == 1 && strcmp(tclgetvar("tctx::rcode"),"") )
{ {
if(xctx->netlist_type==CAD_SYMBOL_ATTRS && if(xctx->netlist_type==CAD_SYMBOL_ATTRS &&
(!xctx->schsymbolprop || strcmp(xctx->schsymbolprop, tclgetvar("retval") ) ) ) { (!xctx->schsymbolprop || strcmp(xctx->schsymbolprop, tclgetvar("retval") ) ) ) {

203
src/xschem.tcl
View File

@ -6259,6 +6259,7 @@ proc edit_vi_netlist_prop {txtlabel} {
return $tctx::rcode return $tctx::rcode
} }
} }
proc reset_colors {ask} { proc reset_colors {ask} {
global dark_colors light_colors dark_colorscheme USER_CONF_DIR svg_colors ps_colors global dark_colors light_colors dark_colorscheme USER_CONF_DIR svg_colors ps_colors
global light_colors_save dark_colors_save global light_colors_save dark_colors_save
@ -6324,9 +6325,9 @@ proc change_color {} {
} }
proc edit_prop {txtlabel} { proc edit_prop {txtlabel} {
global edit_prop_size infowindow_text selected_tok edit_symbol_prop_new_sel edit_prop_pos global edit_prop_size infowindow_text edit_symbol_prop_new_sel edit_prop_pos
global prev_symbol retval symbol no_change_attrs preserve_unchanged_attrs copy_cell debug_var global prev_symbol retval symbol no_change_attrs preserve_unchanged_attrs copy_cell debug_var
global user_wants_copy_cell editprop_sympath retval_orig old_selected_tok text_tabs_setting global user_wants_copy_cell editprop_sympath retval_orig text_tabs_setting
global tabstop global tabstop
set user_wants_copy_cell 0 set user_wants_copy_cell 0
set tctx::rcode {} set tctx::rcode {}
@ -6380,11 +6381,11 @@ proc edit_prop {txtlabel} {
} }
button .dialog.f1.b1 -text "OK" -command { button .dialog.f1.b1 -text "OK" -command {
set retval [.dialog.symprop get 1.0 {end - 1 chars}] set retval [.dialog.symprop get 1.0 {end - 1 chars}]
if { $selected_tok ne {<ALL>} } { if { $tctx::selected_tok ne {<ALL>} } {
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\" set retval \"${retval}\"
set retval [xschem subst_tok $retval_orig $selected_tok $retval] set retval [xschem subst_tok $retval_orig $tctx::selected_tok $retval]
set selected_tok {<ALL>} set tctx::selected_tok {<ALL>}
} }
set symbol [.dialog.f1.e2 get] set symbol [.dialog.f1.e2 get]
set abssymbol [abs_sym_path $symbol] set abssymbol [abs_sym_path $symbol]
@ -6440,11 +6441,11 @@ proc edit_prop {txtlabel} {
checkbutton .dialog.f2.r2 -text "Preserve unchanged props" -variable preserve_unchanged_attrs -state normal checkbutton .dialog.f2.r2 -text "Preserve unchanged props" -variable preserve_unchanged_attrs -state normal
checkbutton .dialog.f2.r3 -text "Copy cell" -variable copy_cell -state normal checkbutton .dialog.f2.r3 -text "Copy cell" -variable copy_cell -state normal
set tok_list "<ALL> [list_tokens $retval]" set tok_list "<ALL> [list_tokens $retval]"
set selected_tok {<ALL>} set tctx::selected_tok {<ALL>}
set old_selected_tok {<ALL>} set tctx::old_selected_tok {<ALL>}
label .dialog.f2.r4 -text { Edit Attr:} label .dialog.f2.r4 -text { Edit Attr:}
if { [info tclversion] > 8.4} { if { [info tclversion] > 8.4} {
ttk::combobox .dialog.f2.r5 -values $tok_list -textvariable selected_tok -width 14 ttk::combobox .dialog.f2.r5 -values $tok_list -textvariable tctx::selected_tok -width 14
} }
pack .dialog.f1.l2 -side left pack .dialog.f1.l2 -side left
pack .dialog.f1.e2 -side left -fill x -expand yes pack .dialog.f1.e2 -side left -fill x -expand yes
@ -6476,48 +6477,48 @@ proc edit_prop {txtlabel} {
} }
if { [info tclversion] > 8.4} { if { [info tclversion] > 8.4} {
bind .dialog.f2.r5 <<ComboboxSelected>> { bind .dialog.f2.r5 <<ComboboxSelected>> {
if {$old_selected_tok ne $selected_tok} { if {$tctx::old_selected_tok ne $tctx::selected_tok} {
if { $old_selected_tok eq {<ALL>} } { if { $tctx::old_selected_tok eq {<ALL>} } {
set retval_orig [.dialog.symprop get 1.0 {end - 1 chars}] set retval_orig [.dialog.symprop get 1.0 {end - 1 chars}]
} else { } else {
set retval [.dialog.symprop get 1.0 {end - 1 chars}] set retval [.dialog.symprop get 1.0 {end - 1 chars}]
regsub -all {(["\\])} $retval {\\\1} retval ;# vim syntax fix " regsub -all {(["\\])} $retval {\\\1} retval ;# vim syntax fix "
set retval \"${retval}\" set retval \"${retval}\"
set retval_orig [xschem subst_tok $retval_orig $old_selected_tok $retval] set retval_orig [xschem subst_tok $retval_orig $tctx::old_selected_tok $retval]
} }
} }
if {$selected_tok eq {<ALL>} } { if {$tctx::selected_tok eq {<ALL>} } {
set retval $retval_orig set retval $retval_orig
} else { } else {
set retval [xschem get_tok $retval_orig $selected_tok 2] set retval [xschem get_tok $retval_orig $tctx::selected_tok 2]
# regsub -all {\\?"} $retval {"} retval # regsub -all {\\?"} $retval {"} retval
} }
.dialog.symprop delete 1.0 end .dialog.symprop delete 1.0 end
.dialog.symprop insert 1.0 $retval .dialog.symprop insert 1.0 $retval
set old_selected_tok $selected_tok set tctx::old_selected_tok $tctx::selected_tok
} }
bind .dialog.f2.r5 <KeyRelease> { bind .dialog.f2.r5 <KeyRelease> {
set selected_tok [.dialog.f2.r5 get] set tctx::selected_tok [.dialog.f2.r5 get]
if { $old_selected_tok eq {<ALL>}} { if { $tctx::old_selected_tok eq {<ALL>}} {
set retval_orig [.dialog.symprop get 1.0 {end - 1 chars}] set retval_orig [.dialog.symprop get 1.0 {end - 1 chars}]
} else { } else {
set retval [.dialog.symprop get 1.0 {end - 1 chars}] set retval [.dialog.symprop get 1.0 {end - 1 chars}]
if {$retval ne {}} { if {$retval ne {}} {
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\" set retval \"${retval}\"
set retval_orig [xschem subst_tok $retval_orig $old_selected_tok $retval] set retval_orig [xschem subst_tok $retval_orig $tctx::old_selected_tok $retval]
} }
} }
if {$selected_tok eq {<ALL>} } { if {$tctx::selected_tok eq {<ALL>} } {
set retval $retval_orig set retval $retval_orig
} else { } else {
set retval [xschem get_tok $retval_orig $selected_tok 2] set retval [xschem get_tok $retval_orig $tctx::selected_tok 2]
# regsub -all {\\?"} $retval {"} retval # regsub -all {\\?"} $retval {"} retval
} }
.dialog.symprop delete 1.0 end .dialog.symprop delete 1.0 end
.dialog.symprop insert 1.0 $retval .dialog.symprop insert 1.0 $retval
set old_selected_tok $selected_tok set tctx::old_selected_tok $tctx::selected_tok
} }
} }
if {$edit_symbol_prop_new_sel == 1} { if {$edit_symbol_prop_new_sel == 1} {
@ -6639,11 +6640,35 @@ proc write_data {data f} {
proc text_line {txtlabel clear {preserve_disabled disabled} } { proc text_line {txtlabel clear {preserve_disabled disabled} } {
global text_line_default_geometry preserve_unchanged_attrs wm_fix tabstop global text_line_default_geometry preserve_unchanged_attrs wm_fix tabstop
global retval debug_var selected_tok retval_orig old_selected_tok text_tabs_setting global retval debug_var retval_orig text_tabs_setting
if {$preserve_disabled eq {disabled}} {
set tctx::selected_mode [xschem get netlist_type]
set glob_attr [string map {
spice schprop
vhdl schvhdlprop
verilog schverilogprop
tedax schtedaxprop
symbol schsymbolprop
spectre schspectreprop
} $tctx::selected_mode]
set mode_list {Spice[S] Vhdl[G] Verilog[V] Tedax[E] Symbol[K] Spectre[F]}
set tctx::selected_mode [string map {
spice Spice[S]
vhdl Vhdl[G]
verilog Verilog[V]
tedax Tedax[E]
symbol Symbol[K]
spectre Spectre[F]} $tctx::selected_mode]
set tctx::old_selected_mode $tctx::selected_mode
set retval [xschem get $glob_attr]
}
set retval_orig $retval set retval_orig $retval
if $clear==1 then {set retval ""} if $clear==1 then {set retval ""}
if {$debug_var <= -1} {puts " text_line{}: clear=$clear"}
if {$debug_var <= -1} {puts " text_line{}: retval=$retval"}
set tctx::rcode {} set tctx::rcode {}
if { [winfo exists .dialog] } return if { [winfo exists .dialog] } return
toplevel .dialog -class Dialog toplevel .dialog -class Dialog
@ -6653,8 +6678,8 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
set Y [expr {[winfo pointery .dialog] - 35}] set Y [expr {[winfo pointery .dialog] - 35}]
set tok_list "<ALL> [list_tokens $retval]" set tok_list "<ALL> [list_tokens $retval]"
set selected_tok {<ALL>} set tctx::selected_tok {<ALL>}
set old_selected_tok {<ALL>} set tctx::old_selected_tok {<ALL>}
bind .dialog <Configure> { bind .dialog <Configure> {
# puts [wm geometry .dialog] # puts [wm geometry .dialog]
set text_line_default_geometry [wm geometry .dialog] set text_line_default_geometry [wm geometry .dialog]
@ -6677,14 +6702,15 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
button .dialog.f1.b1 -text "OK" -command \ button .dialog.f1.b1 -text "OK" -command \
{ {
set retval [.dialog.textinput get 1.0 {end - 1 chars}] set retval [.dialog.textinput get 1.0 {end - 1 chars}]
if { $selected_tok ne {<ALL>} } { if { $tctx::selected_tok ne {<ALL>} } {
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\" set retval \"${retval}\"
set retval [xschem subst_tok $retval_orig $selected_tok $retval] set retval [xschem subst_tok $retval_orig $tctx::selected_tok $retval]
set selected_tok {<ALL>} set tctx::selected_tok {<ALL>}
} }
destroy .dialog
set tctx::rcode {ok} set tctx::rcode {ok}
destroy .dialog
} }
button .dialog.f1.b2 -text "Cancel" -command \ button .dialog.f1.b2 -text "Cancel" -command \
{ {
@ -6705,10 +6731,16 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
{ {
.dialog.textinput delete 1.0 end .dialog.textinput delete 1.0 end
} }
label .dialog.f1.r4 -text { Edit Attr:}
if { [info tclversion] > 8.4} { if { [info tclversion] > 8.4} {
ttk::combobox .dialog.f1.r5 -values $tok_list -textvariable selected_tok -width 14 if {$preserve_disabled eq {disabled}} {
label .dialog.f1.r6 -text {Mode:}
ttk::combobox .dialog.f1.r7 -values $mode_list -textvariable tctx::selected_mode -width 14
} }
label .dialog.f1.r4 -text { Edit Attr:}
ttk::combobox .dialog.f1.r5 -values $tok_list -textvariable tctx::selected_tok -width 14
}
checkbutton .dialog.f0.l2 -text "preserve unchanged props" -variable preserve_unchanged_attrs \ checkbutton .dialog.f0.l2 -text "preserve unchanged props" -variable preserve_unchanged_attrs \
-state $preserve_disabled -state $preserve_disabled
pack .dialog.f0 -fill x pack .dialog.f0 -fill x
@ -6722,6 +6754,10 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
if { [info tclversion] > 8.4} { if { [info tclversion] > 8.4} {
pack .dialog.f1.r4 -side left pack .dialog.f1.r4 -side left
pack .dialog.f1.r5 -side left pack .dialog.f1.r5 -side left
if {$preserve_disabled eq {disabled}} {
pack .dialog.f1.r6 -side left
pack .dialog.f1.r7 -side left
}
} }
@ -6736,56 +6772,130 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
if { [info tclversion] > 8.4} { if { [info tclversion] > 8.4} {
bind .dialog.f1.r5 <<ComboboxSelected>> { bind .dialog.f1.r5 <<ComboboxSelected>> {
if {$old_selected_tok ne $selected_tok} { if {$tctx::old_selected_tok ne $tctx::selected_tok} {
if { $old_selected_tok eq {<ALL>} } { if { $tctx::old_selected_tok eq {<ALL>} } {
set retval_orig [.dialog.textinput get 1.0 {end - 1 chars}] set retval_orig [.dialog.textinput get 1.0 {end - 1 chars}]
} else { } else {
set retval [.dialog.textinput get 1.0 {end - 1 chars}] set retval [.dialog.textinput get 1.0 {end - 1 chars}]
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\" set retval \"${retval}\"
set retval_orig [xschem subst_tok $retval_orig $old_selected_tok $retval] set retval_orig [xschem subst_tok $retval_orig $tctx::old_selected_tok $retval]
} }
} }
if {$selected_tok eq {<ALL>} } { if {$tctx::selected_tok eq {<ALL>} } {
set retval $retval_orig set retval $retval_orig
} else { } else {
set retval [xschem get_tok $retval_orig $selected_tok 2] set retval [xschem get_tok $retval_orig $tctx::selected_tok 2]
# regsub -all {\\?"} $retval {"} retval # regsub -all {\\?"} $retval {"} retval
} }
.dialog.textinput delete 1.0 end .dialog.textinput delete 1.0 end
.dialog.textinput insert 1.0 $retval .dialog.textinput insert 1.0 $retval
set old_selected_tok $selected_tok set tctx::old_selected_tok $tctx::selected_tok
} }
bind .dialog.f1.r5 <KeyRelease> { bind .dialog.f1.r5 <KeyRelease> {
set selected_tok [.dialog.f1.r5 get] set tctx::selected_tok [.dialog.f1.r5 get]
if { $old_selected_tok eq {<ALL>}} { if { $tctx::old_selected_tok eq {<ALL>}} {
set retval_orig [.dialog.textinput get 1.0 {end - 1 chars}] set retval_orig [.dialog.textinput get 1.0 {end - 1 chars}]
} else { } else {
set retval [.dialog.textinput get 1.0 {end - 1 chars}] set retval [.dialog.textinput get 1.0 {end - 1 chars}]
if {$retval ne {}} { if {$retval ne {}} {
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\" set retval \"${retval}\"
set retval_orig [xschem subst_tok $retval_orig $old_selected_tok $retval] set retval_orig [xschem subst_tok $retval_orig $tctx::old_selected_tok $retval]
} }
} }
if {$selected_tok eq {<ALL>} } { if {$tctx::selected_tok eq {<ALL>} } {
set retval $retval_orig set retval $retval_orig
} else { } else {
set retval [xschem get_tok $retval_orig $selected_tok 2] set retval [xschem get_tok $retval_orig $tctx::selected_tok 2]
# regsub -all {\\?"} $retval {"} retval # regsub -all {\\?"} $retval {"} retval
} }
.dialog.textinput delete 1.0 end .dialog.textinput delete 1.0 end
.dialog.textinput insert 1.0 $retval .dialog.textinput insert 1.0 $retval
set old_selected_tok $selected_tok set tctx::old_selected_tok $tctx::selected_tok
} }
} }
if { [info tclversion] > 8.4} {
if {$preserve_disabled eq {disabled}} {
bind .dialog.f1.r7 <<ComboboxSelected>> {
proc set_global_mode {} {
global retval retval_orig
set retval [.dialog.textinput get 1.0 {end - 1 chars}]
if { $tctx::selected_tok ne {<ALL>} } {
regsub -all {(["\\])} $retval {\\\1} retval ;#" editor is confused by the previous quote
set retval \"${retval}\"
set retval [xschem subst_tok $retval_orig $tctx::selected_tok $retval]
}
if {$retval ne $retval_orig} {
xschem push_undo
xschem set_modify 1
set glob_attr [string map {
Spice[S] schprop
Vhdl[G] schvhdlprop
Verilog[V] schverilogprop
Tedax[E] schtedaxprop
Symbol[K] schsymbolprop
Spectre[F] schspectreprop
} $tctx::old_selected_mode]
xschem set $glob_attr $retval
}
set mode [string map {
Spice[S] spice
Vhdl[G] vhdl
Verilog[V] verilog
Tedax[E] tedax
Symbol[K] symbol
Spectre[F] spectre} $tctx::selected_mode]
set glob_attr [string map {
spice schprop
vhdl schvhdlprop
verilog schverilogprop
tedax schtedaxprop
symbol schsymbolprop
spectre schspectreprop
} $mode]
set tctx::old_selected_mode $tctx::selected_mode
set $tctx::selected_tok {<ALL>}
set retval [xschem get $glob_attr]
set retval_orig $retval
set tok_list "<ALL> [list_tokens $retval]"
.dialog.f1.r5 configure -values $tok_list
.dialog.textinput delete 1.0 end
.dialog.textinput insert 1.0 $retval
}
set_global_mode
}
}
}
bind .dialog.textinput <Shift-KeyRelease-Return> {return_release %W; .dialog.f1.b1 invoke} bind .dialog.textinput <Shift-KeyRelease-Return> {return_release %W; .dialog.f1.b1 invoke}
#tkwait visibility .dialog #tkwait visibility .dialog
#grab set .dialog #grab set .dialog
#focus .dialog.textinput #focus .dialog.textinput
set tctx::rcode {} set tctx::rcode {}
tkwait window .dialog tkwait window .dialog
if {$preserve_disabled eq {disabled}} {
if {$retval ne $retval_orig} {
xschem push_undo
xschem set_modify 1
set glob_attr [string map {
Spice[S] schprop
Vhdl[G] schvhdlprop
Verilog[V] schverilogprop
Tedax[E] schtedaxprop
Symbol[K] schsymbolprop
Spectre[F] schspectreprop
} $tctx::selected_mode]
xschem set $glob_attr $retval
}
}
return $tctx::rcode return $tctx::rcode
} }
@ -8428,13 +8538,14 @@ set tctx::global_list {
hide_symbols incr_hilight incremental_select infix_interface infowindow_text intuitive_interface hide_symbols incr_hilight incremental_select infix_interface infowindow_text intuitive_interface
keep_symbols launcher_default_program light_colors line_width live_cursor2_backannotate keep_symbols launcher_default_program light_colors line_width live_cursor2_backannotate
local_netlist_dir lvs_ignore lvs_netlist measure_text netlist_dir netlist_show netlist_type local_netlist_dir lvs_ignore lvs_netlist measure_text netlist_dir netlist_show netlist_type
no_ask_save no_ask_simulate no_change_attrs nolist_libs noprint_libs old_selected_tok only_probes no_ask_save no_ask_simulate no_change_attrs nolist_libs noprint_libs only_probes
orthogonal_wiring path pathlist persistent_command preserve_unchanged_attrs prev_symbol ps_colors orthogonal_wiring path pathlist persistent_command preserve_unchanged_attrs prev_symbol ps_colors
ps_paper_size rainbow_colors recentfile retval retval_orig rotated_text search_case search_exact ps_paper_size rainbow_colors recentfile retval retval_orig rotated_text search_case search_exact
search_found search_schematic search_select search_value select_touch selected_tok search_found search_schematic search_select search_value select_touch
show_hidden_texts show_infowindow show_infowindow_after_netlist simconf_default_geometry show_hidden_texts show_infowindow show_infowindow_after_netlist simconf_default_geometry
simconf_vpos simulate_bg snap_cursor snap_cursor_size spiceprefix split_files svg_colors simconf_vpos simulate_bg snap_cursor snap_cursor_size spiceprefix split_files svg_colors
svg_font_name sym_txt symbol symbol_width tabstop tclcmd_txt tclstop tctx::colors tctx::hsize svg_font_name sym_txt symbol symbol_width tabstop tclcmd_txt tclstop tctx::colors tctx::hsize
tctx::selected_mode tctx::old_selected_mode tctx::old_selected_tok tctx::selected_tok
tctx::rcode tctx::vsize text_line_default_geometry text_replace_selection text_tabs_setting tctx::rcode tctx::vsize text_line_default_geometry text_replace_selection text_tabs_setting
textwindow_fileid textwindow_filename textwindow_w toolbar_horiz toolbar_list toolbar_visible textwindow_fileid textwindow_filename textwindow_w toolbar_horiz toolbar_list toolbar_visible
top_is_subckt transparent_svg undo_type unselect_partial_sel_wires uppercase_subckt top_is_subckt transparent_svg undo_type unselect_partial_sel_wires uppercase_subckt