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

Netlist and Simulate buttons will be colored in red or green depending on the outcome of the associated operation

This commit is contained in:
stefan schippers 2023-11-05 00:14:55 +01:00
parent 88e7f4fea4
commit 3bd3956042
4 changed files with 44 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/actions.c
View File

@ -149,6 +149,10 @@ int set_modify(int mod)
xctx->prev_set_modify = xctx->modified;
xctx->modified = mod;
}
if(mod) {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg $simulate_bg", NULL);
tclvareval(xctx->top_path, ".menubar.simulate configure -bg $simulate_bg", NULL);
}
/* clear floater caches */
if(mod == 1 || mod == -2) {

29
src/callback.c
View File

@ -2366,47 +2366,60 @@ int rstate; /* (reduced state, without ShiftMask) */
}
if(key=='n' && rstate==0) /* hierarchical netlist */
{
int err = 0;
yyparse_error = 0;
if(xctx->semaphore >= 2) break;
unselect_all(1);
if(set_netlist_dir(0, NULL)) {
dbg(1, "callback(): -------------\n");
if(xctx->netlist_type == CAD_SPICE_NETLIST)
global_spice_netlist(1);
err = global_spice_netlist(1);
else if(xctx->netlist_type == CAD_VHDL_NETLIST)
global_vhdl_netlist(1);
err = global_vhdl_netlist(1);
else if(xctx->netlist_type == CAD_VERILOG_NETLIST)
global_verilog_netlist(1);
err = global_verilog_netlist(1);
else if(xctx->netlist_type == CAD_TEDAX_NETLIST)
global_tedax_netlist(1);
err = global_tedax_netlist(1);
else
tcleval("tk_messageBox -type ok -parent [xschem get topwindow] "
"-message {Please Set netlisting mode (Options menu)}");
dbg(1, "callback(): -------------\n");
}
if(err) {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg red", NULL);
} else {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg LightGreen", NULL);
}
break;
}
if(key=='N' && rstate == 0) /* current level only netlist */
{
int err = 0;
yyparse_error = 0;
if(xctx->semaphore >= 2) break;
unselect_all(1);
if( set_netlist_dir(0, NULL) ) {
dbg(1, "callback(): -------------\n");
if(xctx->netlist_type == CAD_SPICE_NETLIST)
global_spice_netlist(0);
err = global_spice_netlist(0);
else if(xctx->netlist_type == CAD_VHDL_NETLIST)
global_vhdl_netlist(0);
err = global_vhdl_netlist(0);
else if(xctx->netlist_type == CAD_VERILOG_NETLIST)
global_verilog_netlist(0);
err = global_verilog_netlist(0);
else if(xctx->netlist_type == CAD_TEDAX_NETLIST)
global_tedax_netlist(0);
err = global_tedax_netlist(0);
else
tcleval("tk_messageBox -type ok -parent [xschem get topwindow] "
"-message {Please Set netlisting mode (Options menu)}");
dbg(1, "callback(): -------------\n");
}
if(err) {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg red", NULL);
} else {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg LightGreen", NULL);
}
break;
}
if(key=='A' && rstate == 0) /* toggle show netlist */

5
src/scheduler.c
View File

@ -2708,6 +2708,11 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
Tcl_SetResult(interp, my_itoa(err), TCL_VOLATILE);
}
}
if(err) {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg red", NULL);
} else {
tclvareval(xctx->top_path, ".menubar.netlist configure -bg LightGreen", NULL);
}
tclsetvar("show_infowindow_after_netlist", saveshow);
my_free(_ALLOC_ID_, &saveshow);
}

22
src/xschem.tcl
View File

@ -266,6 +266,7 @@ proc execute_fileevent {id} {
} else {
if {$report} {viewdata "Completed: $execute(cmd,$id)\ndata:\n$execute(data,$id)"}
}
set execute(exitcode,last) $exit_status
if {[info exists execute(callback,$id)] && $execute(callback,$id) ne {}} {
uplevel #0 eval $execute(callback,$id)
}
@ -276,7 +277,6 @@ proc execute_fileevent {id} {
set execute(error,last) $err
set execute(status,last) $execute(status,$id)
if { ![info exists exit_status] } { set exit_status 0 }
set execute(exitcode,last) $exit_status
unset execute(pipe,$id)
unset execute(data,$id)
unset execute(status,$id)
@ -1724,7 +1724,7 @@ proc simulate {{callback {}}} {
set cmd [subst -nobackslashes $sim($tool,$def,cmd)]
set save [pwd]
cd $netlist_dir
$button_path configure -bg red
$button_path configure -bg yellow
set tctx::[xschem get current_win_path]_simulate 1
if {$OS == "Windows"} {
# $cmd cannot be surrounded by {} as exec will change forward slash to backward slash
@ -6315,15 +6315,21 @@ proc housekeeping_ctx {} {
if {![info exists tctx::[xschem get current_win_path]_simulate]} {
[xschem get top_path].menubar.simulate configure -bg $simulate_bg
} else {
[xschem get top_path].menubar.simulate configure -bg red
[xschem get top_path].menubar.simulate configure -bg yellow
}
.statusbar.7 configure -text $netlist_type
}
proc clear_simulate_button {button_path simvar} {
global simulate_bg
global simulate_bg execute
if { "tctx::[xschem get current_win_path]_simulate" eq $simvar } {
$button_path configure -bg $simulate_bg
if {![info exists execute(exitcode,last)]} {
$button_path configure -bg $simulate_bg
} elseif { $execute(exitcode,last) == 0} {
$button_path configure -bg LightGreen
} else {
$button_path configure -bg red
}
}
unset $simvar
}
@ -6769,12 +6775,12 @@ proc build_widgets { {topwin {} } } {
toolbar_add EditPop "xschem go_back" "Pop" $topwin
# eval is needed here to expand $bbg before evaluating 'button'
eval button $topwin.menubar.waves -text "Waves" -activebackground red -takefocus 0 \
eval button $topwin.menubar.waves -text "Waves" -activebackground yellow -takefocus 0 \
-padx 2 -pady 0 -command waves $bbg
eval button $topwin.menubar.simulate -text "Simulate" -activebackground red -takefocus 0 \
eval button $topwin.menubar.simulate -text "Simulate" -activebackground yellow -takefocus 0 \
-padx 2 -pady 0 -command simulate $bbg
set simulate_bg [$topwin.menubar.simulate cget -bg]
eval button $topwin.menubar.netlist -text "Netlist" -activebackground red -takefocus 0 \
eval button $topwin.menubar.netlist -text "Netlist" -activebackground yellow -takefocus 0 \
-padx 2 -pady 0 -command \{xschem netlist -erc\} $bbg
# create $topwin.menubar.layers.menu