curl-w32/packages/vms/compare_curl_source.com

364 lines
10 KiB
Plaintext
Raw Normal View History

$! Compare_curl_source.com
$!
$! This procedure compares the files in two directories and reports the
$! differences. It is customized for the vmsports repository layout.
$!
$! It needs to be customized to the local site directories.
$!
$! This is used by me for these purposes:
$! 1. Compare the original source of a project with an existing
$! VMS port.
$! 2. Compare the checked out repository of a project with the
$! the local working copy to make sure they are in sync.
$! 3. Keep a copy directory up to date. The third is needed by
$! me because VMS Backup can create a saveset of files from a
$! NFS mounted volume.
$!
$! First the files in the original source directory which is assumed to be
$! under source code control are compared with the copy directory.
$!
$! Then the files are are only in the copy directory are listed.
$!
$! The result will five diagnostics about of files:
$! 1. Files that are not generation 1.
$! 2. Files missing in the copy directory.
$! 3. Files in the copy directory not in the source directory.
$! 4. Files different from the source directory.
$! 5. Files that VMS DIFF can not process.
$!
$! This needs to be run on an ODS-5 volume.
$!
$! If UPDATE is given as a second parameter, files missing or different in the
$! copy directory will be updated.
$!
$! By default:
$! The directory src_root:[project_name] will be translated to something like
$! DISK:[dir.dir.reference.project_name] and this will be used
$! to calculate DISK:[dir.dir.vms_source.project_name] for the VMS specific
$! source directory.
$!
$! The copy directory is vms_root:[project_name]
$! The UPDATE parameter is ignored.
$!
$! This setting is used to make sure that the working vms directory
$! and the repository checkout directory have the same contents.
$!
$! If P1 is "SRCBCK" then this
$! The source directory tree is: src_root:[project_name]
$! The copy directory is src_root1:[project_name]
$!
$! src_root1:[project_name] is used by me to work around that VMS backup will
$! not use NFS as a source directory so I need to make a copy.
$!
$! This is to make sure that the backup save set for the unmodified
$! source is up to date.
$!
$! If your repository checkout is not on an NFS mounted volume, you do not
$! need to use this option or have the logical name src_root1 defined.
$!
$! If P1 is "VMSBCK" then this changes the two directories:
$! The source directory is vms_root:[project_name]
$! The copy directory is vms_root1:[project_name]
$!
$! vms_root:[project_name] is where I do the VMS specific edits.
$! vms_root1:[project_name] is used by me to work around that VMS backup will
$! not use NFS as a source directory so I need to make a copy.
$!
$! This is to make sure that the backup save set for the unmodified
$! source is up to date.
$!
$! 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
$!
$!==========================================================================
$!
$! Update missing/changed files.
$ update_file = 0
$ if (p2 .eqs. "UPDATE")
$ then
$ update_file = 1
$ endif
$!
$ myproc = f$environment("PROCEDURE")
$ myprocdir = f$parse(myproc,,,"DIRECTORY") - "[" - "]" - "<" - ">"
$ myprocdir = f$edit(myprocdir, "LOWERCASE")
$ mydefault = f$environment("DEFAULT")
$ mydir = f$parse(mydefault,,,"DIRECTORY")
$ mydir = f$edit(mydir, "LOWERCASE")
$ odelim = f$extract(0, 1, mydir)
$ mydir = mydir - "[" - "]" - "<" - ">"
$ mydev = f$parse(mydefault,,,"DEVICE")
$!
$ ref = ""
$ if P1 .eqs. ""
$ then
$ ref_base_dir = myprocdir
$ wrk_base_dir = mydir
$ update_file = 0
$ resultd = f$parse("src_root:",,,,"NO_CONCEAL")
$ resultd = f$edit(resultd, "LOWERCASE")
$ resultd = resultd - "][" - "><" - ".;" - ".."
$ resultd_len = f$length(resultd) - 1
$ delim = f$extract(resultd_len, 1, resultd)
$ ref_root_base = mydir + delim
$ resultd = resultd - ref_root_base - "reference." + "vms_source."
$ ref = resultd + ref_base_dir
$ wrk = "VMS_ROOT:" + odelim + wrk_base_dir
$ resultd_len = f$length(resultd) - 1
$ resultd = f$extract(0, resultd_len, resultd) + delim
$ ref_root_dir = f$parse(resultd,,,"DIRECTORY")
$ ref_root_dir = f$edit(ref_root_dir, "LOWERCASE")
$ ref_root_dir = ref_root_dir - "[" - "]"
$ ref_base_dir = ref_root_dir + "." + ref_base_dir
$ endif
$!
$ if p1 .eqs. "SRCBCK"
$ then
$ ref_base_dir = "curl"
$ wrk_base_dir = "curl"
$ ref = "src_root:[" + ref_base_dir
$ wrk = "src_root1:[" + wrk_base_dir
$ if update_file
$ then
$ if f$search("src_root1:[000000]curl.dir") .eqs. ""
$ then
$ create/dir/prot=o:rwed src_root1:[curl]
$ endif
$ endif
$ endif
$!
$!
$ if p1 .eqs. "VMSBCK"
$ then
$ ref_base_dir = "curl"
$ wrk_base_dir = "curl"
$ ref = "vms_root:[" + ref_base_dir
$ wrk = "vms_root1:[" + wrk_base_dir
$ if update_file
$ then
$ if f$search("vms_root1:[000000]curl.dir") .eqs. ""
$ then
$ create/dir/prot=o:rwed vms_root1:[curl]
$ endif
$ endif
$ endif
$!
$!
$ if ref .eqs. ""
$ then
$ write sys$output "Unknown compare type specified!"
$ exit 44
$ endif
$!
$!
$! Future - check the device types involved for the
$! the syntax to check.
$ ODS2_SYNTAX = 0
$ NFS_MANGLE = 0
$ PWRK_MANGLE = 0
$!
$ vax = f$getsyi("HW_MODEL") .lt. 1024
$ if vax
$ then
$ ODS2_SYNTAX = 1
$ endif
$!
$ report_missing = 1
$!
$ if .not. ODS2_SYNTAX
$ then
$ set proc/parse=extended
$ endif
$!
$loop:
$ ref_spec = f$search("''ref'...]*.*;",1)
$ if ref_spec .eqs. "" then goto loop_end
$!
$ ref_dev = f$parse(ref_spec,,,"DEVICE")
$ ref_dir = f$parse(ref_spec,,,"DIRECTORY")
$ ref_dir = f$edit(ref_dir, "LOWERCASE")
$ ref_name = f$parse(ref_spec,,,"NAME")
$ ref_type = f$parse(ref_spec,,,"TYPE")
$!
$!
$ rel_path = ref_dir - "[" - ref_base_dir
$! rel_path_len = f$length(rel_path) - 1
$! delim = f$extract(rel_path_len, 1, rel_path)
$! rel_path = rel_path - ".]" - ".>" - "]" - ">"
$! rel_path = rel_path + delim
$!
$ if ODS2_SYNTAX
$ then
$! if rel_path .eqs. ".examples.scripts^.noah]"
$! then
$! rel_path = ".examples.scripts_noah]"
$! endif
$! if rel_path .eqs. ".examples.scripts^.v2]"
$! then
$! rel_path = ".examples.scripts_v2]"
$! endif
$ endif
$!
$ wrk_path = wrk + rel_path
$!
$ ref_name_type = ref_name + ref_type
$!
$ if ODS2_SYNTAX
$ then
$ endif
$!
$ wrk_spec = wrk_path + ref_name_type
$!
$!
$ wrk_chk = f$search(wrk_spec, 0)
$ if wrk_chk .eqs. ""
$ then
$ if report_missing
$ then
$ write sys$output "''wrk_spec' is missing"
$ endif
$ if update_file
$ then
$ copy/log 'ref_spec' 'wrk_spec'
$ endif
$ goto loop
$ endif
$!
$ wrk_name = f$parse(wrk_spec,,,"NAME")
$ wrk_type = f$parse(wrk_spec,,,"TYPE")
$ wrk_fname = wrk_name + wrk_type"
$ ref_fname = ref_name + ref_type
$!
$ if ref_fname .nes. wrk_fname
$ then
$ write sys$output "''wrk_spc' wrong name, should be ""''ref_fname'"""
$ endif
$!
$ ref_type = f$edit(ref_type, "UPCASE")
$ if ref_type .eqs. ".DIR" then goto loop
$!
$ if ODS2_SYNTAX
$ then
$ ref_fname = f$edit(ref_fname, "LOWERCASE")
$ endif
$!
$! These files are in the wrong format for VMS diff, and we don't change them.
$ ref_skip = 0
$ if ref_type .eqs. ".PDF" then ref_skip = 1
$ if ref_type .eqs. ".HTML" then ref_skip = 1
$ if ref_type .eqs. ".P12" then ref_skip = 1
$ if ref_type .eqs. "."
$ then
$ if f$locate("test", ref_fname) .eq. 0 then ref_skip = 1
$ if ref_fname .eqs. "configure." then ref_skip = 1
$ endif
$!
$!
$ if ref_skip .ne. 0
$ then
$ if report_missing
$ then
$ write sys$output "Skipping diff of ''ref_fname'"
$ endif
$ goto loop
$ endif
$!
$!
$ wrk_ver = f$parse(wrk_chk,,,"VERSION")
$ if wrk_ver .nes. ";1"
$ then
$ write sys$output "Version for ''wrk_spec' is not 1"
$ endif
$ set noon
$ diff/out=nl: 'wrk_spec' 'ref_spec'
$ if $severity .nes. "1"
$ then
$ write sys$output "''wrk_spec' is different from ''ref_spec'"
$ if update_file
$ then
$ delete 'wrk_spec';*
$ copy/log 'ref_spec' 'wrk_spec'
$ endif
$ endif
$ set on
$
$!
$ goto loop
$loop_end:
$!
$!
$missing_loop:
$! For missing loop, check the latest generation.
$ ref_spec = f$search("''wrk'...]*.*;")
$ if ref_spec .eqs. "" then goto missing_loop_end
$!
$ ref_dev = f$parse(ref_spec,,,"DEVICE")
$ ref_dir = f$parse(ref_spec,,,"DIRECTORY")
$ ref_dir = f$edit(ref_dir, "LOWERCASE")
$ ref_name = f$parse(ref_spec,,,"NAME")
$ ref_type = f$parse(ref_spec,,,"TYPE")
$ ref_name_type = ref_name + ref_type
$!
$ rel_path = ref_dir - "[" - wrk_base_dir
$!
$!
$ wrk_path = ref + rel_path
$ wrk_spec = wrk_path + ref_name + ref_type
$ wrk_name = f$parse(wrk_spec,,,"NAME")
$ wrk_type = f$parse(wrk_spec,,,"TYPE")
$!
$ wrk_fname = wrk_name + wrk_type"
$ ref_fname = ref_name + ref_type
$!
$ wrk_skip = 0
$ ref_utype = f$edit(ref_type,"UPCASE")
$ ref_ufname = f$edit(ref_fname,"UPCASE")
$!
$ if wrk_skip .eq. 0
$ then
$ wrk_chk = f$search(wrk_spec, 0)
$ if wrk_chk .eqs. ""
$ then
$ if report_missing
$ then
$ write sys$output "''wrk_spec' is missing"
$ endif
$ goto missing_loop
$ endif
$ else
$ goto missing_loop
$ endif
$!
$ if ref_fname .nes. wrk_fname
$ then
$ write sys$output "''wrk_spc' wrong name, should be ""''ref_fname'"""
$ endif
$!
$ if ref_utype .eqs. ".DIR" then goto missing_loop
$!
$ wrk_ver = f$parse(wrk_chk,,,"VERSION")
$ if wrk_ver .nes. ";1"
$ then
$ write sys$output "Version for ''wrk_spec' is not 1"
$ endif
$!
$ goto missing_loop
$!
$!
$missing_loop_end:
$!
$exit