remove comments for debugging silent layer problem

diff --git a/layout/layout b/layout/layout
index 45da1ccd07d6277e8cda7cadc06a1d6ca9473199..d15ba9cd3395d0c387844a842c2e07414b413d16 100755 (executable)
--- 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      ".