diff options
author | antirez <antirez@gmail.com> | 2009-11-10 19:20:32 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2009-11-10 19:20:32 +0100 |
commit | bcfc686db7351a4489d135d2fb0544fb6ee8dad9 (patch) | |
tree | 178de6e03d35c5d82f14107864193bf01a19ac2a /utils/build-static-symbols.tcl | |
parent | f23242938637c5c72f5a8104976a3f7764d66203 (diff) | |
download | redis-bcfc686db7351a4489d135d2fb0544fb6ee8dad9.tar.gz |
Tcl script, make target, and redis.c changes to build the static symbol table automagically
Diffstat (limited to 'utils/build-static-symbols.tcl')
-rw-r--r-- | utils/build-static-symbols.tcl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/utils/build-static-symbols.tcl b/utils/build-static-symbols.tcl new file mode 100644 index 000000000..e634cbe0f --- /dev/null +++ b/utils/build-static-symbols.tcl @@ -0,0 +1,22 @@ +# Build a symbol table for static symbols of redis.c +# Useful to get stack traces on segfault without a debugger. See redis.c +# for more information. +# +# Copyright(C) 2009 Salvatore Sanfilippo, under the BSD license. + +set fd [open redis.c] +set symlist {} +while {[gets $fd line] != -1} { + if {[regexp {^static +[A-z0-9]+[ *]+([A-z0-9]*)\(} $line - sym]} { + lappend symlist $sym + } +} +set symlist [lsort -unique $symlist] +puts "static struct redisFunctionSym symsTable\[\] = {" +foreach sym $symlist { + puts "{\"$sym\",(unsigned long)$sym}," +} +puts "{NULL,0}" +puts "};" + +close $fd |