VMS should not kit the entire git clone

3 files changed, 24 insertions, 20 deletions

diff --git a/vms/ChangeLog b/vms/ChangeLog
index d45a53b2..56890275 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,8 @@
+2016-10-24         John E. Malmberg      <wb8tyw@qsl.net>
+
+        * backup_gawk_src.com: Do not backup entire git repository.
+        * pcsi_product_gawk.com: Create a ZIP archive of PCSI kit.
+
 2016-08-25         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* 4.1.4: Release tar ball made.
diff --git a/vms/backup_gawk_src.com b/vms/backup_gawk_src.com
index d1e47fbe..abee8d71 100644
--- a/vms/backup_gawk_src.com
+++ b/vms/backup_gawk_src.com
@@ -71,11 +71,11 @@ $!-------------------------------------------
 $ interchange = ""
 $ if arch_code .eqs. "V"
 $ then
-$   interchange = "/interchange"
+$   interchange = "/interchange/exclude=[.$5ngit...]*.*"
 $ endif
 $ if (swvers_maj .ges. "8") .and. (swvers_min .ges. 4)
 $ then
-$   interchange = "/interchange/noconvert"
+$   interchange = "/interchange/noconvert/exclude=[.^.git...]*.*"
 $ endif
 $!
 $!
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: