mirror of
https://github.com/RTimothyEdwards/magic.git
synced 2026-09-02 02:58:01 +02:00
Tim Edwards
82d64aa4b1
argument. For interactive magic in the Tcl/Tk wrapper, the "-nowindow" option was appended to the command line. But for Tcl scripts on the command line, all arguments following the script name are considered arguments of the script. So the "-nowindow" argument has to be inserted at the beginning of the command line as the first argument after "magic".
455 lines
13 KiB
Tcl
Executable File
455 lines
13 KiB
Tcl
Executable File
# Wishrc startup for ToolScript (magic)
|
|
#
|
|
# For installation: Put this file and also magicwrap.so into
|
|
# the same directory. Also see comments in shell script "magic.sh".
|
|
|
|
global Opts
|
|
|
|
# If we called magic via the non-console script, then we want to reset
|
|
# the environment variable HOME to its original value.
|
|
|
|
variable MAGIC_TCL_DIR [file dirname [file normalize [info script]]]
|
|
variable CAD_ROOT_DEFAULT [file normalize [file join $MAGIC_TCL_DIR ../..]]
|
|
|
|
if {${tcl_version} >= 8.6} {
|
|
load -lazy [file join $MAGIC_TCL_DIR tclmagic[info sharedlibextension]]
|
|
} else {
|
|
load [file join $MAGIC_TCL_DIR tclmagic[info sharedlibextension]]
|
|
}
|
|
|
|
# It is important to make sure no magic commands overlap with Tcl built-in
|
|
# commands, because otherwise the namespace import will fail.
|
|
|
|
proc pushnamespace { name } {
|
|
|
|
set y [namespace eval ${name} info commands ::${name}::*]
|
|
set z [info commands]
|
|
|
|
# Watch especially for magic "wizard" commands, as we don't want to confuse
|
|
# the literal "*" with a regular expression *. "regsub" below takes care of it.
|
|
|
|
foreach v $y {
|
|
regsub -all {\*} $v {\\*} i
|
|
set x [namespace tail $i]
|
|
if {[lsearch $z $x] < 0} {
|
|
namespace import $i
|
|
}
|
|
}
|
|
}
|
|
|
|
proc popnamespace { name } {
|
|
set z [info commands]
|
|
set l [expr [string length ${name}] + 5]
|
|
|
|
while {[set v [lsearch $z ${name}_tcl_*]] >= 0} {
|
|
set y [lindex $z $v]
|
|
set w [string range $y $l end]
|
|
interp alias {} ::$w {}
|
|
rename ::$y ::$w
|
|
puts "Info: replacing ::$w with ::$y"
|
|
}
|
|
namespace forget ::${name}::*
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Define the drcstate procedure expected by the background DRC code.
|
|
|
|
proc magic::drcstate {option} {
|
|
# (Null proc---see wrapper.tcl for a useful version)
|
|
}
|
|
|
|
#-----------------------------------------------------------------
|
|
# Define these console routines so that they don't produce errors
|
|
# when Magic is run in batch mode
|
|
|
|
if {[catch {tkcon title}]} {
|
|
proc magic::suspendout {} {}
|
|
proc magic::resumeout {} {}
|
|
proc magic::dialog {} {}
|
|
proc magic::consolegeometry {} {}
|
|
proc magic::consolefocus {} {}
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Cross-Application section
|
|
#----------------------------------------------------------------------
|
|
|
|
# Check namespaces for existence of other applications
|
|
set UsingIRSIM 0
|
|
set UsingXCircuit 0
|
|
set UsingNetgen 0
|
|
set nlist [namespace children]
|
|
foreach i $nlist {
|
|
switch $i {
|
|
::irsim { set UsingIRSIM 1 }
|
|
::xcircuit { set UsingXCircuit 1 }
|
|
::netgen { set UsingNetgen 1 }
|
|
}
|
|
}
|
|
|
|
# Setup IRSIM assuming that the Tcl version is installed.
|
|
# We do not need to rename procedure irsim to NULL because it is
|
|
# redefined in a script, which simply overwrites the original.
|
|
|
|
proc irsim { args } {
|
|
global CAD_ROOT
|
|
set irsimscript [glob -nocomplain ${CAD_ROOT}/irsim/tcl/irsim.tcl]
|
|
if { ${irsimscript} == {} } {
|
|
puts stderr "\"irsim\" requires Tcl-based IRSIM version 9.6 or newer."
|
|
puts stderr "Could not find script \"irsim.tcl\". If IRSIM is installed in a"
|
|
puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command"
|
|
puts stderr "\"source <path>/irsim.tcl\" before doing \"irsim\"."
|
|
} else {
|
|
source $irsimscript
|
|
eval {irsim} $args
|
|
}
|
|
}
|
|
|
|
# Setup Xcircuit assuming that the Tcl version is installed.
|
|
|
|
proc xcircuit { args } {
|
|
global CAD_ROOT
|
|
global argc
|
|
global argv
|
|
set xcircscript [glob -nocomplain ${CAD_ROOT}/xcircuit*/xcircuit.tcl]
|
|
if { ${xcircscript} == {} } {
|
|
puts stderr "\"xcircuit\" requires Tcl-based XCircuit version 3.1 or newer."
|
|
puts stderr "Could not find script \"xcircuit.tcl\". If XCircuit is installed in a"
|
|
puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command"
|
|
puts stderr "\"source <path>/xcircuit.tcl\"."
|
|
} else {
|
|
# if there are multiple installed versions, choose the highest version.
|
|
if {[llength $xcircscript] > 1} {
|
|
set xcircscript [lindex [lsort -decreasing -dictionary $xcircscript] 0]
|
|
}
|
|
# execute script in the scope of magic, because its variable space is
|
|
# not modularized.
|
|
set argv $args
|
|
set argc [llength $args]
|
|
uplevel #0 source $xcircscript
|
|
}
|
|
}
|
|
|
|
# Setup Netgen assuming that the Tcl version is installed.
|
|
|
|
proc netgen { args } {
|
|
global CAD_ROOT
|
|
global argc
|
|
global argv
|
|
set netgenscript [glob -nocomplain ${CAD_ROOT}/netgen/tcl/netgen.tcl]
|
|
if { ${netgenscript} == {} } {
|
|
puts stderr "\"netgen\" requires Tcl-based Netgen version 1.2 or newer."
|
|
puts stderr "Could not find script \"netgen.tcl\". If Netgen is installed in a"
|
|
puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command"
|
|
puts stderr "\"source <path>/netgen.tcl\"."
|
|
} else {
|
|
set argv $args
|
|
set argc [llength $args]
|
|
uplevel #0 source $netgenscript
|
|
}
|
|
}
|
|
|
|
# Add the "echo" command
|
|
|
|
proc echo {args} {
|
|
puts stdout $args
|
|
}
|
|
|
|
# Parse argument list for "-c[onsole]" and "-now[rapper]".
|
|
|
|
set celllist {}
|
|
set do_wrapper true
|
|
set do_recover false
|
|
set argafter {magic::initialize}
|
|
set x {}
|
|
for {set i 0} {$i < $argc} {incr i 1} {
|
|
set x [lindex $argv $i]
|
|
#
|
|
# Command-line argument handling goes here
|
|
# We have to handle all of magic's command line arguments so we can
|
|
# figure out if a cell has been named for preloading.
|
|
#
|
|
switch -regexp -- $x {
|
|
^-now(rap)?(per)?$ { ;# This regexp accepts -now, -nowrap, and -nowrapper
|
|
set do_wrapper false
|
|
}
|
|
^-dnull {
|
|
set do_wrapper false
|
|
lappend argafter $x
|
|
}
|
|
^-r(e)?(cover)?$ {
|
|
set do_recover true
|
|
}
|
|
^-rc(file)?$ {
|
|
lappend argafter $x
|
|
incr i 1
|
|
lappend argafter [lindex $argv $i]
|
|
}
|
|
^-d -
|
|
^-g -
|
|
^-m -
|
|
^-i -
|
|
^-T {
|
|
lappend argafter $x
|
|
incr i 1
|
|
lappend argafter [lindex $argv $i]
|
|
}
|
|
^-F {
|
|
lappend argafter $x
|
|
incr i 1
|
|
lappend argafter [lindex $argv $i]
|
|
incr i 1
|
|
lappend argafter [lindex $argv $i]
|
|
}
|
|
^--version {
|
|
puts stdout "MAGIC_VERSION.MAGIC_REVISION"
|
|
exit 0
|
|
}
|
|
^--commit {
|
|
puts stdout "MAGIC_COMMIT"
|
|
exit 0
|
|
}
|
|
^--prefix {
|
|
puts stdout $CAD_ROOT
|
|
exit 0
|
|
}
|
|
^-D -
|
|
^-n* {
|
|
lappend argafter $x
|
|
}
|
|
default {
|
|
lappend celllist $x
|
|
lappend argafter $x
|
|
}
|
|
}
|
|
}
|
|
|
|
if {$do_wrapper} {
|
|
source ${CAD_ROOT}/magic/tcl/wrapper.tcl
|
|
# Set the no-initial-window option in magic. Do *not* append it, as the
|
|
# arguments may have a Tcl script, for which all following arguments are
|
|
# considered arguments of the script.
|
|
set argafter [linsert $argafter 1 -nowindow]
|
|
}
|
|
unset x i do_wrapper
|
|
if {[catch {eval $argafter}]} { ;# magic::initialize ${argv}
|
|
exit 1
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Check for presence of padlist manager script and include it
|
|
|
|
if {[file exists ${CAD_ROOT}/magic/tcl/padlist.tcl]} {
|
|
source ${CAD_ROOT}/magic/tcl/padlist.tcl
|
|
set Opts(padlist) 0
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Check for presence of the miscellaneous tools script and include it
|
|
|
|
if {[file exists ${CAD_ROOT}/magic/tcl/tools.tcl]} {
|
|
source ${CAD_ROOT}/magic/tcl/tools.tcl
|
|
set Opts(tools) 0
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Check for presence of the mazerouter script and include it
|
|
|
|
if {[file exists ${CAD_ROOT}/magic/tcl/mazeroute.tcl]} {
|
|
source ${CAD_ROOT}/magic/tcl/mazeroute.tcl
|
|
set Opts(mazeroute) 0
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Check for presence of the toolkit script and include it
|
|
# NOTE: This supercedes the older toolkit which is now
|
|
# named toolkit_rev0.tcl, and the intermediate bsitools.tcl,
|
|
# which are folded into the newer toolkit.tcl.
|
|
|
|
if {[file exists ${CAD_ROOT}/magic/tcl/toolkit.tcl]} {
|
|
source ${CAD_ROOT}/magic/tcl/toolkit.tcl
|
|
set Opts(toolkit) 0
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Check for presence of the readspice script and include it
|
|
|
|
if {[file exists ${CAD_ROOT}/magic/tcl/readspice.tcl]} {
|
|
source ${CAD_ROOT}/magic/tcl/readspice.tcl
|
|
set Opts(readspice) 0
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# Magic start function drops back to interpreter after initialization & setup
|
|
|
|
set auto_noexec 1 ;# don't EVER call UNIX commands w/o "shell" in front
|
|
|
|
# Have we called magic from tkcon or a clone thereof? If so, set MagicConsole
|
|
|
|
if {[lsearch [interp aliases] tkcon] != -1} {
|
|
set MagicConsole tkcon
|
|
catch {wm withdraw .}
|
|
|
|
# Get rid of some overlapping tkcon commands which are not needed.
|
|
|
|
if {[lsearch [info commands] orig_edit] < 0} {rename edit orig_edit}
|
|
if {[lsearch [info commands] orig_dump] < 0} {rename dump orig_dump}
|
|
if {[lsearch [info commands] orig_what] < 0} {rename what orig_what}
|
|
} else {
|
|
rename unknown tcl_unknown
|
|
proc unknown { args } {
|
|
# CAD tools special:
|
|
# Check for commands which were renamed to tcl_(command)
|
|
|
|
set cmd [lindex $args 0]
|
|
if {[lsearch [info commands] tcl_$cmd] >= 0} {
|
|
set arglist [concat tcl_$cmd [lrange $args 1 end]]
|
|
set ret [catch {eval $arglist} result]
|
|
if {$ret == 0} {
|
|
return $result
|
|
} else {
|
|
return -code $ret -errorcode $errorCode $result
|
|
}
|
|
}
|
|
return [eval [concat tcl_unknown $args]]
|
|
}
|
|
}
|
|
|
|
# Set up certain commands to act like they do in non-Tcl-based magic;
|
|
# These are the commands whose names have been extended so they don't
|
|
# conflict with existing Tcl/Tk commands. This renaming & importing
|
|
# *requires* the special code in the magic Tcl command dispatcher to
|
|
# find and deal with each of these renamed commands!
|
|
|
|
if {[lsearch [info commands] orig_clock] < 0} {rename clock orig_clock}
|
|
if {[lsearch [info commands] tcl_flush] < 0} {rename flush tcl_flush}
|
|
if {[lsearch [info commands] tcl_load] < 0} {rename load tcl_load}
|
|
if {[lsearch [info commands] tcl_array] < 0} {rename array tcl_array}
|
|
if {[lsearch [info commands] tcl_label] < 0} {catch {rename label tcl_label}}
|
|
if {[lsearch [info commands] tcl_grid] < 0} {catch {rename grid tcl_grid}}
|
|
|
|
namespace eval magic namespace export *
|
|
pushnamespace magic
|
|
|
|
#----------------------------------------------------------------------
|
|
# Read system startup files (mostly macro definitions)
|
|
# Read user startup file, if any
|
|
# Load initial cell, if any
|
|
|
|
magic::startup
|
|
|
|
if {![catch {set toptitle [wm title .]}]} {
|
|
if {[string range $toptitle 0 3] == "wish"} {
|
|
wm withdraw .
|
|
}
|
|
if {[string range $toptitle 0 8] == "magicexec"} {
|
|
wm withdraw .
|
|
}
|
|
unset toptitle
|
|
}
|
|
|
|
# After loading, magic will wander off and do a complete DRC check
|
|
# before executing the rest of the script unless we temporarily
|
|
# disable the DRC checker.
|
|
|
|
set drcstate [drc status]
|
|
drc off
|
|
|
|
# Initial window for wrapper, if defined.
|
|
# empty string is equivalent to passing NULL cell name.
|
|
#
|
|
# If a startup file has created a window, then don't make another one.
|
|
|
|
if {[info commands magic::openwrapper] != {}} {
|
|
if {[windownames layout] == {}} {
|
|
if {[magic::display] == "NULL"} {
|
|
magic::openwindow
|
|
rename magic::openwrapper magic::_openwrapper
|
|
} else {
|
|
set winname [magic::openwrapper]
|
|
magic::scrollupdate $winname
|
|
}
|
|
magic::techmanager initall
|
|
|
|
foreach cellname $celllist {
|
|
set fext [file extension $cellname]
|
|
puts stdout "handling file entry $cellname extension $fext"
|
|
switch $fext {
|
|
.lef -
|
|
.LEF {lef read $cellname}
|
|
.def -
|
|
.DEF {def read $cellname}
|
|
.gds -
|
|
.GDS -
|
|
.gds2 -
|
|
.GDS2 -
|
|
.gdsii -
|
|
.GDSII {gds read $cellname}
|
|
.cif -
|
|
.CIF {cif read $cellname}
|
|
.tcl {source $cellname}
|
|
.mag -
|
|
"" {magic::load $cellname}
|
|
default {puts stderr "don't know how to load file $cellname"}
|
|
}
|
|
}
|
|
}
|
|
} elseif {[info commands wm] == {}} {
|
|
# Magic running with Tcl but in NULL graphics mode.
|
|
if {[windownames layout] == {}} {
|
|
magic::openwindow
|
|
foreach cellname $celllist {
|
|
set fext [file extension $cellname]
|
|
puts stdout "handling file entry $cellname extension $fext"
|
|
switch $fext {
|
|
.lef -
|
|
.LEF {lef read $cellname}
|
|
.def -
|
|
.DEF {def read $cellname}
|
|
.gds -
|
|
.GDS -
|
|
.gds2 -
|
|
.GDS2 -
|
|
.gdsii -
|
|
.GDSII {gds read $cellname}
|
|
.cif -
|
|
.CIF {cif read $cellname}
|
|
.tcl {source $cellname}
|
|
.mag -
|
|
"" {magic::load $cellname}
|
|
default {puts stderr "don't know how to load file $cellname"}
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
# Initial geometry handler for the default window, non-wrapper version
|
|
catch {wm geometry .magic1 ${Opts(geometry)}}
|
|
}
|
|
|
|
# Print the technology name and description
|
|
puts stdout "Using technology \"[tech name]\", version [lindex [tech version] 0]"
|
|
|
|
# Set a box, and set the view; if no cell has been loaded, choose a default
|
|
# view.
|
|
if {![box exists]} {
|
|
box 0 0 1 1 ;# create a unit box
|
|
}
|
|
if {[llength $celllist] > 0} {
|
|
view
|
|
} else {
|
|
view -9 -9 10 10
|
|
}
|
|
|
|
# The Tcl version handles the "-r" on the command line by calling
|
|
# command crash recover.
|
|
|
|
if {$do_recover} {crash recover}
|
|
|
|
# Unset global TCL variables so they don't conflict with magic nodes.
|
|
unset celllist nlist do_recover
|
|
|
|
if {$drcstate == 1} {
|
|
drc on
|
|
}
|
|
unset drcstate
|