From 3a6e1242b43a59f3c9ec1b14eedde31a0676c9b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 17 Mar 1999 13:49:46 -0800
Subject: [PATCH] nothing really changed
Rev: src/dumpmodule.pike:1.3
---
src/dumpmodule.pike | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/src/dumpmodule.pike b/src/dumpmodule.pike
index 571cc00a4c..ae70a0c3a0 100755
--- a/src/dumpmodule.pike
+++ b/src/dumpmodule.pike
@@ -29,10 +29,13 @@ class Codec
break;
case "object":
- if(p!=x)
- if(mixed tmp=search(master()->objects,x))
- if(tmp=search(master()->programs,tmp))
- return tmp;
+ if(mixed tmp=search(master()->objects,x))
+ {
+ if(tmp=search(master()->programs,tmp))
+ {
+ return tmp;
+ }
+ }
break;
}
return ([])[0];
@@ -76,10 +79,11 @@ class Codec
mixed encode_object(object x)
{
+// _describe(x);
error("Cannot encode objects yet.\n");
+// error(sprintf("Cannot encode objects yet. %O\n",indices(x)));
}
-
mixed decode_object(object x)
{
error("Cannot encode objects yet.\n");
@@ -104,8 +108,10 @@ int main(int argc, string *argv)
werror("does not exist.\n");
break;
}
+// trace(99);
if(programp(p=compile_file(file)))
{
+// trace(0);
string s=encode_value(p, Codec());
p=decode_value(s,Codec());
if(programp(p))
--
GitLab