From 1b535fd9a9c21e133b1f7d633dfcb47e94492047 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 4 Oct 1999 15:39:25 -0700
Subject: [PATCH] more debug
Rev: src/dumpmodule.pike:1.5
---
src/dumpmodule.pike | 21 +++++++++++++++++++--
1 file changed, 19 insertions(+), 2 deletions(-)
diff --git a/src/dumpmodule.pike b/src/dumpmodule.pike
index cab94a790e..35318e3747 100755
--- a/src/dumpmodule.pike
+++ b/src/dumpmodule.pike
@@ -92,13 +92,25 @@ class Codec
int quiet=0;
+Stdio.File logfile;
+function log(string file, int line, string err)
+{
+ logfile->write("================================================\n");
+ logfile->write(sprintf("%s:%d:%s\n",file,line,err));
+}
+
int main(int argc, string *argv)
{
if(argv[1]=="--quiet")
{
quiet=1;
argv=argv[1..];
- master()->set_inhibit_compile_errors(1);
+ master()->set_inhibit_compile_errors(log);
+
+ // FIXME: Make this a command line option..
+ // It should not be done when running a binary dist
+ // installation...
+ logfile=Stdio.File("dumpmodule.log","cwt");
werror("Dumping modules ");
}
@@ -152,9 +164,14 @@ int main(int argc, string *argv)
werror(master()->describe_backtrace(err));
#else
if(quiet)
+ {
werror("X");
- else
+ err[0]="While dumping "+file+": "+err[0];
+ logfile->write("================================================\n");
+ logfile->write(master()->describe_backtrace(err));
+ }else{
werror(err[0]);
+ }
#endif
}
}
--
GitLab