1#!/usr/local/bin/perl 2# A bit of an evil hack but it post processes the file ../MINFO which 3# is generated by `make files` in the top directory. 4# This script outputs one mega makefile that has no shell stuff or any 5# funny stuff 6# 7 8$INSTALLTOP="/usr/local/ssl"; 9$OPENSSLDIR="/usr/local/ssl"; 10$OPTIONS=""; 11$ssl_version=""; 12$banner="\t\@echo Building OpenSSL"; 13 14my $no_static_engine = 1; 15my $engines = ""; 16my $otherlibs = ""; 17local $zlib_opt = 0; # 0 = no zlib, 1 = static, 2 = dynamic 18local $zlib_lib = ""; 19local $perl_asm = 0; # 1 to autobuild asm files from perl scripts 20 21# Options to import from top level Makefile 22 23my %mf_import = ( 24 VERSION => \$ssl_version, 25 OPTIONS => \$OPTIONS, 26 INSTALLTOP => \$INSTALLTOP, 27 OPENSSLDIR => \$OPENSSLDIR, 28 PLATFORM => \$mf_platform, 29 CFLAG => \$mf_cflag, 30 DEPFLAG => \$mf_depflag, 31 CPUID_OBJ => \$mf_cpuid_asm, 32 BN_ASM => \$mf_bn_asm, 33 DES_ENC => \$mf_des_asm, 34 AES_ENC => \$mf_aes_asm, 35 BF_ENC => \$mf_bf_asm, 36 CAST_ENC => \$mf_cast_asm, 37 RC4_ENC => \$mf_rc4_asm, 38 RC5_ENC => \$mf_rc5_asm, 39 MD5_ASM_OBJ => \$mf_md5_asm, 40 SHA1_ASM_OBJ => \$mf_sha_asm, 41 RMD160_ASM_OBJ => \$mf_rmd_asm, 42 WP_ASM_OBJ => \$mf_wp_asm, 43 CMLL_ENC => \$mf_cm_asm 44); 45 46 47open(IN,"<Makefile") || die "unable to open Makefile!\n"; 48while(<IN>) { 49 my ($mf_opt, $mf_ref); 50 while (($mf_opt, $mf_ref) = each %mf_import) { 51 if (/^$mf_opt\s*=\s*(.*)$/) { 52 $$mf_ref = $1; 53 } 54 } 55} 56close(IN); 57 58$debug = 1 if $mf_platform =~ /^debug-/; 59 60die "Makefile is not the toplevel Makefile!\n" if $ssl_version eq ""; 61 62$infile="MINFO"; 63 64%ops=( 65 "VC-WIN32", "Microsoft Visual C++ [4-6] - Windows NT or 9X", 66 "VC-WIN64I", "Microsoft C/C++ - Win64/IA-64", 67 "VC-WIN64A", "Microsoft C/C++ - Win64/x64", 68 "VC-CE", "Microsoft eMbedded Visual C++ 3.0 - Windows CE ONLY", 69 "VC-NT", "Microsoft Visual C++ [4-6] - Windows NT ONLY", 70 "Mingw32", "GNU C++ - Windows NT or 9x", 71 "Mingw32-files", "Create files with DOS copy ...", 72 "BC-NT", "Borland C++ 4.5 - Windows NT", 73 "linux-elf","Linux elf", 74 "ultrix-mips","DEC mips ultrix", 75 "FreeBSD","FreeBSD distribution", 76 "OS2-EMX", "EMX GCC OS/2", 77 "netware-clib", "CodeWarrior for NetWare - CLib - with WinSock Sockets", 78 "netware-clib-bsdsock", "CodeWarrior for NetWare - CLib - with BSD Sockets", 79 "netware-libc", "CodeWarrior for NetWare - LibC - with WinSock Sockets", 80 "netware-libc-bsdsock", "CodeWarrior for NetWare - LibC - with BSD Sockets", 81 "default","cc under unix", 82 "auto", "auto detect from top level Makefile" 83 ); 84 85$platform=""; 86my $xcflags=""; 87foreach (@ARGV) 88 { 89 if (!&read_options && !defined($ops{$_})) 90 { 91 print STDERR "unknown option - $_\n"; 92 print STDERR "usage: perl mk1mf.pl [options] [system]\n"; 93 print STDERR "\nwhere [system] can be one of the following\n"; 94 foreach $i (sort keys %ops) 95 { printf STDERR "\t%-10s\t%s\n",$i,$ops{$i}; } 96 print STDERR <<"EOF"; 97and [options] can be one of 98 no-md2 no-md4 no-md5 no-sha no-mdc2 - Skip this digest 99 no-ripemd 100 no-rc2 no-rc4 no-rc5 no-idea no-des - Skip this symetric cipher 101 no-bf no-cast no-aes no-camellia no-seed 102 no-rsa no-dsa no-dh - Skip this public key cipher 103 no-ssl2 no-ssl3 - Skip this version of SSL 104 just-ssl - remove all non-ssl keys/digest 105 no-asm - No x86 asm 106 no-krb5 - No KRB5 107 no-ec - No EC 108 no-ecdsa - No ECDSA 109 no-ecdh - No ECDH 110 no-engine - No engine 111 no-hw - No hw 112 nasm - Use NASM for x86 asm 113 nw-nasm - Use NASM x86 asm for NetWare 114 nw-mwasm - Use Metrowerks x86 asm for NetWare 115 gaswin - Use GNU as with Mingw32 116 no-socks - No socket code 117 no-err - No error strings 118 dll/shlib - Build shared libraries (MS) 119 debug - Debug build 120 profile - Profiling build 121 gcc - Use Gcc (unix) 122 123Values that can be set 124TMP=tmpdir OUT=outdir SRC=srcdir BIN=binpath INC=header-outdir CC=C-compiler 125 126-L<ex_lib_path> -l<ex_lib> - extra library flags (unix) 127-<ex_cc_flags> - extra 'cc' flags, 128 added (MS), or replace (unix) 129EOF 130 exit(1); 131 } 132 $platform=$_; 133 } 134foreach (grep(!/^$/, split(/ /, $OPTIONS))) 135 { 136 print STDERR "unknown option - $_\n" if !&read_options; 137 } 138 139$no_static_engine = 0 if (!$shlib); 140 141$no_mdc2=1 if ($no_des); 142 143$no_ssl3=1 if ($no_md5 || $no_sha); 144$no_ssl3=1 if ($no_rsa && $no_dh); 145 146$no_ssl2=1 if ($no_md5); 147$no_ssl2=1 if ($no_rsa); 148 149$out_def="out"; 150$inc_def="outinc"; 151$tmp_def="tmp"; 152 153$perl="perl" unless defined $perl; 154$mkdir="-mkdir" unless defined $mkdir; 155 156($ssl,$crypto)=("ssl","crypto"); 157$ranlib="echo ranlib"; 158 159$cc=(defined($VARS{'CC'}))?$VARS{'CC'}:'cc'; 160$src_dir=(defined($VARS{'SRC'}))?$VARS{'SRC'}:'.'; 161$bin_dir=(defined($VARS{'BIN'}))?$VARS{'BIN'}:''; 162 163# $bin_dir.=$o causes a core dump on my sparc :-( 164 165 166$NT=0; 167 168push(@INC,"util/pl","pl"); 169 170if ($platform eq "auto") { 171 $platform = $mf_platform; 172 print STDERR "Imported platform $mf_platform\n"; 173} 174 175if (($platform =~ /VC-(.+)/)) 176 { 177 $FLAVOR=$1; 178 $NT = 1 if $1 eq "NT"; 179 require 'VC-32.pl'; 180 } 181elsif ($platform eq "Mingw32") 182 { 183 require 'Mingw32.pl'; 184 } 185elsif ($platform eq "Mingw32-files") 186 { 187 require 'Mingw32f.pl'; 188 } 189elsif ($platform eq "BC-NT") 190 { 191 $bc=1; 192 require 'BC-32.pl'; 193 } 194elsif ($platform eq "FreeBSD") 195 { 196 require 'unix.pl'; 197 $cflags='-DTERMIO -D_ANSI_SOURCE -O2 -fomit-frame-pointer'; 198 } 199elsif ($platform eq "linux-elf") 200 { 201 require "unix.pl"; 202 require "linux.pl"; 203 $unix=1; 204 } 205elsif ($platform eq "ultrix-mips") 206 { 207 require "unix.pl"; 208 require "ultrix.pl"; 209 $unix=1; 210 } 211elsif ($platform eq "OS2-EMX") 212 { 213 $wc=1; 214 require 'OS2-EMX.pl'; 215 } 216elsif (($platform eq "netware-clib") || ($platform eq "netware-libc") || 217 ($platform eq "netware-clib-bsdsock") || ($platform eq "netware-libc-bsdsock")) 218 { 219 $LIBC=1 if $platform eq "netware-libc" || $platform eq "netware-libc-bsdsock"; 220 $BSDSOCK=1 if ($platform eq "netware-libc-bsdsock") || ($platform eq "netware-clib-bsdsock"); 221 require 'netware.pl'; 222 } 223else 224 { 225 require "unix.pl"; 226 227 $unix=1; 228 $cflags.=' -DTERMIO'; 229 } 230 231$out_dir=(defined($VARS{'OUT'}))?$VARS{'OUT'}:$out_def.($debug?".dbg":""); 232$tmp_dir=(defined($VARS{'TMP'}))?$VARS{'TMP'}:$tmp_def.($debug?".dbg":""); 233$inc_dir=(defined($VARS{'INC'}))?$VARS{'INC'}:$inc_def; 234 235$bin_dir=$bin_dir.$o unless ((substr($bin_dir,-1,1) eq $o) || ($bin_dir eq '')); 236 237$cflags= "$xcflags$cflags" if $xcflags ne ""; 238 239$cflags.=" -DOPENSSL_NO_IDEA" if $no_idea; 240$cflags.=" -DOPENSSL_NO_AES" if $no_aes; 241$cflags.=" -DOPENSSL_NO_CAMELLIA" if $no_camellia; 242$cflags.=" -DOPENSSL_NO_SEED" if $no_seed; 243$cflags.=" -DOPENSSL_NO_RC2" if $no_rc2; 244$cflags.=" -DOPENSSL_NO_RC4" if $no_rc4; 245$cflags.=" -DOPENSSL_NO_RC5" if $no_rc5; 246$cflags.=" -DOPENSSL_NO_MD2" if $no_md2; 247$cflags.=" -DOPENSSL_NO_MD4" if $no_md4; 248$cflags.=" -DOPENSSL_NO_MD5" if $no_md5; 249$cflags.=" -DOPENSSL_NO_SHA" if $no_sha; 250$cflags.=" -DOPENSSL_NO_SHA1" if $no_sha1; 251$cflags.=" -DOPENSSL_NO_RIPEMD" if $no_ripemd; 252$cflags.=" -DOPENSSL_NO_MDC2" if $no_mdc2; 253$cflags.=" -DOPENSSL_NO_BF" if $no_bf; 254$cflags.=" -DOPENSSL_NO_CAST" if $no_cast; 255$cflags.=" -DOPENSSL_NO_DES" if $no_des; 256$cflags.=" -DOPENSSL_NO_RSA" if $no_rsa; 257$cflags.=" -DOPENSSL_NO_DSA" if $no_dsa; 258$cflags.=" -DOPENSSL_NO_DH" if $no_dh; 259$cflags.=" -DOPENSSL_NO_WHIRLPOOL" if $no_whirlpool; 260$cflags.=" -DOPENSSL_NO_SOCK" if $no_sock; 261$cflags.=" -DOPENSSL_NO_SSL2" if $no_ssl2; 262$cflags.=" -DOPENSSL_NO_SSL3" if $no_ssl3; 263$cflags.=" -DOPENSSL_NO_TLSEXT" if $no_tlsext; 264$cflags.=" -DOPENSSL_NO_CMS" if $no_cms; 265$cflags.=" -DOPENSSL_NO_ERR" if $no_err; 266$cflags.=" -DOPENSSL_NO_KRB5" if $no_krb5; 267$cflags.=" -DOPENSSL_NO_EC" if $no_ec; 268$cflags.=" -DOPENSSL_NO_ECDSA" if $no_ecdsa; 269$cflags.=" -DOPENSSL_NO_ECDH" if $no_ecdh; 270$cflags.=" -DOPENSSL_NO_GOST" if $no_gost; 271$cflags.=" -DOPENSSL_NO_ENGINE" if $no_engine; 272$cflags.=" -DOPENSSL_NO_HW" if $no_hw; 273$cflags.=" -DOPENSSL_NO_JPAKE" if $no_jpake; 274$cflags.= " -DZLIB" if $zlib_opt; 275$cflags.= " -DZLIB_SHARED" if $zlib_opt == 2; 276 277if ($no_static_engine) 278 { 279 $cflags .= " -DOPENSSL_NO_STATIC_ENGINE"; 280 } 281else 282 { 283 $cflags .= " -DOPENSSL_NO_DYNAMIC_ENGINE"; 284 } 285 286#$cflags.=" -DRSAref" if $rsaref ne ""; 287 288## if ($unix) 289## { $cflags="$c_flags" if ($c_flags ne ""); } 290##else 291 { $cflags="$c_flags$cflags" if ($c_flags ne ""); } 292 293$ex_libs="$l_flags$ex_libs" if ($l_flags ne ""); 294 295 296%shlib_ex_cflags=("SSL" => " -DOPENSSL_BUILD_SHLIBSSL", 297 "CRYPTO" => " -DOPENSSL_BUILD_SHLIBCRYPTO"); 298 299if ($msdos) 300 { 301 $banner ="\t\@echo Make sure you have run 'perl Configure $platform' in the\n"; 302 $banner.="\t\@echo top level directory, if you don't have perl, you will\n"; 303 $banner.="\t\@echo need to probably edit crypto/bn/bn.h, check the\n"; 304 $banner.="\t\@echo documentation for details.\n"; 305 } 306 307# have to do this to allow $(CC) under unix 308$link="$bin_dir$link" if ($link !~ /^\$/); 309 310$INSTALLTOP =~ s|/|$o|g; 311$OPENSSLDIR =~ s|/|$o|g; 312 313############################################# 314# We parse in input file and 'store' info for later printing. 315open(IN,"<$infile") || die "unable to open $infile:$!\n"; 316$_=<IN>; 317for (;;) 318 { 319 chop; 320 321 ($key,$val)=/^([^=]+)=(.*)/; 322 if ($key eq "RELATIVE_DIRECTORY") 323 { 324 if ($lib ne "") 325 { 326 $uc=$lib; 327 $uc =~ s/^lib(.*)\.a/$1/; 328 $uc =~ tr/a-z/A-Z/; 329 $lib_nam{$uc}=$uc; 330 $lib_obj{$uc}.=$libobj." "; 331 } 332 last if ($val eq "FINISHED"); 333 $lib=""; 334 $libobj=""; 335 $dir=$val; 336 } 337 338 if ($key eq "KRB5_INCLUDES") 339 { $cflags .= " $val";} 340 341 if ($key eq "ZLIB_INCLUDE") 342 { $cflags .= " $val" if $val ne "";} 343 344 if ($key eq "LIBZLIB") 345 { $zlib_lib = "$val" if $val ne "";} 346 347 if ($key eq "LIBKRB5") 348 { $ex_libs .= " $val" if $val ne "";} 349 350 if ($key eq "TEST") 351 { $test.=&var_add($dir,$val, 0); } 352 353 if (($key eq "PROGS") || ($key eq "E_OBJ")) 354 { $e_exe.=&var_add($dir,$val, 0); } 355 356 if ($key eq "LIB") 357 { 358 $lib=$val; 359 $lib =~ s/^.*\/([^\/]+)$/$1/; 360 } 361 if ($key eq "LIBNAME" && $no_static_engine) 362 { 363 $lib=$val; 364 $lib =~ s/^.*\/([^\/]+)$/$1/; 365 $otherlibs .= " $lib"; 366 } 367 368 if ($key eq "EXHEADER") 369 { $exheader.=&var_add($dir,$val, 1); } 370 371 if ($key eq "HEADER") 372 { $header.=&var_add($dir,$val, 1); } 373 374 if ($key eq "LIBOBJ" && ($dir ne "engines" || !$no_static_engine)) 375 { $libobj=&var_add($dir,$val, 0); } 376 if ($key eq "LIBNAMES" && $dir eq "engines" && $no_static_engine) 377 { $engines.=$val } 378 379 if (!($_=<IN>)) 380 { $_="RELATIVE_DIRECTORY=FINISHED\n"; } 381 } 382close(IN); 383 384if ($shlib) 385 { 386 $extra_install= <<"EOF"; 387 \$(CP) \"\$(O_SSL)\" \"\$(INSTALLTOP)${o}bin\" 388 \$(CP) \"\$(O_CRYPTO)\" \"\$(INSTALLTOP)${o}bin\" 389 \$(CP) \"\$(L_SSL)\" \"\$(INSTALLTOP)${o}lib\" 390 \$(CP) \"\$(L_CRYPTO)\" \"\$(INSTALLTOP)${o}lib\" 391EOF 392 if ($no_static_engine) 393 { 394 $extra_install .= <<"EOF" 395 \$(MKDIR) \"\$(INSTALLTOP)${o}lib${o}engines\" 396 \$(CP) \"\$(E_SHLIB)\" \"\$(INSTALLTOP)${o}lib${o}engines\" 397EOF 398 } 399 } 400else 401 { 402 $extra_install= <<"EOF"; 403 \$(CP) \"\$(O_SSL)\" \"\$(INSTALLTOP)${o}lib\" 404 \$(CP) \"\$(O_CRYPTO)\" \"\$(INSTALLTOP)${o}lib\" 405EOF 406 $ex_libs .= " $zlib_lib" if $zlib_opt == 1; 407 } 408 409$defs= <<"EOF"; 410# This makefile has been automatically generated from the OpenSSL distribution. 411# This single makefile will build the complete OpenSSL distribution and 412# by default leave the 'intertesting' output files in .${o}out and the stuff 413# that needs deleting in .${o}tmp. 414# The file was generated by running 'make makefile.one', which 415# does a 'make files', which writes all the environment variables from all 416# the makefiles to the file call MINFO. This file is used by 417# util${o}mk1mf.pl to generate makefile.one. 418# The 'makefile per directory' system suites me when developing this 419# library and also so I can 'distribute' indervidual library sections. 420# The one monster makefile better suits building in non-unix 421# environments. 422 423EOF 424 425$defs .= $preamble if defined $preamble; 426 427$defs.= <<"EOF"; 428INSTALLTOP=$INSTALLTOP 429OPENSSLDIR=$OPENSSLDIR 430 431# Set your compiler options 432PLATFORM=$platform 433CC=$bin_dir${cc} 434CFLAG=$cflags 435APP_CFLAG=$app_cflag 436LIB_CFLAG=$lib_cflag 437SHLIB_CFLAG=$shl_cflag 438APP_EX_OBJ=$app_ex_obj 439SHLIB_EX_OBJ=$shlib_ex_obj 440# add extra libraries to this define, for solaris -lsocket -lnsl would 441# be added 442EX_LIBS=$ex_libs 443 444# The OpenSSL directory 445SRC_D=$src_dir 446 447LINK=$link 448LFLAGS=$lflags 449RSC=$rsc 450 451# The output directory for everything intersting 452OUT_D=$out_dir 453# The output directory for all the temporary muck 454TMP_D=$tmp_dir 455# The output directory for the header files 456INC_D=$inc_dir 457INCO_D=$inc_dir${o}openssl 458 459PERL=$perl 460CP=$cp 461RM=$rm 462RANLIB=$ranlib 463MKDIR=$mkdir 464MKLIB=$bin_dir$mklib 465MLFLAGS=$mlflags 466ASM=$bin_dir$asm 467 468###################################################### 469# You should not need to touch anything below this point 470###################################################### 471 472E_EXE=openssl 473SSL=$ssl 474CRYPTO=$crypto 475 476# BIN_D - Binary output directory 477# TEST_D - Binary test file output directory 478# LIB_D - library output directory 479# ENG_D - dynamic engine output directory 480# Note: if you change these point to different directories then uncomment out 481# the lines around the 'NB' comment below. 482# 483BIN_D=\$(OUT_D) 484TEST_D=\$(OUT_D) 485LIB_D=\$(OUT_D) 486ENG_D=\$(OUT_D) 487 488# INCL_D - local library directory 489# OBJ_D - temp object file directory 490OBJ_D=\$(TMP_D) 491INCL_D=\$(TMP_D) 492 493O_SSL= \$(LIB_D)$o$plib\$(SSL)$shlibp 494O_CRYPTO= \$(LIB_D)$o$plib\$(CRYPTO)$shlibp 495SO_SSL= $plib\$(SSL)$so_shlibp 496SO_CRYPTO= $plib\$(CRYPTO)$so_shlibp 497L_SSL= \$(LIB_D)$o$plib\$(SSL)$libp 498L_CRYPTO= \$(LIB_D)$o$plib\$(CRYPTO)$libp 499 500L_LIBS= \$(L_SSL) \$(L_CRYPTO) 501 502###################################################### 503# Don't touch anything below this point 504###################################################### 505 506INC=-I\$(INC_D) -I\$(INCL_D) 507APP_CFLAGS=\$(INC) \$(CFLAG) \$(APP_CFLAG) 508LIB_CFLAGS=\$(INC) \$(CFLAG) \$(LIB_CFLAG) 509SHLIB_CFLAGS=\$(INC) \$(CFLAG) \$(LIB_CFLAG) \$(SHLIB_CFLAG) 510LIBS_DEP=\$(O_CRYPTO) \$(O_SSL) 511 512############################################# 513EOF 514 515$rules=<<"EOF"; 516all: banner \$(TMP_D) \$(BIN_D) \$(TEST_D) \$(LIB_D) \$(INCO_D) headers lib exe 517 518banner: 519$banner 520 521\$(TMP_D): 522 \$(MKDIR) \"\$(TMP_D)\" 523# NB: uncomment out these lines if BIN_D, TEST_D and LIB_D are different 524#\$(BIN_D): 525# \$(MKDIR) \$(BIN_D) 526# 527#\$(TEST_D): 528# \$(MKDIR) \$(TEST_D) 529 530\$(LIB_D): 531 \$(MKDIR) \"\$(LIB_D)\" 532 533\$(INCO_D): \$(INC_D) 534 \$(MKDIR) \"\$(INCO_D)\" 535 536\$(INC_D): 537 \$(MKDIR) \"\$(INC_D)\" 538 539headers: \$(HEADER) \$(EXHEADER) 540 @ 541 542lib: \$(LIBS_DEP) \$(E_SHLIB) 543 544exe: \$(T_EXE) \$(BIN_D)$o\$(E_EXE)$exep 545 546install: all 547 \$(MKDIR) \"\$(INSTALLTOP)\" 548 \$(MKDIR) \"\$(INSTALLTOP)${o}bin\" 549 \$(MKDIR) \"\$(INSTALLTOP)${o}include\" 550 \$(MKDIR) \"\$(INSTALLTOP)${o}include${o}openssl\" 551 \$(MKDIR) \"\$(INSTALLTOP)${o}lib\" 552 \$(CP) \"\$(INCO_D)${o}*.\[ch\]\" \"\$(INSTALLTOP)${o}include${o}openssl\" 553 \$(CP) \"\$(BIN_D)$o\$(E_EXE)$exep \$(INSTALLTOP)${o}bin\" 554 \$(MKDIR) \"\$(OPENSSLDIR)\" 555 \$(CP) apps${o}openssl.cnf \"\$(OPENSSLDIR)\" 556$extra_install 557 558 559test: \$(T_EXE) 560 cd \$(BIN_D) 561 ..${o}ms${o}test 562 563clean: 564 \$(RM) \$(TMP_D)$o*.* 565 566vclean: 567 \$(RM) \$(TMP_D)$o*.* 568 \$(RM) \$(OUT_D)$o*.* 569 570EOF 571 572my $platform_cpp_symbol = "MK1MF_PLATFORM_$platform"; 573$platform_cpp_symbol =~ s/-/_/g; 574if (open(IN,"crypto/buildinf.h")) 575 { 576 # Remove entry for this platform in existing file buildinf.h. 577 578 my $old_buildinf_h = ""; 579 while (<IN>) 580 { 581 if (/^\#ifdef $platform_cpp_symbol$/) 582 { 583 while (<IN>) { last if (/^\#endif/); } 584 } 585 else 586 { 587 $old_buildinf_h .= $_; 588 } 589 } 590 close(IN); 591 592 open(OUT,">crypto/buildinf.h") || die "Can't open buildinf.h"; 593 print OUT $old_buildinf_h; 594 close(OUT); 595 } 596 597open (OUT,">>crypto/buildinf.h") || die "Can't open buildinf.h"; 598printf OUT <<EOF; 599#ifdef $platform_cpp_symbol 600 /* auto-generated/updated by util/mk1mf.pl for crypto/cversion.c */ 601 #define CFLAGS "compiler: $cc $cflags" 602 #define PLATFORM "$platform" 603EOF 604printf OUT " #define DATE \"%s\"\n", scalar gmtime(); 605printf OUT "#endif\n"; 606close(OUT); 607 608# Strip of trailing ' ' 609foreach (keys %lib_obj) { $lib_obj{$_}=&clean_up_ws($lib_obj{$_}); } 610$test=&clean_up_ws($test); 611$e_exe=&clean_up_ws($e_exe); 612$exheader=&clean_up_ws($exheader); 613$header=&clean_up_ws($header); 614 615# First we strip the exheaders from the headers list 616foreach (split(/\s+/,$exheader)){ $h{$_}=1; } 617foreach (split(/\s+/,$header)) { $h.=$_." " unless $h{$_}; } 618chop($h); $header=$h; 619 620$defs.=&do_defs("HEADER",$header,"\$(INCL_D)",""); 621$rules.=&do_copy_rule("\$(INCL_D)",$header,""); 622 623$defs.=&do_defs("EXHEADER",$exheader,"\$(INCO_D)",""); 624$rules.=&do_copy_rule("\$(INCO_D)",$exheader,""); 625 626$defs.=&do_defs("T_OBJ",$test,"\$(OBJ_D)",$obj); 627$rules.=&do_compile_rule("\$(OBJ_D)",$test,"\$(APP_CFLAGS)"); 628 629$defs.=&do_defs("E_OBJ",$e_exe,"\$(OBJ_D)",$obj); 630$rules.=&do_compile_rule("\$(OBJ_D)",$e_exe,'-DMONOLITH $(APP_CFLAGS)'); 631 632foreach (values %lib_nam) 633 { 634 $lib_obj=$lib_obj{$_}; 635 local($slib)=$shlib; 636 637 $defs.=&do_defs(${_}."OBJ",$lib_obj,"\$(OBJ_D)",$obj); 638 $lib=($slib)?" \$(SHLIB_CFLAGS)".$shlib_ex_cflags{$_}:" \$(LIB_CFLAGS)"; 639 $rules.=&do_compile_rule("\$(OBJ_D)",$lib_obj{$_},$lib); 640 } 641 642# hack to add version info on MSVC 643if (($platform eq "VC-WIN32") || ($platform eq "VC-WIN64A") 644 || ($platform eq "VC-WIN64I") || ($platform eq "VC-NT")) { 645 $rules.= <<"EOF"; 646\$(OBJ_D)\\\$(CRYPTO).res: ms\\version32.rc 647 \$(RSC) /fo"\$(OBJ_D)\\\$(CRYPTO).res" /d CRYPTO ms\\version32.rc 648 649\$(OBJ_D)\\\$(SSL).res: ms\\version32.rc 650 \$(RSC) /fo"\$(OBJ_D)\\\$(SSL).res" /d SSL ms\\version32.rc 651 652EOF 653} 654 655$defs.=&do_defs("T_EXE",$test,"\$(TEST_D)",$exep); 656foreach (split(/\s+/,$test)) 657 { 658 $t=&bname($_); 659 $tt="\$(OBJ_D)${o}$t${obj}"; 660 $rules.=&do_link_rule("\$(TEST_D)$o$t$exep",$tt,"\$(LIBS_DEP)","\$(L_LIBS) \$(EX_LIBS)"); 661 } 662 663$defs.=&do_defs("E_SHLIB",$engines . $otherlibs,"\$(ENG_D)",$shlibp); 664 665foreach (split(/\s+/,$engines)) 666 { 667 $rules.=&do_compile_rule("\$(OBJ_D)","engines${o}e_$_",$lib); 668 $rules.= &do_lib_rule("\$(OBJ_D)${o}e_${_}.obj","\$(ENG_D)$o$_$shlibp","",$shlib,""); 669 } 670 671 672 673$rules.= &do_lib_rule("\$(SSLOBJ)","\$(O_SSL)",$ssl,$shlib,"\$(SO_SSL)"); 674$rules.= &do_lib_rule("\$(CRYPTOOBJ)","\$(O_CRYPTO)",$crypto,$shlib,"\$(SO_CRYPTO)"); 675 676foreach (split(" ",$otherlibs)) 677 { 678 my $uc = $_; 679 $uc =~ tr /a-z/A-Z/; 680 $rules.= &do_lib_rule("\$(${uc}OBJ)","\$(ENG_D)$o$_$shlibp", "", $shlib, ""); 681 682 } 683 684$rules.=&do_link_rule("\$(BIN_D)$o\$(E_EXE)$exep","\$(E_OBJ)","\$(LIBS_DEP)","\$(L_LIBS) \$(EX_LIBS)"); 685 686print $defs; 687 688if ($platform eq "linux-elf") { 689 print <<"EOF"; 690# Generate perlasm output files 691%.cpp: 692 (cd \$(\@D)/..; PERL=perl make -f Makefile asm/\$(\@F)) 693EOF 694} 695print "###################################################################\n"; 696print $rules; 697 698############################################### 699# strip off any trailing .[och] and append the relative directory 700# also remembering to do nothing if we are in one of the dropped 701# directories 702sub var_add 703 { 704 local($dir,$val,$keepext)=@_; 705 local(@a,$_,$ret); 706 707 return("") if $no_engine && $dir =~ /\/engine/; 708 return("") if $no_hw && $dir =~ /\/hw/; 709 return("") if $no_idea && $dir =~ /\/idea/; 710 return("") if $no_aes && $dir =~ /\/aes/; 711 return("") if $no_camellia && $dir =~ /\/camellia/; 712 return("") if $no_seed && $dir =~ /\/seed/; 713 return("") if $no_rc2 && $dir =~ /\/rc2/; 714 return("") if $no_rc4 && $dir =~ /\/rc4/; 715 return("") if $no_rc5 && $dir =~ /\/rc5/; 716 return("") if $no_rsa && $dir =~ /\/rsa/; 717 return("") if $no_rsa && $dir =~ /^rsaref/; 718 return("") if $no_dsa && $dir =~ /\/dsa/; 719 return("") if $no_dh && $dir =~ /\/dh/; 720 return("") if $no_ec && $dir =~ /\/ec/; 721 return("") if $no_gost && $dir =~ /\/ccgost/; 722 return("") if $no_cms && $dir =~ /\/cms/; 723 return("") if $no_jpake && $dir =~ /\/jpake/; 724 if ($no_des && $dir =~ /\/des/) 725 { 726 if ($val =~ /read_pwd/) 727 { return("$dir/read_pwd "); } 728 else 729 { return(""); } 730 } 731 return("") if $no_mdc2 && $dir =~ /\/mdc2/; 732 return("") if $no_sock && $dir =~ /\/proxy/; 733 return("") if $no_bf && $dir =~ /\/bf/; 734 return("") if $no_cast && $dir =~ /\/cast/; 735 return("") if $no_whirlpool && $dir =~ /\/whrlpool/; 736 737 $val =~ s/^\s*(.*)\s*$/$1/; 738 @a=split(/\s+/,$val); 739 grep(s/\.[och]$//,@a) unless $keepext; 740 741 @a=grep(!/^e_.*_3d$/,@a) if $no_des; 742 @a=grep(!/^e_.*_d$/,@a) if $no_des; 743 @a=grep(!/^e_.*_ae$/,@a) if $no_idea; 744 @a=grep(!/^e_.*_i$/,@a) if $no_aes; 745 @a=grep(!/^e_.*_r2$/,@a) if $no_rc2; 746 @a=grep(!/^e_.*_r5$/,@a) if $no_rc5; 747 @a=grep(!/^e_.*_bf$/,@a) if $no_bf; 748 @a=grep(!/^e_.*_c$/,@a) if $no_cast; 749 @a=grep(!/^e_rc4$/,@a) if $no_rc4; 750 @a=grep(!/^e_camellia$/,@a) if $no_camellia; 751 @a=grep(!/^e_seed$/,@a) if $no_seed; 752 753 #@a=grep(!/(^s2_)|(^s23_)/,@a) if $no_ssl2; 754 #@a=grep(!/(^s3_)|(^s23_)/,@a) if $no_ssl3; 755 756 @a=grep(!/(_sock$)|(_acpt$)|(_conn$)|(^pxy_)/,@a) if $no_sock; 757 758 @a=grep(!/(^md2)|(_md2$)/,@a) if $no_md2; 759 @a=grep(!/(^md4)|(_md4$)/,@a) if $no_md4; 760 @a=grep(!/(^md5)|(_md5$)/,@a) if $no_md5; 761 @a=grep(!/(rmd)|(ripemd)/,@a) if $no_ripemd; 762 763 @a=grep(!/(^d2i_r_)|(^i2d_r_)/,@a) if $no_rsa; 764 @a=grep(!/(^p_open$)|(^p_seal$)/,@a) if $no_rsa; 765 @a=grep(!/(^pem_seal$)/,@a) if $no_rsa; 766 767 @a=grep(!/(m_dss$)|(m_dss1$)/,@a) if $no_dsa; 768 @a=grep(!/(^d2i_s_)|(^i2d_s_)|(_dsap$)/,@a) if $no_dsa; 769 770 @a=grep(!/^n_pkey$/,@a) if $no_rsa || $no_rc4; 771 772 @a=grep(!/_dhp$/,@a) if $no_dh; 773 774 @a=grep(!/(^sha[^1])|(_sha$)|(m_dss$)/,@a) if $no_sha; 775 @a=grep(!/(^sha1)|(_sha1$)|(m_dss1$)/,@a) if $no_sha1; 776 @a=grep(!/_mdc2$/,@a) if $no_mdc2; 777 778 @a=grep(!/^engine$/,@a) if $no_engine; 779 @a=grep(!/^hw$/,@a) if $no_hw; 780 @a=grep(!/(^rsa$)|(^genrsa$)/,@a) if $no_rsa; 781 @a=grep(!/(^dsa$)|(^gendsa$)|(^dsaparam$)/,@a) if $no_dsa; 782 @a=grep(!/^gendsa$/,@a) if $no_sha1; 783 @a=grep(!/(^dh$)|(^gendh$)/,@a) if $no_dh; 784 785 @a=grep(!/(^dh)|(_sha1$)|(m_dss1$)/,@a) if $no_sha1; 786 787 grep($_="$dir/$_",@a); 788 @a=grep(!/(^|\/)s_/,@a) if $no_sock; 789 @a=grep(!/(^|\/)bio_sock/,@a) if $no_sock; 790 $ret=join(' ',@a)." "; 791 return($ret); 792 } 793 794# change things so that each 'token' is only separated by one space 795sub clean_up_ws 796 { 797 local($w)=@_; 798 799 $w =~ s/^\s*(.*)\s*$/$1/; 800 $w =~ s/\s+/ /g; 801 return($w); 802 } 803 804sub do_defs 805 { 806 local($var,$files,$location,$postfix)=@_; 807 local($_,$ret,$pf); 808 local(*OUT,$tmp,$t); 809 810 $files =~ s/\//$o/g if $o ne '/'; 811 $ret="$var="; 812 $n=1; 813 $Vars{$var}.=""; 814 foreach (split(/ /,$files)) 815 { 816 $orig=$_; 817 $_=&bname($_) unless /^\$/; 818 if ($n++ == 2) 819 { 820 $n=0; 821 $ret.="\\\n\t"; 822 } 823 if (($_ =~ /bss_file/) && ($postfix eq ".h")) 824 { $pf=".c"; } 825 else { $pf=$postfix; } 826 if ($_ =~ /BN_ASM/) { $t="$_ "; } 827 elsif ($_ =~ /BNCO_ASM/){ $t="$_ "; } 828 elsif ($_ =~ /AES_ASM/){ $t="$_ "; } 829 elsif ($_ =~ /DES_ENC/) { $t="$_ "; } 830 elsif ($_ =~ /BF_ENC/) { $t="$_ "; } 831 elsif ($_ =~ /CAST_ENC/){ $t="$_ "; } 832 elsif ($_ =~ /RC4_ENC/) { $t="$_ "; } 833 elsif ($_ =~ /RC5_ENC/) { $t="$_ "; } 834 elsif ($_ =~ /MD5_ASM/) { $t="$_ "; } 835 elsif ($_ =~ /SHA1_ASM/){ $t="$_ "; } 836 elsif ($_ =~ /RMD160_ASM/){ $t="$_ "; } 837 elsif ($_ =~ /WHIRLPOOL_ASM/){ $t="$_ "; } 838 elsif ($_ =~ /CPUID_ASM/){ $t="$_ "; } 839 else { $t="$location${o}$_$pf "; } 840 841 $Vars{$var}.="$t "; 842 $ret.=$t; 843 } 844 # hack to add version info on MSVC 845 if ($shlib && (($platform eq "VC-WIN32") || ($platfrom eq "VC-WIN64I") || ($platform eq "VC-WIN64A") || ($platform eq "VC-NT"))) 846 { 847 if ($var eq "CRYPTOOBJ") 848 { $ret.="\$(OBJ_D)\\\$(CRYPTO).res "; } 849 elsif ($var eq "SSLOBJ") 850 { $ret.="\$(OBJ_D)\\\$(SSL).res "; } 851 } 852 chomp($ret); 853 $ret.="\n\n"; 854 return($ret); 855 } 856 857# return the name with the leading path removed 858sub bname 859 { 860 local($ret)=@_; 861 $ret =~ s/^.*[\\\/]([^\\\/]+)$/$1/; 862 return($ret); 863 } 864 865# return the leading path 866sub dname 867 { 868 my $ret=shift; 869 $ret =~ s/(^.*)[\\\/][^\\\/]+$/$1/; 870 return($ret); 871 } 872 873############################################################## 874# do a rule for each file that says 'compile' to new direcory 875# compile the files in '$files' into $to 876sub do_compile_rule 877 { 878 local($to,$files,$ex)=@_; 879 local($ret,$_,$n,$d,$s); 880 881 $files =~ s/\//$o/g if $o ne '/'; 882 foreach (split(/\s+/,$files)) 883 { 884 $n=&bname($_); 885 $d=&dname($_); 886 if (-f "${_}.c") 887 { 888 $ret.=&cc_compile_target("$to${o}$n$obj","${_}.c",$ex) 889 } 890 elsif (-f ($s="${d}${o}asm${o}${n}.pl") or 891 ($s=~s/sha256/sha512/ and -f $s) or 892 -f ($s="${d}${o}${n}.pl")) 893 { 894 $ret.=&perlasm_compile_target("$to${o}$n$obj",$s,$n); 895 } 896 elsif (-f ($s="${d}${o}asm${o}${n}.S") or 897 -f ($s="${d}${o}${n}.S")) 898 { 899 $ret.=&Sasm_compile_target("$to${o}$n$obj",$s,$n); 900 } 901 else { die "no rule for $_"; } 902 } 903 return($ret); 904 } 905 906############################################################## 907# do a rule for each file that says 'compile' to new direcory 908sub perlasm_compile_target 909 { 910 my($target,$source,$bname)=@_; 911 my($ret); 912 913 $bname =~ s/(.*)\.[^\.]$/$1/; 914 $ret ="\$(TMP_D)$o$bname.asm: $source\n"; 915 $ret.="\t\$(PERL) $source $asmtype \$(CFLAG) >\$\@\n\n"; 916 $ret.="$target: \$(TMP_D)$o$bname.asm\n"; 917 $ret.="\t\$(ASM) $afile\$\@ \$(TMP_D)$o$bname.asm\n\n"; 918 return($ret); 919 } 920 921sub Sasm_compile_target 922 { 923 my($target,$source,$bname)=@_; 924 my($ret); 925 926 $bname =~ s/(.*)\.[^\.]$/$1/; 927 $ret ="\$(TMP_D)$o$bname.asm: $source\n"; 928 $ret.="\t\$(CC) -E \$(CFLAG) $source >\$\@\n\n"; 929 $ret.="$target: \$(TMP_D)$o$bname.asm\n"; 930 $ret.="\t\$(ASM) $afile\$\@ \$(TMP_D)$o$bname.asm\n\n"; 931 return($ret); 932 } 933 934sub cc_compile_target 935 { 936 local($target,$source,$ex_flags)=@_; 937 local($ret); 938 939 $ex_flags.=" -DMK1MF_BUILD -D$platform_cpp_symbol" if ($source =~ /cversion/); 940 $target =~ s/\//$o/g if $o ne "/"; 941 $source =~ s/\//$o/g if $o ne "/"; 942 $ret ="$target: \$(SRC_D)$o$source\n\t"; 943 $ret.="\$(CC) ${ofile}$target $ex_flags -c \$(SRC_D)$o$source\n\n"; 944 return($ret); 945 } 946 947############################################################## 948sub do_asm_rule 949 { 950 local($target,$src)=@_; 951 local($ret,@s,@t,$i); 952 953 $target =~ s/\//$o/g if $o ne "/"; 954 $src =~ s/\//$o/g if $o ne "/"; 955 956 @t=split(/\s+/,$target); 957 @s=split(/\s+/,$src); 958 959 960 for ($i=0; $i<=$#s; $i++) 961 { 962 my $objfile = $t[$i]; 963 my $srcfile = $s[$i]; 964 965 if ($perl_asm == 1) 966 { 967 my $plasm = $objfile; 968 $plasm =~ s/${obj}/.pl/; 969 $ret.="$srcfile: $plasm\n"; 970 $ret.="\t\$(PERL) $plasm $asmtype \$(CFLAG) >$srcfile\n\n"; 971 } 972 973 $ret.="$objfile: $srcfile\n"; 974 $ret.="\t\$(ASM) $afile$objfile \$(SRC_D)$o$srcfile\n\n"; 975 } 976 return($ret); 977 } 978 979sub do_shlib_rule 980 { 981 local($n,$def)=@_; 982 local($ret,$nn); 983 local($t); 984 985 ($nn=$n) =~ tr/a-z/A-Z/; 986 $ret.="$n.dll: \$(${nn}OBJ)\n"; 987 if ($vc && $w32) 988 { 989 $ret.="\t\$(MKSHLIB) $efile$n.dll $def @<<\n \$(${nn}OBJ_F)\n<<\n"; 990 } 991 $ret.="\n"; 992 return($ret); 993 } 994 995# do a rule for each file that says 'copy' to new direcory on change 996sub do_copy_rule 997 { 998 local($to,$files,$p)=@_; 999 local($ret,$_,$n,$pp); 1000 1001 $files =~ s/\//$o/g if $o ne '/'; 1002 foreach (split(/\s+/,$files)) 1003 { 1004 $n=&bname($_); 1005 if ($n =~ /bss_file/) 1006 { $pp=".c"; } 1007 else { $pp=$p; } 1008 $ret.="$to${o}$n$pp: \$(SRC_D)$o$_$pp\n\t\$(CP) \"\$(SRC_D)$o$_$pp\" \"$to${o}$n$pp\"\n\n"; 1009 } 1010 return($ret); 1011 } 1012 1013sub read_options 1014 { 1015 # Many options are handled in a similar way. In particular 1016 # no-xxx sets zero or more scalars to 1. 1017 # Process these using a hash containing the option name and 1018 # reference to the scalars to set. 1019 1020 my %valid_options = ( 1021 "no-rc2" => \$no_rc2, 1022 "no-rc4" => \$no_rc4, 1023 "no-rc5" => \$no_rc5, 1024 "no-idea" => \$no_idea, 1025 "no-aes" => \$no_aes, 1026 "no-camellia" => \$no_camellia, 1027 "no-seed" => \$no_seed, 1028 "no-des" => \$no_des, 1029 "no-bf" => \$no_bf, 1030 "no-cast" => \$no_cast, 1031 "no-md2" => \$no_md2, 1032 "no-md4" => \$no_md4, 1033 "no-md5" => \$no_md5, 1034 "no-sha" => \$no_sha, 1035 "no-sha1" => \$no_sha1, 1036 "no-ripemd" => \$no_ripemd, 1037 "no-mdc2" => \$no_mdc2, 1038 "no-whirlpool" => \$no_whirlpool, 1039 "no-patents" => 1040 [\$no_rc2, \$no_rc4, \$no_rc5, \$no_idea, \$no_rsa], 1041 "no-rsa" => \$no_rsa, 1042 "no-dsa" => \$no_dsa, 1043 "no-dh" => \$no_dh, 1044 "no-hmac" => \$no_hmac, 1045 "no-asm" => \$no_asm, 1046 "nasm" => \$nasm, 1047 "nw-nasm" => \$nw_nasm, 1048 "nw-mwasm" => \$nw_mwasm, 1049 "gaswin" => \$gaswin, 1050 "no-ssl2" => \$no_ssl2, 1051 "no-ssl3" => \$no_ssl3, 1052 "no-tlsext" => \$no_tlsext, 1053 "no-cms" => \$no_cms, 1054 "no-jpake" => \$no_jpake, 1055 "no-err" => \$no_err, 1056 "no-sock" => \$no_sock, 1057 "no-krb5" => \$no_krb5, 1058 "no-ec" => \$no_ec, 1059 "no-ecdsa" => \$no_ecdsa, 1060 "no-ecdh" => \$no_ecdh, 1061 "no-gost" => \$no_gost, 1062 "no-engine" => \$no_engine, 1063 "no-hw" => \$no_hw, 1064 "just-ssl" => 1065 [\$no_rc2, \$no_idea, \$no_des, \$no_bf, \$no_cast, 1066 \$no_md2, \$no_sha, \$no_mdc2, \$no_dsa, \$no_dh, 1067 \$no_ssl2, \$no_err, \$no_ripemd, \$no_rc5, 1068 \$no_aes, \$no_camellia, \$no_seed], 1069 "rsaref" => 0, 1070 "gcc" => \$gcc, 1071 "debug" => \$debug, 1072 "profile" => \$profile, 1073 "shlib" => \$shlib, 1074 "dll" => \$shlib, 1075 "shared" => 0, 1076 "no-gmp" => 0, 1077 "no-rfc3779" => 0, 1078 "no-montasm" => 0, 1079 "no-shared" => 0, 1080 "no-store" => 0, 1081 "no-zlib" => 0, 1082 "no-zlib-dynamic" => 0, 1083 ); 1084 1085 if (exists $valid_options{$_}) 1086 { 1087 my $r = $valid_options{$_}; 1088 if ( ref $r eq "SCALAR") 1089 { $$r = 1;} 1090 elsif ( ref $r eq "ARRAY") 1091 { 1092 my $r2; 1093 foreach $r2 (@$r) 1094 { 1095 $$r2 = 1; 1096 } 1097 } 1098 } 1099 elsif (/^no-comp$/) { $xcflags = "-DOPENSSL_NO_COMP $xcflags"; } 1100 elsif (/^enable-zlib$/) { $zlib_opt = 1 if $zlib_opt == 0 } 1101 elsif (/^enable-zlib-dynamic$/) 1102 { 1103 $zlib_opt = 2; 1104 } 1105 elsif (/^no-static-engine/) 1106 { 1107 $no_static_engine = 1; 1108 } 1109 elsif (/^enable-static-engine/) 1110 { 1111 $no_static_engine = 0; 1112 } 1113 # There are also enable-xxx options which correspond to 1114 # the no-xxx. Since the scalars are enabled by default 1115 # these can be ignored. 1116 elsif (/^enable-/) 1117 { 1118 my $t = $_; 1119 $t =~ s/^enable/no/; 1120 if (exists $valid_options{$t}) 1121 {return 1;} 1122 return 0; 1123 } 1124 # experimental-xxx is mostly like enable-xxx, but opensslconf.v 1125 # will still set OPENSSL_NO_xxx unless we set OPENSSL_EXPERIMENTAL_xxx. 1126 # (No need to fail if we don't know the algorithm -- this is for adventurous users only.) 1127 elsif (/^experimental-/) 1128 { 1129 my $algo, $ALGO; 1130 ($algo = $_) =~ s/^experimental-//; 1131 ($ALGO = $algo) =~ tr/[a-z]/[A-Z]/; 1132 1133 $xcflags="-DOPENSSL_EXPERIMENTAL_$ALGO $xcflags"; 1134 1135 } 1136 elsif (/^--with-krb5-flavor=(.*)$/) 1137 { 1138 my $krb5_flavor = $1; 1139 if ($krb5_flavor =~ /^force-[Hh]eimdal$/) 1140 { 1141 $xcflags="-DKRB5_HEIMDAL $xcflags"; 1142 } 1143 elsif ($krb5_flavor =~ /^MIT/i) 1144 { 1145 $xcflags="-DKRB5_MIT $xcflags"; 1146 if ($krb5_flavor =~ /^MIT[._-]*1[._-]*[01]/i) 1147 { 1148 $xcflags="-DKRB5_MIT_OLD11 $xcflags" 1149 } 1150 } 1151 } 1152 elsif (/^([^=]*)=(.*)$/){ $VARS{$1}=$2; } 1153 elsif (/^-[lL].*$/) { $l_flags.="$_ "; } 1154 elsif ((!/^-help/) && (!/^-h/) && (!/^-\?/) && /^-.*$/) 1155 { $c_flags.="$_ "; } 1156 else { return(0); } 1157 return(1); 1158 } 1159