490 строки
15 KiB
Plaintext
490 строки
15 KiB
Plaintext
$! File: Build_GNV_CURL_PCSI_DESC.COM
|
|
$!
|
|
$! Build the *.pcsi$text file in the following sections:
|
|
$! Required software dependencies.
|
|
$! install/upgrade/postinstall steps.
|
|
$! 1. Duplicate filenames need an alias procedure. (N/A for curl)
|
|
$! 2. ODS-5 filenames need an alias procedure. (N/A for curl)
|
|
$! 3. Special alias links for executables (curl. -> curl.exe)
|
|
$! if a lot, then an alias procedure is needed.
|
|
$! 4. Rename the files to lowercase.
|
|
$! Move Release Notes to destination
|
|
$! Source kit option
|
|
$! Create directory lines
|
|
$! Add file lines for curl.
|
|
$! Add Link alias procedure file (N/A for curl)
|
|
$! Add [.SYS$STARTUP]curl_startup file
|
|
$! Add Release notes file.
|
|
$!
|
|
$! The file PCSI_GNV_CURL_FILE_LIST.TXT is read in to get the files other
|
|
$! than the release notes file and the source backup file.
|
|
$!
|
|
$! The PCSI system can really only handle ODS-2 format filenames and
|
|
$! assumes that there is only one source directory. It also assumes that
|
|
$! all destination files with the same name come from the same source file.
|
|
$! Fortunately CURL does not trip most of these issues, so those steps
|
|
$! above are marked N/A.
|
|
$!
|
|
$! A rename action section is needed to make sure that the files are
|
|
$! created in the GNV$GNU: in the correct case, and to create the alias
|
|
$! link [usr.bin]curl. for [usr.bin]curl.exe.
|
|
$!
|
|
$! Copyright (C) John Malmberg
|
|
$!
|
|
$! Permission to use, copy, modify, and/or distribute this software for any
|
|
$! purpose with or without fee is hereby granted, provided that the above
|
|
$! copyright notice and this permission notice appear in all copies.
|
|
$!
|
|
$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
$!
|
|
$! SPDX-License-Identifier: ISC
|
|
$!
|
|
$!===========================================================================
|
|
$!
|
|
$ kit_name = f$trnlnm("GNV_PCSI_KITNAME")
|
|
$ if kit_name .eqs. ""
|
|
$ then
|
|
$ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
|
|
$ goto all_exit
|
|
$ endif
|
|
$ producer = f$trnlnm("GNV_PCSI_PRODUCER")
|
|
$ if producer .eqs. ""
|
|
$ then
|
|
$ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
|
|
$ goto all_exit
|
|
$ endif
|
|
$ filename_base = f$trnlnm("GNV_PCSI_FILENAME_BASE")
|
|
$ if filename_base .eqs. ""
|
|
$ then
|
|
$ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
|
|
$ goto all_exit
|
|
$ endif
|
|
$!
|
|
$!
|
|
$! Parse the kit name into components.
|
|
$!---------------------------------------
|
|
$ producer = f$element(0, "-", kit_name)
|
|
$ base = f$element(1, "-", kit_name)
|
|
$ product = f$element(2, "-", kit_name)
|
|
$ mmversion = f$element(3, "-", kit_name)
|
|
$ majorver = f$extract(0, 3, mmversion)
|
|
$ minorver = f$extract(3, 2, mmversion)
|
|
$ updatepatch = f$element(4, "-", kit_name)
|
|
$ if updatepatch .eqs. "-" then updatepatch = ""
|
|
$!
|
|
$! kit type of "D" means a daily build
|
|
$ kit_type = f$edit(f$extract(0, 1, majorver), "upcase")
|
|
$!
|
|
$!
|
|
$ product_line = "product ''producer' ''base' ''product'"
|
|
$ if updatepatch .eqs. ""
|
|
$ then
|
|
$ product_name = " ''majorver'.''minorver'"
|
|
$ else
|
|
$ product_name = " ''majorver'.''minorver'-''updatepatch'"
|
|
$ endif
|
|
$ product_line = product_line + " ''product_name' full;"
|
|
$!write sys$output product_line
|
|
$!
|
|
$!
|
|
$!
|
|
$! Create the file as a VMS text file.
|
|
$!----------------------------------------
|
|
$ base_file = kit_name
|
|
$ create 'base_file'.pcsi$desc
|
|
$!
|
|
$!
|
|
$! Start building file.
|
|
$!----------------------
|
|
$ open/append pdsc 'base_file'.pcsi$desc
|
|
$!
|
|
$ write pdsc product_line
|
|
$!
|
|
$! Required product dependencies.
|
|
$!----------------------------------
|
|
$ 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)
|
|
$ majver = f$element(0, ".", vernum)
|
|
$ minverdash = f$element(1, ".", vernum)
|
|
$ minver = f$element(0, "-", minverdash)
|
|
$ dashver = f$element(1, "-", minverdash)
|
|
$ if dashver .eqs. "-" then dashver = ""
|
|
$ 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'>));"
|
|
$ write pdsc line_out
|
|
$ write pdsc " error NEED_VMS''vmstag';"
|
|
$ write pdsc " end if;"
|
|
$!
|
|
$write pdsc " software VMSPORTS ''base' ZLIB ;"
|
|
$write pdsc -
|
|
" if (not <software VMSPORTS ''base' ZLIB version minimum V1.2-8>) ;"
|
|
$write pdsc " error NEED_ZLIB;"
|
|
$write pdsc " end if;"
|
|
$!
|
|
$!
|
|
$!
|
|
$! install/upgrade/postinstall steps.
|
|
$!-----------------------------------
|
|
$! 1. Duplicate filenames need an alias procedure. (N/A for curl)
|
|
$! 2. ODS-5 filenames need an alias procedure. (N/A for curl)
|
|
$! 3. Special alias links for executables (curl. -> curl.exe)
|
|
$! if a lot, then an alias procedure is needed.
|
|
$! 4. Rename the files to lowercase.
|
|
$!
|
|
$!
|
|
$! Alias links needed.
|
|
$!-------------------------
|
|
$ add_alias_lines = ""
|
|
$ rem_alias_lines = ""
|
|
$ line_out = ""
|
|
$!
|
|
$! Read through the file list to set up aliases and rename commands.
|
|
$!---------------------------------------------------------------------
|
|
$ open/read flst pcsi_gnv_curl_file_list.txt
|
|
$!
|
|
$inst_alias_loop:
|
|
$ read/end=inst_alias_loop_end flst line_in
|
|
$ line_in = f$edit(line_in,"compress,trim,uncomment")
|
|
$ if line_in .eqs. "" then goto inst_alias_loop
|
|
$ pathname = f$element(0, " ", line_in)
|
|
$ linkflag = f$element(1, " ", line_in)
|
|
|
|
$ if linkflag .nes. "->" then goto inst_alias_write
|
|
$!
|
|
$ linktarget = f$element(2, " ", line_in)
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ old_start = f$locate("[gnv.usr", pathname)
|
|
$ if old_start .lt. f$length(pathname)
|
|
$ then
|
|
$ pathname = "[gnv.beta" + pathname - "[gnv.usr"
|
|
$ linktarget = "[gnv.beta" + linktarget - "[gnv.usr"
|
|
$ endif
|
|
$ endif
|
|
$ nlink = "pcsi$destination:" + pathname
|
|
$ ntarg = "pcsi$destination:" + linktarget
|
|
$ new_add_alias_line = -
|
|
"""if f$search(""""''nlink'"""") .eqs. """""""" then" + -
|
|
" set file/enter=''nlink' ''ntarg'"""
|
|
$ if add_alias_lines .nes. ""
|
|
$ then
|
|
$ add_alias_lines = add_alias_lines + "," + new_add_alias_line
|
|
$ else
|
|
$ add_alias_lines = new_add_alias_line
|
|
$ endif
|
|
$!
|
|
$ new_rem_alias_line = -
|
|
"""if f$search(""""''nlink'"""") .nes. """""""" then" + -
|
|
" set file/remove ''nlink';"""
|
|
$ if rem_alias_lines .nes. ""
|
|
$ then
|
|
$ rem_alias_lines = rem_alias_lines + "," + new_rem_alias_line
|
|
$ else
|
|
$ rem_alias_lines = new_rem_alias_line
|
|
$ endif
|
|
$!
|
|
$ goto inst_alias_loop
|
|
$!
|
|
$inst_alias_write:
|
|
$!
|
|
$! execute install / remove
|
|
$ write pdsc " execute install ("
|
|
$! add aliases
|
|
$ i = 0
|
|
$ex_ins_loop:
|
|
$ line = f$element(i, ",", add_alias_lines)
|
|
$ i = i + 1
|
|
$ if line .eqs. "" then goto ex_ins_loop
|
|
$ if line .eqs. "," then goto ex_ins_loop_end
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ line_out = line
|
|
$ goto ex_ins_loop
|
|
$ex_ins_loop_end:
|
|
$ write pdsc line_out
|
|
$ line_out = ""
|
|
$ write pdsc " )"
|
|
$ write pdsc " remove ("
|
|
$! remove aliases
|
|
$ i = 0
|
|
$ex_rem_loop:
|
|
$ line = f$element(i, ",", rem_alias_lines)
|
|
$ i = i + 1
|
|
$ if line .eqs. "" then goto ex_rem_loop
|
|
$ if line .eqs. "," then goto ex_rem_loop_end
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ line_out = line
|
|
$ goto ex_rem_loop
|
|
$ex_rem_loop_end:
|
|
$ write pdsc line_out
|
|
$ line_out = ""
|
|
$ write pdsc " ) ;"
|
|
$!
|
|
$! execute upgrade
|
|
$ write pdsc " execute upgrade ("
|
|
$ i = 0
|
|
$ex_upg_loop:
|
|
$ line = f$element(i, ",", rem_alias_lines)
|
|
$ i = i + 1
|
|
$ if line .eqs. "" then goto ex_upg_loop
|
|
$ if line .eqs. "," then goto ex_upg_loop_end
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ line_out = line
|
|
$ goto ex_upg_loop
|
|
$ex_upg_loop_end:
|
|
$ write pdsc line_out
|
|
$ line_out = ""
|
|
$! remove aliases
|
|
$ write pdsc " ) ;"
|
|
$!
|
|
$! execute postinstall
|
|
$ write pdsc " execute postinstall ("
|
|
$ if arch_code .nes. "V"
|
|
$ then
|
|
$ line_out = " ""set process/parse=extended"""
|
|
$ endif
|
|
$ i = 0
|
|
$ex_pins_loop:
|
|
$ line = f$element(i, ",", add_alias_lines)
|
|
$ i = i + 1
|
|
$ if line .eqs. "" then goto ex_pins_loop
|
|
$ if line .eqs. "," then goto ex_pins_loop_end
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ line_out = line
|
|
$ goto ex_pins_loop
|
|
$ex_pins_loop_end:
|
|
$ if line_out .eqs. "" then line_out = " ""continue"""
|
|
$! write pdsc line_out
|
|
$! line_out = ""
|
|
$! add aliases and follow with renames.
|
|
$!
|
|
$goto inst_dir
|
|
$!
|
|
$inst_dir_loop:
|
|
$ read/end=inst_alias_loop_end flst line_in
|
|
$ line_in = f$edit(line_in,"compress,trim,uncomment")
|
|
$ if line_in .eqs. "" then goto inst_dir_loop
|
|
$inst_dir:
|
|
$ pathname = f$element(0, " ", line_in)
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ if pathname .eqs. "[gnv]usr.dir"
|
|
$ then
|
|
$ pathname = "[gnv]beta.dir"
|
|
$ else
|
|
$ old_start = f$locate("[gnv.usr", pathname)
|
|
$ if old_start .lt. f$length(pathname)
|
|
$ then
|
|
$ pathname = "[gnv.beta" + pathname - "[gnv.usr"
|
|
$ endif
|
|
$ endif
|
|
$ endif
|
|
$!
|
|
$! Ignore the directory entries for now.
|
|
$!-----------------------------------------
|
|
$ filedir = f$parse(pathname,,,"DIRECTORY")
|
|
$ if pathname .eqs. filedir then goto inst_dir_loop
|
|
$!
|
|
$! process .dir extensions for rename
|
|
$! If this is not a directory then start processing files.
|
|
$!-------------------------
|
|
$ filetype = f$parse(pathname,,,"TYPE")
|
|
$ filetype_u = f$edit(filetype, "upcase")
|
|
$ filename = f$parse(pathname,,,"NAME")
|
|
$ if filetype_u .nes. ".DIR" then goto inst_file
|
|
$!
|
|
$! process directory lines for rename.
|
|
$!--------------------------------------
|
|
$ if line_out .nes. ""
|
|
$ then
|
|
$ write pdsc line_out,","
|
|
$ line_out = ""
|
|
$ endif
|
|
$ if arch_code .nes. "V"
|
|
$ then
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ line_out = " ""rename pcsi$destination:''pathname' ''filename'.DIR"""
|
|
$ else
|
|
$ if line_out .nes. "" then write pdsc line_out
|
|
$ line_out = ""
|
|
$ endif
|
|
$ goto inst_dir_loop
|
|
$!
|
|
$!
|
|
$! process file lines for rename
|
|
$!---------------------------------
|
|
$inst_file_loop:
|
|
$ read/end=inst_alias_loop_end flst line_in
|
|
$ line_in = f$edit(line_in,"compress,trim,uncomment")
|
|
$ if line_in .eqs. "" then goto inst_dir_loop
|
|
$ pathname = f$element(0, " ", line_in)
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ if pathname .eqs. "[gnv]usr.dir"
|
|
$ then
|
|
$ pathname = "[gnv]beta.dir"
|
|
$ else
|
|
$ old_start = f$locate("[gnv.usr", pathname)
|
|
$ if old_start .lt. f$length(pathname)
|
|
$ then
|
|
$ pathname = "[gnv.beta" + pathname - "[gnv.usr"
|
|
$ endif
|
|
$ endif
|
|
$ endif
|
|
$!
|
|
$! Filenames with $ in them are VMS special and do not need to be lowercase.
|
|
$! --------------------------------------------------------------------------
|
|
$ if f$locate("$", pathname) .lt. f$length(pathname) then goto inst_file_loop
|
|
$!
|
|
$ filetype = f$parse(pathname,,,"TYPE")
|
|
$ filename = f$parse(pathname,,,"NAME") + filetype
|
|
$inst_file:
|
|
$ if arch_code .nes. "V"
|
|
$ then
|
|
$ if line_out .nes. "" then write pdsc line_out,","
|
|
$ filetype = f$parse(pathname,,,"TYPE")
|
|
$ filename = f$parse(pathname,,,"NAME") + filetype
|
|
$ line_out = " ""rename pcsi$destination:''pathname' ''filename'"""
|
|
$ else
|
|
$ if line_out .nes. "" then write pdsc line_out
|
|
$ line_out = ""
|
|
$ endif
|
|
$ goto inst_file_loop
|
|
$!
|
|
$inst_alias_loop_end:
|
|
$!
|
|
$write pdsc line_out
|
|
$write pdsc " ) ;"
|
|
$close flst
|
|
$!
|
|
$! Move Release Notes to destination
|
|
$!-------------------------------------
|
|
$write pdsc " information RELEASE_NOTES phase after ;"
|
|
$!
|
|
$! Source kit option
|
|
$!---------------------
|
|
$write pdsc " option SOURCE default 0;"
|
|
$write pdsc " directory ""[gnv.common_src]"" PROTECTION PUBLIC ;"
|
|
$write pdsc -
|
|
" file ""[gnv.common_src]''filename_base'_original_src.bck"""
|
|
$write pdsc -
|
|
" source [common_src]''filename_base'_original_src.bck ;"
|
|
$if f$search("gnv$gnu:[vms_src]''filename_base'_vms_src.bck") .nes. ""
|
|
$then
|
|
$ write pdsc " directory ""[gnv.vms_src]"" PROTECTION PUBLIC ;"
|
|
$ write pdsc " file ""[gnv.vms_src]''filename_base'_vms_src.bck"""
|
|
$ write pdsc " source [vms_src]''filename_base'_vms_src.bck ;"
|
|
$endif
|
|
$write pdsc " end option;"
|
|
$!
|
|
$!
|
|
$! Read through the file list again.
|
|
$!----------------------------------
|
|
$open/read flst pcsi_gnv_curl_file_list.txt
|
|
$!
|
|
$!
|
|
$! Create directory lines
|
|
$!-------------------------
|
|
$flst_dir_loop:
|
|
$ read/end=flst_loop_end flst line_in
|
|
$ line_in = f$edit(line_in,"compress,trim,uncomment")
|
|
$ if line_in .eqs. "" then goto flst_dir_loop
|
|
$!
|
|
$ filename = f$element(0, " ", line_in)
|
|
$ linkflag = f$element(1, " ", line_in)
|
|
$ if linkflag .eqs. "->" then goto flst_dir_loop
|
|
$!
|
|
$! Ignore .dir extensions
|
|
$!-------------------------
|
|
$ filetype = f$edit(f$parse(filename,,,"TYPE"), "upcase")
|
|
$ if filetype .eqs. ".DIR" then goto flst_dir_loop
|
|
$!
|
|
$ destname = filename
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ old_start = f$locate("[gnv.usr", destname)
|
|
$ if old_start .lt. f$length(destname)
|
|
$ then
|
|
$ destname = "[gnv.beta" + destname - "[gnv.usr"
|
|
$ endif
|
|
$ endif
|
|
$!
|
|
$! It should be just a directory then.
|
|
$!-------------------------------------
|
|
$ filedir = f$edit(f$parse(filename,,,"DIRECTORY"), "lowercase")
|
|
$! If this is not a directory then start processing files.
|
|
$!---------------------------------------------------------
|
|
$ if filename .nes. filedir then goto flst_file
|
|
$!
|
|
$ write pdsc " directory ""''destname'"" PROTECTION PUBLIC ;"
|
|
$ goto flst_dir_loop
|
|
$!
|
|
$!
|
|
$! Add file lines for curl.
|
|
$!---------------------------
|
|
$flst_file_loop:
|
|
$ read/end=flst_loop_end flst line_in
|
|
$ line_in = f$edit(line_in,"compress,trim,uncomment")
|
|
$ if line_in .eqs. "" then goto inst_file_loop
|
|
$ filename = f$element(0, " ", line_in)
|
|
$ destname = filename
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ old_start = f$locate("[gnv.usr", destname)
|
|
$ if old_start .lt. f$length(destname)
|
|
$ then
|
|
$ destname = "[gnv.beta" + destname - "[gnv.usr"
|
|
$ endif
|
|
$ endif
|
|
$flst_file:
|
|
$ srcfile = filename - "gnv."
|
|
$ write pdsc " file ""''destname'"" "
|
|
$ write pdsc " source ""''srcfile'"" ;"
|
|
$ goto flst_file_loop
|
|
$!
|
|
$flst_loop_end:
|
|
$ close flst
|
|
$!
|
|
$! Add Link alias procedure file (N/A for curl)
|
|
$!------------------------------------------------
|
|
$!
|
|
$! Add [.SYS$STARTUP]curl_startup file
|
|
$!---------------------------------------
|
|
$ if kit_type .eqs. "D"
|
|
$ then
|
|
$ write pdsc " file ""[sys$startup]curl_daily_startup.com"""
|
|
$ else
|
|
$ write pdsc " file ""[sys$startup]curl_startup.com"""
|
|
$ endif
|
|
$ write pdsc " source [usr.lib]curl_startup.com ;"
|
|
$!
|
|
$! Add Release notes file.
|
|
$!------------------------------
|
|
$ write pdsc -
|
|
" file ""[SYSHLP]''filename_base'.release_notes"" release notes ;"
|
|
$!
|
|
$! Close the product file
|
|
$!------------------------
|
|
$ write pdsc "end product;"
|
|
$!
|
|
$close pdsc
|
|
$!
|
|
$all_exit:
|
|
$ exit
|