|
Packit |
575503 |
$! File: Backup_gawk_src.com
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! Procedure to create backup save sets for installing in a PCSI kit.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! To comply with most Open Source licenses, the source used for building
|
|
Packit |
575503 |
$! a kit will be packaged with the distribution kit for the binary.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! Backup save sets are the only storage format that I can expect a
|
|
Packit |
575503 |
$! VMS system to be able to extract ODS-5 filenames and directories.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! The make_pcsi_kit_name.com needs to be run before this procedure to
|
|
Packit |
575503 |
$! properly name the files that will be created.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! This file is created from a template file for the purpose of making it
|
|
Packit |
575503 |
$! easier to port Unix code, particularly open source code to VMS.
|
|
Packit |
575503 |
$! Therefore permission is freely granted for any use.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! 13-Jun-2009 J. Malmberg
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$!===========================================================================
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! Save default
|
|
Packit |
575503 |
$ default_dir = f$environment("DEFAULT")
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ arch_type = f$getsyi("ARCH_NAME")
|
|
Packit |
575503 |
$ arch_code = f$extract(0, 1, arch_type)
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ if arch_code .nes. "V"
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ set proc/parse=extended
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ ss_abort = 44
|
|
Packit |
575503 |
$ status = ss_abort
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ kit_name = f$trnlnm("GNV_PCSI_KITNAME")
|
|
Packit |
575503 |
$ if kit_name .eqs. ""
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ write sys$output "@MAKE_PCSI_GAWK_KIT_NAME.COM has not been run."
|
|
Packit |
575503 |
$ goto all_exit
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$ producer = f$trnlnm("GNV_PCSI_PRODUCER")
|
|
Packit |
575503 |
$ if producer .eqs. ""
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ write sys$output "@MAKE_PCSI_GAWK_KIT_NAME.COM has not been run."
|
|
Packit |
575503 |
$ goto all_exit
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$ filename_base = f$trnlnm("GNV_PCSI_FILENAME_BASE")
|
|
Packit |
575503 |
$ if filename_base .eqs. ""
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ write sys$output "@MAKE_PCSI_GAWK_KIT_NAME.COM has not been run."
|
|
Packit |
575503 |
$ goto all_exit
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ node_swvers = f$getsyi("NODE_SWVERS")
|
|
Packit |
575503 |
$ node_swvers_type = f$extract(0, 1, node_swvers)
|
|
Packit |
575503 |
$ node_swvers_vers = f$extract(1, f$length(node_swvers), node_swvers)
|
|
Packit |
575503 |
$ swvers_maj = f$element(0, ".", node_swvers_vers)
|
|
Packit |
575503 |
$ node_swvers_min_update = f$element(1, ".", node_swvers_vers)
|
|
Packit |
575503 |
$ swvers_min = f$element(0, "-", node_swvers_min_update)
|
|
Packit |
575503 |
$ swvers_update = f$element(1, "-", node_swvers_min_update)
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ if swvers_update .eqs. "-" then swvers_update = ""
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ vms_vers = f$fao("!2ZB!2ZB!AS", 'swvers_maj', 'swvers_min', swvers_update)
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! If available make an interchange save set
|
|
Packit |
575503 |
$!-------------------------------------------
|
|
Packit |
575503 |
$ interchange = ""
|
|
Packit |
575503 |
$ if arch_code .eqs. "V"
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ interchange = "/interchange/exclude=[.$5ngit...]*.*"
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$ if (swvers_maj .ges. "8") .and. (swvers_min .ges. 4)
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ interchange = "/interchange/noconvert/exclude=[.^.git...]*.*"
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! Put things back on error.
|
|
Packit |
575503 |
$ on warning then goto all_exit
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ current_default = f$environment("DEFAULT")
|
|
Packit |
575503 |
$ my_dir = f$parse(current_default,,,"DIRECTORY") - "[" - "<" - ">" - "]"
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ src_root = "src_root:"
|
|
Packit |
575503 |
$ if f$trnlnm("src_root1") .nes. "" then src_root = "src_root1:"
|
|
Packit |
575503 |
$ backup'interchange' 'src_root'[gawk...]*.*;0 -
|
|
Packit |
575503 |
'filename_base'_original_src.bck/sav
|
|
Packit |
575503 |
$ status = $status
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$! There may be a VMS specific source kit
|
|
Packit |
575503 |
$!-----------------------------------------
|
|
Packit |
575503 |
$ vms_root = "vms_root:"
|
|
Packit |
575503 |
$ if f$trnlnm("vms_root1") .nes. "" then vms_root = "vms_root1:"
|
|
Packit |
575503 |
$ files_found = 0
|
|
Packit |
575503 |
$ define/user sys$error nl:
|
|
Packit |
575503 |
$ define/user sys$output nl:
|
|
Packit |
575503 |
$ directory 'vms_root'[...]*.*;*/exc=*.dir
|
|
Packit |
575503 |
$ if '$severity' .eq. 1 then files_found = 1
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ if files_found .eq. 1
|
|
Packit |
575503 |
$ then
|
|
Packit |
575503 |
$ backup'interchange' 'vms_root'[gawk...]*.*;0 -
|
|
Packit |
575503 |
'filename_base'_vms_src.bck/sav
|
|
Packit |
575503 |
$ status = $status
|
|
Packit |
575503 |
$ endif
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$all_exit:
|
|
Packit |
575503 |
$ set def 'default_dir'
|
|
Packit |
575503 |
$ exit
|