diff options
Diffstat (limited to 'vms/pcsi_product_gawk.com')
| -rw-r--r-- | vms/pcsi_product_gawk.com | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/vms/pcsi_product_gawk.com b/vms/pcsi_product_gawk.com index b0d9febd..b0fc50f8 100644 --- a/vms/pcsi_product_gawk.com +++ b/vms/pcsi_product_gawk.com @@ -93,6 +93,12 @@ $! Regenerate the PCSI Text file. $!--------------------------------- $ @[.vms]build_gawk_pcsi_text.com $! +$ base = "" +$ arch_name = f$edit(f$getsyi("arch_name"),"UPCASE") +$ if arch_name .eqs. "ALPHA" then base = "AXPVMS" +$ if arch_name .eqs. "IA64" then base = "I64VMS" +$ if arch_name .eqs. "VAX" then base = "VAXVMS" +$! $! $! Parse the kit name into components. $!--------------------------------------- @@ -112,6 +118,7 @@ $ updatepatch = f$element(4, "-", kit_name) $ if updatepatch .eqs. "" then updatepatch = "" $! $ version_fao = "!AS.!AS" +$ if arch_name .eqs. "VAX" then version_fao = "!AS$5n!AS" $ mmversion = f$fao(version_fao, "''majorver'", "''minorver'") $ if updatepatch .nes. "" $ then @@ -120,6 +127,13 @@ $ else $ version = "''mmversion'" $ endif $! +$ node_swvers = f$getsyi("node_swvers") +$ vms_vernum = f$extract(1, f$length(node_swvers), node_swvers) +$ tagver = vms_vernum - "." - "." - "-" +$ zip_name = producer + "-" + base + "-" + tagver + "-" + product_name +$ zip_name = zip_name + "-" + mmversion + "-" + updatepatch + "-1" +$ zip_name = f$edit(zip_name, "lowercase") +$! $! $! Move to the base directories $ current_default = f$environment("DEFAULT") @@ -143,12 +157,6 @@ $ gnu_src = src1 + src2 + src3 + src4 + src5 + src6 + src7 + src8 + src9 $ gnu_src = gnu_src + src10 + src11 + src12 $! $! -$ base = "" -$ arch_name = f$edit(f$getsyi("arch_name"),"UPCASE") -$ if arch_name .eqs. "ALPHA" then base = "AXPVMS" -$ if arch_name .eqs. "IA64" then base = "I64VMS" -$ if arch_name .eqs. "VAX" then base = "VAXVMS" -$! $ if base .eqs. "" then exit 44 $! $ pcsi_option = "/option=noconfirm" @@ -167,19 +175,10 @@ $product package 'product_name' - /format=sequential 'pcsi_option' $! $! -$! VAX can not do a compressed kit. -$! ZIP -9 "-V" does a better job, so no reason to normally build a compressed -$! kit. -$!---------------------------------- -$if p1 .eqs. "COMPRESSED" +$! +$if f$type(zip) .eqs. "STRING" $then -$ if arch_code .nes. "V" -$ then -$ product copy /options=(novalidate, noconfirm) /format=compressed - - 'product_name' - - /source=stage_root:[kit]/dest=stage_root:[kit] - - /version='version'/base='base' -$ endif +$ zip "-9Vj" stage_root:[kit]'zip_name'.zip stage_root:[kit]'kit_name'.pcsi $endif $! $all_exit: |