Changeset 1061

Timestamp:

06/08/10 17:41:47 (14 years ago)

Author:

miro

Message:

uncommented and adapted some debug lines

Files:

• applications/bdmtoolbox/doc/from_bdm/class_hierarchy.pl (modified) (2 diffs)

applications/bdmtoolbox/doc/from_bdm/class_hierarchy.pl

@@ -57 +57 @@
 }
 
-#print "==Hierarchy";
-#print_class($classes_hier, 0);
-#
-#print "\n==List\n";
-#map { print "$_\n" } sort keys %{ $classes_list };
-#
+print STDERR "==Hierarchy";
+print_class($classes_hier, 0, *STDERR);
+
+print STDERR "\n==List\n";
+map { print STDERR "$_\n" } sort keys %{ $classes_list };
+
 #print "\n==Given\n";
 print_class($classes_list->{$GIVEN_CLASS}, 0);
@@ -69 +69 @@
     my $class  = shift;
     my $indent = shift;
+    my $out = shift || *STDOUT;
 
-    print " " x $indent;
-    print $class->{name}, "\n";
+    print $out " " x $indent;
+    print $out $class->{name}, "\n";
     
-    map { print_class($_, $indent+1) }  @{ $class->{daughters} };
+    map { print_class($_, $indent+1, $out) }  @{ $class->{daughters} };
 }