Changeset 434

Timestamp:

01/09/07 10:39:56

Author:

ben

Message:

Say more, prettier.

Files:

• openpgpsdk/trunk/configure (modified) (2 diffs)

openpgpsdk/trunk/configure

@@ -168 +168 @@
-}
-
+our $indent;
+
+sub indent {
+    for my $n (2..$indent) {
+        print "  ";
+    }
+}
+
+sub showThing {
+    my $rthing=shift;
+
+    if(ref $rthing eq 'SCALAR') {
+        return $$rthing;
+    } elsif(ref $rthing eq 'REF') {
+        return showThing($$rthing);
+    } elsif(ref $rthing eq 'ARRAY') {
+        return join(' ',@$rthing);
+    } elsif(ref $rthing eq 'HASH') {
+        my $str;
+        foreach my $k (keys %$rthing) {
+            $str .= ' ' if $str;
+            $str .= "$k -> $rthing->{$k}";
+        }
+        return $str;
+    }
+
+    print "ref=", ref($rthing), "\n";
+    return '?Can\'t display?';
+}
+
-sub getKnowledge {
-    my $thing=shift;
@@ -174 +204 @@
-      if !exists $Knowledge{$thing};
-
+    ++$indent;
-    if(ref $Knowledge{$thing} eq 'CODE') {
+        indent();
-        print "Finding $thing\n";
-        $Knowledge{$thing}=&{$Knowledge{$thing}}();
-
+
+
+
+
-    return $Knowledge{$thing};
-}