packages/vms/build_gnv_curl_release_notes.com

   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