[Bio] / FigWebServices / index.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/index.cgi

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

revision 1.72, Sun Jul 10 18:17:42 2005 UTC revision 1.73, Fri Jul 15 04:48:56 2005 UTC
# Line 1437  Line 1437 
1437                          {                          {
1438                              print TMP "$peg\t$to_func\n";                              print TMP "$peg\t$to_func\n";
1439                          }                          }
1440                          elsif (($func =~ /^$from_funcQ\s+\/\s+(\S.*\S)\s*$/) || ($func =~ /^$from_funcQ\s*;\s+(\S.*\S)\s*$/))                          else
1441                          {                          {
1442                              print TMP "$peg\t$to_func / $1\n";                              my @pieces = grep { $_ } split(/(\s+[\/@]\s+)|(\s*;\s+)/,$func);
1443                          }                              if (@pieces > 1)
1444                          elsif (($func =~ /^\s*(\S.*\S)\s+\/\s+$from_funcQ\s*$/) || ($func =~ /^\s*(\S.*\S)\s*;\s+$from_funcQ\s*$/))                              {
1445                                    my $func1 = join("",map { $_ =~ s/^$from_funcQ$/$to_func/; $_ } @pieces);
1446                                    if ($func ne $func1)
1447                          {                          {
1448                              print TMP "$peg\t$1 / $to_func\n";                                      print TMP "$peg\t$func1\n";
1449                                    }
1450                                }
1451                          }                          }
1452                      }                      }
1453                  }                  }

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3