[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13, Tue Jun 28 21:26:24 2005 UTC revision 1.14, Tue Jul 26 20:12:33 2005 UTC
# Line 670  Line 670 
670         warn $message;         warn $message;
671      } elsif ($Destination =~ m/^>>/) {      } elsif ($Destination =~ m/^>>/) {
672          # Write the trace message to an output file.          # Write the trace message to an output file.
673          open TRACING, $Destination;          (open TRACING, $Destination) || die "Tracing open for \"$Destination\" failed: $!";
674          print TRACING "$formatted\n";          print TRACING "$formatted\n";
675          close TRACING;          close TRACING;
676          # If the Tee flag is on, echo it to the standard output.          # If the Tee flag is on, echo it to the standard output.
# Line 853  Line 853 
853              # Here we found it. The text preceding the sequence is in $1. The sequence              # Here we found it. The text preceding the sequence is in $1. The sequence
854              # itself is in $2. First, move the clear text to the return variable.              # itself is in $2. First, move the clear text to the return variable.
855              $retVal .= $1;              $retVal .= $1;
856              $realString = substr $realString, (length $2 + length $1);              # Strip the processed section off the real string.
857                $realString = substr $realString, (length $2) + (length $1);
858              # Encode the escape sequence.              # Encode the escape sequence.
859              my $char = $2;              my $char = $2;
860              $char =~ tr/ \t\n/btn/;              $char =~ tr/ \t\n/btn/;
# Line 1090  Line 1091 
1091      my ($format) = @_;      my ($format) = @_;
1092      # Create the return variable.      # Create the return variable.
1093      my $retVal = "";      my $retVal = "";
1094        # Only proceed if there is an actual queue.
1095        if (@Queue) {
1096      # Process according to the format.      # Process according to the format.
1097      if ($format =~ m/^HTML$/i) {      if ($format =~ m/^HTML$/i) {
1098          # Convert the queue into an HTML list.          # Convert the queue into an HTML list.
# Line 1105  Line 1108 
1108      }      }
1109      # Clear the queue.      # Clear the queue.
1110      @Queue = ();      @Queue = ();
1111        }
1112      # Return the formatted list.      # Return the formatted list.
1113      return $retVal;      return $retVal;
1114  }  }

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3