descrip.mms.tmpl@ 95000

Last change on this file since 95000 was 91772, checked in by vboxsync, 3 years ago
openssl-1.1.1l: Applied and adjusted our OpenSSL changes to 1.1.1l. bugref:10126
File size: 49.0 KB

Line
1	## descrip.mms to build OpenSSL on OpenVMS
2	##
3	## {- join("\n## ", @autowarntext) -}
4	{-
5	use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
6	use File::Basename;
7
8	# Our prefix, claimed when speaking with the VSI folks Tuesday
9	# January 26th 2016
10	our $osslprefix = 'OSSL$';
11	(our $osslprefix_q = $osslprefix) =~ s/\$/\\\$/;
12
13	our $sover_dirname = sprintf "%02d%02d", split(/\./, $config{shlib_version_number});
14	our $osslver = sprintf "%02d%02d", split(/\./, $config{version});
15
16	our $sourcedir = $config{sourcedir};
17	our $builddir = $config{builddir};
18	sub sourcefile {
19	catfile($sourcedir, @_);
20	}
21	sub buildfile {
22	catfile($builddir, @_);
23	}
24	sub sourcedir {
25	catdir($sourcedir, @_);
26	}
27	sub builddir {
28	catdir($builddir, @_);
29	}
30	sub tree {
31	(my $x = shift) =~ s\|\]$\|...]\|;
32	$x
33	}
34	sub move {
35	my $f = catdir(@_);
36	my $b = abs2rel(rel2abs("."),rel2abs($f));
37	$sourcedir = catdir($b,$sourcedir)
38	if !file_name_is_absolute($sourcedir);
39	$builddir = catdir($b,$builddir)
40	if !file_name_is_absolute($builddir);
41	"";
42	}
43
44	# Because we need to make two computations of these data,
45	# we store them in arrays for reuse
46	our @libs =
47	map { (my $x = $_) =~ s/\.a$//; $x }
48	@{$unified_info{libraries}};
49	our @shlibs =
50	map { $unified_info{sharednames}->{$_} \|\| () }
51	grep(!/\.a$/, @{$unified_info{libraries}});
52	our @install_libs =
53	map { (my $x = $_) =~ s/\.a$//; $x }
54	@{$unified_info{install}->{libraries}};
55	our @install_shlibs =
56	map { $unified_info{sharednames}->{$_} \|\| () }
57	grep(!/\.a$/, @{$unified_info{install}->{libraries}});
58
59	# This is a horrible hack, but is needed because recursive inclusion of files
60	# in different directories does not work well with HP C.
61	my $sd = sourcedir("crypto", "async", "arch");
62	foreach (grep /\[\.crypto\.async\.arch\].*\.o$/, keys %{$unified_info{sources}}) {
63	(my $x = $_) =~ s\|\.o$\|.OBJ\|;
64	$unified_info{before}->{$x}
65	= qq(arch_include = F\$PARSE("$sd","A.;",,,"SYNTAX_ONLY") - "A.;"
66	define arch 'arch_include');
67	$unified_info{after}->{$x}
68	= qq(deassign arch);
69	}
70	my $sd1 = sourcedir("ssl","record");
71	my $sd2 = sourcedir("ssl","statem");
72	my @ssl_locl_users = grep(/^\[\.(?:ssl\.(?:record\|statem)\|test)\].*\.o$/,
73	keys %{$unified_info{sources}});
74	foreach (@ssl_locl_users) {
75	(my $x = $_) =~ s\|\.o$\|.OBJ\|;
76	$unified_info{before}->{$x}
77	= qq(record_include = F\$PARSE("$sd1","A.;",,,"SYNTAX_ONLY") - "A.;"
78	define record 'record_include'
79	statem_include = F\$PARSE("$sd2","A.;",,,"SYNTAX_ONLY") - "A.;"
80	define statem 'statem_include');
81	$unified_info{after}->{$x}
82	= qq(deassign statem
83	deassign record);
84	}
85	# This makes sure things get built in the order they need
86	# to. You're welcome.
87	sub dependmagic {
88	my $target = shift;
89
90	return "$target : build_generated\n\t\pipe \$(MMS) \$(MMSQUALIFIERS) depend && \$(MMS) \$(MMSQUALIFIERS) _$target\n_$target";
91	}
92	#use Data::Dumper;
93	#print STDERR "DEBUG: before:\n", Dumper($unified_info{before});
94	#print STDERR "DEBUG: after:\n", Dumper($unified_info{after});
95	"";
96	-}
97	PLATFORM={- $config{target} -}
98	OPTIONS={- $config{options} -}
99	CONFIGURE_ARGS=({- join(", ",quotify_l(@{$config{perlargv}})) -})
100	SRCDIR={- $config{sourcedir} -}
101	BLDDIR={- $config{builddir} -}
102
103	# Allow both V and VERBOSE to indicate verbosity. This only applies
104	# to testing.
105	VERBOSE=$(V)
106
107	VERSION={- $config{version} -}
108	MAJOR={- $config{major} -}
109	MINOR={- $config{minor} -}
110	SHLIB_VERSION_NUMBER={- $config{shlib_version_number} -}
111	SHLIB_VERSION_HISTORY={- $config{shlib_version_history} -}
112	SHLIB_MAJOR={- $config{shlib_major} -}
113	SHLIB_MINOR={- $config{shlib_minor} -}
114	SHLIB_TARGET={- $target{shared_target} -}
115
116	EXE_EXT=.EXE
117	LIB_EXT=.OLB
118	SHLIB_EXT=.EXE
119	OBJ_EXT=.OBJ
120	DEP_EXT=.D
121
122	LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @libs) -}
123	SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @shlibs) -}
124	ENGINES={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{engines}}) -}
125	PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{programs}}) -}
126	SCRIPTS={- join(", ", map { "-\n\t".$_ } @{$unified_info{scripts}}) -}
127	{- output_off() if $disabled{makedepend}; "" -}
128	DEPS={- our @deps = map { (my $x = $_) =~ s\|\.o$\|\$(DEP_EXT)\|; $x; }
129	grep { $unified_info{sources}->{$_}->[0] =~ /\.c$/ }
130	keys %{$unified_info{sources}};
131	join(", ", map { "-\n\t".$_ } @deps); -}
132	{- output_on() if $disabled{makedepend}; "" -}
133	GENERATED_MANDATORY={- join(", ", map { "-\n\t".$_ } @{$unified_info{depends}->{""}} ) -}
134	GENERATED={- # common0.tmpl provides @generated
135	join(", ", map { (my $x = $_) =~ s\|\.[sS]$\|.asm\|; "-\n\t".$x }
136	@generated) -}
137
138	INSTALL_LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @install_libs) -}
139	INSTALL_SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @install_shlibs) -}
140	INSTALL_ENGINES={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{install}->{engines}}) -}
141	INSTALL_PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{install}->{programs}}) -}
142	{- output_off() if $disabled{apps}; "" -}
143	BIN_SCRIPTS=[.tools]c_rehash.pl
144	MISC_SCRIPTS=[.apps]CA.pl, [.apps]tsget.pl
145	{- output_on() if $disabled{apps}; "" -}
146
147	APPS_OPENSSL={- use File::Spec::Functions;
148	catfile("apps","openssl") -}
149
150	# DESTDIR is for package builders so that they can configure for, say,
151	# SYS$COMMON:[OPENSSL] and yet have everything installed in STAGING:[USER].
152	# In that case, configure with --prefix=SYS$COMMON:[OPENSSL] and then run
153	# MMS with /MACROS=(DESTDIR=STAGING:[USER]). The result will end up in
154	# STAGING:[USER.OPENSSL].
155	# Normally it is left empty.
156	DESTDIR=
157
158	# Do not edit this manually. Use Configure --prefix=DIR to change this!
159	INSTALLTOP={- our $installtop =
160	catdir($config{prefix}) \|\| "SYS\$COMMON:[OPENSSL]";
161	$installtop -}
162	SYSTARTUP={- catdir($installtop, '[.SYS$STARTUP]'); -}
163	# This is the standard central area to store certificates, private keys...
164	OPENSSLDIR={- catdir($config{openssldir}) or
165	$config{prefix} ? catdir($config{prefix},"COMMON")
166	: "SYS\$COMMON:[OPENSSL-COMMON]" -}
167	# The same, but for C
168	OPENSSLDIR_C={- $osslprefix -}DATAROOT:[000000]
169	# Where installed engines reside, for C
170	ENGINESDIR_C={- $osslprefix -}ENGINES{- $sover_dirname.$target{pointer_size} -}:
171
172	##### User defined commands and flags ################################
173
174	CC={- $config{CC} -}
175	CPP={- $config{CPP} -}
176	DEFINES={- our $defines1 = join('', map { ",$_" } @{$config{CPPDEFINES}}) -}
177	INCLUDES={- our $includes1 = join(',', @{$config{CPPINCLUDES}}) -}
178	CPPFLAGS={- our $cppflags1 = join('', @{$config{CPPFLAGS}}) -}
179	CFLAGS={- join('', @{$config{CFLAGS}}) -}
180	LDFLAGS={- join('', @{$config{LFLAGS}}) -}
181	EX_LIBS={- join('', map { ",$_" } @{$config{LDLIBS}}) -}
182
183	PERL={- $config{PERL} -}
184
185	AS={- $config{AS} -}
186	ASFLAGS={- join(' ', @{$config{ASFLAGS}}) -}
187
188	##### Special command flags ##########################################
189
190	ASOUTFLAG={- $target{asoutflag} -}$(OSSL_EMPTY)
191
192	##### Project flags ##################################################
193
194	# Variables starting with CNF_ are common variables for all product types
195
196	CNF_ASFLAGS={- join('', $target{asflags} \|\| (),
197	@{$config{asflags}}) -}
198	CNF_DEFINES={- our $defines2 = join('', map { ",$_" } @{$target{defines}},
199	@{$config{defines}}) -}
200	CNF_INCLUDES={- our $includes2 = join(',', @{$target{includes}},
201	@{$config{includes}}) -}
202	CNF_CPPFLAGS={- our $cppflags2 = join('', $target{cppflags} \|\| (),
203	@{$config{cppflags}}) -}
204	CNF_CFLAGS={- join('', $target{cflags} \|\| (),
205	@{$config{cflags}}) -}
206	CNF_CXXFLAGS={- join('', $target{cxxflags} \|\| (),
207	@{$config{cxxflags}}) -}
208	CNF_LDFLAGS={- join('', $target{lflags} \|\| (),
209	@{$config{lflags}}) -}
210	CNF_EX_LIBS={- join('', map{ ",$_" } @{$target{ex_libs}},
211	@{$config{ex_libs}}) -}
212
213	# Variables starting with LIB_ are used to build library object files
214	# and shared libraries.
215	# Variables starting with DSO_ are used to build DSOs and their object files.
216	# Variables starting with BIN_ are used to build programs and their object
217	# files.
218
219	LIB_ASFLAGS={- join(' ', $target{lib_asflags} \|\| (),
220	@{$config{lib_asflags}},
221	'$(CNF_ASFLAGS)', '$(ASFLAGS)') -}
222	LIB_DEFINES={- our $lib_defines =
223	join('', (map { ",$_" } @{$target{lib_defines}},
224	@{$target{shared_defines}},
225	@{$config{lib_defines}},
226	@{$config{shared_defines}}));
227	join('', $lib_defines,
228	(map { ",$_" } 'OPENSSLDIR="""$(OPENSSLDIR_C)"""',
229	'ENGINESDIR="""$(ENGINESDIR_C)"""'),
230	'$(CNF_DEFINES)', '$(DEFINES)') -}
231	LIB_INCLUDES={- our $lib_includes =
232	join(',', @{$target{lib_includes}},
233	@{$target{shared_includes}},
234	@{$config{lib_includes}},
235	@{$config{shared_includes}}) -}
236	LIB_CPPFLAGS={- our $lib_cppflags =
237	join('', $target{lib_cppflags} \|\| (),
238	$target{shared_cppflags} \|\| (),
239	@{$config{lib_cppflags}},
240	@{$config{shared_cppflag}});
241	join('', "'qual_includes'",
242	'/DEFINE=(__dummy$(LIB_DEFINES))',
243	$lib_cppflags,
244	'$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -}
245	LIB_CFLAGS={- join('', $target{lib_cflags} \|\| (),
246	$target{shared_cflag} \|\| (),
247	@{$config{lib_cflags}},
248	@{$config{shared_cflag}},
249	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
250	LIB_LDFLAGS={- join('', $target{lib_lflags} \|\| (),
251	$target{shared_ldflag} \|\| (),
252	@{$config{lib_lflags}},
253	@{$config{shared_ldflag}},
254	'$(CNF_LDFLAGS)', '$(LDFLAGS)') -}
255	LIB_EX_LIBS=$(CNF_EX_LIBS)$(EX_LIBS)
256	DSO_ASFLAGS={- join(' ', $target{dso_asflags} \|\| (),
257	$target{module_asflags} \|\| (),
258	@{$config{dso_asflags}},
259	@{$config{module_asflags}},
260	'$(CNF_ASFLAGS)', '$(ASFLAGS)') -}
261	DSO_DEFINES={- join('', (map { ",$_" } @{$target{dso_defines}},
262	@{$target{module_defines}},
263	@{$config{dso_defines}},
264	@{$config{module_defines}}),
265	'$(CNF_DEFINES)', '$(DEFINES)') -}
266	DSO_INCLUDES={- join(',', @{$target{dso_includes}},
267	@{$target{module_includes}},
268	@{$config{dso_includes}},
269	@{$config{module_includes}}) -}
270	DSO_CPPFLAGS={- join('', "'qual_includes'",
271	'/DEFINE=(__dummy$(DSO_DEFINES))',
272	$target{dso_cppflags} \|\| (),
273	$target{module_cppflags} \|\| (),
274	@{$config{dso_cppflags}},
275	@{$config{module_cppflags}},
276	'$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -}
277	DSO_CFLAGS={- join('', $target{dso_cflags} \|\| (),
278	$target{module_cflags} \|\| (),
279	@{$config{dso_cflags}},
280	@{$config{module_cflags}},
281	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
282	DSO_LDFLAGS={- join('', $target{dso_lflags} \|\| (),
283	$target{module_ldflags} \|\| (),
284	@{$config{dso_lflags}},
285	@{$config{module_ldflags}},
286	'$(CNF_LDFLAGS)', '$(LDFLAGS)') -}
287	DSO_EX_LIBS=$(CNF_EX_LIBS) $(EX_LIBS)
288	BIN_ASFLAGS={- join(' ', $target{bin_asflags} \|\| (),
289	@{$config{bin_asflags}},
290	'$(CNF_ASFLAGS)', '$(ASFLAGS)') -}
291	BIN_DEFINES={- join('', (map { ",$_" } @{$target{bin_defines}},
292	@{$config{bin_defines}}),
293	'$(CNF_DEFINES)', '$(DEFINES)') -}
294	BIN_INCLUDES={- join(',', @{$target{bin_includes}},
295	@{$config{bin_includes}}) -}
296	BIN_CPPFLAGS={- join('', "'qual_includes'",
297	'/DEFINE=(__dummy$(DSO_DEFINES))',
298	$target{bin_cppflags} \|\| (),
299	@{$config{bin_cppflag}},
300	'$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -}
301	BIN_CFLAGS={- join('', $target{bin_cflag} \|\| (),
302	@{$config{bin_cflag}},
303	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
304	BIN_LDFLAGS={- join('', $target{bin_lflags} \|\| (),
305	@{$config{bin_lflags}} \|\| (),
306	'$(CNF_LDFLAGS)', '$(LDFLAGS)') -}
307	BIN_EX_LIBS=$(CNF_EX_LIBS) $(EX_LIBS)
308	NO_INST_LIB_CFLAGS={- join('', $target{no_inst_lib_cflags}
309	// $target{lib_cflags}
310	// (),
311	$target{shared_cflag} \|\| (),
312	@{$config{lib_cflags}},
313	@{$config{shared_cflag}},
314	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
315	NO_INST_DSO_CFLAGS={- join('', $target{no_inst_lib_cflags}
316	// $target{lib_cflags}
317	// (),
318	$target{dso_cflags} \|\| (),
319	@{$config{lib_cflags}},
320	@{$config{dso_cflags}},
321	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
322	NO_INST_BIN_CFLAGS={- join('', $target{no_inst_bin_cflags}
323	// $target{bin_cflags}
324	// (),
325	@{$config{bin_cflags}},
326	'$(CNF_CFLAGS)', '$(CFLAGS)') -}
327
328	PERLASM_SCHEME={- $target{perlasm_scheme} -}
329
330	# CPPFLAGS_Q is used for one thing only: to build up buildinf.h
331	CPPFLAGS_Q={- (my $c = $lib_cppflags.$cppflags2.$cppflags1) =~ s\|"\|""\|g;
332	(my $d = $lib_defines.$defines2.$defines1) =~ s\|"\|""\|g;
333	my $i = join(',', $lib_includes \|\| (), $includes2 \|\| (),
334	$includes1 \|\| ());
335	my $x = $c;
336	$x .= "/INCLUDE=($i)" if $i;
337	$x .= "/DEFINE=($d)" if $d;
338	$x; -}
339
340	# .FIRST and .LAST are special targets with MMS and MMK.
341	# The defines in there are for C. includes that look like
342	# this:
343	#
344	# #include <openssl/foo.h>
345	# #include "internal/bar.h"
346	# #include "crypto/something.h"
347	#
348	# will use the logical names to find the files. Expecting
349	# DECompHP C to find files in subdirectories of whatever was
350	# given with /INCLUDE is a fantasy, unfortunately.
351	NODEBUG=@
352	.FIRST :
353	$(NODEBUG) openssl_inc1 = F$PARSE("[.include.openssl]","A.;",,,"syntax_only") - "A.;"
354	$(NODEBUG) openssl_inc2 = F$PARSE("{- catdir($config{sourcedir},"[.include.openssl]") -}","A.;",,,"SYNTAX_ONLY") - "A.;"
355	$(NODEBUG) internal_inc1 = F$PARSE("[.include.internal]","A.;",,,"SYNTAX_ONLY") - "A.;"
356	$(NODEBUG) internal_inc2 = F$PARSE("{- catdir($config{sourcedir},"[.include.internal]") -}","A.;",,,"SYNTAX_ONLY") - "A.;"
357	$(NODEBUG) crypto_inc1 = F$PARSE("[.include.crypto]","A.;",,,"SYNTAX_ONLY") - "A.;"
358	$(NODEBUG) crypto_inc2 = F$PARSE("{- catdir($config{sourcedir},"[.include.crypto]") -}","A.;",,,"SYNTAX_ONLY") - "A.;"
359	$(NODEBUG) DEFINE openssl 'openssl_inc1','openssl_inc2'
360	$(NODEBUG) DEFINE internal 'internal_inc1','internal_inc2'
361	$(NODEBUG) DEFINE crypto 'crypto_inc1','crypto_inc2'
362	$(NODEBUG) staging_dir = "$(DESTDIR)"
363	$(NODEBUG) staging_instdir = ""
364	$(NODEBUG) staging_datadir = ""
365	$(NODEBUG) IF staging_dir .NES. "" THEN -
366	staging_instdir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY")
367	$(NODEBUG) IF staging_instdir - "]A.;" .NES. staging_instdir THEN -
368	staging_instdir = staging_instdir - "]A.;" + ".OPENSSL-INSTALL]"
369	$(NODEBUG) IF staging_instdir - "A.;" .NES. staging_instdir THEN -
370	staging_instdir = staging_instdir - "A.;" + "[OPENSSL-INSTALL]"
371	$(NODEBUG) IF staging_dir .NES. "" THEN -
372	staging_datadir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY")
373	$(NODEBUG) IF staging_datadir - "]A.;" .NES. staging_datadir THEN -
374	staging_datadir = staging_datadir - "]A.;" + ".OPENSSL-COMMON]"
375	$(NODEBUG) IF staging_datadir - "A.;" .NES. staging_datadir THEN -
376	staging_datadir = staging_datadir - "A.;" + "[OPENSSL-COMMON]"
377	$(NODEBUG) !
378	$(NODEBUG) ! Installation logical names
379	$(NODEBUG) !
380	$(NODEBUG) ! This also creates a few DCL variables that are used for
381	$(NODEBUG) ! the "install_msg" target.
382	$(NODEBUG) !
383	$(NODEBUG) installroot = F$PARSE(staging_instdir,"$(INSTALLTOP)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;"
384	$(NODEBUG) installtop = installroot + ".]"
385	$(NODEBUG) dataroot = F$PARSE(staging_datadir,"$(OPENSSLDIR)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;"
386	$(NODEBUG) datatop = dataroot + ".]"
387	$(NODEBUG) DEFINE ossl_installroot 'installtop'
388	$(NODEBUG) DEFINE ossl_dataroot 'datatop'
389	$(NODEBUG) !
390	$(NODEBUG) ! Figure out the architecture
391	$(NODEBUG) !
392	$(NODEBUG) arch = f$edit( f$getsyi( "arch_name"), "upcase")
393	$(NODEBUG) !
394	$(NODEBUG) ! Set up logical names for the libraries, so LINK and
395	$(NODEBUG) ! running programs can use them.
396	$(NODEBUG) !
397	$(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEFINE ".uc($_)." 'F\$ENV(\"DEFAULT\")'".uc($_)."\$(SHLIB_EXT)" } @shlibs) \|\| "!" -}
398
399	.LAST :
400	$(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEASSIGN ".uc($_) } @shlibs) \|\| "!" -}
401	$(NODEBUG) DEASSIGN ossl_dataroot
402	$(NODEBUG) DEASSIGN ossl_installroot
403	$(NODEBUG) DEASSIGN crypto
404	$(NODEBUG) DEASSIGN internal
405	$(NODEBUG) DEASSIGN openssl
406	.DEFAULT :
407	@ ! MMS cannot handle no actions...
408
409	# The main targets ###################################################
410
411	{- dependmagic('all'); -} : build_libs_nodep, build_engines_nodep, build_programs_nodep
412	{- dependmagic('build_libs'); -} : build_libs_nodep
413	{- dependmagic('build_engines'); -} : build_engines_nodep
414	{- dependmagic('build_programs'); -} : build_programs_nodep
415
416	build_generated : $(GENERATED_MANDATORY)
417	build_libs_nodep : $(LIBS), $(SHLIBS)
418	build_engines_nodep : $(ENGINES)
419	build_programs_nodep : $(PROGRAMS), $(SCRIPTS)
420
421	# Kept around for backward compatibility
422	build_apps build_tests : build_programs
423
424	# Convenience target to prebuild all generated files, not just the mandatory
425	# ones
426	build_all_generated : $(GENERATED_MANDATORY) $(GENERATED)
427	@ ! {- output_off() if $disabled{makedepend}; "" -}
428	@ WRITE SYS$OUTPUT "Warning: consider configuring with no-makedepend, because if"
429	@ WRITE SYS$OUTPUT " target system doesn't have $(PERL),"
430	@ WRITE SYS$OUTPUT " then make will fail..."
431	@ ! {- output_on() if $disabled{makedepend}; "" -}
432
433	test : tests
434	{- dependmagic('tests'); -} : build_programs_nodep, build_engines_nodep
435	@ ! {- output_off() if $disabled{tests}; "" -}
436	SET DEFAULT [.test]{- move("test") -}
437	CREATE/DIR [.test-runs]
438	DEFINE SRCTOP {- sourcedir() -}
439	DEFINE BLDTOP {- builddir() -}
440	DEFINE RESULT_D {- builddir(qw(test test-runs)) -}
441	DEFINE OPENSSL_ENGINES {- builddir("engines") -}
442	DEFINE OPENSSL_DEBUG_MEMORY "on"
443	IF "$(VERBOSE)" .NES. "" THEN DEFINE VERBOSE "$(VERBOSE)"
444	$(PERL) {- sourcefile("test", "run_tests.pl") -} $(TESTS)
445	DEASSIGN OPENSSL_DEBUG_MEMORY
446	DEASSIGN OPENSSL_ENGINES
447	DEASSIGN BLDTOP
448	DEASSIGN SRCTOP
449	SET DEFAULT [-]{- move("..") -}
450	@ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -}
451	@ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options"
452	@ ! {- output_on() if !$disabled{tests}; "" -}
453
454	list-tests :
455	@ ! {- output_off() if $disabled{tests}; "" -}
456	@ DEFINE SRCTOP {- sourcedir() -}
457	@ $(PERL) {- sourcefile("test", "run_tests.pl") -} list
458	@ DEASSIGN SRCTOP
459	@ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -}
460	@ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options"
461	@ ! {- output_on() if !$disabled{tests}; "" -}
462
463	install : install_sw install_ssldirs install_docs install_msg
464	@ !
465
466	install_msg :
467	@ WRITE SYS$OUTPUT ""
468	@ WRITE SYS$OUTPUT "######################################################################"
469	@ WRITE SYS$OUTPUT ""
470	@ IF "$(DESTDIR)" .EQS. "" THEN -
471	@{- sourcefile("VMS", "msg_install.com") -} "$(SYSTARTUP)" "{- $osslver -}"
472	@ IF "$(DESTDIR)" .NES. "" THEN -
473	@{- sourcefile("VMS", "msg_staging.com") -} -
474	"''installroot']" "''dataroot']" "$(INSTALLTOP)" "$(OPENSSLDIR)" -
475	"$(SYSTARTUP)" "{- $osslver -}"
476
477	check_install :
478	spawn/nolog @ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com
479
480	uninstall : uninstall_docs uninstall_sw
481
482	# Because VMS wants the generation number (or *) to delete files, we can't
483	# use $(LIBS), $(PROGRAMS), $(GENERATED) and $(ENGINES)directly.
484	libclean :
485	{- join("\n\t", map { "- DELETE $_.OLB;*" } @libs) \|\| "@ !" -}
486	{- join("\n\t", map { "- DELETE $_.EXE;,$_.MAP;" } @shlibs) \|\| "@ !" -}
487
488	clean : libclean
489	{- join("\n\t", map { "- DELETE $_.EXE;,$_.OPT;" } @{$unified_info{programs}}) \|\| "@ !" -}
490	{- join("\n\t", map { "- DELETE $_.EXE;,$_.OPT;" } @{$unified_info{engines}}) \|\| "@ !" -}
491	{- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{scripts}}) \|\| "@ !" -}
492	{- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{depends}->{""}}) \|\| "@ !" -}
493	{- join("\n\t", map { "- DELETE $_;*" } @generated) \|\| "@ !" -}
494	- DELETE [...].MAP;
495	- DELETE [...].D;
496	- DELETE [...].OBJ;,.LIS;
497	- DELETE []CXX$DEMANGLER_DB.;*
498	- DELETE [.VMS]openssl_startup.com;*
499	- DELETE [.VMS]openssl_shutdown.com;*
500	- DELETE []vmsconfig.pm;*
501
502	distclean : clean
503	- DELETE configdata.pm;*
504	- DELETE descrip.mms;*
505
506	depend : descrip.mms
507	descrip.mms : FORCE
508	@ ! {- output_off() if $disabled{makedepend}; "" -}
509	@ $(PERL) {- sourcefile("util", "add-depends.pl") -} "VMS C"
510	@ ! {- output_on() if $disabled{makedepend}; "" -}
511
512	# Install helper targets #############################################
513
514	install_sw : install_dev install_engines install_runtime -
515	install_startup install_ivp
516
517	uninstall_sw : uninstall_dev uninstall_engines uninstall_runtime -
518	uninstall_startup uninstall_ivp
519
520	install_docs : install_html_docs
521
522	uninstall_docs : uninstall_html_docs
523
524	install_ssldirs : check_INSTALLTOP
525	- CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000]
526	IF F$SEARCH("OSSL_DATAROOT:[000000]CERTS.DIR;1") .EQS. "" THEN -
527	CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[CERTS]
528	IF F$SEARCH("OSSL_DATAROOT:[000000]PRIVATE.DIR;1") .EQS. "" THEN -
529	CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[PRIVATE]
530	IF F$SEARCH("OSSL_DATAROOT:[000000]MISC.DIR;1") .EQS. "" THEN -
531	CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[MISC]
532	COPY/PROT=W:RE $(MISC_SCRIPTS) OSSL_DATAROOT:[MISC]
533	@ ! Install configuration file
534	COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} -
535	ossl_dataroot:[000000]openssl.cnf-dist
536	IF F$SEARCH("OSSL_DATAROOT:[000000]openssl.cnf") .EQS. "" THEN -
537	COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} -
538	ossl_dataroot:[000000]openssl.cnf
539	@ ! Install CTLOG configuration file
540	COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} -
541	ossl_dataroot:[000000]ct_log_list.cnf-dist
542	IF F$SEARCH("OSSL_DATAROOT:[000000]ct_log_list.cnf") .EQS. "" THEN -
543	COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} -
544	ossl_dataroot:[000000]ct_log_list.cnf
545
546	install_dev : check_INSTALLTOP install_runtime_libs
547	@ WRITE SYS$OUTPUT "*** Installing development files"
548	@ ! Install header files
549	- CREATE/DIR ossl_installroot:[include.openssl]
550	COPY/PROT=W:R openssl:*.h ossl_installroot:[include.openssl]
551	@ ! Install static (development) libraries
552	- CREATE/DIR ossl_installroot:[LIB.'arch']
553	{- join("\n ",
554	map { "COPY/PROT=W:R $_.OLB ossl_installroot:[LIB.'arch']" }
555	@install_libs) -}
556
557	install_engines : check_INSTALLTOP install_runtime_libs build_engines
558	@ {- output_off() unless scalar @{$unified_info{engines}}; "" -} !
559	@ WRITE SYS$OUTPUT "*** Installing engines"
560	- CREATE/DIR ossl_installroot:[ENGINES{- $sover_dirname.$target{pointer_size} -}.'arch']
561	{- join("\n ",
562	map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[ENGINES$sover_dirname$target{pointer_size}.'arch']" }
563	@{$unified_info{install}->{engines}}) -}
564	@ {- output_on() unless scalar @{$unified_info{engines}}; "" -} !
565
566	install_runtime : install_programs
567
568	install_runtime_libs : check_INSTALLTOP build_libs
569	@ {- output_off() if $disabled{shared}; "" -} !
570	@ WRITE SYS$OUTPUT "*** Installing shareable images"
571	@ ! Install shared (runtime) libraries
572	- CREATE/DIR ossl_installroot:[LIB.'arch']
573	{- join("\n ",
574	map { "COPY/PROT=W:R $_.EXE ossl_installroot:[LIB.'arch']" }
575	@install_shlibs) -}
576	@ {- output_on() if $disabled{shared}; "" -} !
577
578	install_programs : check_INSTALLTOP install_runtime_libs build_programs
579	@ {- output_off() if $disabled{apps}; "" -} !
580	@ ! Install the main program
581	- CREATE/DIR ossl_installroot:[EXE.'arch']
582	COPY/PROT=W:RE [.APPS]openssl.EXE -
583	ossl_installroot:[EXE.'arch']openssl{- $osslver -}.EXE
584	@ ! Install scripts
585	COPY/PROT=W:RE $(BIN_SCRIPTS) ossl_installroot:[EXE]
586	@ ! {- output_on() if $disabled{apps}; "" -}
587
588	install_startup : [.VMS]openssl_startup.com [.VMS]openssl_shutdown.com -
589	[.VMS]openssl_utils.com, check_INSTALLTOP
590	- CREATE/DIR ossl_installroot:[SYS$STARTUP]
591	COPY/PROT=W:RE [.VMS]openssl_startup.com -
592	ossl_installroot:[SYS$STARTUP]openssl_startup{- $osslver -}.com
593	COPY/PROT=W:RE [.VMS]openssl_shutdown.com -
594	ossl_installroot:[SYS$STARTUP]openssl_shutdown{- $osslver -}.com
595	COPY/PROT=W:RE [.VMS]openssl_utils.com -
596	ossl_installroot:[SYS$STARTUP]openssl_utils{- $osslver -}.com
597
598	install_ivp : [.VMS]openssl_ivp.com check_INSTALLTOP
599	- CREATE/DIR ossl_installroot:[SYSTEST]
600	COPY/PROT=W:RE [.VMS]openssl_ivp.com -
601	ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com
602
603	[.VMS]openssl_startup.com : vmsconfig.pm {- sourcefile("VMS", "openssl_startup.com.in") -}
604	- CREATE/DIR [.VMS]
605	$(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} -
606	{- sourcefile("VMS", "openssl_startup.com.in") -} -
607	> [.VMS]openssl_startup.com
608
609	[.VMS]openssl_utils.com : vmsconfig.pm {- sourcefile("VMS", "openssl_utils.com.in") -}
610	- CREATE/DIR [.VMS]
611	$(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} -
612	{- sourcefile("VMS", "openssl_utils.com.in") -} -
613	> [.VMS]openssl_utils.com
614
615	[.VMS]openssl_shutdown.com : vmsconfig.pm {- sourcefile("VMS", "openssl_shutdown.com.in") -}
616	- CREATE/DIR [.VMS]
617	$(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} -
618	{- sourcefile("VMS", "openssl_shutdown.com.in") -} -
619	> [.VMS]openssl_shutdown.com
620
621	[.VMS]openssl_ivp.com : vmsconfig.pm {- sourcefile("VMS", "openssl_ivp.com.in") -}
622	- CREATE/DIR [.VMS]
623	$(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} -
624	{- sourcefile("VMS", "openssl_ivp.com.in") -} -
625	> [.VMS]openssl_ivp.com
626
627	vmsconfig.pm : configdata.pm
628	OPEN/WRITE/SHARE=READ CONFIG []vmsconfig.pm
629	WRITE CONFIG "package vmsconfig;"
630	WRITE CONFIG "use strict; use warnings;"
631	WRITE CONFIG "use Exporter;"
632	WRITE CONFIG "our @ISA = qw(Exporter);"
633	WRITE CONFIG "our @EXPORT = qw(%config %target %withargs %unified_info %disabled);"
634	WRITE CONFIG "our %config = ("
635	WRITE CONFIG " target => '","{- $config{target} -}","',"
636	WRITE CONFIG " version => '","{- $config{version} -}","',"
637	WRITE CONFIG " shlib_version_number => '","{- $config{shlib_version_number} -}","',"
638	WRITE CONFIG " shlib_major => '","{- $config{shlib_major} -}","',"
639	WRITE CONFIG " shlib_minor => '","{- $config{shlib_minor} -}","',"
640	WRITE CONFIG " no_shared => '","{- $disabled{shared} -}","',"
641	WRITE CONFIG " INSTALLTOP => '$(INSTALLTOP)',"
642	WRITE CONFIG " OPENSSLDIR => '$(OPENSSLDIR)',"
643	WRITE CONFIG " pointer_size => '","{- $target{pointer_size} -}","',"
644	WRITE CONFIG ");"
645	WRITE CONFIG "our %target = ();"
646	WRITE CONFIG "our %disabled = ();"
647	WRITE CONFIG "our %withargs = ();"
648	WRITE CONFIG "our %unified_info = ();"
649	WRITE CONFIG "1;"
650	CLOSE CONFIG
651
652	install_html_docs : check_INSTALLTOP
653	sourcedir = F$PARSE("{- $sourcedir -}A.;","[]") - "]A.;" + ".DOC]"
654	$(PERL) {- sourcefile("util", "process_docs.pl") -} -
655	--sourcedir='sourcedir' --destdir=ossl_installroot:[HTML] -
656	--type=html
657
658	check_INSTALLTOP :
659	@ IF "$(INSTALLTOP)" .EQS. "" THEN -
660	WRITE SYS$ERROR "INSTALLTOP should not be empty"
661	@ IF "$(INSTALLTOP)" .EQS. "" THEN -
662	EXIT %x10000002
663
664	# Helper targets #####################################################
665
666	# Developer targets ##################################################
667
668	debug_logicals :
669	SH LOGICAL/PROC openssl,internal,ossl_installroot,ossl_dataroot
670
671	# Building targets ###################################################
672
673	configdata.pm : $(SRCDIR)Configure $(SRCDIR)config.com {- join(" ", @{$config{build_file_templates}}, @{$config{build_infos}}, @{$config{conf_files}}) -}
674	perl configdata.pm -r
675	@ WRITE SYS$OUTPUT "*************************************************"
676	@ WRITE SYS$OUTPUT "* *"
677	@ WRITE SYS$OUTPUT "* Please run the same mms command again *"
678	@ WRITE SYS$OUTPUT "* *"
679	@ WRITE SYS$OUTPUT "*************************************************"
680	@ PIPE ( EXIT %X10000000 )
681
682	reconfigure reconf :
683	perl configdata.pm -r
684
685	{-
686	use File::Basename;
687	use File::Spec::Functions qw/abs2rel rel2abs catfile catdir/;
688
689	# Helper function to figure out dependencies on libraries
690	# It takes a list of library names and outputs a list of dependencies
691	sub compute_lib_depends {
692	if ($disabled{shared}) {
693	return map { $_ =~ /\.a$/ ? $`.".OLB" : $_.".OLB" } @_;
694	}
695	return map { $_ =~ /\.a$/
696	? $`.".OLB"
697	: $unified_info{sharednames}->{$_}.".EXE" } @_;
698	}
699
700	# Helper function to deal with inclusion directory specs.
701	# We have to deal with two things:
702	# 1. comma separation and no possibility of trailing comma
703	# 2. no inclusion directories given at all
704	# 3. long compiler command lines
705	# To resolve 1, we need to iterate through the sources of inclusion
706	# directories, and only add a comma when needed.
707	# To resolve 2, we need to have a variable that will hold the whole
708	# inclusion qualifier, or be the empty string if there are no inclusion
709	# directories. That's the symbol 'qual_includes' that's used in CPPFLAGS
710	# To resolve 3, we creata a logical name TMP_INCLUDES: to hold the list
711	# of inclusion directories.
712	#
713	# This function returns a list of two lists, one being the collection of
714	# commands to execute before the compiler is called, and the other being
715	# the collection of commands to execute after. It takes as arguments the
716	# collection of strings to include as directory specs.
717	sub includes {
718	my @stuff = ( @_ );
719	my @before = (
720	'qual_includes :=',
721	);
722	my @after = (
723	'DELETE/SYMBOL/LOCAL qual_includes',
724	);
725
726	if (scalar @stuff > 0) {
727	push @before, 'tmp_includes := '.shift(@stuff);
728	while (@stuff) {
729	push @before, 'tmp_add := '.shift(@stuff);
730	push @before, 'IF tmp_includes .NES. "" .AND. tmp_add .NES. "" THEN tmp_includes = tmp_includes + ","';
731	push @before, 'tmp_includes = tmp_includes + tmp_add';
732	}
733	push @before, "IF tmp_includes .NES. \"\" THEN DEFINE tmp_includes 'tmp_includes'";
734	push @before, 'IF tmp_includes .NES. "" THEN qual_includes := /INCLUDE=(tmp_includes:)';
735	push @before, 'DELETE/SYMBOL/LOCAL tmp_includes';
736	push @before, 'DELETE/SYMBOL/LOCAL tmp_add';
737	push @after, 'DEASSIGN tmp_includes:'
738	}
739	return ([ @before ], [ @after ]);
740	}
741
742	sub generatesrc {
743	my %args = @_;
744	(my $target = $args{src}) =~ s/\.[sS]$/.asm/;
745	my $generator = join(" ", @{$args{generator}});
746	my $generator_incs = join("", map { ' "-I'.$_.'"' } @{$args{generator_incs}});
747	my $deps = join(", -\n\t\t", @{$args{generator_deps}}, @{$args{deps}});
748
749	if ($target !~ /\.asm$/) {
750	if ($args{generator}->[0] =~ m\|^.*\.in$\|) {
751	my $dofile = abs2rel(rel2abs(catfile($config{sourcedir},
752	"util", "dofile.pl")),
753	rel2abs($config{builddir}));
754	return <<"EOF";
755	$target : $args{generator}->[0] $deps
756	\$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile \\
757	"-o$target{build_file}" $generator > \$\@
758	EOF
759	} else {
760	return <<"EOF";
761	$target : $args{generator}->[0] $deps
762	\$(PERL)$generator_incs $generator > \$\@
763	EOF
764	}
765	} else {
766	if ($args{generator}->[0] =~ /\.pl$/) {
767	$generator = '$(PERL)'.$generator_incs.' '.$generator;
768	} elsif ($args{generator}->[0] =~ /\.S$/) {
769	$generator = undef;
770	} else {
771	die "Generator type for $src unknown: $generator\n";
772	}
773
774	my $cppflags = {
775	lib => '$(LIB_CFLAGS) $(LIB_CPPFLAGS)',
776	dso => '$(DSO_CFLAGS) $(DSO_CPPFLAGS)',
777	bin => '$(BIN_CFLAGS) $(BIN_CPPFLAGS)'
778	} -> {$args{intent}};
779	my @incs_cmds = includes({ lib => '$(LIB_INCLUDES)',
780	dso => '$(DSO_INCLUDES)',
781	bin => '$(BIN_INCLUDES)' } -> {$args{intent}},
782	'$(CNF_INCLUDES)',
783	'$(INCLUDES)',
784	@{$args{incs}});
785	my $incs_on = join("\n\t\@ ", @{$incs_cmds[0]}) \|\| '!';
786	my $incs_off = join("\n\t\@ ", @{$incs_cmds[1]}) \|\| '!';
787	if (defined($generator)) {
788	# If the target is named foo.S in build.info, we want to
789	# end up generating foo.s in two steps.
790	if ($args{src} =~ /\.S$/) {
791	return <<"EOF";
792	$target : $args{generator}->[0] $deps
793	$generator \$\@-S
794	\@ $incs_on
795	PIPE \$(CPP) $cppflags \$\@-S \| -
796	\$(PERL) -ne "/^#(\\sline)?\\s[0-9]+\\s+""/ or print" > \$\@-i
797	\@ $incs_off
798	RENAME \$\@-i \$\@
799	DELETE \$\@-S;
800	EOF
801	}
802	# Otherwise....
803	return <<"EOF";
804	$target : $args{generator}->[0] $deps
805	$generator \$\@
806	EOF
807	}
808	return <<"EOF";
809	$target : $args{generator}->[0] $deps
810	\@ $incs_on
811	SHOW SYMBOL qual_includes
812	PIPE \$(CPP) $cppflags $args{generator}->[0] \| -
813	\$(PERL) "-ne" "/^#(\\sline)?\\s[0-9]+\\s+""/ or print" > \$\@
814	\@ $incs_off
815	EOF
816	}
817	}
818
819	sub src2obj {
820	my %args = @_;
821	my @srcs = map { (my $x = $_) =~ s/\.s$/.asm/; $x
822	} ( @{$args{srcs}} );
823	(my $obj = $args{obj}) =~ s\|\.o$\|\|;
824	my $deps = join(", -\n\t\t", @srcs, @{$args{deps}});
825
826	# Because VMS C isn't very good at combining a /INCLUDE path with
827	# #includes having a relative directory (like '#include "../foo.h"),
828	# the best choice is to move to the first source file's intended
829	# directory before compiling, and make sure to write the object file
830	# in the correct position (important when the object tree is other
831	# than the source tree).
832	my $forward = dirname($args{srcs}->[0]);
833	my $backward = abs2rel(rel2abs("."), rel2abs($forward));
834	my $objd = abs2rel(rel2abs(dirname($obj)), rel2abs($forward));
835	my $objn = basename($obj);
836	my $srcs =
837	join(", ", map { abs2rel(rel2abs($_), rel2abs($forward)) } @srcs);
838	my $before = $unified_info{before}->{$obj.".OBJ"} \|\| "\@ !";
839	my $after = $unified_info{after}->{$obj.".OBJ"} \|\| "\@ !";
840
841	my $cflags;
842	if ($args{installed}) {
843	$cflags = { lib => '$(LIB_CFLAGS)',
844	dso => '$(DSO_CFLAGS)',
845	bin => '$(BIN_CFLAGS)' } -> {$args{intent}};
846	} else {
847	$cflags = { lib => '$(NO_INST_LIB_CFLAGS)',
848	dso => '$(NO_INST_DSO_CFLAGS)',
849	bin => '$(NO_INST_BIN_CFLAGS)' } -> {$args{intent}};
850	}
851	$cflags .= { lib => '$(LIB_CPPFLAGS)',
852	dso => '$(DSO_CPPFLAGS)',
853	bin => '$(BIN_CPPFLAGS)' } -> {$args{intent}};
854	my $asflags = { lib => ' $(LIB_ASFLAGS)',
855	dso => ' $(DSO_ASFLAGS)',
856	bin => ' $(BIN_ASFLAGS)' } -> {$args{intent}};
857
858	my @incs_cmds = includes({ lib => '$(LIB_INCLUDES)',
859	dso => '$(DSO_INCLUDES)',
860	bin => '$(BIN_INCLUDES)' } -> {$args{intent}},
861	'$(INCLUDES)',
862	map {
863	file_name_is_absolute($_)
864	? $_ : catdir($backward,$_)
865	} @{$args{incs}});
866	my $incs_on = join("\n\t\@ ", @{$incs_cmds[0]}) \|\| '!';
867	my $incs_off = join("\n\t\@ ", @{$incs_cmds[1]}) \|\| '!';
868
869	if ($srcs[0] =~ /\.asm$/) {
870	return <<"EOF";
871	$obj.OBJ : $deps
872	${before}
873	SET DEFAULT $forward
874	\$(AS) $asflags \$(ASOUTFLAG)${objd}${objn}.OBJ $srcs
875	SET DEFAULT $backward
876	${after}
877	- PURGE $obj.OBJ
878	EOF
879	} elsif ($srcs[0] =~ /.S$/) {
880	return <<"EOF";
881	$obj.OBJ : $deps
882	${before}
883	SET DEFAULT $forward
884	\@ $incs_on
885	PIPE \$(CPP) ${cflags} $srcs \| -
886	\$(PERL) -ne "/^#(\\sline)?\\s[0-9]+\\s+""/ or print" -
887	> ${objd}${objn}.asm
888	\@ $incs_off
889	SET DEFAULT $backward
890	${after}
891	\$(AS) $asflags \$(ASOUTFLAG)$obj.OBJ $obj.asm
892	- PURGE $obj.OBJ
893	EOF
894	}
895
896	my $depbuild = $disabled{makedepend} ? ""
897	: " /MMS=(FILE=${objd}${objn}.D,TARGET=$obj.OBJ)";
898
899	return <<"EOF";
900	$obj.OBJ : $deps
901	${before}
902	SET DEFAULT $forward
903	\@ $incs_on
904	\$(CC) ${cflags}${depbuild} /OBJECT=${objd}${objn}.OBJ /REPOSITORY=$backward $srcs
905	\@ $incs_off
906	SET DEFAULT $backward
907	${after}
908	- PURGE $obj.OBJ
909	EOF
910	}
911	sub libobj2shlib {
912	my %args = @_;
913	my $lib = $args{lib};
914	my $shlib = $args{shlib};
915	my $libd = dirname($lib);
916	my $libn = basename($lib);
917	my @objs = map { (my $x = $_) =~ s\|\.o$\|.OBJ\|; $x }
918	grep { $_ =~ m\|\.o$\| }
919	@{$args{objs}};
920	my @defs = grep { $_ =~ /\.opt$/ } @{$args{objs}};
921	my @deps = compute_lib_depends(@{$args{deps}});
922	die "More than one symbol vector" if scalar @defs > 1;
923	my $deps = join(", -\n\t\t", @defs, @deps);
924	my $shlib_target = $disabled{shared} ? "" : $target{shared_target};
925	my $translatesyms_pl = abs2rel(rel2abs(catfile($config{sourcedir},
926	"VMS", "translatesyms.pl")),
927	rel2abs($config{builddir}));
928	# The "[]" hack is because in .OPT files, each line inherits the
929	# previous line's file spec as default, so if no directory spec
930	# is present in the current line and the previous line has one that
931	# doesn't apply, you're in for a surprise.
932	my $write_opt1 =
933	join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_;
934	"WRITE OPT_FILE \"$x" } @objs).
935	"\"";
936	my $write_opt2 =
937	join("\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_;
938	$x =~ s\|(\.EXE)\|$1/SHARE\|;
939	$x =~ s\|(\.OLB)\|$1/LIB\|;
940	"WRITE OPT_FILE \"$x\"" } @deps)
941	\|\| "\@ !";
942	return <<"EOF"
943	$shlib.EXE : $lib.OLB $deps
944	\$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $defs[0] > $defs[0]-translated
945	OPEN/WRITE/SHARE=READ OPT_FILE $lib-components.OPT
946	$write_opt1
947	$write_opt2
948	CLOSE OPT_FILE
949	LINK \$(LIB_LDFLAGS)/SHARE=\$\@ $defs[0]-translated/OPT,-
950	$lib-components.OPT/OPT \$(LIB_EX_LIBS)
951	DELETE $defs[0]-translated;,$lib-components.OPT;
952	PURGE $shlib.EXE,$shlib.MAP
953	EOF
954	. ($config{target} =~ m\|alpha\| ? "" : <<"EOF"
955	SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
956	EOF
957	);
958	}
959	sub obj2dso {
960	my %args = @_;
961	my $lib = $args{lib};
962	my $libd = dirname($lib);
963	my $libn = basename($lib);
964	(my $libn_nolib = $libn) =~ s/^lib//;
965	my @objs = map { (my $x = $_) =~ s\|\.o$\|.OBJ\|; $x } @{$args{objs}};
966	my @deps = compute_lib_depends(@{$args{deps}});
967	my $deps = join(", -\n\t\t", @objs, @deps);
968	my $shlib_target = $disabled{shared} ? "" : $target{shared_target};
969	my $engine_opt = abs2rel(rel2abs(catfile($config{sourcedir},
970	"VMS", "engine.opt")),
971	rel2abs($config{builddir}));
972	# The "[]" hack is because in .OPT files, each line inherits the
973	# previous line's file spec as default, so if no directory spec
974	# is present in the current line and the previous line has one that
975	# doesn't apply, you're in for a surprise.
976	my $write_opt1 =
977	join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_;
978	"WRITE OPT_FILE \"$x" } @objs).
979	"\"";
980	my $write_opt2 =
981	join("\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_;
982	$x =~ s\|(\.EXE)\|$1/SHARE\|;
983	$x =~ s\|(\.OLB)\|$1/LIB\|;
984	"WRITE OPT_FILE \"$x\"" } @deps)
985	\|\| "\@ !";
986	return <<"EOF"
987	$lib.EXE : $deps
988	OPEN/WRITE/SHARE=READ OPT_FILE $lib.OPT
989	TYPE $engine_opt /OUTPUT=OPT_FILE:
990	$write_opt1
991	$write_opt2
992	CLOSE OPT_FILE
993	LINK \$(DSO_LDFLAGS)/SHARE=\$\@ $lib.OPT/OPT \$(DSO_EX_LIBS)
994	- PURGE $lib.EXE,$lib.OPT,$lib.MAP
995	EOF
996	. ($config{target} =~ m\|alpha\| ? "" : <<"EOF"
997	SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
998	EOF
999	);
1000	}
1001	sub obj2lib {
1002	my %args = @_;
1003	(my $lib = $args{lib}) =~ s/\.a$//;
1004	my @objs = map { (my $x = $_) =~ s\|\.o$\|.OBJ\|; $x } @{$args{objs}};
1005	my $objs = join(", -\n\t\t", @objs);
1006	my $fill_lib = join("\n\t", (map { "LIBRARY/REPLACE $lib.OLB $_" }
1007	@objs));
1008	return <<"EOF";
1009	$lib.OLB : $objs
1010	LIBRARY/CREATE/OBJECT $lib.OLB
1011	$fill_lib
1012	- PURGE $lib.OLB
1013	EOF
1014	}
1015	sub obj2bin {
1016	my %args = @_;
1017	my $bin = $args{bin};
1018	my $bind = dirname($bin);
1019	my $binn = basename($bin);
1020	my @objs = map { (my $x = $_) =~ s\|\.o$\|.OBJ\|; $x } @{$args{objs}};
1021	my $objs = join(",", @objs);
1022	my @deps = compute_lib_depends(@{$args{deps}});
1023	my $deps = join(", -\n\t\t", @objs, @deps);
1024
1025	my $olb_count = scalar grep(m\|\.OLB$\|, @deps);
1026	my $analyse_objs = "@ !";
1027	if ($olb_count > 0) {
1028	my $analyse_quals =
1029	$config{target} =~ m\|alpha\| ? "/GSD" : "/SECTIONS=SYMTAB";
1030	$analyse_objs = "- pipe ANALYSE/OBJECT$analyse_quals $objs \| SEARCH SYS\$INPUT \"\"\"main\"\"\" ; nomain = \$severity .NE. 1"
1031	}
1032	# The "[]" hack is because in .OPT files, each line inherits the
1033	# previous line's file spec as default, so if no directory spec
1034	# is present in the current line and the previous line has one that
1035	# doesn't apply, you're in for a surprise.
1036	my $write_opt1 =
1037	join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_;
1038	"\@ WRITE OPT_FILE \"$x" } @objs).
1039	"\"";
1040	my $write_opt2 =
1041	join("\n\t", map { my @lines = ();
1042	my $x = $_ =~ /\[/ ? $_ : "[]".$_;
1043	if ($x =~ m\|\.EXE$\|) {
1044	push @lines, "\@ WRITE OPT_FILE \"$x/SHARE\"";
1045	} elsif ($x =~ m\|\.OLB$\|) {
1046	(my $l = $x) =~ s/\W/_/g;
1047	push @lines,
1048	"\@ IF nomain THEN WRITE OPT_FILE \"$x/LIB\$(INCLUDE_MAIN_$l)\"",
1049	"\@ IF .NOT. nomain THEN WRITE OPT_FILE \"$x/LIB\""
1050	}
1051	@lines
1052	} @deps)
1053	\|\| "\@ !";
1054	# The linking commands looks a bit complex, but it's for good reason.
1055	# When you link, say, foo.obj, bar.obj and libsomething.exe/share, and
1056	# bar.obj happens to have a symbol that also exists in libsomething.exe,
1057	# the linker will warn about it, loudly, and will then choose to pick
1058	# the first copy encountered (the one in bar.obj in this example).
1059	# On Unix and on Windows, the corresponding maneuvre goes through
1060	# silently with the same effect.
1061	# With some test programs, made for checking the internals of OpenSSL,
1062	# we do this kind of linking deliberately, picking a few specific object
1063	# files from within [.crypto] or [.ssl] so we can reach symbols that are
1064	# otherwise unreachable (since the shareable images only exports the
1065	# symbols listed in [.util]*.num), and then with the shared libraries
1066	# themselves. So we need to silence the warning about multiply defined
1067	# symbols, to mimic the way linking work on Unix and Windows, and so
1068	# the build isn't interrupted (MMS stops when warnings are signaled,
1069	# by default), and so someone building doesn't have to worry where it
1070	# isn't necessary. If there are other warnings, however, we show them
1071	# and let it break the build.
1072	return <<"EOF"
1073	$bin.EXE : $deps
1074	$analyse_objs
1075	@ OPEN/WRITE/SHARE=READ OPT_FILE $bin.OPT
1076	$write_opt1
1077	$write_opt2
1078	@ CLOSE OPT_FILE
1079	TYPE $bin.opt ! For debugging
1080	- pipe SPAWN/WAIT/NOLOG/OUT=$bin.LINKLOG -
1081	LINK \$(BIN_LDFLAGS)/EXEC=\$\@ $bin.OPT/OPT \$(BIN_EX_LIBS) ; -
1082	link_status = \$status ; link_severity = link_status .AND. 7
1083	@ search_severity = 1
1084	-@ IF link_severity .EQ. 0 THEN -
1085	pipe SEARCH $bin.LINKLOG "%","-"/MATCH=AND \| -
1086	SPAWN/WAIT/NOLOG/OUT=NLA0: -
1087	SEARCH SYS\$INPUT: "-W-MULDEF,"/MATCH=NOR ; -
1088	search_severity = \$severity
1089	@ ! search_severity is 3 when the last search didn't find any matching
1090	@ ! string: %SEARCH-I-NOMATCHES, no strings matched
1091	@ ! If that was the result, we pretend linking got through without
1092	@ ! fault or warning.
1093	@ IF search_severity .EQ. 3 THEN link_severity = 1
1094	@ ! At this point, if link_severity shows that there was a fault
1095	@ ! or warning, make sure to restore the linking status.
1096	-@ IF .NOT. link_severity THEN TYPE $bin.LINKLOG
1097	-@ DELETE $bin.LINKLOG;*
1098	@ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status'
1099	- PURGE $bin.EXE,$bin.OPT
1100	EOF
1101	. ($config{target} =~ m\|alpha\| ? "" : <<"EOF"
1102	SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
1103	EOF
1104	);
1105	}
1106	sub in2script {
1107	my %args = @_;
1108	my $script = $args{script};
1109	return "" if grep { $_ eq $script } @{$args{sources}}; # No overwrite!
1110	my $sources = join(" ", @{$args{sources}});
1111	my $dofile = abs2rel(rel2abs(catfile($config{sourcedir},
1112	"util", "dofile.pl")),
1113	rel2abs($config{builddir}));
1114	return <<"EOF";
1115	$script : $sources
1116	\$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile -
1117	"-o$target{build_file}" $sources > $script
1118	SET FILE/PROT=(S:RWED,O:RWED,G:RE,W:RE) $script
1119	PURGE $script
1120	EOF
1121	}
1122	"" # Important! This becomes part of the template result.
1123	-}

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format