From a4a09100f4edaa2e6d0e48f3c3be59f943edd9d8 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Fri, 6 Feb 2004 22:16:40 +0000
Subject: [PATCH] remove comments for debugging silent layer problem

---
 layout/layout | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/layout/layout b/layout/layout
index 45da1cc..d15ba9c 100755
--- a/layout/layout
+++ b/layout/layout
@@ -319,7 +319,6 @@ sub cva_idnew ($) {
 	Id => $id,
 	Neg => $neg,
     };
-print STDERR "defined $id LayerKind >$ctx->{Layer}{Kind}<\n";
     return $ctx->{Loc}{$id};
 }
 sub cva_cmd ($) { return cva_idstr($_[0]); }
@@ -445,7 +444,6 @@ sub o_line ($$$) {
 sub current_draw () {
     my ($r);
     $r= $ctx->{Draw} =~ m/X/ ? '' : $ctx->{Draw};
-print STDERR "current_draw >$ctx->{Draw}< gave >$r<\n";
     $r;
 }
 
@@ -954,9 +952,7 @@ sub layer_draw ($$) {
 	    $r .= $cc if $cc =~ m/[A-Z]/;
 	}
     }
-print STDERR "layer ($k $l) Draw 0 $r\n";
     $r= &{ $ctx->{DrawMap} }($r);
-print STDERR "layer ($k $l) Draw 1 $r\n";
     return $r;
 }
 
@@ -1014,7 +1010,6 @@ sub cmd__obj ($) {
     }
     $ctx->{DrawMap}= sub {
 	my ($i) = @_;
-print STDERR "obj $obj_id DrawMap running >$i<\n";
 	$i= &{ $ctx_save->{DrawMap} }($i);
 	if ($obj->{Part}) {
 	    $i =~ s/[LMN]//g;
@@ -1023,7 +1018,6 @@ print STDERR "obj $obj_id DrawMap running >$i<\n";
 	    $i =~ s/[LM]//g;
 	    $i =~ s/N/MN/;
 	}
-print STDERR "obj DrawMap returning >$i<\n";
 	return $i;
     };
     $ctx->{Draw}= &{ $ctx->{DrawMap} }($ctx_save->{Draw});
@@ -1071,8 +1065,7 @@ sub cmd__do {
     my ($cmd);
 dv("cmd__do $ctx @al ",'$ctx',$ctx);
     $cmd= can(\&cva_cmd);
-print STDERR "cmd1 $cmd draw $ctx->{Draw}\n";
-    my ($lm,$id,$loc,$io,$ad,$draw);
+    my ($lm,$id,$loc,$io,$ad,$draw,$thendrawre);
     $io= defined $ctx->{InDefObj} ? "$ctx->{InDefObj}!" : $ctx->{InRunObj};
     o("%L cmd   $io $cmd @al\n");
     $ctx->{LocsMade}= [ ];
@@ -1081,7 +1074,6 @@ print STDERR "cmd1 $cmd draw $ctx->{Draw}\n";
 	&{ "cmd_$cmd" };
     };
     die "too many args" if @al;
-print STDERR "cmd3 $cmd draw $ctx->{Draw}\n";
     foreach $lm (@{ $ctx->{LocsMade} }) {
 	$id= $lm->{Id};
 	$loc= $ctx->{Loc}{$id};
@@ -1125,7 +1117,6 @@ sub cmd_showlibrary {
     $ctx_save= $ctx;
     foreach $obj_id (sort keys %objs) {
 	$got= 1;
-print STDERR "obj $obj_id\n";
 	foreach $glob (@al) {
 	    $pat= $glob;
 	    $got= !($pat =~ s/^\!//);
@@ -1172,9 +1163,7 @@ print STDERR "obj $obj_id\n";
 	    
 	$ctx->{InRunObj}= $ctx_save->{InRunObj}."${obj_id}//";
 	$ctx->{Draw}= $ctx_save->{Draw};
-print STDERR "cmd_showlibrary cmd__runobj 0 draw $ctx->{Draw}\n";
 	cmd__runobj($obj_id);
-print STDERR "cmd_showlibrary cmd__runobj 1 draw $ctx->{Draw}\n";
 	ol("    gsave\n".
 	   "      /s ($obj_id) def\n".
 	   "      lf setfont\n      ".
-- 
2.30.2