$! File: Build_GAWK_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.

$!      2. ODS-5 filenames need an alias procedure.

$!      3. Special alias links for executables (cp. -> gnv$cp.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 gawk.

$!   Add Link alias procedure file (used for gawk)

$!   Add [.SYS$STARTUP]gawk_startup file

$!   Add Release notes file.

$!

$! The file PCSI_GAWK_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 GAWK 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]gawk. for [usr.bin]gawk.exe.

$!

$! 02-Jan-2014  J. Malmberg - Gawk version

$!

$!===========================================================================

$!

$ kit_name = f$trnlnm("GNV_PCSI_KITNAME")

$ if kit_name .eqs. ""

$ then

$   write sys$output "@[.vms]MAKE_PCSI_GAWK_KIT_NAME.COM has not been run."

$   goto all_exit

$ endif

$ producer = f$trnlnm("GNV_PCSI_PRODUCER")

$ if producer .eqs. ""

$ then

$   write sys$output "@[.vms]MAKE_PCSI_GAWK_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 "@[.vms]MAKE_PCSI_GAWK_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"

$!

$ 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 ((<software ''vmsprd' ''base' VMS> and"

$ write pdsc line_out

$ line_out = -

 "        (not 

 " ''node_swvers'>)) or"

$ write pdsc line_out

$ line_out = -

 "       (<software ''vsiprd' ''base' VMS>"

$ write pdsc line_out

$ line_out = -

 "        and (not 

 " ''node_swvers'>))) ;"

$ write pdsc line_out

$ write pdsc "      error NEED_VMS''vmstag';"

$ write pdsc "   end if;"

$!

$!

$!

$! install/upgrade/postinstall steps.

$!-----------------------------------

$!      1. Duplicate filenames need an alias procedure.

$!      2. ODS-5 filenames need an alias procedure.

$!      3. Special alias links for executables (gawk. -> gnv$gawk.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 [.vms]pcsi_gawk_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)

$   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:

$   if line_out .eqs. "" then line_out = "   ""continue"""

$   write pdsc line_out

$   line_out = ""

$   write pdsc "      )"

$   write pdsc "   remove ("

$! remove aliases

$   line_out = -

       "  ""@pcsi$destination:[gnv.vms_bin]gawk_alias_setup.com remove"""

$   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:

$   if line_out .eqs. "" then line_out = "   ""continue"""

$   write pdsc line_out

$   line_out = ""

$   write pdsc "      ) ;"

$!

$!  execute upgrade

$   write pdsc "   execute upgrade ("

$   line_out = -

       "  ""@pcsi$destination:[gnv.vms_bin]gawk_alias_setup.com remove"""

$   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:

$   if line_out .eqs. "" then line_out = "   ""continue"""

$   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"","

$       write pdsc line_out

$   endif

$   line_out = "  ""@pcsi$destination:[gnv.vms_bin]remove_old_gawk.com"","

$   write pdsc line_out

$   line_out = "  ""@pcsi$destination:[gnv.vms_bin]gawk_alias_setup.com"""

$   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)

$!

$!  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)

$!

$!  Filenames with $ in them are VMS special and do not need to be lowercased.

$!  --------------------------------------------------------------------------

$   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("sys$disk:''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 [.vms]pcsi_gawk_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

$!

$!  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 gawk.

$!---------------------------

$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 flst_file_loop

$   filename = f$element(0, " ", line_in)

$   destname = filename

$flst_file:

$   if arch_code .eqs. "V"

$   then

$!      ! These files not available on VAX.

$       src_dir = f$parse(destname,,,"DIRECTORY")

$       if src_dir .eqs. "[GNV.USR.LIB.GAWK]" then goto flst_file_loop

$   endif

$   srcfile = filename - "gnv."

$   write pdsc "   file ""''destname'"" "

$   write pdsc "     source ""''srcfile'"" ;"

$   goto flst_file_loop

$!

$flst_loop_end:

$ close flst

$!

$!   Add [.SYS$STARTUP]gawk_startup file

$!---------------------------------------

$ write pdsc "   file ""[sys$startup]gnv$gawk_startup.com"""

$ write pdsc "     source [vms_bin]gnv$gawk_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