build_gnv_curl_pcsi_text.com 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198
  1. $! File: Build_GNV_curl_pcsi_text.com
  2. $!
  3. $! $Id$
  4. $!
  5. $! Build the *.pcsi$text file from the four components:
  6. $! 1. Generated =product header section
  7. $! 2. [--]readme. file from the Curl distribution, modified to fit
  8. $! a pcsi$text file format.
  9. $! 3. [--]copying file from the Curl distribution, modified to fit
  10. $! a pcsi$text file format.
  11. $! 4. Generated Producer section.
  12. $!
  13. $! Set the name of the release notes from the GNV_PCSI_FILENAME_BASE
  14. $!
  15. $! Copyright 2009, John Malmberg
  16. $!
  17. $! Permission to use, copy, modify, and/or distribute this software for any
  18. $! purpose with or without fee is hereby granted, provided that the above
  19. $! copyright notice and this permission notice appear in all copies.
  20. $!
  21. $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  22. $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  23. $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  24. $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  25. $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  26. $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  27. $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  28. $!
  29. $!
  30. $! 15-Jun-2009 J. Malmberg
  31. $!
  32. $!===========================================================================
  33. $!
  34. $ kit_name = f$trnlnm("GNV_PCSI_KITNAME")
  35. $ if kit_name .eqs. ""
  36. $ then
  37. $ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
  38. $ goto all_exit
  39. $ endif
  40. $ producer = f$trnlnm("GNV_PCSI_PRODUCER")
  41. $ if producer .eqs. ""
  42. $ then
  43. $ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
  44. $ goto all_exit
  45. $ endif
  46. $ producer_full_name = f$trnlnm("GNV_PCSI_PRODUCER_FULL_NAME")
  47. $ if producer_full_name .eqs. ""
  48. $ then
  49. $ write sys$output "@MAKE_PCSI_CURL_KIT_NAME.COM has not been run."
  50. $ goto all_exit
  51. $ endif
  52. $!
  53. $!
  54. $! Parse the kit name into components.
  55. $!---------------------------------------
  56. $ producer = f$element(0, "-", kit_name)
  57. $ base = f$element(1, "-", kit_name)
  58. $ product = f$element(2, "-", kit_name)
  59. $ mmversion = f$element(3, "-", kit_name)
  60. $ majorver = f$extract(0, 3, mmversion)
  61. $ minorver = f$extract(3, 2, mmversion)
  62. $ updatepatch = f$element(4, "-", kit_name)
  63. $ if updatepatch .eqs. "-" then updatepatch = ""
  64. $!
  65. $!
  66. $ product_line = "=product ''producer' ''base' ''product'"
  67. $ if updatepatch .eqs. ""
  68. $ then
  69. $ product_name = " ''majorver'.''minorver'"
  70. $ else
  71. $ product_name = " ''majorver'.''minorver'-''updatepatch'"
  72. $ endif
  73. $ product_line = product_line + " ''product_name' full"
  74. $!
  75. $!
  76. $! If this is VAX and the file is on NFS, the names may be mangled.
  77. $!-----------------------------------------------------------------
  78. $ readme_file = ""
  79. $ if f$search("[--]readme.") .nes. ""
  80. $ then
  81. $ readme_file = "[--]readme."
  82. $ else
  83. $ if f$search("[--]$README.") .nes. ""
  84. $ then
  85. $ readme_file = "[--]$README."
  86. $ else
  87. $ write sys$output "Can not find readme file."
  88. $ goto all_exit
  89. $ endif
  90. $ endif
  91. $ copying_file = ""
  92. $ if f$search("[--]copying.") .nes. ""
  93. $ then
  94. $ copying_file = "[--]copying."
  95. $ else
  96. $ if f$search("[--]$COPYING.") .nes. ""
  97. $ then
  98. $ copying_file = "[--]$COPYING."
  99. $ else
  100. $ write sys$output "Can not find copying file."
  101. $ goto all_exit
  102. $ endif
  103. $ endif
  104. $!
  105. $! Create the file as a VMS text file.
  106. $!----------------------------------------
  107. $ base_file = kit_name
  108. $ create 'base_file'.pcsi$text
  109. $!
  110. $!
  111. $! Start building file.
  112. $!----------------------
  113. $ open/append ptxt 'base_file'.pcsi$text
  114. $ write ptxt product_line
  115. $!
  116. $!
  117. $! First insert the Readme file.
  118. $!
  119. $ open/read rf 'readme_file'
  120. $!
  121. $ write ptxt "1 'PRODUCT"
  122. $ write ptxt "=prompt ''producter' ''product' for OpenVMS"
  123. $!
  124. $rf_loop:
  125. $ read/end=rf_loop_end rf line_in
  126. $ if line_in .nes. ""
  127. $ then
  128. $! PCSI files use the first character in for their purposes.
  129. $!--------------------------------------------------------------
  130. $ first_char = f$extract(0, 1, line_in)
  131. $ if first_char .nes. " " then line_in = " " + line_in
  132. $ endif
  133. $ write ptxt line_in
  134. $ goto rf_loop
  135. $rf_loop_end:
  136. $ close rf
  137. $!
  138. $!
  139. $! Now add in the copying file
  140. $!--------------------------------
  141. $ write ptxt ""
  142. $ write ptxt "1 'NOTICE"
  143. $ write ptxt ""
  144. $!
  145. $ open/read cf 'copying_file'
  146. $!
  147. $cf_loop:
  148. $ read/end=cf_loop_end cf line_in
  149. $ if line_in .nes. ""
  150. $ then
  151. $! PCSI files use the first character in for their purposes.
  152. $!--------------------------------------------------------------
  153. $ first_char = f$extract(0, 1, line_in)
  154. $ if first_char .nes. " " then line_in = " " + line_in
  155. $ endif
  156. $ write ptxt line_in
  157. $ goto cf_loop
  158. $cf_loop_end:
  159. $ close cf
  160. $!
  161. $! Now we need the rest of the boiler plate.
  162. $!--------------------------------------------
  163. $ write ptxt ""
  164. $ write ptxt "1 'PRODUCER"
  165. $ write ptxt "=prompt ''producer_full_name'"
  166. $ write ptxt -
  167. "This software product is provided by ''producer_full_name' with no warranty."
  168. $!
  169. $ arch_type = f$getsyi("ARCH_NAME")
  170. $ node_swvers = f$getsyi("node_swvers")
  171. $ vernum = f$extract(1, f$length(node_swvers), node_swvers)
  172. $ majver = f$element(0, ".", vernum)
  173. $ minverdash = f$element(1, ".", vernum)
  174. $ minver = f$element(0, "-", minverdash)
  175. $ dashver = f$element(1, "-", minverdash)
  176. $ if dashver .eqs. "-" then dashver = ""
  177. $ vmstag = majver + minver + dashver
  178. $ code = f$extract(0, 1, arch_type)
  179. $!
  180. $ write ptxt "1 NEED_VMS''vmstag'"
  181. $ write ptxt -
  182. "=prompt OpenVMS ''vernum' or later is not installed on your system."
  183. $ write ptxt "This product requires OpenVMS ''vernum' or later to function."
  184. $ write ptxt "1 NEED_ZLIB"
  185. $ write ptxt "=prompt ZLIB 1.2-8 or later is not installed on your system."
  186. $ write ptxt "This product requires ZLIB 1.2-8 or later to function."
  187. $ write ptxt "1 SOURCE"
  188. $ write ptxt "=prompt Source modules for ''product'"
  189. $ write ptxt "The Source modules for ''product' will be installed."
  190. $ write ptxt "1 RELEASE_NOTES"
  191. $ write ptxt "=prompt Release notes are available in the [SYSHLP] directory."
  192. $!
  193. $ close ptxt
  194. $!
  195. $!
  196. $!
  197. $all_exit:
  198. $ exit