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_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{- $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) openssl_inc1 = F$PARSE("[.include.openssl]","A.;",,,"syntax_only") - "A.;" 433 $(NODEBUG) openssl_inc2 = F$PARSE("sourcetop:[include.openssl]","A.;",,,"SYNTAX_ONLY") - "A.;" 434 $(NODEBUG) DEFINE openssl 'openssl_inc1','openssl_inc2' 435 $(NODEBUG) ! 436 $(NODEBUG) ! Figure out the architecture 437 $(NODEBUG) ! 438 $(NODEBUG) arch = f$edit( f$getsyi( "arch_name"), "upcase") 439 $(NODEBUG) ! 440 $(NODEBUG) ! Set up logical names for the libraries, so LINK and 441 $(NODEBUG) ! running programs can use them. 442 $(NODEBUG) ! 443 $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEFINE ".uc($_)." 'F\$ENV(\"DEFAULT\")'".uc($_)."\$(SHLIB_EXT)" } @shlibs) || "!" -} 444 445.LAST : 446 $(NODEBUG) {- join("\n\t\$(NODEBUG) ", map { "DEASSIGN ".uc($_) } @shlibs) || "!" -} 447 $(NODEBUG) DEASSIGN openssl 448 $(NODEBUG) DEASSIGN ossl_dataroot 449 $(NODEBUG) DEASSIGN ossl_installroot 450 $(NODEBUG) DEASSIGN ossl_sourceroot 451.DEFAULT : 452 @ ! MMS cannot handle no actions... 453 454# The main targets ################################################### 455 456{- dependmagic('build_sw'); -} : build_libs_nodep, build_modules_nodep, build_programs_nodep 457{- dependmagic('build_libs'); -} : build_libs_nodep 458{- dependmagic('build_modules'); -} : build_modules_nodep 459{- dependmagic('build_programs'); -} : build_programs_nodep 460 461build_generated_pods : $(GENERATED_PODS) 462build_docs : build_html_docs 463build_html_docs : $(HTMLDOCS1) $(HTMLDOCS3) $(HTMLDOCS5) $(HTMLDOCS7) 464 465build_generated : $(GENERATED_MANDATORY) 466build_libs_nodep : $(LIBS), $(SHLIBS) 467build_modules_nodep : $(MODULES) 468build_programs_nodep : $(PROGRAMS), $(SCRIPTS) 469 470# Kept around for backward compatibility 471build_apps build_tests : build_programs 472 473# Convenience target to prebuild all generated files, not just the mandatory 474# ones 475build_all_generated : $(GENERATED_MANDATORY) $(GENERATED) build_docs 476 @ ! {- output_off() if $disabled{makedepend}; "" -} 477 @ WRITE SYS$OUTPUT "Warning: consider configuring with no-makedepend, because if" 478 @ WRITE SYS$OUTPUT " target system doesn't have $(PERL)," 479 @ WRITE SYS$OUTPUT " then make will fail..." 480 @ ! {- output_on() if $disabled{makedepend}; "" -} 481 482all : build_sw build_docs 483 484test : tests 485{- dependmagic('tests'); -} : build_programs_nodep, build_modules_nodep run_tests 486run_tests : 487 @ ! {- output_off() if $disabled{tests}; "" -} 488 DEFINE SRCTOP "$(SRCDIR)" 489 DEFINE BLDTOP "$(BLDDIR)" 490 DEFINE FIPSKEY "$(FIPSKEY)" 491 IF "$(VERBOSE)" .NES. "" THEN DEFINE VERBOSE "$(VERBOSE)" 492 $(PERL) {- sourcefile("test", "run_tests.pl") -} $(TESTS) 493 DEASSIGN BLDTOP 494 DEASSIGN SRCTOP 495 DEASSIGN FIPSKEY 496 @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} 497 @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" 498 @ ! {- output_on() if !$disabled{tests}; "" -} 499 500list-tests : 501 @ ! {- output_off() if $disabled{tests}; "" -} 502 @ DEFINE SRCTOP "$(SRCDIR)" 503 @ $(PERL) {- sourcefile("test", "run_tests.pl") -} list 504 @ DEASSIGN SRCTOP 505 @ ! {- if ($disabled{tests}) { output_on(); } else { output_off(); } "" -} 506 @ WRITE SYS$OUTPUT "Tests are not supported with your chosen Configure options" 507 @ ! {- output_on() if !$disabled{tests}; "" -} 508 509install : install_sw install_ssldirs install_docs {- $disabled{fips} ? "" : "install_fips" -} install_msg 510 511install_msg : 512 @ WRITE SYS$OUTPUT "" 513 @ WRITE SYS$OUTPUT "######################################################################" 514 @ WRITE SYS$OUTPUT "" 515 @ IF "$(DESTDIR)" .EQS. "" THEN - 516 @{- sourcefile("VMS", "msg_install.com") -} "$(SYSTARTUP)" "{- $osslver -}" 517 @ IF "$(DESTDIR)" .NES. "" THEN - 518 @{- sourcefile("VMS", "msg_staging.com") -} - 519 "''installroot']" "''dataroot']" "$(INSTALLTOP)" "$(OPENSSLDIR)" - 520 "$(SYSTARTUP)" "{- $osslver -}" 521 522check_install : 523 spawn/nolog @ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com 524 525uninstall : uninstall_docs uninstall_sw {- $disabled{fips} ? "" : "uninstall_fips" -} 526 527# Because VMS wants the generation number (or *) to delete files, we can't 528# use $(LIBS), $(PROGRAMS), $(GENERATED) and $(MODULES) directly. 529libclean : 530 {- join("\n\t", map { "- DELETE $_.OLB;*" } @libs) || "@ !" -} 531 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.MAP;*" } @shlibs) || "@ !" -} 532 533clean : libclean 534 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man1}}) || "@ !" -} 535 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man3}}) || "@ !" -} 536 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man5}}) || "@ !" -} 537 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{htmldocs}->{man7}}) || "@ !" -} 538 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{programs}}) || "@ !" -} 539 {- join("\n\t", map { "- DELETE $_.EXE;*,$_.OPT;*" } @{$unified_info{modules}}) || "@ !" -} 540 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{scripts}}) || "@ !" -} 541 {- join("\n\t", map { "- DELETE $_;*" } @{$unified_info{depends}->{""}}) || "@ !" -} 542 {- join("\n\t", map { "- DELETE $_;*" } @generated) || "@ !" -} 543 - DELETE [...]*.MAP;* 544 - DELETE [...]*.D;* 545 - DELETE [...]*.OBJ;*,*.LIS;* 546 - DELETE []CXX$DEMANGLER_DB.;* 547 - DELETE [.VMS]openssl_startup.com;* 548 - DELETE [.VMS]openssl_shutdown.com;* 549 - DELETE []vmsconfig.pm;* 550 551distclean : clean 552 - DELETE [.include.openssl]configuration.h;* 553 - DELETE configdata.pm;* 554 - DELETE descrip.mms;* 555 556depend : descrip.mms 557 @ ! {- output_off() if $disabled{makedepend}; "" -} 558 @ $(PERL) {- sourcefile("util", "add-depends.pl") -} "{- $config{makedep_scheme} -}" 559 @ ! {- output_on() if $disabled{makedepend}; "" -} 560 561# Install helper targets ############################################# 562 563install_sw : install_dev install_engines install_modules - 564 install_runtime install_startup install_ivp 565 566uninstall_sw : uninstall_dev uninstall_modules uninstall_engines - 567 uninstall_runtime uninstall_startup uninstall_ivp 568 569install_docs : install_html_docs 570 571uninstall_docs : uninstall_html_docs 572 573{- output_off() if $disabled{fips}; "" -} 574install_fips : build_sw $(INSTALL_FIPSMODULECONF) 575 @ WRITE SYS$OUTPUT "*** Installing FIPS module" 576 - CREATE/DIR ossl_installroot:[MODULES{- $target{pointer_size} -}.'arch'] 577 - CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000] 578 COPY/PROT=W:RE $(INSTALL_FIPSMODULES) - 579 ossl_installroot:[MODULES{- $target{pointer_size} -}.'arch']$(FIPSMODULENAME) 580 @ WRITE SYS$OUTPUT "*** Installing FIPS module configuration" 581 COPY/PROT=W:RE $(INSTALL_FIPSMODULECONF) OSSL_DATAROOT:[000000] 582 583uninstall_fips : 584 @ WRITE SYS$OUTPUT "*** Uninstalling FIPS module configuration" 585 DELETE OSSL_DATAROOT:[000000]fipsmodule.cnf;* 586 @ WRITE SYS$OUTPUT "*** Uninstalling FIPS module" 587 DELETE ossl_installroot:[MODULES{- $target{pointer_size} -}.'arch']$(FIPSMODULENAME);* 588{- output_on() if $disabled{fips}; "" -} 589 590install_ssldirs : check_INSTALLTOP 591 - CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[000000] 592 IF F$SEARCH("OSSL_DATAROOT:[000000]CERTS.DIR;1") .EQS. "" THEN - 593 CREATE/DIR/PROT=(S:RWED,O:RWE,G:RE,W:RE) OSSL_DATAROOT:[CERTS] 594 IF F$SEARCH("OSSL_DATAROOT:[000000]PRIVATE.DIR;1") .EQS. "" THEN - 595 CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[PRIVATE] 596 IF F$SEARCH("OSSL_DATAROOT:[000000]MISC.DIR;1") .EQS. "" THEN - 597 CREATE/DIR/PROT=(S:RWED,O:RWE,G,W) OSSL_DATAROOT:[MISC] 598 COPY/PROT=W:RE $(MISC_SCRIPTS) OSSL_DATAROOT:[MISC] 599 @ ! Install configuration file 600 COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - 601 ossl_dataroot:[000000]openssl.cnf-dist 602 IF F$SEARCH("OSSL_DATAROOT:[000000]openssl.cnf") .EQS. "" THEN - 603 COPY/PROT=W:R {- sourcefile("apps", "openssl-vms.cnf") -} - 604 ossl_dataroot:[000000]openssl.cnf 605 @ ! Install CTLOG configuration file 606 COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - 607 ossl_dataroot:[000000]ct_log_list.cnf-dist 608 IF F$SEARCH("OSSL_DATAROOT:[000000]ct_log_list.cnf") .EQS. "" THEN - 609 COPY/PROT=W:R {- sourcefile("apps", "ct_log_list.cnf") -} - 610 ossl_dataroot:[000000]ct_log_list.cnf 611 612install_dev : check_INSTALLTOP install_runtime_libs 613 @ WRITE SYS$OUTPUT "*** Installing development files" 614 @ ! Install header files 615 - CREATE/DIR ossl_installroot:[include.openssl] 616 COPY/PROT=W:R ossl_sourceroot:[include.openssl]*.h - 617 ossl_installroot:[include.openssl] 618 COPY/PROT=W:R [.include.openssl]*.h ossl_installroot:[include.openssl] 619 @ ! Install static (development) libraries 620 - CREATE/DIR ossl_installroot:[LIB.'arch'] 621 {- join("\n ", 622 map { "COPY/PROT=W:R $_.OLB ossl_installroot:[LIB.'arch']" } 623 @install_libs) -} 624 625install_engines : check_INSTALLTOP install_runtime_libs build_modules 626 @ {- output_off() unless scalar @install_engines; "" -} ! 627 @ WRITE SYS$OUTPUT "*** Installing engines" 628 - CREATE/DIR ossl_installroot:[ENGINES{- $sover_dirname.$target{pointer_size} -}.'arch'] 629 {- join("\n ", 630 map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[ENGINES$sover_dirname$target{pointer_size}.'arch']" } 631 @install_engines) -} 632 @ {- output_on() unless scalar @install_engines; "" -} ! 633 634install_modules : check_INSTALLTOP install_runtime_libs build_modules 635 @ {- output_off() unless scalar @install_modules; "" -} ! 636 @ WRITE SYS$OUTPUT "*** Installing modules" 637 - CREATE/DIR ossl_installroot:[MODULES{- $target{pointer_size} -}.'arch'] 638 {- join("\n ", 639 map { "COPY/PROT=W:RE $_.EXE ossl_installroot:[MODULES$target{pointer_size}.'arch']" } 640 @install_modules) -} 641 @ {- output_on() unless scalar @install_modules; "" -} ! 642 643install_runtime : install_programs 644 645install_runtime_libs : check_INSTALLTOP build_libs 646 @ {- output_off() if $disabled{shared}; "" -} ! 647 @ WRITE SYS$OUTPUT "*** Installing shareable images" 648 @ ! Install shared (runtime) libraries 649 - CREATE/DIR ossl_installroot:[LIB.'arch'] 650 {- join("\n ", 651 map { "COPY/PROT=W:R $_.EXE ossl_installroot:[LIB.'arch']" } 652 @install_shlibs) -} 653 @ {- output_on() if $disabled{shared}; "" -} ! 654 655install_programs : check_INSTALLTOP install_runtime_libs build_programs 656 @ {- output_off() if $disabled{apps}; "" -} ! 657 @ ! Install the main program 658 - CREATE/DIR ossl_installroot:[EXE.'arch'] 659 COPY/PROT=W:RE [.APPS]openssl.EXE - 660 ossl_installroot:[EXE.'arch']openssl{- $osslver -}.EXE 661 @ ! Install scripts 662 COPY/PROT=W:RE $(BIN_SCRIPTS) ossl_installroot:[EXE] 663 @ ! {- output_on() if $disabled{apps}; "" -} 664 665install_startup : [.VMS]openssl_startup.com [.VMS]openssl_shutdown.com - 666 [.VMS]openssl_utils.com, check_INSTALLTOP 667 - CREATE/DIR ossl_installroot:[SYS$STARTUP] 668 COPY/PROT=W:RE [.VMS]openssl_startup.com - 669 ossl_installroot:[SYS$STARTUP]openssl_startup{- $osslver -}.com 670 COPY/PROT=W:RE [.VMS]openssl_shutdown.com - 671 ossl_installroot:[SYS$STARTUP]openssl_shutdown{- $osslver -}.com 672 COPY/PROT=W:RE [.VMS]openssl_utils.com - 673 ossl_installroot:[SYS$STARTUP]openssl_utils{- $osslver -}.com 674 675install_ivp : [.VMS]openssl_ivp.com check_INSTALLTOP 676 - CREATE/DIR ossl_installroot:[SYSTEST] 677 COPY/PROT=W:RE [.VMS]openssl_ivp.com - 678 ossl_installroot:[SYSTEST]openssl_ivp{- $osslver -}.com 679 680[.VMS]openssl_startup.com : vmsconfig.pm {- sourcefile("VMS", "openssl_startup.com.in") -} 681 - CREATE/DIR [.VMS] 682 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 683 {- sourcefile("VMS", "openssl_startup.com.in") -} - 684 > [.VMS]openssl_startup.com 685 686[.VMS]openssl_utils.com : vmsconfig.pm {- sourcefile("VMS", "openssl_utils.com.in") -} 687 - CREATE/DIR [.VMS] 688 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 689 {- sourcefile("VMS", "openssl_utils.com.in") -} - 690 > [.VMS]openssl_utils.com 691 692[.VMS]openssl_shutdown.com : vmsconfig.pm {- sourcefile("VMS", "openssl_shutdown.com.in") -} 693 - CREATE/DIR [.VMS] 694 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 695 {- sourcefile("VMS", "openssl_shutdown.com.in") -} - 696 > [.VMS]openssl_shutdown.com 697 698[.VMS]openssl_ivp.com : vmsconfig.pm {- sourcefile("VMS", "openssl_ivp.com.in") -} 699 - CREATE/DIR [.VMS] 700 $(PERL) "-I." "-Mvmsconfig" {- sourcefile("util", "dofile.pl") -} - 701 {- sourcefile("VMS", "openssl_ivp.com.in") -} - 702 > [.VMS]openssl_ivp.com 703 704vmsconfig.pm : configdata.pm 705 OPEN/WRITE/SHARE=READ CONFIG []vmsconfig.pm 706 WRITE CONFIG "package vmsconfig;" 707 WRITE CONFIG "use strict; use warnings;" 708 WRITE CONFIG "use Exporter;" 709 WRITE CONFIG "our @ISA = qw(Exporter);" 710 WRITE CONFIG "our @EXPORT = qw(%config %target %withargs %unified_info %disabled);" 711 WRITE CONFIG "our %config = (" 712 WRITE CONFIG " target => '","{- $config{target} -}","'," 713 WRITE CONFIG " version => '","{- $config{version} -}","'," 714 WRITE CONFIG " shlib_version => '","{- $config{shlib_version} -}","'," 715 WRITE CONFIG " shlib_major => '","{- $config{shlib_major} -}","'," 716 WRITE CONFIG " shlib_minor => '","{- $config{shlib_minor} -}","'," 717 WRITE CONFIG " no_shared => '","{- $disabled{shared} -}","'," 718 WRITE CONFIG " INSTALLTOP => '$(INSTALLTOP)'," 719 WRITE CONFIG " OPENSSLDIR => '$(OPENSSLDIR)'," 720 WRITE CONFIG " pointer_size => '","{- $target{pointer_size} -}","'," 721 WRITE CONFIG ");" 722 WRITE CONFIG "our %target = ();" 723 WRITE CONFIG "our %disabled = ();" 724 WRITE CONFIG "our %withargs = ();" 725 WRITE CONFIG "our %unified_info = ();" 726 WRITE CONFIG "1;" 727 CLOSE CONFIG 728 729install_html_docs : check_INSTALLTOP build_html_docs 730 @ WRITE SYS$OUTPUT "*** Installing HTML docs" 731 - CREATE/DIR ossl_installroot:[HTML.MAN1] 732 - CREATE/DIR ossl_installroot:[HTML.MAN3] 733 - CREATE/DIR ossl_installroot:[HTML.MAN5] 734 - CREATE/DIR ossl_installroot:[HTML.MAN7] 735 {- join("\n ", 736 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN1]" } 737 @{$unified_info{htmldocs}->{man1}} ), 738 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN3]" } 739 @{$unified_info{htmldocs}->{man3}} ), 740 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN5]" } 741 @{$unified_info{htmldocs}->{man5}} ), 742 ( map { "COPY/PROT=W:RE $_ ossl_installroot:[HTML.MAN7]" } 743 @{$unified_info{htmldocs}->{man7}} )) -} 744 745check_INSTALLTOP : 746 @ IF "$(INSTALLTOP)" .EQS. "" THEN - 747 WRITE SYS$ERROR "INSTALLTOP should not be empty" 748 @ IF "$(INSTALLTOP)" .EQS. "" THEN - 749 EXIT %x10000002 750 751# Developer targets ################################################## 752 753debug_logicals : 754 SH LOGICAL/PROC openssl,internal,ossl_installroot,ossl_dataroot 755 756# Building targets ################################################### 757 758descrip.mms : configdata.pm {- join(" ", @{$config{build_file_templates}}) -} 759 perl configdata.pm 760 @ WRITE SYS$OUTPUT "*************************************************" 761 @ WRITE SYS$OUTPUT "*** ***" 762 @ WRITE SYS$OUTPUT "*** Please run the same mms command again ***" 763 @ WRITE SYS$OUTPUT "*** ***" 764 @ WRITE SYS$OUTPUT "*************************************************" 765 @ PIPE ( EXIT %X10000000 ) 766 767configdata.pm : $(SRCDIR)Configure $(SRCDIR)config.com {- join(" ", @{$config{build_infos}}, @{$config{conf_files}}) -} 768 perl configdata.pm -r 769 @ WRITE SYS$OUTPUT "*************************************************" 770 @ WRITE SYS$OUTPUT "*** ***" 771 @ WRITE SYS$OUTPUT "*** Please run the same mms command again ***" 772 @ WRITE SYS$OUTPUT "*** ***" 773 @ WRITE SYS$OUTPUT "*************************************************" 774 @ PIPE ( EXIT %X10000000 ) 775 776reconfigure reconf : 777 perl configdata.pm -r 778 779{- 780 use File::Basename; 781 use File::Spec::Functions qw/abs2rel rel2abs catfile catdir/; 782 use File::Spec::Unix; 783 784 # Helper function to convert dependencies in platform agnostic form to 785 # dependencies in platform form. 786 sub compute_platform_depends { 787 map { my $x = $_; 788 789 grep { $x eq $_ } @{$unified_info{programs}} and platform->bin($x) 790 or grep { $x eq $_ } @{$unified_info{modules}} and platform->dso($x) 791 or grep { $x eq $_ } @{$unified_info{libraries}} and platform->lib($x) 792 or platform->convertext($x); } @_; 793 } 794 795 # Helper function to figure out dependencies on libraries 796 # It takes a list of library names and outputs a list of dependencies 797 sub compute_lib_depends { 798 # Depending on shared libraries: 799 # On Windows POSIX layers, we depend on {libname}.dll.a 800 # On Unix platforms, we depend on {shlibname}.so 801 return map { 802 { lib => platform->sharedlib($_) // platform->staticlib($_), 803 attrs => $unified_info{attributes}->{libraries}->{$_} } 804 } @_; 805 } 806 807 # Helper function to deal with inclusion directory specs. 808 # We're dealing with two issues: 809 # 1. A lot of include directory specs take up a lot of command line real 810 # estate, and the DCL command line is very limited (2KiB). 811 # 2. For optimal usage, include directory paths must be in Unix form, 812 # that's the only way the C compiler can merge multiple include paths 813 # in a sane way (we can stop worrying about 1.h including foo/2.h 814 # including ../3.h). 815 # 816 # To resolve 1, we need to create a file with include directory pragmas, 817 # and let the compiler use it with /FIRST_INCLUDE=. 818 # To resolve 2, we convert all include directory specs we get to Unix, 819 # with available File::Spec functions. 820 # 821 # We use CRC-24 from https://tools.ietf.org/html/rfc4880#section-6, 822 # reimplemented in Perl to get a workable and constant file name for each 823 # combination of include directory specs. It is assumed that the order of 824 # these directories don't matter. 825 # 826 # This function takes as input a list of include directories 827 # This function returns a list two things: 828 # 1. The file name to use with /FIRST_INCLUDE= 829 # 2. Text to insert into descrip.mms (may be the empty string) 830 sub crc24 { 831 my $input = shift; 832 833 my $init_value = 0x00B704CE; 834 my $poly_value = 0x01864CFB; 835 836 my $crc = $init_value; 837 838 foreach my $x (unpack ('C*', $input)) { 839 $crc ^= $x << 16; 840 841 for (my $i; $i < 8; $i++) { 842 $crc <<= 1; 843 if ($crc & 0x01000000) { 844 $crc ^= $poly_value; 845 } 846 } 847 } 848 $crc &= 0xFFFFFF; 849 850 return $crc; 851 } 852 my %includefile_cache; 853 sub make_includefile { 854 my %dirs = map { 855 my $udir = make_unix_path(rel2abs($_)); 856 857 $udir => 1; 858 } @_; 859 my @dirs = sort keys %dirs; 860 my $filename = sprintf 'incdirs_%x.h', crc24(join(',', @dirs)); 861 862 if ($includefile_cache{$filename}) { 863 return ($filename, ""); 864 } 865 866 my $scripture = <<"EOF"; 867$filename : 868 open/write inc_output $filename 869EOF 870 foreach (@dirs) { 871 $scripture .= <<"EOF"; 872 write inc_output "#pragma include_directory ""$_""" 873EOF 874 } 875 $scripture .= <<"EOF"; 876 close inc_output 877EOF 878 $includefile_cache{$filename} = $scripture; 879 880 return ($filename, $scripture); 881 } 882 883 # On VMS, (some) header file directories include the files 884 # __DECC_INCLUDE_EPILOGUE.H and __DECC_INCLUDE_PROLOGUE.H. 885 # When header files are generated, and the build directory 886 # isn't the same as the source directory, these files must 887 # be copied alongside the generated header file, or their 888 # effect will be lost. 889 # We use the same include file cache as make_includefile 890 # to check if the scripture to copy these files has already 891 # been generated. 892 sub make_decc_include_files { 893 my $outd = shift; 894 my $ind = shift; 895 896 # If the build directory and the source directory are the 897 # same, there's no need to copy the prologue and epilogue 898 # files. 899 return ('') if $outd eq $ind; 900 901 my $outprologue = catfile($outd, '__DECC_INCLUDE_PROLOGUE.H'); 902 my $outepilogue = catfile($outd, '__DECC_INCLUDE_EPILOGUE.H'); 903 my $inprologue = catfile($ind, '__DECC_INCLUDE_PROLOGUE.H'); 904 my $inepilogue = catfile($ind, '__DECC_INCLUDE_EPILOGUE.H'); 905 my @filenames = (); 906 my $scripture = ''; 907 908 if ($includefile_cache{$outprologue}) { 909 push @filenames, $outprologue; 910 } elsif (-f $inprologue) { 911 my $local_scripture .= <<"EOF"; 912$outprologue : $inprologue 913 COPY $inprologue $outprologue 914EOF 915 $includefile_cache{$outprologue} = $local_scripture; 916 917 push @filenames, $outprologue; 918 $scripture .= $local_scripture; 919 } 920 if ($includefile_cache{$outepilogue}) { 921 push @filenames, $outepilogue; 922 } elsif (-f $inepilogue) { 923 my $local_scripture .= <<"EOF"; 924$outepilogue : $inepilogue 925 COPY $inepilogue $outepilogue 926EOF 927 $includefile_cache{$outepilogue} = $local_scripture; 928 929 push @filenames, $outepilogue; 930 $scripture .= $local_scripture; 931 } 932 933 return (@filenames, $scripture); 934 } 935 936 sub generatetarget { 937 my %args = @_; 938 my $deps = join(" ", compute_platform_depends(@{$args{deps}})); 939 return <<"EOF"; 940$args{target} : $deps 941EOF 942 } 943 944 sub generatesrc { 945 my %args = @_; 946 my $gen0 = $args{generator}->[0]; 947 my $gen_args = join('', map { " $_" } 948 @{$args{generator}}[1..$#{$args{generator}}]); 949 my $gen_incs = join("", map { ' "-I'.$_.'"' } @{$args{generator_incs}}); 950 my $deps = join(", -\n\t\t", 951 compute_platform_depends(@{$args{generator_deps}}, 952 @{$args{deps}})); 953 954 if ($args{src} =~ /\.html$/) { 955 # 956 # HTML generator 957 # 958 my $title = basename($args{src}, ".html"); 959 my $pod = $gen0; 960 my $mkpod2html = sourcefile('util', 'mkpod2html.pl'); 961 my $srcdoc = sourcedir('doc'); 962 return <<"EOF"; 963$args{src} : $pod 964 \$(PERL) $mkpod2html -i $pod -o \$\@ -t "$title" -r "$srcdoc" 965EOF 966 } elsif ($args{src} =~ /\.(\d)$/) { 967 # 968 # Man-page generator, on VMS we simply ignore man-pages 969 # 970 return ""; 971 } elsif (platform->isdef($args{src})) { 972 # 973 # Linker script-ish generator 974 # 975 my $target = platform->def($args{src}); 976 my $mkdef = sourcefile('util', 'mkdef.pl'); 977 my $ord_ver = $args{intent} eq 'lib' ? ' --version $(VERSION_NUMBER)' : ''; 978 my $ord_name = 979 $args{generator}->[1] || basename($args{product}, '.EXE'); 980 my $case_insensitive = 981 $target{$args{intent}.'_cflags'} =~ m|/NAMES=[^/]*AS_IS|i 982 ? '' : ' --case-insensitive'; 983 return <<"EOF"; 984$target : $gen0 $deps $mkdef 985 \$(PERL) $mkdef$ord_ver --type $args{intent} --ordinals $gen0 --name $ord_name "--OS" "VMS"$case_insensitive > $target 986EOF 987 } elsif (platform->isasm($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->asm($args{src}); 998 999 my $generator; 1000 if ($gen0 =~ /\.pl$/) { 1001 $generator = '$(PERL)'.$gen_incs.' '.$gen0.$gen_args 1002 .' '.$cppflags; 1003 } elsif ($gen0 =~ /\.S$/) { 1004 $generator = undef; 1005 } else { 1006 die "Generator type for $src unknown: $gen0.$gen_args\n"; 1007 } 1008 1009 if (defined($generator)) { 1010 # If the target is named foo.S in build.info, we want to 1011 # end up generating foo.s in two steps. 1012 if ($args{src} =~ /\.S$/) { 1013 return <<"EOF"; 1014$target : $gen0 $deps 1015 $generator \$\@-S 1016 \@ extradefines = "$defs" 1017 PIPE \$(CPP) $cppflags \$\@-S | - 1018 \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@-i 1019 \@ DELETE/SYMBOL/LOCAL extradefines 1020 RENAME \$\@-i \$\@ 1021 DELETE \$\@-S; 1022EOF 1023 } 1024 # Otherwise.... 1025 return <<"EOF"; 1026$target : $gen0 $deps 1027 \@ extradefines = "$defs" 1028 $generator \$\@ 1029 \@ DELETE/SYMBOL/LOCAL extradefines 1030EOF 1031 } 1032 return <<"EOF"; 1033$target : $gen0 $deps 1034 \@ extradefines = "$defs" 1035 PIPE \$(CPP) $cppflags $gen0 | - 1036 \$(PERL) "-ne" "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" > \$\@ 1037 \@ DELETE/SYMBOL/LOCAL extradefines 1038EOF 1039 } elsif ($gen0 =~ m|^.*\.in$|) { 1040 # 1041 # "dofile" generator (file.in -> file) 1042 # 1043 my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, 1044 "util", "dofile.pl")), 1045 rel2abs($config{builddir})); 1046 my @perlmodules = ( 'configdata.pm', 1047 grep { $_ =~ m|\.pm$| } @{$args{deps}} ); 1048 my %perlmoduleincs = map { '"-I'.dirname($_).'"' => 1 } @perlmodules; 1049 my @decc_include_data 1050 = make_decc_include_files(dirname($args{src}), dirname($gen0)); 1051 my $decc_include_scripture = pop @decc_include_data; 1052 $deps = join(' ', $deps, @decc_include_data, 1053 compute_platform_depends(@perlmodules)); 1054 @perlmodules = map { '"-M'.basename($_, '.pm').'"' } @perlmodules; 1055 my $perlmodules = join(' ', '', sort keys %perlmoduleincs, @perlmodules); 1056 1057 return <<"EOF"; 1058$args{src} : $gen0 $deps 1059 \$(PERL)$perlmodules $dofile "-o$target{build_file}" $gen0$gen_args > \$\@ 1060$decc_include_scripture 1061EOF 1062 } elsif (grep { $_ eq $gen0 } @{$unified_info{programs}}) { 1063 # 1064 # Generic generator using OpenSSL programs 1065 # 1066 1067 # Redo $gen0, to ensure that we have the proper extension 1068 $gen0 = platform->bin($gen0); 1069 return <<"EOF"; 1070$args{src} : $gen0 $deps 1071 PIPE MCR $gen0$gen_args > \$@ 1072EOF 1073 } else { 1074 # 1075 # Generic generator using Perl 1076 # 1077 return <<"EOF"; 1078$args{src} : $gen0 $deps 1079 \$(PERL)$gen_incs $gen0$gen_args > \$\@ 1080EOF 1081 } 1082 } 1083 1084 sub src2obj { 1085 my $asmext = platform->asmext(); 1086 my %args = @_; 1087 my @srcs = 1088 map { my $x = $_; 1089 (platform->isasm($x) && grep { $x eq $_ } @generated) 1090 ? platform->asm($x) : $x } 1091 ( @{$args{srcs}} ); 1092 my $obj = platform->obj($args{obj}); 1093 my $dep = platform->dep($args{obj}); 1094 my $deps = join(", -\n\t\t", @srcs, @{$args{deps}}); 1095 1096 # Because VMS C isn't very good at combining a /INCLUDE path with 1097 # #includes having a relative directory (like '#include "../foo.h"), 1098 # the best choice is to move to the first source file's intended 1099 # directory before compiling, and make sure to write the object file 1100 # in the correct position (important when the object tree is other 1101 # than the source tree). 1102 my $forward = dirname($args{srcs}->[0]); 1103 my $backward = abs2rel(rel2abs("."), rel2abs($forward)); 1104 my $objd = abs2rel(rel2abs(dirname($obj)), rel2abs($forward)); 1105 my $objn = basename($obj); 1106 my $depd = abs2rel(rel2abs(dirname($dep)), rel2abs($forward)); 1107 my $depn = basename($dep); 1108 my $srcs = 1109 join(", ", map { abs2rel(rel2abs($_), rel2abs($forward)) } @srcs); 1110 my $incextra = join(',', map { "\"$_\"" } 1111 @{$unified_info{includes_extra}->{$obj}}); 1112 $incextra = "/INCLUDE=($incextra)" if $incextra; 1113 1114 my $cflags; 1115 if ($args{attrs}->{noinst}) { 1116 $cflags .= { shlib => $lib_cflags_no_inst, 1117 lib => $lib_cflags_no_inst, 1118 dso => $dso_cflags_no_inst, 1119 bin => $bin_cflags_no_inst } -> {$args{intent}}; 1120 } else { 1121 $cflags .= { shlib => $lib_cflags, 1122 lib => $lib_cflags, 1123 dso => $dso_cflags, 1124 bin => $bin_cflags } -> {$args{intent}}; 1125 } 1126 $cflags .= { shlib => $lib_cppflags, 1127 lib => $lib_cppflags, 1128 dso => $dso_cppflags, 1129 bin => $bin_cppflags } -> {$args{intent}}; 1130 $cflags .= $incextra; 1131 my $defs = join("", map { ",".$_ } @{$args{defs}}); 1132 my $asflags = { shlib => $lib_asflags, 1133 lib => $lib_asflags, 1134 dso => $dso_asflags, 1135 bin => $bin_asflags } -> {$args{intent}}; 1136 1137 if ($srcs[0] =~ /\Q${asmext}\E$/) { 1138 return <<"EOF"; 1139$obj : $deps 1140 SET DEFAULT $forward 1141 \$(AS) $asflags \$(ASOUTFLAG)${objd}${objn} $srcs 1142 SET DEFAULT $backward 1143 - PURGE $obj 1144EOF 1145 } elsif ($srcs[0] =~ /.S$/) { 1146 return <<"EOF"; 1147$obj : $deps 1148 SET DEFAULT $forward 1149 \@ $incs_on 1150 \@ extradefines = "$defs" 1151 PIPE \$(CPP) ${cflags} $srcs | - 1152 \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" - 1153 > ${objd}${objn}-asm 1154 \@ DELETE/SYMBOL/LOCAL extradefines 1155 \@ $incs_off 1156 SET DEFAULT $backward 1157 \$(AS) $asflags \$(ASOUTFLAG)$obj $obj-asm 1158 - PURGE $obj 1159EOF 1160 } 1161 1162 my ($incdir_filename, $incdir_scripture) = 1163 make_includefile(@{ { shlib => [ @lib_cppincludes ], 1164 lib => [ @lib_cppincludes ], 1165 dso => [ @dso_cppincludes ], 1166 bin => [ @bin_cppincludes ] } -> {$args{intent}} }, 1167 @{$args{incs}}); 1168 $deps .= ", -\n\t\t$incdir_filename"; 1169 $cflags = 1170 $target{cflag_incfirst} 1171 . '"'.make_unix_path(rel2abs($incdir_filename)).'"' 1172 . $cflags; 1173 1174 my $depbuild = $disabled{makedepend} ? "" 1175 : " /MMS=(FILE=${depd}${depn},TARGET=$obj)"; 1176 1177 return <<"EOF"; 1178$obj : $deps 1179 SET DEFAULT $forward 1180 \@ $incs_on 1181 \@ extradefines = "$defs" 1182 \$(CC) ${cflags}${depbuild} /OBJECT=${objd}${objn} /REPOSITORY=$backward $srcs 1183 \@ DELETE/SYMBOL/LOCAL extradefines 1184 \@ $incs_off 1185 SET DEFAULT $backward 1186 - PURGE $obj 1187$incdir_scripture 1188EOF 1189 } 1190 sub obj2shlib { 1191 my %args = @_; 1192 my $shlibname = platform->sharedname($args{lib}); 1193 my $shlib = platform->sharedlib($args{lib}); 1194 my @objs = map { platform->convertext($_) } 1195 grep { platform->isobj($_) } 1196 @{$args{objs}}; 1197 my @defs = map { platform->convertext($_) } 1198 grep { platform->isdef($_) } 1199 @{$args{objs}}; 1200 my @deps = compute_lib_depends(@{$args{deps}}); 1201 die "More than one symbol vector" if scalar @defs > 1; 1202 my $deps = join(", -\n\t\t", @objs, @defs, map { $_->{lib} } @deps); 1203 my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; 1204 my $translatesyms_pl = abs2rel(rel2abs(catfile($config{sourcedir}, 1205 "VMS", "translatesyms.pl")), 1206 rel2abs($config{builddir})); 1207 # The "[]" hack is because in .OPT files, each line inherits the 1208 # previous line's file spec as default, so if no directory spec 1209 # is present in the current line and the previous line has one that 1210 # doesn't apply, you're in for a surprise. 1211 my $write_opt1 = 1212 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1213 "WRITE OPT_FILE \"$x" } @objs). 1214 "\""; 1215 my $write_opt2 = 1216 join("\n\t", map { my $x = $_->{lib} =~ /\[/ 1217 ? $_->{lib} : "[]".$_->{lib}; 1218 $x =~ s|(\.EXE)|$1/SHARE|; 1219 $x =~ s|(\.OLB)|$1/LIB|; 1220 "WRITE OPT_FILE \"$x\"" } @deps) 1221 || "\@ !"; 1222 return <<"EOF" 1223$shlib : $deps 1224 \$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $defs[0] > $defs[0]-translated 1225 OPEN/WRITE/SHARE=READ OPT_FILE $shlibname-components.OPT 1226 $write_opt1 1227 $write_opt2 1228 CLOSE OPT_FILE 1229 LINK ${lib_ldflags}/SHARE=\$\@ $defs[0]-translated/OPT,- 1230 $shlibname-components.OPT/OPT \$(LIB_EX_LIBS) 1231 DELETE $defs[0]-translated;*,$shlibname-components.OPT;* 1232 PURGE $shlibname.EXE,$shlibname.MAP 1233EOF 1234 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1235 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1236EOF 1237 ); 1238 } 1239 sub obj2dso { 1240 my %args = @_; 1241 my $dsoname = platform->dsoname($args{module}); 1242 my $dso = platform->dso($args{module}); 1243 my @objs = map { platform->convertext($_) } 1244 grep { platform->isobj($_) } 1245 @{$args{objs}}; 1246 my @defs = map { platform->convertext($_) } 1247 grep { platform->isdef($_) } 1248 @{$args{objs}}; 1249 my @deps = compute_lib_depends(@{$args{deps}}); 1250 my $deps = join(", -\n\t\t", @objs, @defs, map { $_->{lib} } @deps); 1251 die "More than one symbol vector" if scalar @defs > 1; 1252 my $shlib_target = $disabled{shared} ? "" : $target{shared_target}; 1253 # The "[]" hack is because in .OPT files, each line inherits the 1254 # previous line's file spec as default, so if no directory spec 1255 # is present in the current line and the previous line has one that 1256 # doesn't apply, you're in for a surprise. 1257 my $write_opt1 = 1258 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1259 "WRITE OPT_FILE \"$x" } @objs). 1260 "\""; 1261 my $write_opt2 = 1262 join("\n\t", map { my $x = $_->{lib} =~ /\[/ 1263 ? $_->{lib} : "[]".$_->{lib}; 1264 $x =~ s|(\.EXE)|$1/SHARE|; 1265 $x =~ s|(\.OLB)|$1/LIB|; 1266 "WRITE OPT_FILE \"$x\"" } @deps) 1267 || "\@ !"; 1268 return <<"EOF" 1269$dso : $deps 1270 OPEN/WRITE/SHARE=READ OPT_FILE $dsoname-components.OPT 1271 $write_opt1 1272 $write_opt2 1273 CLOSE OPT_FILE 1274 LINK ${dso_ldflags}/SHARE=\$\@ $defs[0]/OPT,- 1275 $dsoname-components.OPT/OPT \$(DSO_EX_LIBS) 1276 - PURGE $dsoname.EXE,$dsoname.OPT,$dsoname.MAP 1277EOF 1278 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1279 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1280EOF 1281 ); 1282 } 1283 sub obj2lib { 1284 my %args = @_; 1285 my $lib = platform->staticlib($args{lib}); 1286 my @objs = map { platform->convertext($_) } 1287 grep { platform->isobj($_) } 1288 @{$args{objs}}; 1289 my $objs = join(", -\n\t\t", @objs); 1290 my $fill_lib = join("\n\t", (map { "LIBRARY/REPLACE $lib $_" } @objs)); 1291 return <<"EOF"; 1292$lib : $objs 1293 LIBRARY/CREATE/OBJECT $lib 1294 $fill_lib 1295 - PURGE $lib 1296EOF 1297 } 1298 sub obj2bin { 1299 my %args = @_; 1300 my $bin = platform->bin($args{bin}); 1301 my $binname = platform->binname($args{bin}); 1302 my @objs = map { platform->convertext($_) } 1303 grep { platform->isobj($_) } 1304 @{$args{objs}}; 1305 my $objs = join(",", @objs); 1306 my @deps = compute_lib_depends(@{$args{deps}}); 1307 my $deps = join(", -\n\t\t", @objs, map { $_->{lib} } @deps); 1308 1309 my $olb_count = scalar grep(m|\.OLB$|, map { $_->{lib} } @deps); 1310 my $analyse_objs = "@ !"; 1311 if ($olb_count > 0) { 1312 my $analyse_quals = 1313 $config{target} =~ m|alpha| ? "/GSD" : "/SECTIONS=SYMTAB"; 1314 $analyse_objs = "- pipe ANALYSE/OBJECT$analyse_quals $objs | SEARCH SYS\$INPUT \"\"\"main\"\"\" ; nomain = \$severity .NE. 1" 1315 } 1316 # The "[]" hack is because in .OPT files, each line inherits the 1317 # previous line's file spec as default, so if no directory spec 1318 # is present in the current line and the previous line has one that 1319 # doesn't apply, you're in for a surprise. 1320 my $write_opt1 = 1321 join(",-\"\n\t", map { my $x = $_ =~ /\[/ ? $_ : "[]".$_; 1322 "\@ WRITE OPT_FILE \"$x" } @objs). 1323 "\""; 1324 my $write_opt2 = 1325 join("\n\t", "WRITE OPT_FILE \"CASE_SENSITIVE=YES\"", 1326 map { my @lines = (); 1327 use Data::Dumper; 1328 my $x = $_->{lib} =~ /\[/ 1329 ? $_->{lib} : "[]".$_->{lib}; 1330 if ($x =~ m|\.EXE$|) { 1331 push @lines, "\@ WRITE OPT_FILE \"$x/SHARE\""; 1332 } elsif ($x =~ m|\.OLB$|) { 1333 # Special hack to include the MAIN object 1334 # module explicitly. This will only be done 1335 # if there isn't a 'main' in the program's 1336 # object modules already. 1337 my $main = $_->{attrs}->{has_main} 1338 ? '/INCLUDE=main' : ''; 1339 push @lines, 1340 "\@ IF nomain THEN WRITE OPT_FILE \"$x/LIB$main\"", 1341 "\@ IF .NOT. nomain THEN WRITE OPT_FILE \"$x/LIB\"" 1342 } 1343 @lines 1344 } @deps) 1345 || "\@ !"; 1346 # The linking commands looks a bit complex, but it's for good reason. 1347 # When you link, say, foo.obj, bar.obj and libsomething.exe/share, and 1348 # bar.obj happens to have a symbol that also exists in libsomething.exe, 1349 # the linker will warn about it, loudly, and will then choose to pick 1350 # the first copy encountered (the one in bar.obj in this example). 1351 # On Unix and on Windows, the corresponding maneuver goes through 1352 # silently with the same effect. 1353 # With some test programs, made for checking the internals of OpenSSL, 1354 # we do this kind of linking deliberately, picking a few specific object 1355 # files from within [.crypto] or [.ssl] so we can reach symbols that are 1356 # otherwise unreachable (since the shareable images only exports the 1357 # symbols listed in [.util]*.num), and then with the shared libraries 1358 # themselves. So we need to silence the warning about multiply defined 1359 # symbols, to mimic the way linking work on Unix and Windows, and so 1360 # the build isn't interrupted (MMS stops when warnings are signaled, 1361 # by default), and so someone building doesn't have to worry where it 1362 # isn't necessary. If there are other warnings, however, we show them 1363 # and let it break the build. 1364 return <<"EOF" 1365$bin : $deps 1366 $analyse_objs 1367 @ OPEN/WRITE/SHARE=READ OPT_FILE $binname.OPT 1368 $write_opt1 1369 $write_opt2 1370 @ CLOSE OPT_FILE 1371 TYPE $binname.OPT ! For debugging 1372 - pipe SPAWN/WAIT/NOLOG/OUT=$binname.LINKLOG - 1373 LINK ${bin_ldflags}/EXEC=\$\@ $binname.OPT/OPT \$(BIN_EX_LIBS) ; - 1374 link_status = \$status ; link_severity = link_status .AND. 7 1375 @ search_severity = 1 1376 -@ IF link_severity .EQ. 0 THEN - 1377 pipe SEARCH $binname.LINKLOG "%","-"/MATCH=AND | - 1378 SPAWN/WAIT/NOLOG/OUT=NLA0: - 1379 SEARCH SYS\$INPUT: "-W-MULDEF,"/MATCH=NOR ; - 1380 search_severity = \$severity 1381 @ ! search_severity is 3 when the last search didn't find any matching 1382 @ ! string: %SEARCH-I-NOMATCHES, no strings matched 1383 @ ! If that was the result, we pretend linking got through without 1384 @ ! fault or warning. 1385 @ IF search_severity .EQ. 3 THEN link_severity = 1 1386 @ ! At this point, if link_severity shows that there was a fault 1387 @ ! or warning, make sure to restore the linking status. 1388 -@ IF .NOT. link_severity THEN TYPE $binname.LINKLOG 1389 -@ DELETE $binname.LINKLOG;* 1390 @ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status' 1391 - PURGE $bin,$binname.OPT 1392EOF 1393 . ($config{target} =~ m|alpha| ? "" : <<"EOF" 1394 SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@ 1395EOF 1396 ); 1397 } 1398 sub in2script { 1399 my %args = @_; 1400 my $script = $args{script}; 1401 return "" if grep { $_ eq $script } @{$args{sources}}; # No overwrite! 1402 my $sources = join(" ", @{$args{sources}}); 1403 my $dofile = abs2rel(rel2abs(catfile($config{sourcedir}, 1404 "util", "dofile.pl")), 1405 rel2abs($config{builddir})); 1406 return <<"EOF"; 1407$script : $sources configdata.pm 1408 \$(PERL) "-I\$(BLDDIR)" "-Mconfigdata" $dofile - 1409 "-o$target{build_file}" $sources > $script 1410 SET FILE/PROT=(S:RWED,O:RWED,G:RE,W:RE) $script 1411 PURGE $script 1412EOF 1413 } 1414 "" # Important! This becomes part of the template result. 1415-} 1416
