From c34696f199baf3b4620d30560c987dc29b9b2cb1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net> Date: Tue, 3 Jul 2001 16:55:41 -0700 Subject: [PATCH] trimmed some dead code and added some debug Rev: src/dumpmodule.pike:1.20 --- src/dumpmodule.pike | 50 +++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 48 insertions(+), 2 deletions(-) diff --git a/src/dumpmodule.pike b/src/dumpmodule.pike index 3a72223b22..d57120c7ce 100755 --- a/src/dumpmodule.pike +++ b/src/dumpmodule.pike @@ -18,7 +18,7 @@ Tools.Install.ProgressBar progress_bar; mapping function_names=([]); -class Codec +class __Codec { string last_id; @@ -33,6 +33,7 @@ class Codec switch(sprintf("%t",x)) { +#if 0 case "function": if (!function_object(x) && (tmp = search(all_constants(), x))) { @@ -40,6 +41,7 @@ class Codec return tmp; } break; +#endif case "program": if(p!=x) { @@ -77,9 +79,11 @@ class Codec if(master()->resolv(dirname) == x) return "resolv:"+dirname; } +#if 0 if (tmp = mkmapping(values(__builtin), indices(__builtin))[x]) { return "resolv:__builtin."+tmp; } +#endif break; } return ([])[0]; @@ -152,6 +156,47 @@ class Codec } } +class Codec +{ + inherit __Codec; + + mapping debug_data=([]); + + string nameof(mixed x) + { + string ret=::nameof(x); + if(ret) + debug_data[ret]=x; + return ret; + } + + function functionof(string x) + { + function ret=::functionof(x); + if(debug_data[x] != ret) + werror("functionof(%O) returned the wrong value (%O != %O)\n",x,debug_data[x],ret); + return ret; + } + + object objectof(string x) + { + object ret=::objectof(x); + if(debug_data[x] != ret) + werror("objectof(%O) returned the wrong value (%O != %O)\n",x,debug_data[x],ret); + return ret; + } + + + program programof(string x) + { + program ret=::programof(x); + if(debug_data[x] != ret) + werror("programof(%O) returned the wrong value (%O != %O)\n",x,debug_data[x],ret); + return ret; + } + +} + Stdio.File logfile; class Handler @@ -261,7 +306,8 @@ int main(int argc, array(string) argv) function_names[Stdio.stdin]="resolv:Stdio.stdin"; function_names[Stdio.stdout]="resolv:Stdio.stdout"; function_names[Stdio.stderr]="resolv:Stdio.stderr"; - function_names[_static_modules.Builtin]="resolv:_"; + function_names[_static_modules.Builtin]="resolv:__builtin"; +// function_names[__builtin.__backend]="resolv:__builtin.__backend"; // Remove the name of the program. argv = argv[1..]; -- GitLab