summaryrefslogtreecommitdiffstats
path: root/test_rrobin_problem/simulation/run.do
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
OpenPOWER on IntegriCloud