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
101