Parent Directory
| 
Revision Log
Revision 1.2 - (view) (download) (as text)
| 1 : | overbeek | 1.1 | |
| 2 : | $_ = <STDIN>; | ||
| 3 : | overbeek | 1.2 | while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/)) |
| 4 : | overbeek | 1.1 | { |
| 5 : | $curr = $1; | ||
| 6 : | $func = $2; | ||
| 7 : | $ok = 1; | ||
| 8 : | @set = (); | ||
| 9 : | overbeek | 1.2 | while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/) && ($1 eq $curr)) |
| 10 : | overbeek | 1.1 | { |
| 11 : | if ($2 ne $func) | ||
| 12 : | { | ||
| 13 : | $ok = 0; | ||
| 14 : | } | ||
| 15 : | push(@set,$_); | ||
| 16 : | $_ = <STDIN>; | ||
| 17 : | } | ||
| 18 : | |||
| 19 : | if ($ok) | ||
| 20 : | { | ||
| 21 : | print join("",@set); | ||
| 22 : | } | ||
| 23 : | else | ||
| 24 : | { | ||
| 25 : | print STDERR join("",@set); | ||
| 26 : | } | ||
| 27 : | } |
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |