delete the old perl crap

diff --git a/layout/redactgraph.c b/layout/redactgraph.c
index d24bf1be568f3b2a55d7f9e6258b09db66695dea..b165a2c5d0dc929ba27d50812830bb0d94ed55e3 100644 (file)
--- a/layout/redactgraph.c
+++ b/layout/redactgraph.c
@@ -142,61 +142,3 @@ static void elimtrivial(void) {
     trace(" elimtrivial operation complete\n");
   }
 } 
-
-
-    
-       
-           
-       
-       if ((n= count_sides(&node->edges[rightside]))) {
-node->edges[rightside]
-
-       $tracep= "extendsplits pass=$pass ".pnode($node)."/$rightback";
-               if (@{ $node->{"Edges$leftback"} } != 1) {
-                   trace("$tracep >1 left edge");
-                   next;
-               }
-               ($leftedge,$leftthisfar)= @{ $node->{"Edges$leftback"}[0] };
-               $leftthatfar= 1-$leftthisfar;
-               $fixedseg= $leftedge->{SubSegSpec};
-               @any_wrong= ();
-               for $rightedgethisfar (@{ $node->{"Edges$rightback"} }) {
-                   ($rightedge,$rightthisfar) = @$rightedgethisfar;
-                   if ($rightedge->{SubSegSpec} !~ m,^(\-?\w+)/\w+$,) {
-                       @any_wrong= ($rightedge, $leftback, "not moveable");
-                   } elsif ($1 ne $fixedseg) {
-                       @any_wrong= ($rightedge, $leftback, "other segment");
-                   }
-                   last if @any_wrong;
-               }
-               if (@any_wrong) {
-                   trace("$tracep $any_wrong[2] ".
-                         pedge($any_wrong[0])."::$any_wrong[1]");
-                   next;
-               }
-               $any_found++;
-               $dist= $leftedge->{Dist};
-               ($leftnode,$leftnoderightback)=
-                   @{ $leftedge->{"Node$leftthatfar"} };
-               deleteedge($leftedge);
-               for $rightedgethisfar (@{ $node->{"Edges$rightback"} }) {
-                   ($rightedge,$rightthisfar) = @$rightedgethisfar;
-                   replumbedge($rightedge,$rightthisfar,
-                               $leftnode,$leftnoderightback);
-                   
-
-                   $rightedge->{Dist} += $leftedge->{Dist};
-                   $rightedge->{"Node$rightthisfar"}=
-               
-               $leftnode->{"Edges$leftnoderightback"} =
-                   [ grep {
-                       ($grepnode, $grepback) = @$_;
-                       !($grepnode == $node &&
-                         $grepback == $leftnoderightback);
-                   }
-                    @{ $leftnode->{"Edges$leftnoderightback"} }
-                    ];
-                       
-                   
-
-    }