| ## descrip.mms to build OpenSSL on OpenVMS |
| ## |
| ## {- join("\n## ", @autowarntext) -} |
| {- |
| use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/; |
| use File::Basename; |
| |
| # Our prefix, claimed when speaking with the VSI folks Tuesday |
| # January 26th 2016 |
| our $osslprefix = 'OSSL$'; |
| (our $osslprefix_q = $osslprefix) =~ s/\$/\\\$/; |
| |
| our $sover_dirname = sprintf "%02d%02d", split(/\./, $config{shlib_version_number}); |
| our $osslver = sprintf "%02d%02d", split(/\./, $config{version}); |
| |
| our $sourcedir = $config{sourcedir}; |
| our $builddir = $config{builddir}; |
| sub sourcefile { |
| catfile($sourcedir, @_); |
| } |
| sub buildfile { |
| catfile($builddir, @_); |
| } |
| sub sourcedir { |
| catdir($sourcedir, @_); |
| } |
| sub builddir { |
| catdir($builddir, @_); |
| } |
| sub tree { |
| (my $x = shift) =~ s|\]$|...]|; |
| $x |
| } |
| sub move { |
| my $f = catdir(@_); |
| my $b = abs2rel(rel2abs("."),rel2abs($f)); |
| $sourcedir = catdir($b,$sourcedir) |
| if !file_name_is_absolute($sourcedir); |
| $builddir = catdir($b,$builddir) |
| if !file_name_is_absolute($builddir); |
| ""; |
| } |
| |
| # Because we need to make two computations of these data, |
| # we store them in arrays for reuse |
| our @libs = |
| map { (my $x = $_) =~ s/\.a$//; $x } |
| @{$unified_info{libraries}}; |
| our @shlibs = |
| map { $unified_info{sharednames}->{$_} || () } |
| grep(!/\.a$/, @{$unified_info{libraries}}); |
| our @install_libs = |
| map { (my $x = $_) =~ s/\.a$//; $x } |
| @{$unified_info{install}->{libraries}}; |
| our @install_shlibs = |
| map { $unified_info{sharednames}->{$_} || () } |
| grep(!/\.a$/, @{$unified_info{install}->{libraries}}); |
| our @generated = ( ( map { (my $x = $_) =~ s|\.[sS]$|\.asm|; $x } |
| grep { defined $unified_info{generate}->{$_} } |
| map { @{$unified_info{sources}->{$_}} } |
| grep { /\.o$/ } keys %{$unified_info{sources}} ), |
| ( grep { /\.h$/ } keys %{$unified_info{generate}} ) ); |
| |
| # This is a horrible hack, but is needed because recursive inclusion of files |
| # in different directories does not work well with HP C. |
| my $sd = sourcedir("crypto", "async", "arch"); |
| foreach (grep /\[\.crypto\.async\.arch\].*\.o$/, keys %{$unified_info{sources}}) { |
| (my $x = $_) =~ s|\.o$|.OBJ|; |
| $unified_info{before}->{$x} |
| = qq(arch_include = F\$PARSE("$sd","A.;",,,"SYNTAX_ONLY") - "A.;" |
| define arch 'arch_include'); |
| $unified_info{after}->{$x} |
| = qq(deassign arch); |
| } |
| my $sd1 = sourcedir("ssl","record"); |
| my $sd2 = sourcedir("ssl","statem"); |
| my @ssl_locl_users = grep(/^\[\.(?:ssl\.(?:record|statem)|test)\].*\.o$/, |
| keys %{$unified_info{sources}}); |
| foreach (@ssl_locl_users) { |
| (my $x = $_) =~ s|\.o$|.OBJ|; |
| $unified_info{before}->{$x} |
| = qq(record_include = F\$PARSE("$sd1","A.;",,,"SYNTAX_ONLY") - "A.;" |
| define record 'record_include' |
| statem_include = F\$PARSE("$sd2","A.;",,,"SYNTAX_ONLY") - "A.;" |
| define statem 'statem_include'); |
| $unified_info{after}->{$x} |
| = qq(deassign statem |
| deassign record); |
| } |
| # This makes sure things get built in the order they need |
| # to. You're welcome. |
| sub dependmagic { |
| my $target = shift; |
| |
| return "$target : build_generated\n\t\pipe \$(MMS) \$(MMSQUALIFIERS) depend && \$(MMS) \$(MMSQUALIFIERS) _$target\n_$target"; |
| } |
| #use Data::Dumper; |
| #print STDERR "DEBUG: before:\n", Dumper($unified_info{before}); |
| #print STDERR "DEBUG: after:\n", Dumper($unified_info{after}); |
| ""; |
| -} |
| PLATFORM={- $config{target} -} |
| OPTIONS={- $config{options} -} |
| CONFIGURE_ARGS=({- join(", ",quotify_l(@{$config{perlargv}})) -}) |
| SRCDIR={- $config{sourcedir} -} |
| BLDDIR={- $config{builddir} -} |
| |
| # Allow both V and VERBOSE to indicate verbosity. This only applies |
| # to testing. |
| VERBOSE=$(V) |
| |
| VERSION={- $config{version} -} |
| MAJOR={- $config{major} -} |
| MINOR={- $config{minor} -} |
| SHLIB_VERSION_NUMBER={- $config{shlib_version_number} -} |
| SHLIB_VERSION_HISTORY={- $config{shlib_version_history} -} |
| SHLIB_MAJOR={- $config{shlib_major} -} |
| SHLIB_MINOR={- $config{shlib_minor} -} |
| SHLIB_TARGET={- $target{shared_target} -} |
| |
| EXE_EXT=.EXE |
| LIB_EXT=.OLB |
| SHLIB_EXT=.EXE |
| OBJ_EXT=.OBJ |
| DEP_EXT=.D |
| |
| LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @libs) -} |
| SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @shlibs) -} |
| ENGINES={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{engines}}) -} |
| PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{programs}}) -} |
| SCRIPTS={- join(", ", map { "-\n\t".$_ } @{$unified_info{scripts}}) -} |
| {- output_off() if $disabled{makedepend}; "" -} |
| DEPS={- our @deps = map { (my $x = $_) =~ s|\.o$|\$(DEP_EXT)|; $x; } |
| grep { $unified_info{sources}->{$_}->[0] =~ /\.c$/ } |
| keys %{$unified_info{sources}}; |
| join(", ", map { "-\n\t".$_ } @deps); -} |
| {- output_on() if $disabled{makedepend}; "" -} |
| GENERATED_MANDATORY={- join(", ", map { "-\n\t".$_ } @{$unified_info{depends}->{""}} ) -} |
| GENERATED={- join(", ", map { "-\n\t".$_ } @generated) -} |
| |
| INSTALL_LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @install_libs) -} |
| INSTALL_SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @install_shlibs) -} |
| INSTALL_ENGINES={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{install}->{engines}}) -} |
| INSTALL_PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{install}->{programs}}) -} |
| {- output_off() if $disabled{apps}; "" -} |
| BIN_SCRIPTS=[.tools]c_rehash.pl |
| MISC_SCRIPTS=[.apps]CA.pl, [.apps]tsget.pl |
| {- output_on() if $disabled{apps}; "" -} |
| |
| APPS_OPENSSL={- use File::Spec::Functions; |
| catfile("apps","openssl") -} |
| |
| # DESTDIR is for package builders so that they can configure for, say, |
| # SYS$COMMON:[OPENSSL] and yet have everything installed in STAGING:[USER]. |
| # In that case, configure with --prefix=SYS$COMMON:[OPENSSL] and then run |
| # MMS with /MACROS=(DESTDIR=STAGING:[USER]). The result will end up in |
| # STAGING:[USER.OPENSSL]. |
| # Normally it is left empty. |
| DESTDIR= |
| |
| # Do not edit this manually. Use Configure --prefix=DIR to change this! |
| INSTALLTOP={- our $installtop = |
| catdir($config{prefix}) || "SYS\$COMMON:[OPENSSL]"; |
| $installtop -} |
| SYSTARTUP={- catdir($installtop, '[.SYS$STARTUP]'); -} |
| # This is the standard central area to store certificates, private keys... |
| OPENSSLDIR={- catdir($config{openssldir}) or |
| $config{prefix} ? catdir($config{prefix},"COMMON") |
| : "SYS\$COMMON:[OPENSSL-COMMON]" -} |
| # The same, but for C |
| OPENSSLDIR_C={- $osslprefix -}DATAROOT:[000000] |
| # Where installed engines reside, for C |
| ENGINESDIR_C={- $osslprefix -}ENGINES{- $sover_dirname.$target{pointer_size} -}: |
| |
| ##### User defined commands and flags ################################ |
| |
| CC={- $config{CC} -} |
| CPP={- $config{CPP} -} |
| DEFINES={- our $defines1 = join('', map { ",$_" } @{$config{CPPDEFINES}}) -} |
| INCLUDES={- our $includes1 = join(',', @{$config{CPPINCLUDES}}) -} |
| CPPFLAGS={- our $cppflags1 = join('', @{$config{CPPFLAGS}}) -} |
| CFLAGS={- join('', @{$config{CFLAGS}}) -} |
| LDFLAGS={- join('', @{$config{LFLAGS}}) -} |
| EX_LIBS={- join('', map { ",$_" } @{$config{LDLIBS}}) -} |
| |
| PERL={- $config{perl} -} |
| |
| AS={- $config{AS} -} |
| ASFLAGS={- join(' ', @{$config{ASFLAGS}}) -} |
| |
| ##### Special command flags ########################################## |
| |
| ASOUTFLAG={- $target{asoutflag} -}$(OSSL_EMPTY) |
| |
| ##### Project flags ################################################## |
| |
| # Variables starting with CNF_ are common variables for all product types |
| |
| CNF_ASFLAGS={- join('', $target{asflags} || (), |
| @{$config{asflags}}) -} |
| CNF_DEFINES={- our $defines2 = join('', map { ",$_" } @{$target{defines}}, |
| @{$config{defines}}) -} |
| CNF_INCLUDES={- our $includes2 = join(',', @{$target{includes}}, |
| @{$config{includes}}) -} |
| CNF_CPPFLAGS={- our $cppflags2 = join('', $target{cppflags} || (), |
| @{$config{cppflags}}) -} |
| CNF_CFLAGS={- join('', $target{cflags} || (), |
| @{$config{cflags}}) -} |
| CNF_CXXFLAGS={- join('', $target{cxxflags} || (), |
| @{$config{cxxflags}}) -} |
| CNF_LDFLAGS={- join('', $target{lflags} || (), |
| @{$config{lflags}}) -} |
| CNF_EX_LIBS={- join('', map{ ",$_" } @{$target{ex_libs}}, |
| @{$config{ex_libs}}) -} |
| |
| # Variables starting with LIB_ are used to build library object files |
| # and shared libraries. |
| # Variables starting with DSO_ are used to build DSOs and their object files. |
| # Variables starting with BIN_ are used to build programs and their object |
| # files. |
| |
| LIB_ASFLAGS={- join(' ', $target{lib_asflags} || (), |
| @{$config{lib_asflags}}, |
| '$(CNF_ASFLAGS)', '$(ASFLAGS)') -} |
| LIB_DEFINES={- our $lib_defines = |
| join('', (map { ",$_" } @{$target{lib_defines}}, |
| @{$target{shared_defines}}, |
| @{$config{lib_defines}}, |
| @{$config{shared_defines}})); |
| join('', $lib_defines, |
| (map { ",$_" } 'OPENSSLDIR="""$(OPENSSLDIR_C)"""', |
| 'ENGINESDIR="""$(ENGINESDIR_C)"""'), |
| '$(CNF_DEFINES)', '$(DEFINES)') -} |
| LIB_INCLUDES={- our $lib_includes = |
| join(',', @{$target{lib_includes}}, |
| @{$target{shared_includes}}, |
| @{$config{lib_includes}}, |
| @{$config{shared_includes}}) -} |
| LIB_CPPFLAGS={- our $lib_cppflags = |
| join('', $target{lib_cppflags} || (), |
| $target{shared_cppflags} || (), |
| @{$config{lib_cppflags}}, |
| @{$config{shared_cppflag}}); |
| join('', "'qual_includes'", |
| '/DEFINE=(__dummy$(LIB_DEFINES))', |
| $lib_cppflags, |
| '$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -} |
| LIB_CFLAGS={- join('', $target{lib_cflags} || (), |
| $target{shared_cflag} || (), |
| @{$config{lib_cflags}}, |
| @{$config{shared_cflag}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| LIB_LDFLAGS={- join('', $target{lib_lflags} || (), |
| $target{shared_ldflag} || (), |
| @{$config{lib_lflags}}, |
| @{$config{shared_ldflag}}, |
| '$(CNF_LDFLAGS)', '$(LDFLAGS)') -} |
| LIB_EX_LIBS=$(CNF_EX_LIBS)$(EX_LIBS) |
| DSO_ASFLAGS={- join(' ', $target{dso_asflags} || (), |
| $target{module_asflags} || (), |
| @{$config{dso_asflags}}, |
| @{$config{module_asflags}}, |
| '$(CNF_ASFLAGS)', '$(ASFLAGS)') -} |
| DSO_DEFINES={- join('', (map { ",$_" } @{$target{dso_defines}}, |
| @{$target{module_defines}}, |
| @{$config{dso_defines}}, |
| @{$config{module_defines}}), |
| '$(CNF_DEFINES)', '$(DEFINES)') -} |
| DSO_INCLUDES={- join(',', @{$target{dso_includes}}, |
| @{$target{module_includes}}, |
| @{$config{dso_includes}}, |
| @{$config{module_includes}}) -} |
| DSO_CPPFLAGS={- join('', "'qual_includes'", |
| '/DEFINE=(__dummy$(DSO_DEFINES))', |
| $target{dso_cppflags} || (), |
| $target{module_cppflags} || (), |
| @{$config{dso_cppflags}}, |
| @{$config{module_cppflags}}, |
| '$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -} |
| DSO_CFLAGS={- join('', $target{dso_cflags} || (), |
| $target{module_cflags} || (), |
| @{$config{dso_cflags}}, |
| @{$config{module_cflags}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| DSO_LDFLAGS={- join('', $target{dso_lflags} || (), |
| $target{module_ldflags} || (), |
| @{$config{dso_lflags}}, |
| @{$config{module_ldflags}}, |
| '$(CNF_LDFLAGS)', '$(LDFLAGS)') -} |
| DSO_EX_LIBS=$(CNF_EX_LIBS) $(EX_LIBS) |
| BIN_ASFLAGS={- join(' ', $target{bin_asflags} || (), |
| @{$config{bin_asflags}}, |
| '$(CNF_ASFLAGS)', '$(ASFLAGS)') -} |
| BIN_DEFINES={- join('', (map { ",$_" } @{$target{bin_defines}}, |
| @{$config{bin_defines}}), |
| '$(CNF_DEFINES)', '$(DEFINES)') -} |
| BIN_INCLUDES={- join(',', @{$target{bin_includes}}, |
| @{$config{bin_includes}}) -} |
| BIN_CPPFLAGS={- join('', "'qual_includes'", |
| '/DEFINE=(__dummy$(DSO_DEFINES))', |
| $target{bin_cppflags} || (), |
| @{$config{bin_cppflag}}, |
| '$(CNF_CPPFLAGS)', '$(CPPFLAGS)') -} |
| BIN_CFLAGS={- join('', $target{bin_cflag} || (), |
| @{$config{bin_cflag}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| BIN_LDFLAGS={- join('', $target{bin_lflags} || (), |
| @{$config{bin_lflags}} || (), |
| '$(CNF_LDFLAGS)', '$(LDFLAGS)') -} |
| BIN_EX_LIBS=$(CNF_EX_LIBS) $(EX_LIBS) |
| NO_INST_LIB_CFLAGS={- join('', $target{no_inst_lib_cflags} |
| // $target{lib_cflags} |
| // (), |
| $target{shared_cflag} || (), |
| @{$config{lib_cflags}}, |
| @{$config{shared_cflag}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| NO_INST_DSO_CFLAGS={- join('', $target{no_inst_lib_cflags} |
| // $target{lib_cflags} |
| // (), |
| $target{dso_cflags} || (), |
| @{$config{lib_cflags}}, |
| @{$config{dso_cflags}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| NO_INST_BIN_CFLAGS={- join('', $target{no_inst_bin_cflags} |
| // $target{bin_cflags} |
| // (), |
| @{$config{bin_cflags}}, |
| '$(CNF_CFLAGS)', '$(CFLAGS)') -} |
| |
| PERLASM_SCHEME={- $target{perlasm_scheme} -} |
| |
| # CPPFLAGS_Q is used for one thing only: to build up buildinf.h |
| CPPFLAGS_Q={- (my $c = $lib_cppflags.$cppflags2.$cppflags1) =~ s|"|""|g; |
| (my $d = $lib_defines.$defines2.$defines1) =~ s|"|""|g; |
| my $i = join(',', $lib_includes || (), $includes2 || (), |
| $includes1 || ()); |
| my $x = $c; |
| $x .= "/INCLUDE=($i)" if $i; |
| $x .= "/DEFINE=($d)" if $d; |
| $x; -} |
| |
| # .FIRST and .LAST are special targets with MMS and MMK. |
| # The defines in there are for C. includes that look like |
| # this: |
| # |
| # #include <openssl/foo.h> |
| # #include "internal/bar.h" |
| # |
| # will use the logical names to find the files. Expecting |
| # DECompHP C to find files in subdirectories of whatever was |
| # given with /INCLUDE is a fantasy, unfortunately. |
| NODEBUG=@ |
| .FIRST : |
| $(NODEBUG) openssl_inc1 = F$PARSE("[.include.openssl]","A.;",,,"syntax_only") - "A.;" |
| $(NODEBUG) openssl_inc2 = F$PARSE("{- catdir($config{sourcedir},"[.include.openssl]") -}","A.;",,,"SYNTAX_ONLY") - "A.;" |
| $(NODEBUG) internal_inc1 = F$PARSE("[.crypto.include.internal]","A.;",,,"SYNTAX_ONLY") - "A.;" |
| $(NODEBUG) internal_inc2 = F$PARSE("{- catdir($config{sourcedir},"[.include.internal]") -}","A.;",,,"SYNTAX_ONLY") - "A.;" |
| $(NODEBUG) internal_inc3 = F$PARSE("{- catdir($config{sourcedir},"[.crypto.include.internal]") -}","A.;",,,"SYNTAX_ONLY") - "A.;" |
| $(NODEBUG) DEFINE openssl 'openssl_inc1','openssl_inc2' |
| $(NODEBUG) DEFINE internal 'internal_inc1','internal_inc2','internal_inc3' |
| $(NODEBUG) staging_dir = "$(DESTDIR)" |
| $(NODEBUG) staging_instdir = "" |
| $(NODEBUG) staging_datadir = "" |
| $(NODEBUG) IF staging_dir .NES. "" THEN - |
| staging_instdir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY") |
| $(NODEBUG) IF staging_instdir - "]A.;" .NES. staging_instdir THEN - |
| staging_instdir = staging_instdir - "]A.;" + ".OPENSSL-INSTALL]" |
| $(NODEBUG) IF staging_instdir - "A.;" .NES. staging_instdir THEN - |
| staging_instdir = staging_instdir - "A.;" + "[OPENSSL-INSTALL]" |
| $(NODEBUG) IF staging_dir .NES. "" THEN - |
| staging_datadir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY") |
| $(NODEBUG) IF staging_datadir - "]A.;" .NES. staging_datadir THEN - |
| staging_datadir = staging_datadir - "]A.;" + ".OPENSSL-COMMON]" |
| $(NODEBUG) IF staging_datadir - "A.;" .NES. staging_datadir THEN - |
| staging_datadir = staging_datadir - "A.;" + "[OPENSSL-COMMON]" |
| $(NODEBUG) ! |
| $(NODEBUG) ! Installation logical names |
| $(NODEBUG) ! |
| $(NODEBUG) installtop = F$PARSE(staging_instdir,"$(INSTALLTOP)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;" + ".]" |
| $(NODEBUG) datatop = F$PARSE(staging_datadir,"$(OPENSSLDIR)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;" + ".]" |
| $(NODEBUG) DEFINE ossl_installroot 'installtop' |
| $(NODEBUG) DEFINE ossl_dataroot 'datatop' |
| $(NODEBUG) ! |
| $(NODEBUG) ! Figure out the architecture |
| $(NODEBUG) ! |
| $(NODEBUG) arch = f$edit( f$getsyi( "arch_name"), "upcase") |
| $(NODEBUG) ! |
| $(NODEBUG) ! Set up logical names for the libraries, so LINK and |
| $(NODEBUG) ! running programs can use them. |
| $(NODEBUG) ! |
| $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEFINE ".uc($_)." 'F\$ENV(\"DEFAULT\")'".uc($_)."\$(SHLIB_EXT)" } @shlibs) || "!" -} |
| |
| .LAST : |
| $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEASSIGN ".uc($_) } @shlibs) || "!" -} |
| $(NODEBUG) DEASSIGN ossl_dataroot |
| $(NODEBUG) DEASSIGN ossl_installroot |
| $(NODEBUG) DEASSIGN internal |
| $(NODEBUG) DEASSIGN openssl |
| .DEFAULT : |
| @ ! MMS cannot handle no actions... |
| |
| # The main targets ################################################### |
| |
| {- dependmagic('all'); -} : build_libs_nodep, build_engines_nodep, build_programs_nodep |
| {- dependmagic('build_libs'); -} : build_libs_nodep |
| {- dependmagic('build_engines'); -} : build_engines_nodep |
| {- dependmagic('build_programs'); -} : build_programs_nodep |
| |
| build_generated : $(GENERATED_MANDATORY) |
| build_libs_nodep : $(LIBS), $(SHLIBS) |
| build_engines_nodep : $(ENGINES) |
| build_programs_nodep : $(PROGRAMS), $(SCRIPTS) |
| |
| # Kept around for backward compatibility |
| build_apps build_tests : build_programs |
| |
| # Convenience target to prebuild all generated files, not just the mandatory |
| # ones |
| build_all_generated : $(GENERATED_MANDATORY) $(GENERATED) |
| |
| test : tests |
| {- dependmagic('tests'); -} : build_programs_nodep, build_engines_nodep |
| @ ! {- output_off() if $disabled{tests}; "" -} |
| SET DEFAULT [.test]{- move("test") -} |
| CREATE/DIR [.test-runs] |
| DEFINE SRCTOP {- sourcedir() -} |
| DEFINE BLDTOP {- builddir() -} |
| DEFINE RESULT_D {- builddir(qw(test test-runs)) -} |
| DEFINE OPENSSL_ENGINES {- builddir("engines") -} |
| DEFINE OPENSSL_DEBUG_MEMORY "on" |
| IF "$(VERBOSE)" .NES. "" THEN DEFINE VERBOSE "$(VERBOSE)" |
| $(PERL) {- sourcefile("test", "run_tests.pl") -} $(TESTS) |
| DEASSIGN OPENSSL_DEBUG_MEMORY |
| DEASSIGN OPENSSL_ENGINES |
| DEASSIGN BLDTOP |
| DEASSIGN SRCTOP |
| SET DEFAULT [-]{- move("..") -} |
| @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} |
| @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" |
| @ ! {- output_on() if !$disabled{tests}; "" -} |
| |
| list-tests : |
| @ ! {- output_off() if $disabled{tests}; "" -} |
| @ DEFINE SRCTOP {- sourcedir() -} |
| @ $(PERL) {- sourcefile("test", "run_tests.pl") -} list |
| @ DEASSIGN SRCTOP |
| @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} |
| @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" |
| @ ! {- output_on() if !$disabled{tests}; "" -} |
| |
| install : install_sw install_ssldirs install_docs |
| @ WRITE SYS$OUTPUT "" |
| @ WRITE SYS$OUTPUT "######################################################################" |
| @ WRITE SYS$OUTPUT "" |
| @ IF "$(DESTDIR)" .EQS. "" THEN - |
| PIPE ( WRITE SYS$OUTPUT "Installation complete" ; - |
| WRITE SYS$OUTPUT "" ; - |
| WRITE SYS$OUTPUT "Run @$(SYSTARTUP)openssl_startup{- $osslver -} to set up logical names" ; - |
| WRITE SYS$OUTPUT "then run @$(SYSTARTUP)openssl_utils{- $osslver -} to define commands" ; - |
| WRITE SYS$OUTPUT "" ) |
| @ IF "$(DESTDIR)" .NES. "" THEN - |
| PIPE ( WRITE SYS$OUTPUT "Staging installation complete" ; - |
| WRITE SYS$OUTPUT "" ; - |
| WRITE SYS$OUTPUT "Finish or package in such a way that the contents of the directory tree" ; - |
| WRITE SYS$OUTPUT staging_instdir ; - |
| WRITE SYS$OUTPUT "ends up in $(INSTALLTOP)," ; - |
| WRITE SYS$OUTPUT "and that the contents of the contents of the directory tree" ; - |
| WRITE SYS$OUTPUT staging_datadir ; - |
| WRITE SYS$OUTPUT "ends up in $(OPENSSLDIR)" ; - |
| WRITE SYS$OUTPUT "" ; - |
| WRITE SYS$OUTPUT "When in its final destination," ; - |
| WRITE SYS$OUTPUT "Run @$(SYSTARTUP)openssl_startup{- $osslver -} to set up logical names" ; - |
| WRITE SYS$OUTPUT "then run @$(SYSTARTUP)openssl_utils{- $osslver -} to define commands" ; - |
| WRITE SYS$OUTPUT "" ) |
| |
| check_install : |
| spawn/nolog @ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com |
| |
| uninstall : uninstall_docs uninstall_sw |
| |
| # Because VMS wants the generation number (or *) to delete files, we can't |
| # use $(LIBS), $(PROGRAMS), $(GENERATED) and $(ENGINES)directly. |
| libclean : |
| {- join("\n\t", map { "- DELETE $_.OLB;*" } @libs) || "@ !" -} |
| {- join("\n\t", map { "- DELETE $_.EXE;*,$_.MAP;*" } @shlibs) || "@ !" -} |
| |
| clean : libclean |
| {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{programs}}) || "@ !" -} |
| {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{engines}}) || "@ !" -} |
| {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{scripts}}) || "@ !" -} |
| {- join("\n\t", map { "- DELETE $_;*" } @generated) || "@ !" -} |
| - DELETE [...]*.MAP;* |
| - DELETE [...]*.D;* |
| - DELETE [...]*.OBJ;*,*.LIS;* |
| - DELETE []CXX$DEMANGLER_DB.;* |
| - DELETE [.VMS]openssl_startup.com;* |
| - DELETE [.VMS]openssl_shutdown.com;* |
| - DELETE []vmsconfig.pm;* |
| |
| distclean : clean |
| - DELETE configdata.pm;* |
| - DELETE descrip.mms;* |
| |
| depend : descrip.mms |
| descrip.mms : FORCE |
| @ ! {- output_off() if $disabled{makedepend}; "" -} |
| @ $(PERL) {- sourcefile("util", "add-depends.pl") -} "VMS C" |
| @ ! {- output_on() if $disabled{makedepend}; "" -} |
| |
| # Install helper targets ############################################# |
| |
| install_sw : all install_shared _install_dev_ns - |
| install_engines _install_runtime_ns - |
| install_startup install_ivp |
| |
| uninstall_sw : uninstall_shared _uninstall_dev_ns - |
| uninstall_engines _uninstall_runtime_ns - |
| uninstall_startup uninstall_ivp |
| |
| install_docs : install_html_docs |
| |
| uninstall_docs : uninstall_html_docs |
| |
| install_ssldirs : check_INSTALLTOP |
| - CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000] |
| IF F$SEARCH("OSSL_DATAROOT:[000000]CERTS.DIR;1") .EQS. "" THEN - |
| CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[CERTS] |
| IF F$SEARCH("OSSL_DATAROOT:[000000]PRIVATE.DIR;1") .EQS. "" THEN - |
| CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[PRIVATE] |
| IF F$SEARCH("OSSL_DATAROOT:[000000]MISC.DIR;1") .EQS. "" THEN - |
| CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[MISC] |
| COPY/PROT=W:RE $(MISC_SCRIPTS) OSSL_DATAROOT:[MISC] |
| @ ! Install configuration file |
| COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - |
| ossl_dataroot:[000000]openssl.cnf-dist |
| IF F$SEARCH("OSSL_DATAROOT:[000000]openssl.cnf") .EQS. "" THEN - |
| COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - |
| ossl_dataroot:[000000]openssl.cnf |
| @ ! Install CTLOG configuration file |
| COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - |
| ossl_dataroot:[000000]ct_log_list.cnf-dist |
| IF F$SEARCH("OSSL_DATAROOT:[000000]ct_log_list.cnf") .EQS. "" THEN - |
| COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - |
| ossl_dataroot:[000000]ct_log_list.cnf |
| |
| install_shared : check_INSTALLTOP |
| @ {- output_off() if $disabled{shared}; "" -} ! |
| @ WRITE SYS$OUTPUT "*** Installing shareable images" |
| @ ! Install shared (runtime) libraries |
| - CREATE/DIR ossl_installroot:[LIB.'arch'] |
| {- join("\n ", |
| map { "COPY/PROT=W:R $_.EXE ossl_installroot:[LIB.'arch']" } |
| @install_shlibs) -} |
| @ {- output_on() if $disabled{shared}; "" -} ! |
| |
| _install_dev_ns : check_INSTALLTOP |
| @ WRITE SYS$OUTPUT "*** Installing development files" |
| @ ! Install header files |
| - CREATE/DIR ossl_installroot:[include.openssl] |
| COPY/PROT=W:R openssl:*.h ossl_installroot:[include.openssl] |
| @ ! Install static (development) libraries |
| - CREATE/DIR ossl_installroot:[LIB.'arch'] |
| {- join("\n ", |
| map { "COPY/PROT=W:R $_.OLB ossl_installroot:[LIB.'arch']" } |
| @install_libs) -} |
| |
| install_dev : install_shared _install_dev_ns |
| |
| _install_runtime_ns : check_INSTALLTOP |
| @ ! Install the main program |
| - CREATE/DIR ossl_installroot:[EXE.'arch'] |
| COPY/PROT=W:RE [.APPS]openssl.EXE - |
| ossl_installroot:[EXE.'arch']openssl{- $osslver -}.EXE |
| @ ! Install scripts |
| COPY/PROT=W:RE $(BIN_SCRIPTS) ossl_installroot:[EXE] |
| @ ! {- output_on() if $disabled{apps}; "" -} |
| |
| install_runtime : install_shared _install_runtime_ns |
| |
| install_engines : check_INSTALLTOP |
| @ {- output_off() unless scalar @{$unified_info{engines}}; "" -} ! |
| @ WRITE SYS$OUTPUT "*** Installing engines" |
| - CREATE/DIR ossl_installroot:[ENGINES{- $sover_dirname.$target{pointer_size} -}.'arch'] |
| {- join("\n ", |
| map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[ENGINES$sover_dirname$target{pointer_size}.'arch']" } |
| @{$unified_info{install}->{engines}}) -} |
| @ {- output_on() unless scalar @{$unified_info{engines}}; "" -} ! |
| |
| install_startup : [.VMS]openssl_startup.com [.VMS]openssl_shutdown.com - |
| [.VMS]openssl_utils.com, check_INSTALLTOP |
| - CREATE/DIR ossl_installroot:[SYS$STARTUP] |
| COPY/PROT=W:RE [.VMS]openssl_startup.com - |
| ossl_installroot:[SYS$STARTUP]openssl_startup{- $osslver -}.com |
| COPY/PROT=W:RE [.VMS]openssl_shutdown.com - |
| ossl_installroot:[SYS$STARTUP]openssl_shutdown{- $osslver -}.com |
| COPY/PROT=W:RE [.VMS]openssl_utils.com - |
| ossl_installroot:[SYS$STARTUP]openssl_utils{- $osslver -}.com |
| |
| install_ivp : [.VMS]openssl_ivp.com check_INSTALLTOP |
| - CREATE/DIR ossl_installroot:[SYSTEST] |
| COPY/PROT=W:RE [.VMS]openssl_ivp.com - |
| ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com |
| |
| [.VMS]openssl_startup.com : vmsconfig.pm {- sourcefile("VMS", "openssl_startup.com.in") -} |
| - CREATE/DIR [.VMS] |
| $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - |
| {- sourcefile("VMS", "openssl_startup.com.in") -} - |
| > [.VMS]openssl_startup.com |
| |
| [.VMS]openssl_utils.com : vmsconfig.pm {- sourcefile("VMS", "openssl_utils.com.in") -} |
| - CREATE/DIR [.VMS] |
| $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - |
| {- sourcefile("VMS", "openssl_utils.com.in") -} - |
| > [.VMS]openssl_utils.com |
| |
| [.VMS]openssl_shutdown.com : vmsconfig.pm {- sourcefile("VMS", "openssl_shutdown.com.in") -} |
| - CREATE/DIR [.VMS] |
| $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - |
| {- sourcefile("VMS", "openssl_shutdown.com.in") -} - |
| > [.VMS]openssl_shutdown.com |
| |
| [.VMS]openssl_ivp.com : vmsconfig.pm {- sourcefile("VMS", "openssl_ivp.com.in") -} |
| - CREATE/DIR [.VMS] |
| $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - |
| {- sourcefile("VMS", "openssl_ivp.com.in") -} - |
| > [.VMS]openssl_ivp.com |
| |
| vmsconfig.pm : configdata.pm |
| OPEN/WRITE/SHARE=READ CONFIG []vmsconfig.pm |
| WRITE CONFIG "package vmsconfig;" |
| WRITE CONFIG "use strict; use warnings;" |
| WRITE CONFIG "use Exporter;" |
| WRITE CONFIG "our @ISA = qw(Exporter);" |
| WRITE CONFIG "our @EXPORT = qw(%config %target %withargs %unified_info %disabled);" |
| WRITE CONFIG "our %config = (" |
| WRITE CONFIG " target => '","{- $config{target} -}","'," |
| WRITE CONFIG " version => '","{- $config{version} -}","'," |
| WRITE CONFIG " shlib_version_number => '","{- $config{shlib_version_number} -}","'," |
| WRITE CONFIG " shlib_major => '","{- $config{shlib_major} -}","'," |
| WRITE CONFIG " shlib_minor => '","{- $config{shlib_minor} -}","'," |
| WRITE CONFIG " no_shared => '","{- $disabled{shared} -}","'," |
| WRITE CONFIG " INSTALLTOP => '$(INSTALLTOP)'," |
| WRITE CONFIG " OPENSSLDIR => '$(OPENSSLDIR)'," |
| WRITE CONFIG " pointer_size => '","{- $target{pointer_size} -}","'," |
| WRITE CONFIG ");" |
| WRITE CONFIG "our %target = ();" |
| WRITE CONFIG "our %disabled = ();" |
| WRITE CONFIG "our %withargs = ();" |
| WRITE CONFIG "our %unified_info = ();" |
| WRITE CONFIG "1;" |
| CLOSE CONFIG |
| |
| install_html_docs : check_INSTALLTOP |
| sourcedir = F$PARSE("{- $sourcedir -}A.;","[]") - "]A.;" + ".DOC]" |
| $(PERL) {- sourcefile("util", "process_docs.pl") -} - |
| --sourcedir='sourcedir' --destdir=ossl_installroot:[HTML] - |
| --type=html |
| |
| check_INSTALLTOP : |
| @ IF "$(INSTALLTOP)" .EQS. "" THEN - |
| WRITE SYS$ERROR "INSTALLTOP should not be empty" |
| @ IF "$(INSTALLTOP)" .EQS. "" THEN - |
| EXIT %x10000002 |
| |
| # Helper targets ##################################################### |
| |
| # Developer targets ################################################## |
| |
| debug_logicals : |
| SH LOGICAL/PROC openssl,internal,ossl_installroot,ossl_dataroot |
| |
| # Building targets ################################################### |
| |
| configdata.pm : $(SRCDIR)Configure $(SRCDIR)config.com {- join(" ", @{$config{build_file_templates}}, @{$config{build_infos}}, @{$config{conf_files}}) -} |
| perl configdata.pm -r |
| @ WRITE SYS$OUTPUT "*************************************************" |
| @ WRITE SYS$OUTPUT "*** ***" |
| @ WRITE SYS$OUTPUT "*** Please run the same mms command again ***" |
| @ WRITE SYS$OUTPUT "*** ***" |
| @ WRITE SYS$OUTPUT "*************************************************" |
| @ PIPE ( EXIT %X10000000 ) |
| |
| reconfigure reconf : |
| perl configdata.pm -r |
| |
| {- |
| use File::Basename; |
| use File::Spec::Functions qw/abs2rel rel2abs catfile catdir/; |
| |
| # Helper function to figure out dependencies on libraries |
| # It takes a list of library names and outputs a list of dependencies |
| sub compute_lib_depends { |
| if ($disabled{shared}) { |
| return map { $_ =~ /\.a$/ ? $`.".OLB" : $_.".OLB" } @_; |
| } |
| return map { $_ =~ /\.a$/ |
| ? $`.".OLB" |
| : $unified_info{sharednames}->{$_}.".EXE" } @_; |
| } |
| |
| # Helper function to deal with inclusion directory specs. |
| # We have to deal with two things: |
| # 1. comma separation and no possibility of trailing comma |
| # 2. no inclusion directories given at all |
| # 3. long compiler command lines |
| # To resolve 1, we need to iterate through the sources of inclusion |
| # directories, and only add a comma when needed. |
| # To resolve 2, we need to have a variable that will hold the whole |
| # inclusion qualifier, or be the empty string if there are no inclusion |
| # directories. That's the symbol 'qual_includes' that's used in CPPFLAGS |
| # To resolve 3, we creata a logical name TMP_INCLUDES: to hold the list |
| # of inclusion directories. |
| # |
| # This function returns a list of two lists, one being the collection of |
| # commands to execute before the compiler is called, and the other being |
| # the collection of commands to execute after. It takes as arguments the |
| # collection of strings to include as directory specs. |
| sub includes { |
| my @stuff = ( @_ ); |
| my @before = ( |
| 'qual_includes :=', |
| ); |
| my @after = ( |
| 'DELETE/SYMBOL/LOCAL qual_includes', |
| ); |
| |
| if (scalar @stuff > 0) { |
| push @before, 'tmp_includes := '.shift(@stuff); |
| while (@stuff) { |
| push @before, 'tmp_add := '.shift(@stuff); |
| push @before, 'IF tmp_includes .NES. "" .AND. tmp_add .NES. "" THEN tmp_includes = tmp_includes + ","'; |
| push @before, 'tmp_includes = tmp_includes + tmp_add'; |
| } |
| push @before, "IF tmp_includes .NES. \"\" THEN DEFINE tmp_includes 'tmp_includes'"; |
| push @before, 'IF tmp_includes .NES. "" THEN qual_includes := /INCLUDE=(tmp_includes:)'; |
| push @before, 'DELETE/SYMBOL/LOCAL tmp_includes'; |
| push @before, 'DELETE/SYMBOL/LOCAL tmp_add'; |
| push @after, 'DEASSIGN tmp_includes:' |
| } |
| return ([ @before ], [ @after ]); |
| } |
| |
| sub generatesrc { |
| my %args = @_; |
| (my $target = $args{src}) =~ s/\.[sS]$/.asm/; |
| my $generator = join(" ", @{$args{generator}}); |
| my $generator_incs = join("", map { ' "-I'.$_.'"' } @{$args{generator_incs}}); |
| my $deps = join(", -\n\t\t", @{$args{generator_deps}}, @{$args{deps}}); |
| |
| if ($target !~ /\.asm$/) { |
| if ($args{generator}->[0] =~ m|^.*\.in$|) { |
| my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, |
| "util", "dofile.pl")), |
| rel2abs($config{builddir})); |
| return <<"EOF"; |
| $target : $args{generator}->[0] $deps |
| \$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile \\ |
| "-o$target{build_file}" $generator > \$\@ |
| EOF |
| } else { |
| return <<"EOF"; |
| $target : $args{generator}->[0] $deps |
| \$(PERL)$generator_incs $generator > \$\@ |
| EOF |
| } |
| } else { |
| if ($args{generator}->[0] =~ /\.pl$/) { |
| $generator = '$(PERL)'.$generator_incs.' '.$generator; |
| } elsif ($args{generator}->[0] =~ /\.S$/) { |
| $generator = undef; |
| } else { |
| die "Generator type for $src unknown: $generator\n"; |
| } |
| |
| my $cppflags = { |
| lib => '$(LIB_CFLAGS) $(LIB_CPPFLAGS)', |
| dso => '$(DSO_CFLAGS) $(DSO_CPPFLAGS)', |
| bin => '$(BIN_CFLAGS) $(BIN_CPPFLAGS)' |
| } -> {$args{intent}}; |
| my @incs_cmds = includes({ lib => '$(LIB_INCLUDES)', |
| dso => '$(DSO_INCLUDES)', |
| bin => '$(BIN_INCLUDES)' } -> {$args{intent}}, |
| '$(CNF_INCLUDES)', |
| '$(INCLUDES)', |
| @{$args{incs}}); |
| my $incs_on = join("\n\t\@ ", @{$incs_cmds[0]}) || '!'; |
| my $incs_off = join("\n\t\@ ", @{$incs_cmds[1]}) || '!'; |
| if (defined($generator)) { |
| # If the target is named foo.S in build.info, we want to |
| # end up generating foo.s in two steps. |
| if ($args{src} =~ /\.S$/) { |
| return <<"EOF"; |
| $target : $args{generator}->[0] $deps |
| $generator \$\@-S |
| \@ $incs_on |
| PIPE \$(CPP) $cppflags \$\@-S | - |
| \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@-i |
| \@ $incs_off |
| RENAME \$\@-i \$\@ |
| DELETE \$\@-S |
| EOF |
| } |
| # Otherwise.... |
| return <<"EOF"; |
| $target : $args{generator}->[0] $deps |
| $generator \$\@ |
| EOF |
| } |
| return <<"EOF"; |
| $target : $args{generator}->[0] $deps |
| \@ $incs_on |
| SHOW SYMBOL qual_includes |
| PIPE \$(CPP) $cppflags $args{generator}->[0] | - |
| \$(PERL) "-ne" "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@ |
| \@ $incs_off |
| EOF |
| } |
| } |
| |
| sub src2obj { |
| my %args = @_; |
| my @srcs = map { (my $x = $_) =~ s/\.s$/.asm/; $x |
| } ( @{$args{srcs}} ); |
| (my $obj = $args{obj}) =~ s|\.o$||; |
| my $deps = join(", -\n\t\t", @srcs, @{$args{deps}}); |
| |
| # Because VMS C isn't very good at combining a /INCLUDE path with |
| # #includes having a relative directory (like '#include "../foo.h"), |
| # the best choice is to move to the first source file's intended |
| # directory before compiling, and make sure to write the object file |
| # in the correct position (important when the object tree is other |
| # than the source tree). |
| my $forward = dirname($args{srcs}->[0]); |
| my $backward = abs2rel(rel2abs("."), rel2abs($forward)); |
| my $objd = abs2rel(rel2abs(dirname($obj)), rel2abs($forward)); |
| my $objn = basename($obj); |
| my $srcs = |
| join(", ", map { abs2rel(rel2abs($_), rel2abs($forward)) } @srcs); |
| my $before = $unified_info{before}->{$obj.".OBJ"} || "\@ !"; |
| my $after = $unified_info{after}->{$obj.".OBJ"} || "\@ !"; |
| |
| if ($srcs[0] =~ /\.asm$/) { |
| my $asflags = { lib => ' $(LIB_ASFLAGS)', |
| dso => ' $(DSO_ASFLAGS)', |
| bin => ' $(BIN_ASFLAGS)' } -> {$args{intent}}; |
| return <<"EOF"; |
| $obj.OBJ : $deps |
| ${before} |
| SET DEFAULT $forward |
| \$(AS) $asflags \$(ASOUTFLAG)${objd}${objn}.OBJ $srcs |
| SET DEFAULT $backward |
| EOF |
| } |
| |
| my $cflags; |
| if ($args{installed}) { |
| $cflags = { lib => '$(LIB_CFLAGS)', |
| dso => '$(DSO_CFLAGS)', |
| bin => '$(BIN_CFLAGS)' } -> {$args{intent}}; |
| } else { |
| $cflags = { lib => '$(NO_INST_LIB_CFLAGS)', |
| dso => '$(NO_INST_DSO_CFLAGS)', |
| bin => '$(NO_INST_BIN_CFLAGS)' } -> {$args{intent}}; |
| } |
| $cflags .= { lib => '$(LIB_CPPFLAGS)', |
| dso => '$(DSO_CPPFLAGS)', |
| bin => '$(BIN_CPPFLAGS)' } -> {$args{intent}}; |
| |
| my @incs_cmds = includes({ lib => '$(LIB_INCLUDES)', |
| dso => '$(DSO_INCLUDES)', |
| bin => '$(BIN_INCLUDES)' } -> {$args{intent}}, |
| '$(INCLUDES)', |
| map { |
| file_name_is_absolute($_) |
| ? $_ : catdir($backward,$_) |
| } @{$args{incs}}); |
| my $incs_on = join("\n\t\@ ", @{$incs_cmds[0]}) || '!'; |
| my $incs_off = join("\n\t\@ ", @{$incs_cmds[1]}) || '!'; |
| my $depbuild = $disabled{makedepend} ? "" |
| : " /MMS=(FILE=${objd}${objn}.D,TARGET=$obj.OBJ)"; |
| |
| return <<"EOF"; |
| $obj.OBJ : $deps |
| ${before} |
| SET DEFAULT $forward |
| \@ $incs_on |
| \$(CC) ${cflags}${depbuild} /OBJECT=${objd}${objn}.OBJ /REPOSITORY=$backward $srcs |
| \@ $incs_off |
| SET DEFAULT $backward |
| ${after} |
| - PURGE $obj.OBJ |
| EOF |
| } |
| sub libobj2shlib { |
| my %args = @_; |
| my $lib = $args{lib}; |
| my $shlib = $args{shlib}; |
| my $libd = dirname($lib); |
| my $libn = basename($lib); |
| my @objs = map { (my $x = $_) =~ s|\.o$|.OBJ|; $x } |
| grep { $_ =~ m|\.o$| } |
| @{$args{objs}}; |
| my @defs = grep { $_ =~ /\.opt$/ } @{$args{objs}}; |
| my @deps = compute_lib_depends(@{$args{deps}}); |
| die "More than one symbol vector" if scalar @defs > 1; |
| my $deps = join(", -\n\t\t", @defs, @deps); |
| my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; |
| my $translatesyms_pl = abs2rel(rel2abs(catfile($config{sourcedir}, |
| "VMS", "translatesyms.pl")), |
| rel2abs($config{builddir})); |
| # The "[]" hack is because in .OPT files, each line inherits the |
| # previous line's file spec as default, so if no directory spec |
| # is present in the current line and the previous line has one that |
| # doesn't apply, you're in for a surprise. |
| my $write_opt1 = |
| join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| "WRITE OPT_FILE \"$x" } @objs). |
| "\""; |
| my $write_opt2 = |
| join("\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| $x =~ s|(\.EXE)|$1/SHARE|; |
| $x =~ s|(\.OLB)|$1/LIB|; |
| "WRITE OPT_FILE \"$x\"" } @deps) |
| || "\@ !"; |
| return <<"EOF" |
| $shlib.EXE : $lib.OLB $deps |
| \$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $defs[0] > $defs[0]-translated |
| OPEN/WRITE/SHARE=READ OPT_FILE $lib-components.OPT |
| $write_opt1 |
| $write_opt2 |
| CLOSE OPT_FILE |
| LINK \$(LIB_LDFLAGS)/SHARE=\$\@ $defs[0]-translated/OPT,- |
| $lib-components.OPT/OPT \$(LIB_EX_LIBS) |
| DELETE $defs[0]-translated;*,$lib-components.OPT;* |
| PURGE $shlib.EXE,$shlib.MAP |
| EOF |
| . ($config{target} =~ m|alpha| ? "" : <<"EOF" |
| SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ |
| EOF |
| ); |
| } |
| sub obj2dso { |
| my %args = @_; |
| my $lib = $args{lib}; |
| my $libd = dirname($lib); |
| my $libn = basename($lib); |
| (my $libn_nolib = $libn) =~ s/^lib//; |
| my @objs = map { (my $x = $_) =~ s|\.o$|.OBJ|; $x } @{$args{objs}}; |
| my @deps = compute_lib_depends(@{$args{deps}}); |
| my $deps = join(", -\n\t\t", @objs, @deps); |
| my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; |
| my $engine_opt = abs2rel(rel2abs(catfile($config{sourcedir}, |
| "VMS", "engine.opt")), |
| rel2abs($config{builddir})); |
| # The "[]" hack is because in .OPT files, each line inherits the |
| # previous line's file spec as default, so if no directory spec |
| # is present in the current line and the previous line has one that |
| # doesn't apply, you're in for a surprise. |
| my $write_opt1 = |
| join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| "WRITE OPT_FILE \"$x" } @objs). |
| "\""; |
| my $write_opt2 = |
| join("\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| $x =~ s|(\.EXE)|$1/SHARE|; |
| $x =~ s|(\.OLB)|$1/LIB|; |
| "WRITE OPT_FILE \"$x\"" } @deps) |
| || "\@ !"; |
| return <<"EOF" |
| $lib.EXE : $deps |
| OPEN/WRITE/SHARE=READ OPT_FILE $lib.OPT |
| TYPE $engine_opt /OUTPUT=OPT_FILE: |
| $write_opt1 |
| $write_opt2 |
| CLOSE OPT_FILE |
| LINK \$(DSO_LDFLAGS)/SHARE=\$\@ $lib.OPT/OPT \$(DSO_EX_LIBS) |
| - PURGE $lib.EXE,$lib.OPT,$lib.MAP |
| EOF |
| . ($config{target} =~ m|alpha| ? "" : <<"EOF" |
| SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ |
| EOF |
| ); |
| } |
| sub obj2lib { |
| my %args = @_; |
| (my $lib = $args{lib}) =~ s/\.a$//; |
| my @objs = map { (my $x = $_) =~ s|\.o$|.OBJ|; $x } @{$args{objs}}; |
| my $objs = join(", -\n\t\t", @objs); |
| my $fill_lib = join("\n\t", (map { "LIBRARY/REPLACE $lib.OLB $_" } |
| @objs)); |
| return <<"EOF"; |
| $lib.OLB : $objs |
| LIBRARY/CREATE/OBJECT $lib.OLB |
| $fill_lib |
| - PURGE $lib.OLB |
| EOF |
| } |
| sub obj2bin { |
| my %args = @_; |
| my $bin = $args{bin}; |
| my $bind = dirname($bin); |
| my $binn = basename($bin); |
| my @objs = map { (my $x = $_) =~ s|\.o$|.OBJ|; $x } @{$args{objs}}; |
| my $objs = join(",", @objs); |
| my @deps = compute_lib_depends(@{$args{deps}}); |
| my $deps = join(", -\n\t\t", @objs, @deps); |
| |
| my $olb_count = scalar grep(m|\.OLB$|, @deps); |
| my $analyse_objs = "@ !"; |
| if ($olb_count > 0) { |
| my $analyse_quals = |
| $config{target} =~ m|alpha| ? "/GSD" : "/SECTIONS=SYMTAB"; |
| $analyse_objs = "- pipe ANALYSE/OBJECT$analyse_quals $objs | SEARCH SYS\$INPUT \"\"\"main\"\"\" ; nomain = \$severity .NE. 1" |
| } |
| # The "[]" hack is because in .OPT files, each line inherits the |
| # previous line's file spec as default, so if no directory spec |
| # is present in the current line and the previous line has one that |
| # doesn't apply, you're in for a surprise. |
| my $write_opt1 = |
| join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| "\@ WRITE OPT_FILE \"$x" } @objs). |
| "\""; |
| my $write_opt2 = |
| join("\n\t", map { my @lines = (); |
| my $x = $_ =~ /\[/ ? $_ : "[]".$_; |
| if ($x =~ m|\.EXE$|) { |
| push @lines, "\@ WRITE OPT_FILE \"$x/SHARE\""; |
| } elsif ($x =~ m|\.OLB$|) { |
| (my $l = $x) =~ s/\W/_/g; |
| push @lines, |
| "\@ IF nomain THEN WRITE OPT_FILE \"$x/LIB\$(INCLUDE_MAIN_$l)\"", |
| "\@ IF .NOT. nomain THEN WRITE OPT_FILE \"$x/LIB\"" |
| } |
| @lines |
| } @deps) |
| || "\@ !"; |
| # The linking commands looks a bit complex, but it's for good reason. |
| # When you link, say, foo.obj, bar.obj and libsomething.exe/share, and |
| # bar.obj happens to have a symbol that also exists in libsomething.exe, |
| # the linker will warn about it, loudly, and will then choose to pick |
| # the first copy encountered (the one in bar.obj in this example). |
| # On Unix and on Windows, the corresponding maneuvre goes through |
| # silently with the same effect. |
| # With some test programs, made for checking the internals of OpenSSL, |
| # we do this kind of linking deliberately, picking a few specific object |
| # files from within [.crypto] or [.ssl] so we can reach symbols that are |
| # otherwise unreachable (since the shareable images only exports the |
| # symbols listed in [.util]*.num), and then with the shared libraries |
| # themselves. So we need to silence the warning about multiply defined |
| # symbols, to mimic the way linking work on Unix and Windows, and so |
| # the build isn't interrupted (MMS stops when warnings are signaled, |
| # by default), and so someone building doesn't have to worry where it |
| # isn't necessary. If there are other warnings, however, we show them |
| # and let it break the build. |
| return <<"EOF" |
| $bin.EXE : $deps |
| $analyse_objs |
| @ OPEN/WRITE/SHARE=READ OPT_FILE $bin.OPT |
| $write_opt1 |
| $write_opt2 |
| @ CLOSE OPT_FILE |
| TYPE $bin.opt ! For debugging |
| - pipe SPAWN/WAIT/NOLOG/OUT=$bin.LINKLOG - |
| LINK \$(BIN_LDFLAGS)/EXEC=\$\@ $bin.OPT/OPT \$(BIN_EX_LIBS) ; - |
| link_status = \$status ; link_severity = link_status .AND. 7 |
| @ search_severity = 1 |
| -@ IF link_severity .EQ. 0 THEN - |
| pipe SEARCH $bin.LINKLOG "%","-"/MATCH=AND | - |
| SPAWN/WAIT/NOLOG/OUT=NLA0: - |
| SEARCH SYS\$INPUT: "-W-MULDEF,"/MATCH=NOR ; - |
| search_severity = \$severity |
| @ ! search_severity is 3 when the last search didn't find any matching |
| @ ! string: %SEARCH-I-NOMATCHES, no strings matched |
| @ ! If that was the result, we pretend linking got through without |
| @ ! fault or warning. |
| @ IF search_severity .EQ. 3 THEN link_severity = 1 |
| @ ! At this point, if link_severity shows that there was a fault |
| @ ! or warning, make sure to restore the linking status. |
| -@ IF .NOT. link_severity THEN TYPE $bin.LINKLOG |
| -@ DELETE $bin.LINKLOG;* |
| @ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status' |
| - PURGE $bin.EXE,$bin.OPT |
| EOF |
| . ($config{target} =~ m|alpha| ? "" : <<"EOF" |
| SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ |
| EOF |
| ); |
| } |
| sub in2script { |
| my %args = @_; |
| my $script = $args{script}; |
| return "" if grep { $_ eq $script } @{$args{sources}}; # No overwrite! |
| my $sources = join(" ", @{$args{sources}}); |
| my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, |
| "util", "dofile.pl")), |
| rel2abs($config{builddir})); |
| return <<"EOF"; |
| $script : $sources |
| \$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile - |
| "-o$target{build_file}" $sources > $script |
| SET FILE/PROT=(S:RWED,O:RWED,G:RE,W:RE) $script |
| PURGE $script |
| EOF |
| } |
| "" # Important! This becomes part of the template result. |
| -} |
