From 4d84d14ac1aa13958eaa2971b03f7f929a519105 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Fri, 8 Feb 2008 13:00:32 +0000
Subject: reorganized

svn path=/trunk/; revision=9400
---
 desiredata/src/profile_dd.tcl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 desiredata/src/profile_dd.tcl

(limited to 'desiredata/src/profile_dd.tcl')

diff --git a/desiredata/src/profile_dd.tcl b/desiredata/src/profile_dd.tcl
new file mode 100644
index 00000000..12c98a56
--- /dev/null
+++ b/desiredata/src/profile_dd.tcl
@@ -0,0 +1,20 @@
+
+if 1 {
+	puts "profiler version [package require profiler]"
+	profiler::init
+	# try just: prof
+	# or try: prof calls
+	proc prof {{arg totalRuntime}} {
+		set dump [profiler::dump]
+		#foreach {a b} $dump {foreach {c d} $b {set prof($a:$c) $d}}
+		set top [profiler::sortFunctions $arg]
+		foreach entry $top {
+			mset {k v} $entry
+			if {!$v} {continue}
+			puts [format "%8d  %s" $v $k]
+		}
+	}
+}
+if 0 {
+	load matjuprofiler/matjuprofiler.so
+}
-- 
cgit v1.2.1