• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1$! File: MAKE_PCSI_CURL_KIT_NAME.COM
2$!
3$! $Id$
4$!
5$! Calculates the PCSI kit name for use in building an installation kit.
6$! PCSI is HP's PolyCenter Software Installation Utility.
7$!
8$! The results are stored in as logical names so that other procedures
9$! can use them.
10$!
11$! Copyright 2009, John Malmberg
12$!
13$! Permission to use, copy, modify, and/or distribute this software for any
14$! purpose with or without fee is hereby granted, provided that the above
15$! copyright notice and this permission notice appear in all copies.
16$!
17$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
18$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
19$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
20$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
21$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
22$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
23$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
24$!
25$! 11-Jun-2009 J. Malmberg
26$!
27$!========================================================================
28$!
29$! Save default
30$ default_dir = f$environment("DEFAULT")
31$!
32$! Move to the base directories
33$ set def [--]
34$!
35$! Put things back on error.
36$ on warning then goto all_exit
37$!
38$! The producer is the name or common abbreviation for the entity that is
39$! making the kit.  It must be set as a logical name before running this
40$! procedure.
41$!
42$! HP documents the producer as the legal owner of the software, but for
43$! open source work, it should document who is creating the package for
44$! distribution.
45$!
46$ producer = f$trnlnm("GNV_PCSI_PRODUCER")
47$ if producer .eqs. ""
48$ then
49$   write sys$output "The logical name GNV_PCSI_PRODUCER needs to be defined."
50$   write sys$output "This should be set to the common abbreviation or name of"
51$   write sys$output "the entity creating this kit.  If you are an individual"
52$   write sys$output "then use your initials."
53$   goto all_exit
54$ endif
55$ producer_full_name = f$trnlnm("GNV_PCSI_PRODUCER_FULL_NAME")
56$ if producer_full_name .eqs. ""
57$ then
58$   write sys$output "The logical name GNV_PCSI_PRODUCER_FULL_NAME needs to"
59$   write sys$output "be defined.  This should be set to the full name of"
60$   write sys$output "the entity creating this kit.  If you are an individual"
61$   write sys$output "then use your name."
62$   write sys$output "EX: DEFINE GNV_PCSI_PRODUCER_FULL_NAME ""First M. Last"""
63$   goto all_exit
64$ endif
65$!
66$ write sys$output "*****"
67$ write sys$output "***** Producer = ''producer'"
68$ write sys$output "*****"
69$!
70$!
71$! Base is one of 'VMS', 'AXPVMS', 'I64VMS', 'VAXVMS' and indicates what
72$! binaries are in the kit.  A kit with just 'VMS' can be installed on all
73$! architectures.
74$!
75$ base = "VMS"
76$ arch_type = f$getsyi("ARCH_NAME")
77$ code = f$extract(0, 1, arch_type)
78$ if (code .eqs. "I") then base = "I64VMS"
79$ if (code .eqs. "V") then base = "VAXVMS"
80$ if (code .eqs. "A") then base = "AXPVMS"
81$!
82$!
83$ product = "curl"
84$!
85$!
86$! We need to get the version from curlver_h.  It will have a line like
87$! #define LIBCURL_VERSION "7.31.0"
88$!   or
89$! #define LIBCURL_VERSION "7.32.0-20130731".
90$!
91$! The dash indicates that this is a daily pre-release.
92$!
93$!
94$ open/read/error=version_loop_end vhf [.include.curl]curlver.h
95$ version_loop:
96$   read vhf line_in
97$   if line_in .eqs. "" then goto version_loop
98$   if f$locate("#define LIBCURL_VERSION ", line_in) .ne. 0
99$   then
100$       goto version_loop
101$   endif
102$   raw_version = f$element(2," ", line_in) - """" - """"
103$ version_loop_end:
104$ close vhf
105$!
106$!
107$ eco_level = ""
108$ if f$search("''default_dir'vms_eco_level.h") .nes. ""
109$ then
110$   open/read ef 'default_dir'vms_eco_level.h
111$ecolevel_loop:
112$       read/end=ecolevel_loop_end ef line_in
113$       prefix = f$element(0, " ", line_in)
114$       if prefix .nes. "#define" then goto ecolevel_loop
115$       key = f$element(1, " ", line_in)
116$       value = f$element(2, " ", line_in) - """" - """"
117$       if key .eqs. "VMS_ECO_LEVEL"
118$       then
119$           eco_level = "''value'"
120$           if eco_level .eqs. "0"
121$           then
122$               eco_level = ""
123$           else
124$               eco_level = "E" + eco_level
125$           endif
126$           goto ecolevel_loop_end
127$       endif
128$       goto ecolevel_loop
129$ecolevel_loop_end:
130$   close ef
131$ endif
132$!
133$!
134$! This translates to V0732-0 or D0732-0
135$! We encode the snapshot date into the version as an ECO since a daily
136$! can never have an ECO.
137$!
138$! version_type = 'V' for a production release, and 'D' for a build from a
139$! daiy snapshot of the curl source.
140$ majorver = f$element(0, ".", raw_version)
141$ minorver = f$element(1, ".", raw_version)
142$ raw_update = f$element(2, ".", raw_version)
143$ update = f$element(0, "-", raw_update)
144$ if update .eqs. "0" then update = ""
145$ daily_tag = f$element(1, "-", raw_update)
146$ vtype = "V"
147$ patch = ""
148$ if daily_tag .nes. "-"
149$ then
150$   vtype = "D"
151$   daily_tag_len = f$length(daily_tag)
152$   daily_tag = f$extract(4, daily_tag_len - 4, daily_tag)
153$   patch = vtype + daily_tag
154$   product = product + "_d"
155$ else
156$   daily_tag = ""
157$   if eco_level .nes. "" then patch = eco_level
158$ endif
159$!
160$!
161$ version_fao = "!2ZB!2ZB"
162$ mmversion = f$fao(version_fao, 'majorver', 'minorver')
163$ version = vtype + "''mmversion'"
164$ if update .nes. "" .or. patch .nes. ""
165$ then
166$!  The presence of a patch implies an update
167$   if update .eqs. "" .and. patch .nes. "" then update = "0"
168$   version = version + "-" + update + patch
169$   fversion = version
170$ else
171$   fversion = version
172$   version = version + "-"
173$ endif
174$!
175$! Kit type 1 is complete kit, the only type that this procedure will make.
176$ kittype = 1
177$!
178$! Write out a logical name for the resulting base kit name.
179$ name = "''producer'-''base'-''product'-''version'-''kittype'"
180$ define GNV_PCSI_KITNAME "''name'"
181$ fname = "''product'-''fversion'"
182$ define GNV_PCSI_FILENAME_BASE "''fname'"
183$ write sys$output "*****"
184$ write sys$output "***** GNV_PCSI_KITNAME = ''name'."
185$ write sys$output "***** GNV_PCSI_FILENAME_BASE = ''fname'."
186$ write sys$output "*****"
187$!
188$all_exit:
189$ set def 'default_dir'
190$ exit '$status'
191