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 use OpenSSL::Util; 8 9 (our $osslprefix_q = platform->osslprefix()) =~ s/\$/\\\$/; 10 11 our $sover_dirname = platform->shlib_version_as_filename(); 12 our $osslver = sprintf "%02d%02d", split(/\./, $config{version}); 13 14 our $sourcedir = $config{sourcedir}; 15 our $builddir = $config{builddir}; 16 sub make_unix_path { 17 # Split the native path 18 (my $vol, my $dirs, my $file) = File::Spec->splitpath($_[0]); 19 my @dirs = File::Spec->splitdir($dirs); 20 21 # Reassemble it as a Unix path 22 $vol =~ s|:$||; 23 return File::Spec::Unix->catpath( 24 '', File::Spec::Unix->catdir('', $vol ? $vol : (), @dirs), $file); 25 } 26 sub sourcefile { 27 catfile($sourcedir, @_); 28 } 29 sub buildfile { 30 catfile($builddir, @_); 31 } 32 sub sourcedir { 33 catdir($sourcedir, @_); 34 } 35 sub builddir { 36 catdir($builddir, @_); 37 } 38 sub tree { 39 (my $x = shift) =~ s|\]$|...]|; 40 $x 41 } 42 43 # Because we need to make two computations of these data, 44 # we store them in arrays for reuse 45 our @libs = 46 map { platform->staticname($_) } 47 @{$unified_info{libraries}}; 48 our @shlibs = 49 map { platform->sharedname($_) // () } 50 @{$unified_info{libraries}}; 51 our @install_libs = 52 map { platform->staticname($_) } 53 grep { !$unified_info{attributes}->{libraries}->{$_}->{noinst} } 54 @{$unified_info{libraries}}; 55 our @install_shlibs = 56 map { platform->sharedname($_) // () } 57 grep { !$unified_info{attributes}->{libraries}->{$_}->{noinst} } 58 @{$unified_info{libraries}}; 59 our @install_engines = 60 grep { !$unified_info{attributes}->{modules}->{$_}->{noinst} 61 && $unified_info{attributes}->{modules}->{$_}->{engine} } 62 @{$unified_info{modules}}; 63 our @install_modules = 64 grep { !$unified_info{attributes}->{modules}->{$_}->{noinst} 65 && !$unified_info{attributes}->{modules}->{$_}->{engine} 66 && !$unified_info{attributes}->{modules}->{$_}->{fips} } 67 @{$unified_info{modules}}; 68 our @install_fipsmodules = 69 grep { !$unified_info{attributes}->{modules}->{$_}->{noinst} 70 && $unified_info{attributes}->{modules}->{$_}->{fips} } 71 @{$unified_info{modules}}; 72 our @install_programs = 73 grep { !$unified_info{attributes}->{programs}->{$_}->{noinst} } 74 @{$unified_info{programs}}; 75 our @install_bin_scripts = 76 grep { !$unified_info{attributes}->{scripts}->{$_}->{noinst} 77 && !$unified_info{attributes}->{scripts}->{$_}->{misc} } 78 @{$unified_info{scripts}}; 79 our @install_misc_scripts = 80 grep { !$unified_info{attributes}->{scripts}->{$_}->{noinst} 81 && $unified_info{attributes}->{scripts}->{$_}->{misc} } 82 @{$unified_info{scripts}}; 83 84 # Configured flags 85 86 our @cnf_asflags = ($target{asflags} || (), @{$config{asflags}}); 87 our @cnf_defines = (@{$target{defines}}, @{$config{defines}}); 88 our @cnf_includes = (@{$target{includes}}, @{$config{includes}}); 89 our @cnf_cppflags = ($target{cppflags} || (), @{$config{cppflags}}); 90 our @cnf_cflags = ($target{cflags} || (), @{$config{cflags}}); 91 our @cnf_cxxflags = ($target{cxxflags} || (), @{$config{cxxflags}}); 92 our @cnf_ldflags = ($target{lflags} || (), @{$config{lflags}}); 93 our @cnf_ex_libs = (map{ ",$_" } @{$target{ex_libs}}, @{$config{ex_libs}}); 94 95 # Variables starting with $lib_ are used to build library object files 96 # and shared libraries. 97 # Variables starting with $dso_ are used to build DSOs and their object files. 98 # Variables starting with $bin_ are used to build programs and their object 99 # files. 100 101 # The following array is special and is treated separately from the rest of 102 # the lib_ variables. 103 our @lib_cppincludes = (@{$target{lib_includes}}, @{$target{shared_includes}}, 104 @{$config{lib_includes}}, @{$config{shared_includes}}, 105 @cnf_includes); 106 107 our $lib_cppdefines = 108 join(',', @{$target{lib_defines}}, @{$target{shared_defines}}, 109 @{$config{lib_defines}}, @{$config{shared_defines}}, 110 @cnf_defines, 111 'OPENSSLDIR="""$(OPENSSLDIR_C)"""', 112 'ENGINESDIR="""$(ENGINESDIR_C)"""', 113 'MODULESDIR="""$(MODULESDIR_C)"""' 114 ) 115 . '$(DEFINES)' 116 . "'extradefines'"; 117 our $lib_asflags = 118 join(' ', $target{lib_asflags} || (), @{$config{lib_asflags}}, 119 @cnf_asflags, '$(ASFLAGS)'); 120 our $lib_cppflags = 121 join('', $target{lib_cppflags} || (), $target{shared_cppflags} || (), 122 @{$config{lib_cppflags}}, @{$config{shared_cppflag}}, 123 @cnf_cppflags, '/DEFINE=('.$lib_cppdefines.')', '$(CPPFLAGS)'); 124 my @lib_cflags = ( $target{lib_cflags} // () ); 125 my @lib_cflags_no_inst = ( $target{no_inst_lib_cflags} // @lib_cflags ); 126 my @lib_cflags_cont = ( $target{shared_cflag} || (), 127 @{$config{lib_cflags}}, @{$config{shared_cflag}}, 128 $cnf_cflags, '$(CFLAGS)'); 129 our $lib_cflags = join('', @lib_cflags, @lib_cflags_cont ); 130 our $lib_cflags_no_inst = join('', @lib_cflags_no_inst, @lib_cflags_cont ); 131 our $lib_ldflags = 132 join('', $target{lib_lflags} || (), $target{shared_ldflag} || (), 133 @{$config{lib_lflags}}, @{$config{shared_ldflag}}, 134 @cnf_ldflags, '$(LDFLAGS)'); 135 our $lib_ex_libs = join('', @cnf_ex_libs, '$(EX_LIBS)'); 136 137 # The following array is special and is treated separately from the rest of 138 # the dso_ variables. 139 our @dso_cppincludes = (@{$target{dso_includes}}, @{$target{module_includes}}, 140 @{$config{dso_includes}}, @{$config{module_includes}}, 141 @cnf_includes); 142 143 our $dso_cppdefines = 144 join(',', @{$target{dso_defines}}, @{$target{module_defines}}, 145 @{$config{dso_defines}}, @{$config{module_defines}}, 146 @cnf_defines, 147 ) 148 . '$(DEFINES)' 149 . "'extradefines'"; 150 our $dso_asflags = 151 join(' ', $target{dso_asflags} || (), $target{module_asflags} || (), 152 @{$config{dso_asflags}}, @{$config{module_asflags}}, 153 @cnf_asflags, '$(ASFLAGS)'); 154 our $dso_cppflags = 155 join('', $target{dso_cppflags} || (), $target{module_cppflags} || (), 156 @{$config{dso_cppflags}}, @{$config{module_cppflag}}, 157 @cnf_cppflags, 158 '/DEFINE=('.$dso_cppdefines.')', 159 '$(CPPFLAGS)'); 160 my @dso_cflags = ( $target{dso_cflags} // () ); 161 my @dso_cflags_no_inst = ( $target{no_inst_dso_cflags} // @dso_cflags ); 162 my @dso_cflags_cont = ( $target{module_cflag} || (), 163 @{$config{dso_cflags}}, @{$config{module_cflag}}, 164 $cnf_cflags, '$(CFLAGS)'); 165 our $dso_cflags = join('', @dso_cflags, @dso_cflags_cont ); 166 our $dso_cflags_no_inst = join('', @dso_cflags_no_inst, @dso_cflags_cont ); 167 our $dso_ldflags = 168 join('', $target{dso_lflags} || (), $target{module_ldflag} || (), 169 @{$config{dso_lflags}}, @{$config{module_ldflag}}, 170 @cnf_ldflags, '$(LDFLAGS)'); 171 our $dso_ex_libs = join('', @cnf_ex_libs, '$(EX_LIBS)'); 172 173 # The following array is special and is treated separately from the rest of 174 # the bin_ variables. 175 our @bin_cppincludes = (@{$target{bin_includes}}, 176 @{$config{bin_includes}}, 177 @cnf_includes); 178 179 our $bin_cppdefines = 180 join(',', @{$target{bin_defines}}, 181 @{$config{bin_defines}}, 182 @cnf_defines, 183 ) 184 . '$(DEFINES)' 185 . "'extradefines'"; 186 our $bin_asflags = 187 join(' ', $target{bin_asflags} || (), 188 @{$config{bin_asflags}}, 189 @cnf_asflags, '$(ASFLAGS)'); 190 our $bin_cppflags = 191 join('', $target{bin_cppflags} || (), 192 @{$config{bin_cppflags}}, 193 @cnf_cppflags, 194 '/DEFINE=('.$bin_cppdefines.')', 195 '$(CPPFLAGS)'); 196 my @bin_cflags = ( $target{bin_cflags} // () ); 197 my @bin_cflags_no_inst = ( $target{no_inst_bin_cflags} // @bin_cflags ); 198 my @bin_cflags_cont = ( @{$config{bin_cflags}}, 199 $cnf_cflags, '$(CFLAGS)'); 200 our $bin_cflags = join('', @bin_cflags, @bin_cflags_cont ); 201 our $bin_cflags_no_inst = join('', @bin_cflags_no_inst, @bin_cflags_cont ); 202 our $bin_cflags = 203 join('', $target{bin_cflags} || (), 204 @{$config{bin_cflags}}, 205 @cnf_cflags, '$(CFLAGS)'); 206 our $bin_ldflags = 207 join('', $target{bin_lflags} || (), 208 @{$config{bin_lflags}}, 209 @cnf_ldflags, '$(LDFLAGS)'); 210 our $bin_ex_libs = join('', @cnf_ex_libs, '$(EX_LIBS)'); 211 212 # This is a horrible hack, but is needed because recursive inclusion of files 213 # in different directories does not work well with VMS C. We try to help by 214 # specifying extra relative directories. They must always be in Unix format, 215 # relative to the directory where the .c file is located. The logic is that 216 # any inclusion, merged with one of these relative directories, will find the 217 # requested inclusion file. 218 foreach (grep /\[\.crypto\.async\.arch\].*\.o$/, keys %{$unified_info{sources}}) { 219 my $obj = platform->obj($_); 220 push @{$unified_info{includes_extra}->{$obj}}, qw(../); 221 } 222 foreach (grep /\[\.crypto\.ec\.curve448\].*?\.o$/, keys %{$unified_info{sources}}) { 223 my $obj = platform->obj($_); 224 push @{$unified_info{includes_extra}->{$obj}}, qw(./arch_32 ./arch64); 225 } 226 foreach (grep /\[\.crypto\.ec\.curve448.arch_(?:32|64)\].*?\.o$/, keys %{$unified_info{sources}}) { 227 my $obj = platform->obj($_); 228 push @{$unified_info{includes_extra}->{$obj}}, qw(../); 229 } 230 foreach (grep /\[\.ssl\.(?:record|statem)\].*?\.o$/, keys %{$unified_info{sources}}) { 231 my $obj = platform->obj($_); 232 # Most of the files in [.ssl.record] and [.ssl.statem] include 233 # "../ssl_local.h", which includes things like "record/record.h". 234 # Adding "../" as an inclusion directory helps making this sort of header 235 # from these directories. 236 push @{$unified_info{includes_extra}->{$obj}}, qw(../); 237 238 } 239 foreach (grep /\[\.test\].*?\.o$/, keys %{$unified_info{sources}}) { 240 my $obj = platform->obj($_); 241 push @{$unified_info{includes_extra}->{$obj}}, qw(../ssl ./helpers); 242 } 243 foreach (grep /\[\.test\.helpers\].*?\.o$/, keys %{$unified_info{sources}}) { 244 my $obj = platform->obj($_); 245 push @{$unified_info{includes_extra}->{$obj}}, qw(../../ssl); 246 } 247 248 # This makes sure things get built in the order they need 249 # to. You're welcome. 250 sub dependmagic { 251 my $target = shift; 252 253 return "$target : build_generated\n\t\pipe \$(MMS) \$(MMSQUALIFIERS) depend && \$(MMS) \$(MMSQUALIFIERS) _$target\n_$target"; 254 } 255 ""; 256-} 257PLATFORM={- $config{target} -} 258OPTIONS={- $config{options} -} 259CONFIGURE_ARGS=({- join(", ",quotify_l(@{$config{perlargv}})) -}) 260SRCDIR={- $config{sourcedir} -} 261BLDDIR={- $config{builddir} -} 262FIPSKEY={- $config{FIPSKEY} -} 263 264# Allow both V and VERBOSE to indicate verbosity. This only applies 265# to testing. 266VERBOSE=$(V) 267VERBOSE_FAILURE=$(VF) 268 269VERSION={- "$config{full_version}" -} 270VERSION_NUMBER={- "$config{version}" -} 271MAJOR={- $config{major} -} 272MINOR={- $config{minor} -} 273SHLIB_VERSION_NUMBER={- $config{shlib_version} -} 274SHLIB_TARGET={- $target{shared_target} -} 275 276LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @libs) -} 277SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @shlibs) -} 278MODULES={- join(", ", map { "-\n\t".$_.".EXE" } 279 # Drop all modules that are dependencies, they will 280 # be processed through their dependents 281 grep { my $x = $_; 282 !grep { grep { $_ eq $x } @$_ } 283 values %{$unified_info{depends}} } 284 @{$unified_info{modules}}) -} 285FIPSMODULE={- # We do some extra checking here, as there should be only one 286 use File::Basename; 287 our @fipsmodules = 288 grep { !$unified_info{attributes}->{modules}->{$_}->{noinst} 289 && $unified_info{attributes}->{modules}->{$_}->{fips} } 290 @{$unified_info{modules}}; 291 die "More that one FIPS module" if scalar @fipsmodules > 1; 292 join(" ", map { platform->dso($_) } @fipsmodules) -} 293FIPSMODULENAME={- die "More that one FIPS module" if scalar @fipsmodules > 1; 294 join(", ", map { basename(platform->dso($_)) } @fipsmodules) -} 295PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @{$unified_info{programs}}) -} 296SCRIPTS={- join(", ", map { "-\n\t".$_ } @{$unified_info{scripts}}) -} 297{- output_off() if $disabled{makedepend}; "" -} 298DEPS={- our @deps = map { platform->isobj($_) ? platform->dep($_) : $_ } 299 grep { $unified_info{sources}->{$_}->[0] =~ /\.c$/ } 300 keys %{$unified_info{sources}}; 301 join(", ", map { "-\n\t".$_ } @deps); -} 302{- output_on() if $disabled{makedepend}; "" -} 303GENERATED_MANDATORY={- join(", ", 304 map { "-\n\t".$_ } @{$unified_info{depends}->{""}} ) -} 305GENERATED_PODS={- # common0.tmpl provides @generated 306 join(", ", 307 map { my $x = $_; 308 ( 309 grep { 310 $unified_info{attributes}->{depends} 311 ->{$x}->{$_}->{pod} // 0 312 } 313 keys %{$unified_info{attributes}->{depends}->{$x}} 314 ) ? "-\n\t".$x : (); 315 } 316 @generated) -} 317GENERATED={- # common0.tmpl provides @generated 318 join(", ", map { platform->convertext($_) } @generated) -} 319 320INSTALL_LIBS={- join(", ", map { "-\n\t".$_.".OLB" } @install_libs) -} 321INSTALL_SHLIBS={- join(", ", map { "-\n\t".$_.".EXE" } @install_shlibs) -} 322INSTALL_ENGINES={- join(", ", map { "-\n\t".$_.".EXE" } @install_engines) -} 323INSTALL_MODULES={- join(", ", map { "-\n\t".$_.".EXE" } @install_modules) -} 324INSTALL_FIPSMODULE={- join(", ", map { "-\n\t".$_.".EXE" } @install_fipsmodules) -} 325INSTALL_FIPSMODULECONF=[.providers]fipsmodule.cnf 326INSTALL_PROGRAMS={- join(", ", map { "-\n\t".$_.".EXE" } @install_programs) -} 327BIN_SCRIPTS={- join(", ", @install_bin_scripts) -} 328MISC_SCRIPTS={- join(", ", @install_misc_scripts) -} 329HTMLDOCS1={- join(", ", map { "-\n\t".$_ } @{$unified_info{htmldocs}->{man1}}) -} 330HTMLDOCS3={- join(", ", map { "-\n\t".$_ } @{$unified_info{htmldocs}->{man3}}) -} 331HTMLDOCS5={- join(", ", map { "-\n\t".$_ } @{$unified_info{htmldocs}->{man5}}) -} 332HTMLDOCS7={- join(", ", map { "-\n\t".$_ } @{$unified_info{htmldocs}->{man7}}) -} 333 334APPS_OPENSSL="{- use File::Spec::Functions; 335 catfile("apps","openssl") -}" 336 337# DESTDIR is for package builders so that they can configure for, say, 338# SYS$COMMON:[OPENSSL] and yet have everything installed in STAGING:[USER]. 339# In that case, configure with --prefix=SYS$COMMON:[OPENSSL] and then run 340# MMS with /MACROS=(DESTDIR=STAGING:[USER]). The result will end up in 341# STAGING:[USER.OPENSSL]. 342# Normally it is left empty. 343DESTDIR= 344 345# Do not edit this manually. Use Configure --prefix=DIR to change this! 346INSTALLTOP={- our $installtop = 347 catdir($config{prefix}) || "SYS\$COMMON:[OPENSSL]"; 348 $installtop -} 349SYSTARTUP={- catdir($installtop, '[.SYS$STARTUP]'); -} 350# This is the standard central area to store certificates, private keys... 351OPENSSLDIR={- catdir($config{openssldir}) or 352 $config{prefix} ? catdir($config{prefix},"COMMON") 353 : "SYS\$COMMON:[OPENSSL-COMMON]" -} 354# The same, but for C 355OPENSSLDIR_C={- platform->osslprefix() -}DATAROOT:[000000] 356# Where installed ENGINE modules reside, for C 357ENGINESDIR_C={- platform->osslprefix() -}ENGINES{- $sover_dirname.$target{pointer_size} -}: 358# Where modules reside, for C 359MODULESDIR_C={- platform->osslprefix() -}MODULES{- $sover_dirname.$target{pointer_size} -}: 360 361##### User defined commands and flags ################################ 362 363CC={- $config{CC} -} 364CPP={- $config{CPP} -} 365DEFINES={- our $defines = join('', map { ",$_" } @{$config{CPPDEFINES}}) -} 366#INCLUDES={- our $includes = join(',', @{$config{CPPINCLUDES}}) -} 367CPPFLAGS={- our $cppflags = join('', @{$config{CPPFLAGS}}) -} 368CFLAGS={- join('', @{$config{CFLAGS}}) -} 369LDFLAGS={- join('', @{$config{LFLAGS}}) -} 370EX_LIBS={- join('', map { ",$_" } @{$config{LDLIBS}}) -} 371 372PERL={- $config{PERL} -} 373 374AS={- $config{AS} -} 375ASFLAGS={- join(' ', @{$config{ASFLAGS}}) -} 376 377##### Special command flags ########################################## 378 379ASOUTFLAG={- $target{asoutflag} -}$(OSSL_EMPTY) 380 381PERLASM_SCHEME={- $target{perlasm_scheme} -} 382 383# CPPFLAGS_Q is used for one thing only: to build up buildinf.h 384CPPFLAGS_Q={- (my $c = $lib_cppflags.$cppflags) =~ s|"|""|g; 385 (my $d = $lib_cppdefines) =~ s|"|""|g; 386 my $i = join(',', @lib_cppincludes || (), '$(INCLUDES)'); 387 my $x = $c; 388 $x .= "/INCLUDE=($i)" if $i; 389 $x .= "/DEFINE=($d)" if $d; 390 $x; -} 391 392# .FIRST and .LAST are special targets with MMS and MMK. 393NODEBUG=@ 394.FIRST : 395 {- join( "\n \$(NODEBUG) ", @{ $target{setup_commands} // [] }, 396 '!' ) -} 397 $(NODEBUG) sourcetop = F$PARSE("$(SRCDIR)","[]A.;",,,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;" + ".]" 398 $(NODEBUG) DEFINE ossl_sourceroot 'sourcetop' 399 $(NODEBUG) ! 400 $(NODEBUG) staging_dir = "$(DESTDIR)" 401 $(NODEBUG) staging_instdir = "" 402 $(NODEBUG) staging_datadir = "" 403 $(NODEBUG) IF staging_dir .NES. "" THEN - 404 staging_instdir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY") 405 $(NODEBUG) IF staging_instdir - "]A.;" .NES. staging_instdir THEN - 406 staging_instdir = staging_instdir - "]A.;" + ".OPENSSL-INSTALL]" 407 $(NODEBUG) IF staging_instdir - "A.;" .NES. staging_instdir THEN - 408 staging_instdir = staging_instdir - "A.;" + "[OPENSSL-INSTALL]" 409 $(NODEBUG) IF staging_dir .NES. "" THEN - 410 staging_datadir = F$PARSE("A.;",staging_dir,"[]",,"SYNTAX_ONLY") 411 $(NODEBUG) IF staging_datadir - "]A.;" .NES. staging_datadir THEN - 412 staging_datadir = staging_datadir - "]A.;" + ".OPENSSL-COMMON]" 413 $(NODEBUG) IF staging_datadir - "A.;" .NES. staging_datadir THEN - 414 staging_datadir = staging_datadir - "A.;" + "[OPENSSL-COMMON]" 415 $(NODEBUG) ! 416 $(NODEBUG) ! Installation logical names 417 $(NODEBUG) ! 418 $(NODEBUG) ! This also creates a few DCL variables that are used for 419 $(NODEBUG) ! the "install_msg" target. 420 $(NODEBUG) ! 421 $(NODEBUG) installroot = F$PARSE(staging_instdir,"$(INSTALLTOP)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;" 422 $(NODEBUG) installtop = installroot + ".]" 423 $(NODEBUG) dataroot = F$PARSE(staging_datadir,"$(OPENSSLDIR)","[]A.;",,"SYNTAX_ONLY,NO_CONCEAL") - ".][000000" - "[000000." - "][" - "]A.;" 424 $(NODEBUG) datatop = dataroot + ".]" 425 $(NODEBUG) DEFINE ossl_installroot 'installtop' 426 $(NODEBUG) DEFINE ossl_dataroot 'datatop' 427 $(NODEBUG) ! 428 $(NODEBUG) ! Override disturbing system logicals. We can't deassign 429 $(NODEBUG) ! them, so we create it instead. This is an unfortunate 430 $(NODEBUG) ! necessity. 431 $(NODEBUG) ! 432 $(NODEBUG) DEFINE openssl "{- sourcedir('include/openssl') -} 433 $(NODEBUG) ! 434 $(NODEBUG) ! Figure out the architecture 435 $(NODEBUG) ! 436 $(NODEBUG) arch = f$edit( f$getsyi( "arch_name"), "upcase") 437 $(NODEBUG) ! 438 $(NODEBUG) ! Set up logical names for the libraries, so LINK and 439 $(NODEBUG) ! running programs can use them. 440 $(NODEBUG) ! 441 $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEFINE ".uc($_)." 'F\$ENV(\"DEFAULT\")'".uc($_)."\$(SHLIB_EXT)" } @shlibs) || "!" -} 442 443.LAST : 444 $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEASSIGN ".uc($_) } @shlibs) || "!" -} 445 $(NODEBUG) DEASSIGN ossl_dataroot 446 $(NODEBUG) DEASSIGN ossl_installroot 447 $(NODEBUG) DEASSIGN openssl 448.DEFAULT : 449 @ ! MMS cannot handle no actions... 450 451# The main targets ################################################### 452 453{- dependmagic('build_sw'); -} : build_libs_nodep, build_modules_nodep, build_programs_nodep 454{- dependmagic('build_libs'); -} : build_libs_nodep 455{- dependmagic('build_modules'); -} : build_modules_nodep 456{- dependmagic('build_programs'); -} : build_programs_nodep 457 458build_generated_pods : $(GENERATED_PODS) 459build_docs : build_html_docs 460build_html_docs : $(HTMLDOCS1) $(HTMLDOCS3) $(HTMLDOCS5) $(HTMLDOCS7) 461 462build_generated : $(GENERATED_MANDATORY) 463build_libs_nodep : $(LIBS), $(SHLIBS) 464build_modules_nodep : $(MODULES) 465build_programs_nodep : $(PROGRAMS), $(SCRIPTS) 466 467# Kept around for backward compatibility 468build_apps build_tests : build_programs 469 470# Convenience target to prebuild all generated files, not just the mandatory 471# ones 472build_all_generated : $(GENERATED_MANDATORY) $(GENERATED) build_docs 473 @ ! {- output_off() if $disabled{makedepend}; "" -} 474 @ WRITE SYS$OUTPUT "Warning: consider configuring with no-makedepend, because if" 475 @ WRITE SYS$OUTPUT " target system doesn't have $(PERL)," 476 @ WRITE SYS$OUTPUT " then make will fail..." 477 @ ! {- output_on() if $disabled{makedepend}; "" -} 478 479all : build_sw build_docs 480 481test : tests 482{- dependmagic('tests'); -} : build_programs_nodep, build_modules_nodep run_tests 483run_tests : 484 @ ! {- output_off() if $disabled{tests}; "" -} 485 DEFINE SRCTOP "$(SRCDIR)" 486 DEFINE BLDTOP "$(BLDDIR)" 487 DEFINE FIPSKEY "$(FIPSKEY)" 488 IF "$(VERBOSE)" .NES. "" THEN DEFINE VERBOSE "$(VERBOSE)" 489 $(PERL) {- sourcefile("test", "run_tests.pl") -} $(TESTS) 490 DEASSIGN BLDTOP 491 DEASSIGN SRCTOP 492 DEASSIGN FIPSKEY 493 @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} 494 @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" 495 @ ! {- output_on() if !$disabled{tests}; "" -} 496 497list-tests : 498 @ ! {- output_off() if $disabled{tests}; "" -} 499 @ DEFINE SRCTOP "$(SRCDIR)" 500 @ $(PERL) {- sourcefile("test", "run_tests.pl") -} list 501 @ DEASSIGN SRCTOP 502 @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} 503 @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" 504 @ ! {- output_on() if !$disabled{tests}; "" -} 505 506install : install_sw install_ssldirs install_docs {- $disabled{fips} ? "" : "install_fips" -} install_msg 507 508install_msg : 509 @ WRITE SYS$OUTPUT "" 510 @ WRITE SYS$OUTPUT "######################################################################" 511 @ WRITE SYS$OUTPUT "" 512 @ IF "$(DESTDIR)" .EQS. "" THEN - 513 @{- sourcefile("VMS", "msg_install.com") -} "$(SYSTARTUP)" "{- $osslver -}" 514 @ IF "$(DESTDIR)" .NES. "" THEN - 515 @{- sourcefile("VMS", "msg_staging.com") -} - 516 "''installroot']" "''dataroot']" "$(INSTALLTOP)" "$(OPENSSLDIR)" - 517 "$(SYSTARTUP)" "{- $osslver -}" 518 519check_install : 520 spawn/nolog @ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com 521 522uninstall : uninstall_docs uninstall_sw {- $disabled{fips} ? "" : "uninstall_fips" -} 523 524# Because VMS wants the generation number (or *) to delete files, we can't 525# use $(LIBS), $(PROGRAMS), $(GENERATED) and $(MODULES) directly. 526libclean : 527 {- join("\n\t", map { "- DELETE $_.OLB;*" } @libs) || "@ !" -} 528 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.MAP;*" } @shlibs) || "@ !" -} 529 530clean : libclean 531 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man1}}) || "@ !" -} 532 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man3}}) || "@ !" -} 533 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man5}}) || "@ !" -} 534 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man7}}) || "@ !" -} 535 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{programs}}) || "@ !" -} 536 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{modules}}) || "@ !" -} 537 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{scripts}}) || "@ !" -} 538 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{depends}->{""}}) || "@ !" -} 539 {- join("\n\t", map { "- DELETE $_;*" } @generated) || "@ !" -} 540 - DELETE [...]*.MAP;* 541 - DELETE [...]*.D;* 542 - DELETE [...]*.OBJ;*,*.LIS;* 543 - DELETE []CXX$DEMANGLER_DB.;* 544 - DELETE [.VMS]openssl_startup.com;* 545 - DELETE [.VMS]openssl_shutdown.com;* 546 - DELETE []vmsconfig.pm;* 547 548distclean : clean 549 - DELETE configdata.pm;* 550 - DELETE descrip.mms;* 551 552depend : descrip.mms 553descrip.mms : FORCE 554 @ ! {- output_off() if $disabled{makedepend}; "" -} 555 @ $(PERL) {- sourcefile("util", "add-depends.pl") -} "{- $config{makedep_scheme} -}" 556 @ ! {- output_on() if $disabled{makedepend}; "" -} 557 558# Install helper targets ############################################# 559 560install_sw : install_dev install_engines install_modules - 561 install_runtime install_startup install_ivp 562 563uninstall_sw : uninstall_dev uninstall_modules uninstall_engines - 564 uninstall_runtime uninstall_startup uninstall_ivp 565 566install_docs : install_html_docs 567 568uninstall_docs : uninstall_html_docs 569 570{- output_off() if $disabled{fips}; "" -} 571install_fips : build_sw $(INSTALL_FIPSMODULECONF) 572 @ WRITE SYS$OUTPUT "*** Installing FIPS module" 573 - CREATE/DIR ossl_installroot:[MODULES{- $sover_dirname.$target{pointer_size} -}.'arch'] 574 - CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000] 575 COPY/PROT=W:RE $(INSTALL_FIPSMODULES) - 576 ossl_installroot:[MODULES{- $sover_dirname.$target{pointer_size} -}.'arch']$(FIPSMODULENAME) 577 @ WRITE SYS$OUTPUT "*** Installing FIPS module configuration" 578 COPY/PROT=W:RE $(INSTALL_FIPSMODULECONF) OSSL_DATAROOT:[000000] 579 580uninstall_fips : 581 @ WRITE SYS$OUTPUT "*** Uninstalling FIPS module configuration" 582 DELETE OSSL_DATAROOT:[000000]fipsmodule.cnf;* 583 @ WRITE SYS$OUTPUT "*** Uninstalling FIPS module" 584 DELETE ossl_installroot:[MODULES{- $sover_dirname.$target{pointer_size} -}.'arch']$(FIPSMODULENAME);* 585{- output_on() if $disabled{fips}; "" -} 586 587install_ssldirs : check_INSTALLTOP 588 - CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000] 589 IF F$SEARCH("OSSL_DATAROOT:[000000]CERTS.DIR;1") .EQS. "" THEN - 590 CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[CERTS] 591 IF F$SEARCH("OSSL_DATAROOT:[000000]PRIVATE.DIR;1") .EQS. "" THEN - 592 CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[PRIVATE] 593 IF F$SEARCH("OSSL_DATAROOT:[000000]MISC.DIR;1") .EQS. "" THEN - 594 CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[MISC] 595 COPY/PROT=W:RE $(MISC_SCRIPTS) OSSL_DATAROOT:[MISC] 596 @ ! Install configuration file 597 COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - 598 ossl_dataroot:[000000]openssl.cnf-dist 599 IF F$SEARCH("OSSL_DATAROOT:[000000]openssl.cnf") .EQS. "" THEN - 600 COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - 601 ossl_dataroot:[000000]openssl.cnf 602 @ ! Install CTLOG configuration file 603 COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - 604 ossl_dataroot:[000000]ct_log_list.cnf-dist 605 IF F$SEARCH("OSSL_DATAROOT:[000000]ct_log_list.cnf") .EQS. "" THEN - 606 COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - 607 ossl_dataroot:[000000]ct_log_list.cnf 608 609install_dev : check_INSTALLTOP install_runtime_libs 610 @ WRITE SYS$OUTPUT "*** Installing development files" 611 @ ! Install header files 612 - CREATE/DIR ossl_installroot:[include.openssl] 613 COPY/PROT=W:R openssl:*.h ossl_installroot:[include.openssl] 614 @ ! Install static (development) libraries 615 - CREATE/DIR ossl_installroot:[LIB.'arch'] 616 {- join("\n ", 617 map { "COPY/PROT=W:R $_.OLB ossl_installroot:[LIB.'arch']" } 618 @install_libs) -} 619 620install_engines : check_INSTALLTOP install_runtime_libs build_modules 621 @ {- output_off() unless scalar @install_engines; "" -} ! 622 @ WRITE SYS$OUTPUT "*** Installing engines" 623 - CREATE/DIR ossl_installroot:[ENGINES{- $sover_dirname.$target{pointer_size} -}.'arch'] 624 {- join("\n ", 625 map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[ENGINES$sover_dirname$target{pointer_size}.'arch']" } 626 @install_engines) -} 627 @ {- output_on() unless scalar @install_engines; "" -} ! 628 629install_modules : check_INSTALLTOP install_runtime_libs build_modules 630 @ {- output_off() unless scalar @install_modules; "" -} ! 631 @ WRITE SYS$OUTPUT "*** Installing modules" 632 - CREATE/DIR ossl_installroot:[MODULES{- $sover_dirname.$target{pointer_size} -}.'arch'] 633 {- join("\n ", 634 map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[MODULES$sover_dirname$target{pointer_size}.'arch']" } 635 @install_modules) -} 636 @ {- output_on() unless scalar @install_modules; "" -} ! 637 638install_runtime : install_programs 639 640install_runtime_libs : check_INSTALLTOP build_libs 641 @ {- output_off() if $disabled{shared}; "" -} ! 642 @ WRITE SYS$OUTPUT "*** Installing shareable images" 643 @ ! Install shared (runtime) libraries 644 - CREATE/DIR ossl_installroot:[LIB.'arch'] 645 {- join("\n ", 646 map { "COPY/PROT=W:R $_.EXE ossl_installroot:[LIB.'arch']" } 647 @install_shlibs) -} 648 @ {- output_on() if $disabled{shared}; "" -} ! 649 650install_programs : check_INSTALLTOP install_runtime_libs build_programs 651 @ {- output_off() if $disabled{apps}; "" -} ! 652 @ ! Install the main program 653 - CREATE/DIR ossl_installroot:[EXE.'arch'] 654 COPY/PROT=W:RE [.APPS]openssl.EXE - 655 ossl_installroot:[EXE.'arch']openssl{- $osslver -}.EXE 656 @ ! Install scripts 657 COPY/PROT=W:RE $(BIN_SCRIPTS) ossl_installroot:[EXE] 658 @ ! {- output_on() if $disabled{apps}; "" -} 659 660install_startup : [.VMS]openssl_startup.com [.VMS]openssl_shutdown.com - 661 [.VMS]openssl_utils.com, check_INSTALLTOP 662 - CREATE/DIR ossl_installroot:[SYS$STARTUP] 663 COPY/PROT=W:RE [.VMS]openssl_startup.com - 664 ossl_installroot:[SYS$STARTUP]openssl_startup{- $osslver -}.com 665 COPY/PROT=W:RE [.VMS]openssl_shutdown.com - 666 ossl_installroot:[SYS$STARTUP]openssl_shutdown{- $osslver -}.com 667 COPY/PROT=W:RE [.VMS]openssl_utils.com - 668 ossl_installroot:[SYS$STARTUP]openssl_utils{- $osslver -}.com 669 670install_ivp : [.VMS]openssl_ivp.com check_INSTALLTOP 671 - CREATE/DIR ossl_installroot:[SYSTEST] 672 COPY/PROT=W:RE [.VMS]openssl_ivp.com - 673 ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com 674 675[.VMS]openssl_startup.com : vmsconfig.pm {- sourcefile("VMS", "openssl_startup.com.in") -} 676 - CREATE/DIR [.VMS] 677 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 678 {- sourcefile("VMS", "openssl_startup.com.in") -} - 679 > [.VMS]openssl_startup.com 680 681[.VMS]openssl_utils.com : vmsconfig.pm {- sourcefile("VMS", "openssl_utils.com.in") -} 682 - CREATE/DIR [.VMS] 683 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 684 {- sourcefile("VMS", "openssl_utils.com.in") -} - 685 > [.VMS]openssl_utils.com 686 687[.VMS]openssl_shutdown.com : vmsconfig.pm {- sourcefile("VMS", "openssl_shutdown.com.in") -} 688 - CREATE/DIR [.VMS] 689 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 690 {- sourcefile("VMS", "openssl_shutdown.com.in") -} - 691 > [.VMS]openssl_shutdown.com 692 693[.VMS]openssl_ivp.com : vmsconfig.pm {- sourcefile("VMS", "openssl_ivp.com.in") -} 694 - CREATE/DIR [.VMS] 695 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 696 {- sourcefile("VMS", "openssl_ivp.com.in") -} - 697 > [.VMS]openssl_ivp.com 698 699vmsconfig.pm : configdata.pm 700 OPEN/WRITE/SHARE=READ CONFIG []vmsconfig.pm 701 WRITE CONFIG "package vmsconfig;" 702 WRITE CONFIG "use strict; use warnings;" 703 WRITE CONFIG "use Exporter;" 704 WRITE CONFIG "our @ISA = qw(Exporter);" 705 WRITE CONFIG "our @EXPORT = qw(%config %target %withargs %unified_info %disabled);" 706 WRITE CONFIG "our %config = (" 707 WRITE CONFIG " target => '","{- $config{target} -}","'," 708 WRITE CONFIG " version => '","{- $config{version} -}","'," 709 WRITE CONFIG " shlib_version => '","{- $config{shlib_version} -}","'," 710 WRITE CONFIG " shlib_major => '","{- $config{shlib_major} -}","'," 711 WRITE CONFIG " shlib_minor => '","{- $config{shlib_minor} -}","'," 712 WRITE CONFIG " no_shared => '","{- $disabled{shared} -}","'," 713 WRITE CONFIG " INSTALLTOP => '$(INSTALLTOP)'," 714 WRITE CONFIG " OPENSSLDIR => '$(OPENSSLDIR)'," 715 WRITE CONFIG " pointer_size => '","{- $target{pointer_size} -}","'," 716 WRITE CONFIG ");" 717 WRITE CONFIG "our %target = ();" 718 WRITE CONFIG "our %disabled = ();" 719 WRITE CONFIG "our %withargs = ();" 720 WRITE CONFIG "our %unified_info = ();" 721 WRITE CONFIG "1;" 722 CLOSE CONFIG 723 724install_html_docs : check_INSTALLTOP build_html_docs 725 @ WRITE SYS$OUTPUT "*** Installing HTML docs" 726 - CREATE/DIR ossl_installroot:[HTML.MAN1] 727 - CREATE/DIR ossl_installroot:[HTML.MAN3] 728 - CREATE/DIR ossl_installroot:[HTML.MAN5] 729 - CREATE/DIR ossl_installroot:[HTML.MAN7] 730 {- join("\n ", 731 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN1]" } 732 @{$unified_info{htmldocs}->{man1}} ), 733 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN3]" } 734 @{$unified_info{htmldocs}->{man3}} ), 735 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN5]" } 736 @{$unified_info{htmldocs}->{man5}} ), 737 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN7]" } 738 @{$unified_info{htmldocs}->{man7}} )) -} 739 740check_INSTALLTOP : 741 @ IF "$(INSTALLTOP)" .EQS. "" THEN - 742 WRITE SYS$ERROR "INSTALLTOP should not be empty" 743 @ IF "$(INSTALLTOP)" .EQS. "" THEN - 744 EXIT %x10000002 745 746# Developer targets ################################################## 747 748debug_logicals : 749 SH LOGICAL/PROC openssl,internal,ossl_installroot,ossl_dataroot 750 751# Building targets ################################################### 752 753configdata.pm : $(SRCDIR)Configure $(SRCDIR)config.com {- join(" ", @{$config{build_file_templates}}, @{$config{build_infos}}, @{$config{conf_files}}) -} 754 perl configdata.pm -r 755 @ WRITE SYS$OUTPUT "*************************************************" 756 @ WRITE SYS$OUTPUT "*** ***" 757 @ WRITE SYS$OUTPUT "*** Please run the same mms command again ***" 758 @ WRITE SYS$OUTPUT "*** ***" 759 @ WRITE SYS$OUTPUT "*************************************************" 760 @ PIPE ( EXIT %X10000000 ) 761 762reconfigure reconf : 763 perl configdata.pm -r 764 765{- 766 use File::Basename; 767 use File::Spec::Functions qw/abs2rel rel2abs catfile catdir/; 768 use File::Spec::Unix; 769 770 # Helper function to convert dependencies in platform agnostic form to 771 # dependencies in platform form. 772 sub compute_platform_depends { 773 map { my $x = $_; 774 775 grep { $x eq $_ } @{$unified_info{programs}} and platform->bin($x) 776 or grep { $x eq $_ } @{$unified_info{modules}} and platform->dso($x) 777 or grep { $x eq $_ } @{$unified_info{libraries}} and platform->lib($x) 778 or platform->convertext($x); } @_; 779 } 780 781 # Helper function to figure out dependencies on libraries 782 # It takes a list of library names and outputs a list of dependencies 783 sub compute_lib_depends { 784 # Depending on shared libraries: 785 # On Windows POSIX layers, we depend on {libname}.dll.a 786 # On Unix platforms, we depend on {shlibname}.so 787 return map { 788 { lib => platform->sharedlib($_) // platform->staticlib($_), 789 attrs => $unified_info{attributes}->{libraries}->{$_} } 790 } @_; 791 } 792 793 # Helper function to deal with inclusion directory specs. 794 # We're dealing with two issues: 795 # 1. A lot of include directory specs take up a lot of command line real 796 # estate, and the DCL command line is very limited (2KiB). 797 # 2. For optimal usage, include directory paths must be in Unix form, 798 # that's the only way the C compiler can merge multiple include paths 799 # in a sane way (we can stop worrying about 1.h including foo/2.h 800 # including ../3.h). 801 # 802 # To resolve 1, we need to create a file with include directory pragmas, 803 # and let the compiler use it with /FIRST_INCLUDE=. 804 # To resolve 2, we convert all include directory specs we get to Unix, 805 # with available File::Spec functions. 806 # 807 # We use CRC-24 from https://tools.ietf.org/html/rfc4880#section-6, 808 # reimplemented in Perl to get a workable and constant file name for each 809 # combination of include directory specs. It is assumed that the order of 810 # these directories don't matter. 811 # 812 # This function takes as input a list of include directories 813 # This function returns a list two things: 814 # 1. The file name to use with /FIRST_INCLUDE= 815 # 2. Text to insert into descrip.mms (may be the empty string) 816 sub crc24 { 817 my $input = shift; 818 819 my $init_value = 0x00B704CE; 820 my $poly_value = 0x01864CFB; 821 822 my $crc = $init_value; 823 824 foreach my $x (unpack ('C*', $input)) { 825 $crc ^= $x << 16; 826 827 for (my $i; $i < 8; $i++) { 828 $crc <<= 1; 829 if ($crc & 0x01000000) { 830 $crc ^= $poly_value; 831 } 832 } 833 } 834 $crc &= 0xFFFFFF; 835 836 return $crc; 837 } 838 my %includefile_cache; 839 sub make_includefile { 840 my %dirs = map { 841 my $udir = make_unix_path(rel2abs($_)); 842 843 $udir => 1; 844 } @_; 845 my @dirs = sort keys %dirs; 846 my $filename = sprintf 'incdirs_%x.h', crc24(join(',', @dirs)); 847 848 if ($includefile_cache{$filename}) { 849 return ($filename, ""); 850 } 851 852 my $scripture = <<"EOF"; 853$filename : 854 open/write inc_output $filename 855EOF 856 foreach (@dirs) { 857 $scripture .= <<"EOF"; 858 write inc_output "#pragma include_directory ""$_""" 859EOF 860 } 861 $scripture .= <<"EOF"; 862 close inc_output 863EOF 864 $includefile_cache{$filename} = $scripture; 865 866 return ($filename, $scripture); 867 } 868 869 sub generatetarget { 870 my %args = @_; 871 my $deps = join(" ", compute_platform_depends(@{$args{deps}})); 872 return <<"EOF"; 873$args{target} : $deps 874EOF 875 } 876 877 sub generatesrc { 878 my %args = @_; 879 my $gen0 = $args{generator}->[0]; 880 my $gen_args = join('', map { " $_" } 881 @{$args{generator}}[1..$#{$args{generator}}]); 882 my $gen_incs = join("", map { ' "-I'.$_.'"' } @{$args{generator_incs}}); 883 my $deps = join(", -\n\t\t", 884 compute_platform_depends(@{$args{generator_deps}}, 885 @{$args{deps}})); 886 887 if ($args{src} =~ /\.html$/) { 888 # 889 # HTML generator 890 # 891 my $title = basename($args{src}, ".html"); 892 my $pod = $gen0; 893 my $mkpod2html = sourcefile('util', 'mkpod2html.pl'); 894 my $srcdoc = sourcedir('doc'); 895 return <<"EOF"; 896$args{src} : $pod 897 \$(PERL) $mkpod2html -i $pod -o \$\@ -t "$title" -r "$srcdoc" 898EOF 899 } elsif ($args{src} =~ /\.(\d)$/) { 900 # 901 # Man-page generator, on VMS we simply ignore man-pages 902 # 903 return ""; 904 } elsif (platform->isdef($args{src})) { 905 # 906 # Linker script-ish generator 907 # 908 my $target = platform->def($args{src}); 909 my $mkdef = sourcefile('util', 'mkdef.pl'); 910 my $ord_ver = $args{intent} eq 'lib' ? ' --version $(VERSION_NUMBER)' : ''; 911 my $ord_name = 912 $args{generator}->[1] || basename($args{product}, '.EXE'); 913 my $case_insensitive = 914 $target{$args{intent}.'_cflags'} =~ m|/NAMES=[^/]*AS_IS|i 915 ? '' : ' --case-insensitive'; 916 return <<"EOF"; 917$target : $gen0 $deps $mkdef 918 \$(PERL) $mkdef$ord_ver --ordinals $gen0 --name $ord_name "--OS" "VMS"$case_insensitive > $target 919EOF 920 } elsif (platform->isasm($args{src})) { 921 # 922 # Assembler generator 923 # 924 my $cppflags = 925 { shlib => "$lib_cflags $lib_cppflags", 926 lib => "$lib_cflags $lib_cppflags", 927 dso => "$dso_cflags $dso_cppflags", 928 bin => "$bin_cflags $bin_cppflags" } -> {$args{intent}}; 929 my $defs = join("", map { ",".$_ } @{$args{defs}}); 930 my $target = platform->asm($args{src}); 931 932 my $generator; 933 if ($gen0 =~ /\.pl$/) { 934 $generator = '$(PERL)'.$gen_incs.' '.$gen0.$gen_args 935 .' '.$cppflags; 936 } elsif ($gen0 =~ /\.S$/) { 937 $generator = undef; 938 } else { 939 die "Generator type for $src unknown: $gen0.$gen_args\n"; 940 } 941 942 if (defined($generator)) { 943 # If the target is named foo.S in build.info, we want to 944 # end up generating foo.s in two steps. 945 if ($args{src} =~ /\.S$/) { 946 return <<"EOF"; 947$target : $gen0 $deps 948 $generator \$\@-S 949 \@ extradefines = "$defs" 950 PIPE \$(CPP) $cppflags \$\@-S | - 951 \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@-i 952 \@ DELETE/SYMBOL/LOCAL extradefines 953 RENAME \$\@-i \$\@ 954 DELETE \$\@-S; 955EOF 956 } 957 # Otherwise.... 958 return <<"EOF"; 959$target : $gen0 $deps 960 \@ extradefines = "$defs" 961 $generator \$\@ 962 \@ DELETE/SYMBOL/LOCAL extradefines 963EOF 964 } 965 return <<"EOF"; 966$target : $gen0 $deps 967 \@ extradefines = "$defs" 968 PIPE \$(CPP) $cppflags $gen0 | - 969 \$(PERL) "-ne" "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@ 970 \@ DELETE/SYMBOL/LOCAL extradefines 971EOF 972 } elsif ($gen0 =~ m|^.*\.in$|) { 973 # 974 # "dofile" generator (file.in -> file) 975 # 976 my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, 977 "util", "dofile.pl")), 978 rel2abs($config{builddir})); 979 my @perlmodules = ( 'configdata.pm', 980 grep { $_ =~ m|\.pm$| } @{$args{deps}} ); 981 my %perlmoduleincs = map { '"-I'.dirname($_).'"' => 1 } @perlmodules; 982 $deps = join(' ', $deps, compute_platform_depends(@perlmodules)); 983 @perlmodules = map { '"-M'.basename($_, '.pm').'"' } @perlmodules; 984 my $perlmodules = join(' ', '', sort keys %perlmoduleincs, @perlmodules); 985 return <<"EOF"; 986$args{src} : $gen0 $deps 987 \$(PERL)$perlmodules $dofile "-o$target{build_file}" $gen0$gen_args > \$\@ 988EOF 989 } elsif (grep { $_ eq $gen0 } @{$unified_info{programs}}) { 990 # 991 # Generic generator using OpenSSL programs 992 # 993 994 # Redo $gen0, to ensure that we have the proper extension 995 $gen0 = platform->bin($gen0); 996 return <<"EOF"; 997$args{src} : $gen0 $deps 998 PIPE MCR $gen0$gen_args > \$@ 999EOF 1000 } else { 1001 # 1002 # Generic generator using Perl 1003 # 1004 return <<"EOF"; 1005$args{src} : $gen0 $deps 1006 \$(PERL)$gen_incs $gen0$gen_args > \$\@ 1007EOF 1008 } 1009 } 1010 1011 sub src2obj { 1012 my $asmext = platform->asmext(); 1013 my %args = @_; 1014 my @srcs = 1015 map { my $x = $_; 1016 (platform->isasm($x) && grep { $x eq $_ } @generated) 1017 ? platform->asm($x) : $x } 1018 ( @{$args{srcs}} ); 1019 my $obj = platform->obj($args{obj}); 1020 my $dep = platform->dep($args{obj}); 1021 my $deps = join(", -\n\t\t", @srcs, @{$args{deps}}); 1022 1023 # Because VMS C isn't very good at combining a /INCLUDE path with 1024 # #includes having a relative directory (like '#include "../foo.h"), 1025 # the best choice is to move to the first source file's intended 1026 # directory before compiling, and make sure to write the object file 1027 # in the correct position (important when the object tree is other 1028 # than the source tree). 1029 my $forward = dirname($args{srcs}->[0]); 1030 my $backward = abs2rel(rel2abs("."), rel2abs($forward)); 1031 my $objd = abs2rel(rel2abs(dirname($obj)), rel2abs($forward)); 1032 my $objn = basename($obj); 1033 my $depd = abs2rel(rel2abs(dirname($dep)), rel2abs($forward)); 1034 my $depn = basename($dep); 1035 my $srcs = 1036 join(", ", map { abs2rel(rel2abs($_), rel2abs($forward)) } @srcs); 1037 my $incextra = join(',', map { "\"$_\"" } 1038 @{$unified_info{includes_extra}->{$obj}}); 1039 $incextra = "/INCLUDE=($incextra)" if $incextra; 1040 1041 my $cflags; 1042 if ($args{attrs}->{noinst}) { 1043 $cflags .= { shlib => $lib_cflags_no_inst, 1044 lib => $lib_cflags_no_inst, 1045 dso => $dso_cflags_no_inst, 1046 bin => $bin_cflags_no_inst } -> {$args{intent}}; 1047 } else { 1048 $cflags .= { shlib => $lib_cflags, 1049 lib => $lib_cflags, 1050 dso => $dso_cflags, 1051 bin => $bin_cflags } -> {$args{intent}}; 1052 } 1053 $cflags .= { shlib => $lib_cppflags, 1054 lib => $lib_cppflags, 1055 dso => $dso_cppflags, 1056 bin => $bin_cppflags } -> {$args{intent}}; 1057 $cflags .= $incextra; 1058 my $defs = join("", map { ",".$_ } @{$args{defs}}); 1059 my $asflags = { shlib => $lib_asflags, 1060 lib => $lib_asflags, 1061 dso => $dso_asflags, 1062 bin => $bin_asflags } -> {$args{intent}}; 1063 1064 if ($srcs[0] =~ /\Q${asmext}\E$/) { 1065 return <<"EOF"; 1066$obj : $deps 1067 SET DEFAULT $forward 1068 \$(AS) $asflags \$(ASOUTFLAG)${objd}${objn} $srcs 1069 SET DEFAULT $backward 1070 - PURGE $obj 1071EOF 1072 } elsif ($srcs[0] =~ /.S$/) { 1073 return <<"EOF"; 1074$obj : $deps 1075 SET DEFAULT $forward 1076 \@ $incs_on 1077 \@ extradefines = "$defs" 1078 PIPE \$(CPP) ${cflags} $srcs | - 1079 \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" - 1080 > ${objd}${objn}-asm 1081 \@ DELETE/SYMBOL/LOCAL extradefines 1082 \@ $incs_off 1083 SET DEFAULT $backward 1084 \$(AS) $asflags \$(ASOUTFLAG)$obj $obj-asm 1085 - PURGE $obj 1086EOF 1087 } 1088 1089 my ($incdir_filename, $incdir_scripture) = 1090 make_includefile(@{ { shlib => [ @lib_cppincludes ], 1091 lib => [ @lib_cppincludes ], 1092 dso => [ @dso_cppincludes ], 1093 bin => [ @bin_cppincludes ] } -> {$args{intent}} }, 1094 @{$args{incs}}); 1095 $deps .= ", -\n\t\t$incdir_filename"; 1096 $cflags = 1097 $target{cflag_incfirst} 1098 . '"'.make_unix_path(rel2abs($incdir_filename)).'"' 1099 . $cflags; 1100 1101 my $depbuild = $disabled{makedepend} ? "" 1102 : " /MMS=(FILE=${depd}${depn},TARGET=$obj)"; 1103 1104 return <<"EOF"; 1105$obj : $deps 1106 SET DEFAULT $forward 1107 \@ $incs_on 1108 \@ extradefines = "$defs" 1109 \$(CC) ${cflags}${depbuild} /OBJECT=${objd}${objn} /REPOSITORY=$backward $srcs 1110 \@ DELETE/SYMBOL/LOCAL extradefines 1111 \@ $incs_off 1112 SET DEFAULT $backward 1113 - PURGE $obj 1114$incdir_scripture 1115EOF 1116 } 1117 sub obj2shlib { 1118 my %args = @_; 1119 my $shlibname = platform->sharedname($args{lib}); 1120 my $shlib = platform->sharedlib($args{lib}); 1121 my @objs = map { platform->convertext($_) } 1122 grep { platform->isobj($_) } 1123 @{$args{objs}}; 1124 my @defs = map { platform->convertext($_) } 1125 grep { platform->isdef($_) } 1126 @{$args{objs}}; 1127 my @deps = compute_lib_depends(@{$args{deps}}); 1128 die "More than one symbol vector" if scalar @defs > 1; 1129 my $deps = join(", -\n\t\t", @objs, @defs, map { $_->{lib} } @deps); 1130 my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; 1131 my $translatesyms_pl = abs2rel(rel2abs(catfile($config{sourcedir}, 1132 "VMS", "translatesyms.pl")), 1133 rel2abs($config{builddir})); 1134 # The "[]" hack is because in .OPT files, each line inherits the 1135 # previous line's file spec as default, so if no directory spec 1136 # is present in the current line and the previous line has one that 1137 # doesn't apply, you're in for a surprise. 1138 my $write_opt1 = 1139 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1140 "WRITE OPT_FILE \"$x" } @objs). 1141 "\""; 1142 my $write_opt2 = 1143 join("\n\t", map { my $x = $_->{lib} =~ /\[/ 1144 ? $_->{lib} : "[]".$_->{lib}; 1145 $x =~ s|(\.EXE)|$1/SHARE|; 1146 $x =~ s|(\.OLB)|$1/LIB|; 1147 "WRITE OPT_FILE \"$x\"" } @deps) 1148 || "\@ !"; 1149 return <<"EOF" 1150$shlib : $deps 1151 \$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $defs[0] > $defs[0]-translated 1152 OPEN/WRITE/SHARE=READ OPT_FILE $shlibname-components.OPT 1153 $write_opt1 1154 $write_opt2 1155 CLOSE OPT_FILE 1156 LINK ${lib_ldflags}/SHARE=\$\@ $defs[0]-translated/OPT,- 1157 $shlibname-components.OPT/OPT \$(LIB_EX_LIBS) 1158 DELETE $defs[0]-translated;*,$shlibname-components.OPT;* 1159 PURGE $shlibname.EXE,$shlibname.MAP 1160EOF 1161 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1162 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1163EOF 1164 ); 1165 } 1166 sub obj2dso { 1167 my %args = @_; 1168 my $dsoname = platform->dsoname($args{module}); 1169 my $dso = platform->dso($args{module}); 1170 my @objs = map { platform->convertext($_) } 1171 grep { platform->isobj($_) } 1172 @{$args{objs}}; 1173 my @defs = map { platform->convertext($_) } 1174 grep { platform->isdef($_) } 1175 @{$args{objs}}; 1176 my @deps = compute_lib_depends(@{$args{deps}}); 1177 my $deps = join(", -\n\t\t", @objs, @defs, map { $_->{lib} } @deps); 1178 die "More than one symbol vector" if scalar @defs > 1; 1179 my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; 1180 # The "[]" hack is because in .OPT files, each line inherits the 1181 # previous line's file spec as default, so if no directory spec 1182 # is present in the current line and the previous line has one that 1183 # doesn't apply, you're in for a surprise. 1184 my $write_opt1 = 1185 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1186 "WRITE OPT_FILE \"$x" } @objs). 1187 "\""; 1188 my $write_opt2 = 1189 join("\n\t", map { my $x = $_->{lib} =~ /\[/ 1190 ? $_->{lib} : "[]".$_->{lib}; 1191 $x =~ s|(\.EXE)|$1/SHARE|; 1192 $x =~ s|(\.OLB)|$1/LIB|; 1193 "WRITE OPT_FILE \"$x\"" } @deps) 1194 || "\@ !"; 1195 return <<"EOF" 1196$dso : $deps 1197 OPEN/WRITE/SHARE=READ OPT_FILE $dsoname-components.OPT 1198 $write_opt1 1199 $write_opt2 1200 CLOSE OPT_FILE 1201 LINK ${dso_ldflags}/SHARE=\$\@ $defs[0]/OPT,- 1202 $dsoname-components.OPT/OPT \$(DSO_EX_LIBS) 1203 - PURGE $dsoname.EXE,$dsoname.OPT,$dsoname.MAP 1204EOF 1205 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1206 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1207EOF 1208 ); 1209 } 1210 sub obj2lib { 1211 my %args = @_; 1212 my $lib = platform->staticlib($args{lib}); 1213 my @objs = map { platform->convertext($_) } 1214 grep { platform->isobj($_) } 1215 @{$args{objs}}; 1216 my $objs = join(", -\n\t\t", @objs); 1217 my $fill_lib = join("\n\t", (map { "LIBRARY/REPLACE $lib $_" } @objs)); 1218 return <<"EOF"; 1219$lib : $objs 1220 LIBRARY/CREATE/OBJECT $lib 1221 $fill_lib 1222 - PURGE $lib 1223EOF 1224 } 1225 sub obj2bin { 1226 my %args = @_; 1227 my $bin = platform->bin($args{bin}); 1228 my $binname = platform->binname($args{bin}); 1229 my @objs = map { platform->convertext($_) } 1230 grep { platform->isobj($_) } 1231 @{$args{objs}}; 1232 my $objs = join(",", @objs); 1233 my @deps = compute_lib_depends(@{$args{deps}}); 1234 my $deps = join(", -\n\t\t", @objs, map { $_->{lib} } @deps); 1235 1236 my $olb_count = scalar grep(m|\.OLB$|, map { $_->{lib} } @deps); 1237 my $analyse_objs = "@ !"; 1238 if ($olb_count > 0) { 1239 my $analyse_quals = 1240 $config{target} =~ m|alpha| ? "/GSD" : "/SECTIONS=SYMTAB"; 1241 $analyse_objs = "- pipe ANALYSE/OBJECT$analyse_quals $objs | SEARCH SYS\$INPUT \"\"\"main\"\"\" ; nomain = \$severity .NE. 1" 1242 } 1243 # The "[]" hack is because in .OPT files, each line inherits the 1244 # previous line's file spec as default, so if no directory spec 1245 # is present in the current line and the previous line has one that 1246 # doesn't apply, you're in for a surprise. 1247 my $write_opt1 = 1248 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1249 "\@ WRITE OPT_FILE \"$x" } @objs). 1250 "\""; 1251 my $write_opt2 = 1252 join("\n\t", "WRITE OPT_FILE \"CASE_SENSITIVE=YES\"", 1253 map { my @lines = (); 1254 use Data::Dumper; 1255 my $x = $_->{lib} =~ /\[/ 1256 ? $_->{lib} : "[]".$_->{lib}; 1257 if ($x =~ m|\.EXE$|) { 1258 push @lines, "\@ WRITE OPT_FILE \"$x/SHARE\""; 1259 } elsif ($x =~ m|\.OLB$|) { 1260 # Special hack to include the MAIN object 1261 # module explicitly. This will only be done 1262 # if there isn't a 'main' in the program's 1263 # object modules already. 1264 my $main = $_->{attrs}->{has_main} 1265 ? '/INCLUDE=main' : ''; 1266 push @lines, 1267 "\@ IF nomain THEN WRITE OPT_FILE \"$x/LIB$main\"", 1268 "\@ IF .NOT. nomain THEN WRITE OPT_FILE \"$x/LIB\"" 1269 } 1270 @lines 1271 } @deps) 1272 || "\@ !"; 1273 # The linking commands looks a bit complex, but it's for good reason. 1274 # When you link, say, foo.obj, bar.obj and libsomething.exe/share, and 1275 # bar.obj happens to have a symbol that also exists in libsomething.exe, 1276 # the linker will warn about it, loudly, and will then choose to pick 1277 # the first copy encountered (the one in bar.obj in this example). 1278 # On Unix and on Windows, the corresponding maneuver goes through 1279 # silently with the same effect. 1280 # With some test programs, made for checking the internals of OpenSSL, 1281 # we do this kind of linking deliberately, picking a few specific object 1282 # files from within [.crypto] or [.ssl] so we can reach symbols that are 1283 # otherwise unreachable (since the shareable images only exports the 1284 # symbols listed in [.util]*.num), and then with the shared libraries 1285 # themselves. So we need to silence the warning about multiply defined 1286 # symbols, to mimic the way linking work on Unix and Windows, and so 1287 # the build isn't interrupted (MMS stops when warnings are signaled, 1288 # by default), and so someone building doesn't have to worry where it 1289 # isn't necessary. If there are other warnings, however, we show them 1290 # and let it break the build. 1291 return <<"EOF" 1292$bin : $deps 1293 $analyse_objs 1294 @ OPEN/WRITE/SHARE=READ OPT_FILE $binname.OPT 1295 $write_opt1 1296 $write_opt2 1297 @ CLOSE OPT_FILE 1298 TYPE $binname.OPT ! For debugging 1299 - pipe SPAWN/WAIT/NOLOG/OUT=$binname.LINKLOG - 1300 LINK ${bin_ldflags}/EXEC=\$\@ $binname.OPT/OPT \$(BIN_EX_LIBS) ; - 1301 link_status = \$status ; link_severity = link_status .AND. 7 1302 @ search_severity = 1 1303 -@ IF link_severity .EQ. 0 THEN - 1304 pipe SEARCH $binname.LINKLOG "%","-"/MATCH=AND | - 1305 SPAWN/WAIT/NOLOG/OUT=NLA0: - 1306 SEARCH SYS\$INPUT: "-W-MULDEF,"/MATCH=NOR ; - 1307 search_severity = \$severity 1308 @ ! search_severity is 3 when the last search didn't find any matching 1309 @ ! string: %SEARCH-I-NOMATCHES, no strings matched 1310 @ ! If that was the result, we pretend linking got through without 1311 @ ! fault or warning. 1312 @ IF search_severity .EQ. 3 THEN link_severity = 1 1313 @ ! At this point, if link_severity shows that there was a fault 1314 @ ! or warning, make sure to restore the linking status. 1315 -@ IF .NOT. link_severity THEN TYPE $binname.LINKLOG 1316 -@ DELETE $binname.LINKLOG;* 1317 @ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status' 1318 - PURGE $bin,$binname.OPT 1319EOF 1320 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1321 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1322EOF 1323 ); 1324 } 1325 sub in2script { 1326 my %args = @_; 1327 my $script = $args{script}; 1328 return "" if grep { $_ eq $script } @{$args{sources}}; # No overwrite! 1329 my $sources = join(" ", @{$args{sources}}); 1330 my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, 1331 "util", "dofile.pl")), 1332 rel2abs($config{builddir})); 1333 return <<"EOF"; 1334$script : $sources configdata.pm 1335 \$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile - 1336 "-o$target{build_file}" $sources > $script 1337 SET FILE/PROT=(S:RWED,O:RWED,G:RE,W:RE) $script 1338 PURGE $script 1339EOF 1340 } 1341 "" # Important! This becomes part of the template result. 1342-} 1343