build_gnv_curl_release_notes.com 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102
  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