diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2016-01-11 05:50:37 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2016-01-11 05:50:37 +0200 |
| commit | 04b00cf2c7411f5e87b1d0ff2a5a0aded0954052 (patch) | |
| tree | 648139c2c20ce18f12595ff79dd1ca3cb1289830 /vms/remove_old_gawk.com | |
| parent | 0ce1b5b34680710aebdc3e8cd9fb212bb5e2ded1 (diff) | |
| parent | 373d2691a1b80839613a3d069292c2a7a73ff10e (diff) | |
| download | egawk-04b00cf2c7411f5e87b1d0ff2a5a0aded0954052.tar.gz egawk-04b00cf2c7411f5e87b1d0ff2a5a0aded0954052.tar.bz2 egawk-04b00cf2c7411f5e87b1d0ff2a5a0aded0954052.zip | |
Merge branch 'master' into feature/cmake
Diffstat (limited to 'vms/remove_old_gawk.com')
| -rw-r--r-- | vms/remove_old_gawk.com | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/vms/remove_old_gawk.com b/vms/remove_old_gawk.com index ed68fc45..ef7bce46 100644 --- a/vms/remove_old_gawk.com +++ b/vms/remove_old_gawk.com @@ -24,6 +24,7 @@ $ file = f$element(i, ",", old_cutils) $ if file .eqs. "" then goto cutils_loop_end $ if file .eqs. "," then goto cutils_loop_end $ call update_old_image 'file' +$ call update_old_image 'file' '[usr.bin]' $ i = i + 1 $ goto cutils_loop $cutils_loop_end: @@ -53,9 +54,11 @@ $!------------------------------------------- $update_old_image: subroutine $! $ file = p1 +$ fdir = p2 +$ if fdir .eqs. "" then fdir = "[bin]" $! First get the FID of the new gawk image. $! Don't remove anything that matches it. -$ new_gawk = f$search("GNV$GNU:[BIN]GNV$''file'.EXE") +$ new_gawk = f$search("GNV$GNU:[user.bin]GNV$''file'.EXE") $! $ new_gawk_fid = "No_new_gawk_fid" $ if new_gawk .nes. "" @@ -71,9 +74,9 @@ $! Ok to delete and replace. $! $! $ old_gawk_fid = "No_old_gawk_fid" -$ old_gawk = f$search("gnv$gnu:[bin]''file'.") +$ old_gawk = f$search("gnv$gnu:''fdir'''file'.") $ old_gawk_exe_fid = "No_old_gawk_fid" -$ old_gawk_exe = f$search("gnv$gnu:[bin]''file'.exe") +$ old_gawk_exe = f$search("gnv$gnu:''fdir'''file'.exe") $ if old_gawk_exe .nes. "" $ then $ old_gawk_exe_fid = f$file_attributes(old_gawk_exe, "FID") |