blob: 36d196955c728011f38b14381688853186b7a926 (
plain)
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
|
#
# helper functions
#
# neues Spiel, neues Glueck
proc nsng {} {
restart -f
global StdArithNoWarnings
global NumericStdNoWarnings
set StdArithNoWarnings 1
set NumericStdNoWarnings 1
when -label enable_Warn {reset == '0'} {echo "Enable Warnings" ; set StdArithNoWarnings 0 ; set NumericStdNoWarnings 0 ;}
run -all
}
proc r {} {
restart -f
run -all
}
# restart with clear
proc rc {} {
.main clear
r
}
proc my_debug {} {
global env
foreach key [array names env] {
puts "$key=$env($key)"
}
}
proc e {} {
exit -force
}
proc x {} {
exit -force
}
# get env variables
global env
quietly set top $env(top)
if {[file exists wave_$top.do]} {
do wave_$top.do
} else {
if {[file exists wave.do]} {
do wave.do
} else {
puts "INFO: no wave file found."
}
}
run -all
|