1$! File: PCSI_PRODUCT_GNV_CURL.COM 2$! 3$! $Id$ 4$! 5$! This command file packages up the product CURL into a sequential 6$! format kit 7$! 8$! Copyright 2009, John Malmberg 9$! 10$! Permission to use, copy, modify, and/or distribute this software for any 11$! purpose with or without fee is hereby granted, provided that the above 12$! copyright notice and this permission notice appear in all copies. 13$! 14$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 15$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 16$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 17$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 18$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 19$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 20$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 21$! 22$! 16-Jun-2009 J.Malmberg 23$! 24$!========================================================================= 25$! 26$! Save default 27$ default_dir = f$environment("DEFAULT") 28$! 29$! Put things back on error. 30$ on warning then goto all_exit 31$! 32$! 33$ can_build = 1 34$ producer = f$trnlnm("GNV_PCSI_PRODUCER") 35$ if producer .eqs. "" 36$ then 37$ write sys$output "GNV_PCSI_PRODUCER logical name has not been set." 38$ can_build = 0 39$ endif 40$ producer_full_name = f$trnlnm("GNV_PCSI_PRODUCER_FULL_NAME") 41$ if producer_full_name .eqs. "" 42$ then 43$ write sys$output - 44 "GNV_PCSI_PRODUCER_FULL_NAME logical name has not been set." 45$ can_build = 0 46$ endif 47$ stage_root_name = f$trnlnm("STAGE_ROOT") 48$ if stage_root_name .eqs. "" 49$ then 50$ write sys$output "STAGE_ROOT logical name has not been set." 51$ can_build = 0 52$ endif 53$! 54$ if (can_build .eq. 0) 55$ then 56$ write sys$output "Not able to build a kit." 57$ goto all_exit 58$ endif 59$! 60$! Make sure that the kit name is up to date for this build 61$!---------------------------------------------------------- 62$ @MAKE_PCSI_CURL_KIT_NAME.COM 63$! 64$! Make sure that the release note file name is up to date 65$!--------------------------------------------------------- 66$ @BUILD_GNV_CURL_RELEASE_NOTES.COM 67$! 68$! 69$! Make sure that the source has been backed up. 70$!---------------------------------------------- 71$ arch_type = f$getsyi("ARCH_NAME") 72$ arch_code = f$extract(0, 1, arch_type) 73$ @backup_gnv_curl_src.com 74$! 75$! Regenerate the PCSI description file. 76$!-------------------------------------- 77$ @BUILD_GNV_CURL_PCSI_DESC.COM 78$! 79$! Regenerate the PCSI Text file. 80$!--------------------------------- 81$ @BUILD_GNV_CURL_PCSI_TEXT.COM 82$! 83$! 84$! Parse the kit name into components. 85$!--------------------------------------- 86$ kit_name = f$trnlnm("GNV_PCSI_KITNAME") 87$ if kit_name .eqs. "" 88$ then 89$ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run." 90$ goto all_exit 91$ endif 92$ producer = f$element(0, "-", kit_name) 93$ base = f$element(1, "-", kit_name) 94$ product_name = f$element(2, "-", kit_name) 95$ mmversion = f$element(3, "-", kit_name) 96$ majorver = f$extract(0, 3, mmversion) 97$ minorver = f$extract(3, 2, mmversion) 98$ updatepatch = f$element(4, "-", kit_name) 99$ if updatepatch .eqs. "" then updatepatch = "" 100$! 101$ version_fao = "!AS.!AS" 102$ mmversion = f$fao(version_fao, "''majorver'", "''minorver'") 103$ if updatepatch .nes. "" 104$ then 105$ version = "''mmversion'" + "-" + updatepatch 106$ else 107$ version = "''mmversion'" 108$ endif 109$! 110$! 111$! Move to the base directories 112$ set def [--] 113$ current_default = f$environment("DEFAULT") 114$ my_dir = f$parse(current_default,,,"DIRECTORY") - "[" - "<" - ">" - "]" 115$! 116$! 117$ source = "''default_dir'" 118$ src1 = "new_gnu:[usr.bin]," 119$ src2 = "new_gnu:[usr.include.curl]," 120$ src3 = "new_gnu:[usr.lib]," 121$ src4 = "new_gnu:[usr.lib.pkgconfig]," 122$ src5 = "new_gnu:[usr.share.man.man1]," 123$ src6 = "new_gnu:[usr.share.man.man3]," 124$ src7 = "new_gnu:[vms_src]," 125$ src8 = "new_gnu:[common_src]," 126$ src9 = "prj_root:[''my_dir'],prj_root:[''my_dir'.src]" 127$ gnu_src = src1 + src2 + src3 + src4 + src5 + src6 + src7 + src8 + src9 128$! 129$! 130$ base = "" 131$ arch_name = f$edit(f$getsyi("arch_name"),"UPCASE") 132$ if arch_name .eqs. "ALPHA" then base = "AXPVMS" 133$ if arch_name .eqs. "IA64" then base = "I64VMS" 134$ if arch_name .eqs. "VAX" then base = "VAXVMS" 135$! 136$ if base .eqs. "" then exit 44 137$! 138$ pcsi_option = "/option=noconfirm" 139$ if arch_code .eqs. "V" 140$ then 141$ pcsi_option = "" 142$ endif 143$! 144$! 145$product package 'product_name' - 146 /base='base' - 147 /producer='producer' - 148 /source='source' - 149 /destination=STAGE_ROOT:[KIT] - 150 /material=('gnu_src','source') - 151 /format=sequential 'pcsi_option' 152$! 153$! 154$! VAX can not do a compressed kit. 155$! ZIP -9 "-V" does a better job, so no reason to normally build a compressed 156$! kit. 157$!---------------------------------- 158$if p1 .eqs. "COMPRESSED" 159$then 160$ if arch_code .nes. "V" 161$ then 162$ product copy /options=(novalidate, noconfirm) /format=compressed - 163 'product_name' - 164 /source=stage_root:[kit]/dest=stage_root:[kit] - 165 /version='version'/base='base' 166$ endif 167$endif 168$! 169$all_exit: 170$ set def 'default_dir' 171$ exit 172