summaryrefslogtreecommitdiff
path: root/vms/remove_old_gawk.com
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2016-01-11 05:47:34 +0200
committerArnold D. Robbins <arnold@skeeve.com>2016-01-11 05:47:34 +0200
commit2fe3818b9574f685eaeefc9e7d61cf7ba00ec87e (patch)
tree3e904f015d3c5bc71c4fa125b9d9bf27f3279af3 /vms/remove_old_gawk.com
parent640d55ecdaced9e826a95a0bce4c65a3e5965cae (diff)
downloadgawk-2fe3818b9574f685eaeefc9e7d61cf7ba00ec87e.tar.gz
Updates for VSI distribution of VMS.
Diffstat (limited to 'vms/remove_old_gawk.com')
-rw-r--r--vms/remove_old_gawk.com9
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")