#!/usr/local/bin/perl # # unix.pl - the standard unix makefile stuff. # $o='/'; $cp='/bin/cp'; $rm='/bin/rm -f'; # C compiler stuff if ($gcc) { $cc='gcc'; if ($debug) { $cflags="-g2 -ggdb"; } else { $cflags="-O3 -fomit-frame-pointer"; } } else { $cc='cc'; if ($debug) { $cflags="-g"; } else { $cflags="-O"; } } $obj='.o'; $ofile='-o '; # EXE linking stuff $link='${CC}'; $lflags='${CFLAG}'; $efile='-o '; $exep=''; $ex_libs=""; # static library stuff $mklib='ar r'; $mlflags=''; $ranlib=&which("ranlib") or $ranlib="true"; $plib='lib'; $libp=".a"; $shlibp=".a"; $lfile=''; $asm='as'; $afile='-o '; $bn_asm_obj=""; $bn_asm_src=""; $des_enc_obj=""; $des_enc_src=""; $bf_enc_obj=""; $bf_enc_src=""; %perl1 = ( 'md5-x86_64' => 'crypto/md5', 'x86_64-mont' => 'crypto/bn', 'x86_64-mont5' => 'crypto/bn', 'x86_64-gf2m' => 'crypto/bn', 'modexp512-x86_64' => 'crypto/bn', 'aes-x86_64' => 'crypto/aes', 'vpaes-x86_64' => 'crypto/aes', 'bsaes-x86_64' => 'crypto/aes', 'aesni-x86_64' => 'crypto/aes', 'aesni-sha1-x86_64' => 'crypto/aes', 'sha1-x86_64' => 'crypto/sha', 'e_padlock-x86_64' => 'engines', 'rc4-x86_64' => 'crypto/rc4', 'rc4-md5-x86_64' => 'crypto/rc4', 'ghash-x86_64' => 'crypto/modes', ); # If I were feeling more clever, these could probably be extracted # from makefiles. sub platform_perlasm_compile_target { local($target, $source, $bname) = @_; for $p (keys %perl1) { if ($target eq "\$(OBJ_D)/$p.o") { return << "EOF"; \$(TMP_D)/$p.s: $perl1{$p}/asm/$p.pl \$(PERL) $perl1{$p}/asm/$p.pl \$(PERLASM_SCHEME) > \$@ EOF } } if ($target eq '$(OBJ_D)/x86_64cpuid.o') { return << 'EOF'; $(TMP_D)/x86_64cpuid.s: crypto/x86_64cpuid.pl $(PERL) crypto/x86_64cpuid.pl $(PERLASM_SCHEME) > $@ EOF } elsif ($target eq '$(OBJ_D)/sha256-x86_64.o') { return << 'EOF'; $(TMP_D)/sha256-x86_64.s: crypto/sha/asm/sha512-x86_64.pl $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@ EOF } elsif ($target eq '$(OBJ_D)/sha512-x86_64.o') { return << 'EOF'; $(TMP_D)/sha512-x86_64.s: crypto/sha/asm/sha512-x86_64.pl $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@ EOF } elsif ($target eq '$(OBJ_D)/sha512-x86_64.o') { return << 'EOF'; $(TMP_D)/sha512-x86_64.s: crypto/sha/asm/sha512-x86_64.pl $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@ EOF } die $target; } sub special_compile_target { local($target) = @_; if ($target eq 'crypto/bn/x86_64-gcc') { return << "EOF"; \$(TMP_D)/x86_64-gcc.o: crypto/bn/asm/x86_64-gcc.c \$(CC) \$(CFLAGS) -c -o \$@ crypto/bn/asm/x86_64-gcc.c EOF } return undef; } sub do_lib_rule { local($obj,$target,$name,$shlib)=@_; local($ret,$_,$Name); $target =~ s/\//$o/g if $o ne '/'; $target="$target"; ($Name=$name) =~ tr/a-z/A-Z/; $ret.="$target: \$(${Name}OBJ)\n"; $ret.="\t\$(RM) $target\n"; $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n"; $ret.="\t\$(RANLIB) $target\n\n"; } sub do_link_rule { local($target,$files,$dep_libs,$libs)=@_; local($ret,$_); $file =~ s/\//$o/g if $o ne '/'; $n=&bname($target); $ret.="$target: $files $dep_libs\n"; $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n"; return($ret); } sub which { my ($name)=@_; my $path; foreach $path (split /:/, $ENV{PATH}) { if (-x "$path/$name") { return "$path/$name"; } } } sub fixtests { my ($str, $tests) = @_; foreach my $t (keys %$tests) { $str =~ s/(\.\/)?\$\($t\)/\$(TEST_D)\/$tests->{$t}/g; } return $str; } sub fixdeps { my ($str) = @_; my @t = split(/\s+/, $str); $str = ''; foreach my $t (@t) { $str .= ' ' if $str ne ''; if ($t =~ /^[^\/]+$/) { $str .= '$(TEST_D)/' . $t; } else { $str .= $t; } } return $str; } sub fixrules { my ($str) = @_; # Compatible with -j... $str =~ s/^(\s+@?)/$1cd \$(TEST_D) && /; return $str; # Compatible with not -j. my @t = split("\n", $str); $str = ''; my $prev; foreach my $t (@t) { $t =~ s/^\s+//; if (!$prev) { if ($t =~ /^@/) { $t =~ s/^@/\@cd \$(TEST_D) && /; } elsif ($t !~ /^\s*#/) { $t = 'cd $(TEST_D) && ' . $t; } } $str .= "\t$t\n"; $prev = $t =~/\\$/; } return $str; } sub copy_scripts { my ($src, @targets) = @_; my $s = ''; foreach my $t (@targets) { # Copy first so we get file modes... $s .= "\$(TEST_D)/$t: \$(SRC_D)/$src/$t\n\tcp \$(SRC_D)/$src/$t \$(TEST_D)/$t\n\tsed -e 's/\\.\\.\\/apps/..\\/\$(OUT_D)/' -e 's/\\.\\.\\/util/..\\/\$(TEST_D)/' < \$(SRC_D)/$src/$t > \$(TEST_D)/$t\n\n"; } return $s; } sub get_tests { my ($makefile) = @_; open(M, $makefile) || die "Can't open $makefile: $!"; my %targets; my %deps; my %tests; while (my $line = ) { chomp $line; while ($line =~ /^(.*)\\$/) { $line = $1 . ; } if ($line =~ /^alltests:(.*)$/) { my @t = split(/\s+/, $1); foreach my $t (@t) { $targets{$t} = ''; } } if (($line =~ /^(\S+):(.*)$/ && exists $targets{$1}) || $line =~ /^(test_ss .*):(.*)/) { my $t = $1; $deps{$t} = $2; $deps{$t} =~ s/#.*$//; for (;;) { $line = ; chomp $line; last if $line eq ''; $targets{$t} .= "$line\n"; } next; } if ($line =~ /^(\S+TEST)=\s*(\S+)$/) { $tests{$1} = $2; next; } } delete $targets{test_jpake} if $no_jpake; delete $targets{test_ige} if $no_ige; delete $targets{test_md2} if $no_md2; delete $targets{test_rc5} if $no_rc5; my $tests; foreach my $t (keys %tests) { $tests .= "$t = $tests{$t}\n"; } my $all = 'test:'; my $each; foreach my $t (keys %targets) { next if $t eq ''; if ($t =~ /^test_ss/) { $t =~ s/\s+/ \$(TEST_D)\//g; $all .= ' test_ss'; } else { $all .= " $t"; } my $d = $deps{$t}; $d =~ s/\.\.\/apps/\$(BIN_D)/g; $d =~ s/\.\.\/util/\$(TEST_D)/g; $d = fixtests($d, \%tests); $d = fixdeps($d); my $r = $targets{$t}; $r =~ s/\.\.\/apps/..\/\$(BIN_D)/g; $r =~ s/\.\.\/util/..\/\$(TEST_D)/g; $r =~ s/\.\.\/(\S+)/\$(SRC_D)\/$1/g; $r = fixrules($r); $each .= "$t: test_scripts $d\n$r\n"; } # FIXME: Might be a clever way to figure out what needs copying my @copies = ( 'bctest', 'evptests.txt', 'testgen', 'cms-test.pl', 'tx509', 'test.cnf', 'testenc', 'tocsp', 'testca', 'CAss.cnf', 'testtsa', 'CAtsa.cnf', 'Uss.cnf', 'P1ss.cnf', 'P2ss.cnf', 'tcrl', 'tsid', 'treq', 'tpkcs7', 'tpkcs7d', 'testcrl.pem', 'testx509.pem', 'v3-cert1.pem', 'v3-cert2.pem', 'testreq2.pem', 'testp7.pem', 'pkcs7-1.pem', 'trsa', 'testrsa.pem', ); my $copies = copy_scripts('test', @copies); my @utils = ( 'shlib_wrap.sh', 'opensslwrap.sh', ); $copies .= copy_scripts('util', @utils); my @apps = ( 'CA.sh', 'openssl.cnf', ); $copies .= copy_scripts('apps', @apps); $scripts = "test_scripts: \$(TEST_D)/CA.sh \$(TEST_D)/opensslwrap.sh \$(TEST_D)/openssl.cnf ocsp\n"; $scripts .= "\nocsp:\n\tcp -R test/ocsp-tests \$(TEST_D)\n"; return "$scripts\n$copies\n$tests\n$all\n\n$each"; } 1;