diff options
Diffstat (limited to 'vms/genopt.com')
| -rw-r--r-- | vms/genopt.com | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/vms/genopt.com b/vms/genopt.com index 70013aec42..53ee6a82b6 100644 --- a/vms/genopt.com +++ b/vms/genopt.com @@ -9,6 +9,21 @@ $loop: $ x=f$element(element,p2,p3) $ if x .eqs. p2 then goto out $ y=f$edit(x,"COLLAPSE") ! lose spaces +$! Expand potential name-only args so we find shareable images +$! either via a logical name or in the default location +$ if y .nes. "" .and. - + f$locate("/SHARE",f$edit(y,"UPCASE")) .ne. f$length(y) +$ then +$ name = f$element(0,"/",y) +$ tail = f$extract(f$length(name),1024,y) +$ name = f$parse(name,"sys$share:.exe;") ! Look where image activator will +$ name = f$search(name) ! Does it really exist? +$ if name .nes. "" +$ then +$ name = name - f$parse(name,,,"version") ! Insist on current version +$ y = name + tail +$ endif +$ endif $ if y .nes. "" then write file y $ element=element+1 $ goto loop |