From 792d8d398e5e9c6376748c45cf714539e720bd81 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 13 Mar 2005 20:02:39 +0000
Subject: [PATCH] delete the old perl crap

---
 layout/redactgraph.c | 58 --------------------------------------------
 1 file changed, 58 deletions(-)

diff --git a/layout/redactgraph.c b/layout/redactgraph.c
index d24bf1b..b165a2c 100644
--- 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"} }
-		     ];
-			
-		    
-
-    }
-- 
2.30.2