diff options
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/tools/h5jam/check_h5jam.com | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vms/tools/h5jam/check_h5jam.com b/vms/tools/h5jam/check_h5jam.com index a1e02f2..98ab64e 100644 --- a/vms/tools/h5jam/check_h5jam.com +++ b/vms/tools/h5jam/check_h5jam.com @@ -22,10 +22,11 @@ $ ! $! set message/notext/nofacility/noidentification/noseverity $ current_dir = F$DIRECTRY() $ len = F$LENGTH(current_dir) -$ temp = F$EXTRACT(0, len-10, current_dir) +$ temp = F$EXTRACT(0, len-16, current_dir) $ h5dump_dir = temp + "H5DUMP]" $ h5dump :== $sys$disk:'h5dump_dir'h5dump.exe -$ h5jam_dir = temp + "H5JAM]" +$ temp2 = F$EXTRACT(0, len-11, current_dir) +$ h5jam_dir = temp2 + "]" $ h5jam :== $sys$disk:'h5jam_dir'h5jam.exe $ ! $ ! Define output for diff command that compares expected and actual |