build_gnv_curl_release_notes.com (3113B)
1 $! File: Build_GNV_curl_release_notes.com 2 $! 3 $! Build the release note file from the four components: 4 $! 1. The curl_release_note_start.txt 5 $! 2. The hp_ssl_release_info.txt 6 $! 3. [--]readme. file from the Curl distribution. 7 $! 4. The Curl_gnv-build_steps.txt. 8 $! 9 $! Set the name of the release notes from the GNV_PCSI_FILENAME_BASE 10 $! logical name. 11 $! 12 $! Copyright (C) John Malmberg 13 $! 14 $! Permission to use, copy, modify, and/or distribute this software for any 15 $! purpose with or without fee is hereby granted, provided that the above 16 $! copyright notice and this permission notice appear in all copies. 17 $! 18 $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 19 $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 20 $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 21 $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 22 $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 23 $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 24 $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 25 $! 26 $! SPDX-License-Identifier: ISC 27 $! 28 $!=========================================================================== 29 $! 30 $ base_file = f$trnlnm("GNV_PCSI_FILENAME_BASE") 31 $ if base_file .eqs. "" 32 $ then 33 $ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run." 34 $ goto all_exit 35 $ endif 36 $! 37 $! 38 $ curl_readme = f$search("sys$disk:[--]readme.") 39 $ if curl_readme .eqs. "" 40 $ then 41 $ curl_readme = f$search("sys$disk:[--]$README.") 42 $ endif 43 $ if curl_readme .eqs. "" 44 $ then 45 $ write sys$output "Can not find Curl readme file." 46 $ goto all_exit 47 $ endif 48 $! 49 $ curl_copying = f$search("sys$disk:[--]copying.") 50 $ if curl_copying .eqs. "" 51 $ then 52 $ curl_copying = f$search("sys$disk:[--]$COPYING.") 53 $ endif 54 $ if curl_copying .eqs. "" 55 $ then 56 $ write sys$output "Can not find Curl copying file." 57 $ goto all_exit 58 $ endif 59 $! 60 $ vms_readme = f$search("sys$disk:[]readme.") 61 $ if vms_readme .eqs. "" 62 $ then 63 $ vms_readme = f$search("sys$disk:[]$README.") 64 $ endif 65 $ if vms_readme .eqs. "" 66 $ then 67 $ write sys$output "Can not find VMS specific Curl readme file." 68 $ goto all_exit 69 $ endif 70 $! 71 $ curl_release_notes = f$search("sys$disk:[--]release-notes.") 72 $ if curl_release_notes .eqs. "" 73 $ then 74 $ curl_release_notes = f$search("sys$disk:[--]$RELEASE-NOTES.") 75 $ endif 76 $ if curl_release_notes .eqs. "" 77 $ then 78 $ write sys$output "Can not find Curl release-notes file." 79 $ goto all_exit 80 $ endif 81 $! 82 $ if f$search("sys$disk:[]hp_ssl_release_info.txt") .eqs. "" 83 $ then 84 $ write sys$output "GNV_LINK_CURL.COM has not been run!" 85 $ goto all_exit 86 $ endif 87 $! 88 $ type/noheader 'curl_readme', 'vms_readme', - 89 'curl_release_notes', - 90 sys$disk:[]curl_release_note_start.txt, - 91 sys$disk:[]hp_ssl_release_info.txt, - 92 'curl_copying', - 93 sys$disk:[]curl_gnv_build_steps.txt - 94 /out='base_file'.release_notes 95 $! 96 $ purge 'base_file'.release_notes 97 $ rename 'base_file.release_notes ;1 98 $! 99 $all_exit: 100 $ exit