• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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