#!/usr/bin/perl
#
# usage: perl wf2jumpsnap.pl filename.wf 
#
# creates executable files filename_jump and filename_snap

$filename = $ARGV[0];

open (WF,"$filename");

$filename =~ s/\.wf//;


open (SNAP, ">".$filename."_snap");
open (JUMP, ">".$filename."_jump");


my @lines;
$count = 0;
while ($x = <WF>)
{
    print JUMP "echo update\n echo jump $x";

    print SNAP "echo jump $x";
    $a = sprintf ("echo step %0.4f\n", $step/10000);
    print SNAP $a;
    print SNAP "echo update\n echo snapshot\n";
    $count = $count+1;
}