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
|
--- scripts/latency-plot.orig 2016-06-25 02:19:12 UTC
+++ scripts/latency-plot
@@ -1,4 +1,4 @@
-#!/usr/bin/wish
+#!/usr/bin/env wish8.6
# Notes:
# notusing y axis title because it coredumps with X BadMatch with wish8.5
@@ -161,15 +161,15 @@ proc init_hal_timedelta {} {
} ;# init_hal_timedelta
proc check {} {
- if {[string first rtai [exec lsmod]] < 0} {
- #puts "ok -- no rtai modules currently loaded"
- } else {
- set msg "Cannot start with rtai modules loaded.\
-Stop all programs (linuxcnc) using realtime first and then run:\n\n\
-halrun -U\n"
- popup $msg
- exit 1
- }
+# if {[string first rtai [exec lsmod]] < 0} {
+# #puts "ok -- no rtai modules currently loaded"
+# } else {
+# set msg "Cannot start with rtai modules loaded.\
+#Stop all programs (linuxcnc) using realtime first and then run:\n\n\
+#halrun -U\n"
+# popup $msg
+# exit 1
+# }
switch $::sc(data,source) {
hal_timedelta {}
default {return -code error "init: unknown data,source: <$::sc(data,source)>"}
@@ -179,13 +179,13 @@ halrun -U\n"
proc mcheck {} {
# cautionary check on memory usage
# %mem "ratio of process's resident set size to the physical mem in percent"
- set mempercent [eval exec ps --no-headers --pid $::sc(pid) -o %mem]
- if {$mempercent > $::sc(mem,max,percent)} {
- set msg "Memory used is ${mempercent}%, Exiting"
- popup $msg
- exit 1
- }
- after 10000 mcheck
+# set mempercent [eval exec ps --no-headers --pid $::sc(pid) -o %mem]
+# if {$mempercent > $::sc(mem,max,percent)} {
+# set msg "Memory used is ${mempercent}%, Exiting"
+# popup $msg
+# exit 1
+# }
+# after 10000 mcheck
} ;# mcheck
proc start {} {
|
