Return to backup_gnv_curl_src.com CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / packages / vms

Annotation of embedaddon/curl/packages/vms/backup_gnv_curl_src.com, revision 1.1

1.1     ! misho       1: $! File: Backup_gnv_curl_src.com
        !             2: $!
        !             3: $! $Id$
        !             4: $!
        !             5: $! Procedure to create backup save sets for installing in a PCSI kit.
        !             6: $!
        !             7: $! To comply with most Open Source licenses, the source used for building
        !             8: $! a kit will be packaged with the distribution kit for the binary.
        !             9: $!
        !            10: $! Backup save sets are the only storage format that I can expect a
        !            11: $! VMS system to be able to extract ODS-5 filenames and directories.
        !            12: $!
        !            13: $! The make_pcsi_kit_name.com needs to be run before this procedure to
        !            14: $! properly name the files that will be created.
        !            15: $!
        !            16: $! This file is created from a template file for the purpose of making it
        !            17: $! easier to port Unix code, particularly open source code to VMS.
        !            18: $! Therefore permission is freely granted for any use.
        !            19: $!
        !            20: $! Copyright 2009 - 2020, John Malmberg
        !            21: $!
        !            22: $! Permission to use, copy, modify, and/or distribute this software for any
        !            23: $! purpose with or without fee is hereby granted, provided that the above
        !            24: $! copyright notice and this permission notice appear in all copies.
        !            25: $!
        !            26: $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
        !            27: $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
        !            28: $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
        !            29: $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
        !            30: $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
        !            31: $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
        !            32: $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        !            33: $!
        !            34: $! 13-Jun-2009 J. Malmberg
        !            35: $!
        !            36: $!===========================================================================
        !            37: $!
        !            38: $! Save default
        !            39: $ default_dir = f$environment("DEFAULT")
        !            40: $!
        !            41: $ arch_type = f$getsyi("ARCH_NAME")
        !            42: $ arch_code = f$extract(0, 1, arch_type)
        !            43: $!
        !            44: $ if arch_code .nes. "V"
        !            45: $ then
        !            46: $   set proc/parse=extended
        !            47: $ endif
        !            48: $!
        !            49: $ ss_abort = 44
        !            50: $ status = ss_abort
        !            51: $!
        !            52: $ kit_name = f$trnlnm("GNV_PCSI_KITNAME")
        !            53: $ if kit_name .eqs. ""
        !            54: $ then
        !            55: $   write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
        !            56: $   goto all_exit
        !            57: $ endif
        !            58: $ producer = f$trnlnm("GNV_PCSI_PRODUCER")
        !            59: $ if producer .eqs. ""
        !            60: $ then
        !            61: $   write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
        !            62: $   goto all_exit
        !            63: $ endif
        !            64: $ filename_base = f$trnlnm("GNV_PCSI_FILENAME_BASE")
        !            65: $ if filename_base .eqs. ""
        !            66: $ then
        !            67: $   write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
        !            68: $   goto all_exit
        !            69: $ endif
        !            70: $!
        !            71: $ node_swvers = f$getsyi("NODE_SWVERS")
        !            72: $ node_swvers_type = f$extract(0, 1, node_swvers)
        !            73: $ node_swvers_vers = f$extract(1, f$length(node_swvers), node_swvers)
        !            74: $ swvers_maj = f$element(0, ".", node_swvers_vers)
        !            75: $ node_swvers_min_update = f$element(1, ".", node_swvers_vers)
        !            76: $ swvers_min = f$element(0, "-", node_swvers_min_update)
        !            77: $ swvers_update = f$element(1, "-", node_swvers_min_update)
        !            78: $!
        !            79: $ if swvers_update .eqs. "-" then swvers_update = ""
        !            80: $!
        !            81: $ vms_vers = f$fao("!2ZB!2ZB!AS", 'swvers_maj', 'swvers_min', swvers_update)
        !            82: $!
        !            83: $!
        !            84: $!
        !            85: $! If available make an interchange save set
        !            86: $!-------------------------------------------
        !            87: $ interchange = ""
        !            88: $ if arch_code .eqs. "V"
        !            89: $ then
        !            90: $   interchange = "/interchange"
        !            91: $ endif
        !            92: $ if (swvers_maj .ges. "8") .and. (swvers_min .ges. 4)
        !            93: $ then
        !            94: $   interchange = "/interchange/noconvert"
        !            95: $ endif
        !            96: $!
        !            97: $!
        !            98: $! Move to the base directories
        !            99: $ set def [--]
        !           100: $!
        !           101: $! Put things back on error.
        !           102: $ on warning then goto all_exit
        !           103: $!
        !           104: $ current_default = f$environment("DEFAULT")
        !           105: $ my_dir = f$parse(current_default,,,"DIRECTORY") - "[" - "<" - ">" - "]"
        !           106: $!
        !           107: $ src_root = "src_root:"
        !           108: $ if f$trnlnm("src_root1") .nes. "" then src_root = "src_root1:"
        !           109: $ backup'interchange' 'src_root'[curl...]*.*;0 -
        !           110:            'filename_base'_original_src.bck/sav
        !           111: $ status = $status
        !           112: $!
        !           113: $! There may be a VMS specific source kit
        !           114: $!-----------------------------------------
        !           115: $ vms_root = "vms_root:"
        !           116: $ if f$trnlnm("vms_root1") .nes. "" then vms_root = "vms_root1:"
        !           117: $ files_found = 0
        !           118: $ define/user sys$error nl:
        !           119: $ define/user sys$output nl:
        !           120: $ directory 'vms_root'[...]*.*;*/exc=*.dir
        !           121: $ if '$severity' .eq. 1 then files_found = 1
        !           122: $!
        !           123: $ if files_found .eq. 1
        !           124: $ then
        !           125: $   backup'interchange' 'vms_root'[curl...]*.*;0 -
        !           126:             'filename_base'_vms_src.bck/sav
        !           127: $   status = $status
        !           128: $ endif
        !           129: $!
        !           130: $all_exit:
        !           131: $ set def 'default_dir'
        !           132: $ exit