diff options
Diffstat (limited to 'vms/build_gawk_pcsi_desc.com')
| -rw-r--r-- | vms/build_gawk_pcsi_desc.com | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/vms/build_gawk_pcsi_desc.com b/vms/build_gawk_pcsi_desc.com index 33cf3137..298d0ea0 100644 --- a/vms/build_gawk_pcsi_desc.com +++ b/vms/build_gawk_pcsi_desc.com @@ -98,7 +98,6 @@ $ vmsprd = "DEC" $ if base .eqs. "I64VMS" then vmsprd = "HP" $ vsiprd = "VSI" $! -$ write pdsc " software ''vmsprd' ''base' VMS ;" $ arch_type = f$getsyi("ARCH_NAME") $ node_swvers = f$getsyi("node_swvers") $ vernum = f$extract(1, f$length(node_swvers), node_swvers) @@ -111,9 +110,18 @@ $ vmstag = majver + minver + dashver $ code = f$extract(0, 1, arch_type) $ arch_code = f$extract(0, 1, arch_type) $ line_out = - - " if ((not <software ''vsiprd' ''base' VMS version minimum" + - - " ''node_swvers'>) and" + - - " (not <software ''vmsprd' ''base' VMS version minimum ''node_swvers'>));" + " if ((<software ''vmsprd' ''base' VMS> and" +$ write pdsc line_out +$ line_out = - + " (not <software ''vmsprd' ''base' VMS version minimum" + - + " ''node_swvers'>)) or" +$ write pdsc line_out +$ line_out = - + " (<software ''vsiprd' ''base' VMS>" +$ write pdsc line_out +$ line_out = - + " and (not <software ''vsiprd' ''base' VMS version minimum" + - + " ''node_swvers'>))) ;" $ write pdsc line_out $ write pdsc " error NEED_VMS''vmstag';" $ write pdsc " end if;" |