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