Restructure for dir for kbskit

auriocus · Jul 4, 2015 · 5941441 · 5941441
1 parent 0bd09be
commit 5941441
Show file tree

Hide file tree

Showing 6 changed files with 34 additions and 0 deletions.
diff --git a/demo/linuxload.tcl b/demo/linuxload.tcl
@@ -0,0 +1,34 @@
+# display load avg on Linux
+
+package require ukaz
+package require fileutil
+
+pack [ukaz::graph .l] -expand yes -fill both
+
+set lastload {0 0}
+set time 0
+
+proc newload {} {
+	variable lastload
+	variable time
+	variable graphid
+
+	# read current loadavg last 1, 5 and 15 minutes
+	lassign [fileutil::read /proc/loadavg] l1 l5 l15
+
+	incr time
+	lappend lastload $time $l1
+
+	if {[llength $lastload]>1000} {
+		# for more than 1000 entries, cut it down
+		set lastload [lrange $lastload end-999 end]
+	}
+	.l update $graphid data $lastload
+	after 500 newload
+}
+
+set graphid [.l plot $lastload with lines color red title "CPU load"]
+.l set xlabel "Time"
+.l set ylabel "Load"
+
+newload
diff --git a/test/simpletest.tcl → demo/simpletest.tcl b/test/simpletest.tcl → demo/simpletest.tcl
diff --git a/test/sine.dat → demo/sine.dat b/test/sine.dat → demo/sine.dat
diff --git a/test/uktest.tcl → demo/uktest.tcl b/test/uktest.tcl → demo/uktest.tcl
diff --git a/lib/pkgIndex.tcl → pkgIndex.tcl b/lib/pkgIndex.tcl → pkgIndex.tcl
diff --git a/lib/ukaz.tcl → ukaz.tcl b/lib/ukaz.tcl → ukaz.tcl