Parent Directory
| 
Revision Log
Revision 1.2 - (view) (download) (as text)
| 1 : | overbeek | 1.2 | |
| 2 : | overbeek | 1.1 | use FIG; |
| 3 : | my $fig = new FIG; | ||
| 4 : | |||
| 5 : | $usage = "usage: predict_starts Objects ClearCalls ProposedCorrections"; | ||
| 6 : | |||
| 7 : | ( | ||
| 8 : | ($objects = shift @ARGV) && | ||
| 9 : | ($clear_calls = shift @ARGV) && | ||
| 10 : | ($proposed = shift @ARGV) | ||
| 11 : | ) | ||
| 12 : | || die $usage; | ||
| 13 : | |||
| 14 : | overbeek | 1.2 | &FIG::run("make_calls_for_start_predictions < $objects > /tmp/with.calls.$$"); |
| 15 : | &FIG::run("order_corrections_for_start_predictions < /tmp/with.calls.$$ > $clear_calls 2> $proposed"); | ||
| 16 : | system "cat /tmp/with.calls.$$"; | ||
| 17 : | unlink("/tmp/with.calls.$$"); | ||
| 18 : | |||
| 19 : |
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |