make it work again - turn trace back to comment

diff --git a/layout/extractgraph b/layout/extractgraph
index c070dd9d57add39afb4fe06164c13f96ac2bc6c7..90b074b34e1639d8a63cdb9e2c6798be678349e5 100755 (executable)
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -118,7 +118,7 @@ sub find_node (@) {
                $node->{"Layer$updlayer"}= $l;
                $node->{LineInfo}.="($l<-$lni)";
            }
-           trace("node $lni existing ".pnode($node)."/$back");
+           comment("nodulated $lni ex.$node/$back");
            return ($node,$back);
        }
     }
@@ -126,13 +126,13 @@ sub find_node (@) {
             LayerMin => $l, LayerMax => $l, LineInfo => $lni };
     $back= 0;
     push @nodes, $node;
-    trace("node $lni created ".pnode($node)."/$back");
+    comment("nodulated $lni new$node/$back");
     return ($node,$back);
 }
 
 sub readin () {
     my ($layerkind, $level, $subsegspec, $numbers, @numbers, $dist);
-    my ($pti,@nodeinfo);
+    my ($node,$back,$far,@nodeinfo,@endnums,$edge);
     while (<>) {
        next unless m/^\%L /;
        die unless m/^\%L (\w+)\b/;
@@ -143,23 +143,26 @@ sub readin () {
        @numbers = map { $_ + 0 } split / /, $numbers;
        $dist= shift @numbers;
        @numbers == 6 or die;
-       $edge= { Dist = $dist, SubSegSpec= $subsegspec };
+       $edge= { Dist => $dist, SubSegSpec => $subsegspec };
        for ($far=0; $far<2; $far++) {
            @endnums= @numbers[($far*3)..($far*3+2)];
            ($node,$back)= find_node("$.:$far",$far,$level,@endnums);
-           $edge{"Node$far"}= [ $node, $back ];
+           $edge->{"Node$far"}= [ $node, $back ];
            push @{ $node->{"Edges$back"} }, [ $edge, $far ];
        }
        push @edges, $edge;
     }
 }
 
-    
-
+sub writeout () {
+    my ($node);
+    for $node (@nodes) {
+       print "$node\n";
+    }
+}
 
 readin();
-splitcontin();
-elimtrivial();
+writeout();
 
 
 #    ($pts[0]{X}, $pts[0]{Y}, $pts[0]{A},