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