[Bio] / FigKernelScripts / parse_genbank.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/parse_genbank.pl

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

revision 1.10, Wed Jun 22 01:18:03 2005 UTC revision 1.11, Sun Oct 2 14:54:34 2005 UTC
# Line 362  Line 362 
362      my($cdsP) = @_;      my($cdsP) = @_;
363      my $func = "";      my $func = "";
364    
365      if (($$cdsP =~ /\/function=\"([^"]*)\"/s) && ($func = $1) && &ok_func($func))      ++$recnum;
366    #   print STDERR "\nRecord $recnum:\n$$cdsP\n";
367        if (($$cdsP =~ /\/function=\"([^"]*)\"/s) && &ok_func($1))
368      {      {
369          $func =~ s/\s+/ /gs;          $func = $1;
370    #       print STDERR "Branch 1:\n$func -->\n";
371      }      }
372      elsif ((($$cdsP =~ /\/product=\"([^"]*)\"/s) && ($func = $1)) && &ok_func($func) &&      elsif (($$cdsP =~ /\/product=\"([^"]*)\"/s) && &ok_func($1) &&
373             (($func =~ / /) || ($$cdsP !~ /\/note/)))              (($1 =~ / /) || ($$cdsP !~ /\/note/)))
374      {      {
375          $func =~ s/\s+/ /gs;          $func = $1;
376    #        print STDERR "Branch 2:\n$func -->\n";
377      }      }
378      elsif (($$cdsP =~ /\/note=\"([^"]*)\"/s) && ($func = $1) && &ok_func($func))      elsif (($$cdsP =~ /\/note=\"([^"]*)\"/s) && &ok_func($1))
379      {      {
380          $func =~ s/\s+/ /gs;          $func = $1;
381    #       print STDERR "Branch 3:\n$func -->\n";
382      }      }
383        else
384        {
385    #       print STDERR "No non-hypo found\n";
386        }
387        $func =~ s/\s+/ /gs;
388    #   print STDERR "--> $func\n";
389    
390      $func = &fixup_func($func);      $func = &fixup_func($func);
391    #   print STDERR "Returning func = $func\n\n";
392    
393      return $func;      return $func;
394  }  }
395    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3