added script to profile a procedure

1 files changed, 37 insertions, 0 deletions

diff --git a/profile_proc.tcl b/profile_proc.tcl
new file mode 100755
index 0000000..0238d16
--- /dev/null
+++ b/profile_proc.tcl
@@ -0,0 +1,37 @@
+#!/bin/sh
+# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com>
+# vim:set ft=tcl: \
+exec tclsh "$0" "$@"
+
+package require sqlite3
+package require md5
+package require json::write
+source ./profiler.tcl
+source ./GradeBook_lib.tcl
+
+if { $argc < 2 } {	
+	puts {Profile and test built-in library procs}
+	puts {Usage:}
+	puts "  $argv0 database_name ProcName \[arg1\] \[arg2\] \[arg3\] ..." 
+	puts {}
+	puts {Example:}
+	puts [join [list {  } $argv0 tests/test_class.db UpdateGradesTableStatistic dummy1 dummy2] " "]
+	exit
+}
+
+set dbfile [lindex $argv 0] 
+set ProcName [lindex $argv 1] 
+set arg_list [lrange $argv 2 end]
+
+sqlite3 db $dbfile
+
+$ProcName {*}$arg_list
+
+global TimeProfilerMode
+if { [info exists TimeProfilerMode] } {
+	TimeProfilerDump description
+ }
+
+db close
+
+# vim: ts=2 sw=2 foldmethod=indent: