add "postinit_commands" variable that can be set in xschemrc file, this variable may contain commands that will be executed after completing startup. Example: set postinit_commands {xschem set format xyce_format}
This commit is contained in:
parent
dd71d533ce
commit
c05c177885
|
|
@ -2818,6 +2818,9 @@ int Tcl_AppInit(Tcl_Interp *inter)
|
||||||
tcleval(cli_opt_tcl_post_command);
|
tcleval(cli_opt_tcl_post_command);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Execute tcl commands given in tcl variable postinit_commands if existing */
|
||||||
|
tcleval("eval_postinit_commands");
|
||||||
|
|
||||||
if(cli_opt_quit) {
|
if(cli_opt_quit) {
|
||||||
tcleval("exit");
|
tcleval("exit");
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -6477,6 +6477,13 @@ proc source_user_tcl_files {} {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
proc eval_postinit_commands {} {
|
||||||
|
global postinit_commands
|
||||||
|
if {[info exists postinit_commands]} {
|
||||||
|
catch {eval $postinit_commands}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
proc setup_tcp_xschem { {port_number {}} } {
|
proc setup_tcp_xschem { {port_number {}} } {
|
||||||
global xschem_listen_port xschem_server_getdata
|
global xschem_listen_port xschem_server_getdata
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue