cust1/userware.tcl

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
###############################################################################
# Copyright (c) 2003-2024 by Altair Engineering, Inc.
# All rights reserved.
#
# Altair Engineering, Inc. makes this software available as part of the Vision
# tool platform.  As long as you are a licensee of the Vision tool platform
# you may make copies of the software and modify it to be used within the
# Vision tool platform, but you must include all of this notice on any copy.
# Redistribution without written permission to any third party, with or
# without modification, is not permitted.
# Altair Engineering, Inc. does not warrant that this software is error free
# or fit for any purpose.  Altair Engineering, Inc. disclaims any liability for
# all claims, expenses, losses, damages and costs any user may incur as a
# result of using, copying or modifying the software.
# =============================================================================
#   @script
#       Example Userware
###############################################################################

set path [file dirname [info script]]
source [file join $path readSideFile.tcl]
source [file join $path patternSearch.tcl]
source [file join $path heavyR.tcl]

##
# Define highlight colors starting from green (toggle 0) over
# blue (toggle 5) to red (toggle 10).
# You can set up to 19 different highlight colors.
#
set colKey "color:spicevision-1.x"
gui settings set "$colKey:*objectHighlight0"  #00FF00
gui settings set "$colKey:*objectHighlight1"  #00FF80
gui settings set "$colKey:*objectHighlight2"  #00FFC0
gui settings set "$colKey:*objectHighlight3"  #00C0FF
gui settings set "$colKey:*objectHighlight4"  #0080FF
gui settings set "$colKey:*objectHighlight5"  #0000FF
gui settings set "$colKey:*objectHighlight6"  #8000FF
gui settings set "$colKey:*objectHighlight7"  #C000FF
gui settings set "$colKey:*objectHighlight8"  #FF00C0
gui settings set "$colKey:*objectHighlight9"  #FF0080
gui settings set "$colKey:*objectHighlight10" #FF0000
gui settings set "$colKey:*objectHighlight11" #AAAAAA

set bgColor [option get . background Background]
for {set n 0} {$n <= 10} {incr n} {
    gui settings set "$colKey:*hicolorbg$n" $bgColor
}

##
# Show net attributes at pins (4)
#
gui settings set "nlv:shownetattr" 4

##
# Display attributes in tooltips
#
gui settings set "tooltipsWithAttrs" 1

##
# Inform the Gui that the settings have changed.
#
gui settings changed


# -----------------------------------------------------------------------------
# startSimulator -
# -----------------------------------------------------------------------------
#
proc startSimulator {} {
    ##
    # Set the command to start the simulator.
    #
    set sim /nfs/qre/disks/dfqr5/Ultrasim31/ultrasim64

    set file [gui settings get "Spice:fname:F"]

    exec -- $sim $file >/dev/tty 2>/dev/tty </dev/tty &
}


##
# Extent the SpiceVision main menu.
#
gui menu command {"Userware" "Read XTOR Level Data"} {readSideFile inst 2}
gui menu command {"Userware" "Read Node Level Data"} {nodeValue}
gui menu command {"Userware" "Pattern Search"}       {matchPath}
gui menu command {"Userware" "Find Heavy R"}         {threshPopup}
gui menu command {"Userware" "Start Simulator"}      {startSimulator}