Mingw32.pl revision 160817
1#!/usr/local/bin/perl 2# $FreeBSD: head/crypto/openssl/util/pl/Mingw32.pl 160817 2006-07-29 19:14:51Z simon $ 3# 4# Mingw32.pl -- Mingw 5# 6 7$o='/'; 8$cp='cp'; 9$rm='rm -f'; 10$mkdir='gmkdir'; 11 12$o='\\'; 13$cp='copy'; 14$rm='del'; 15$mkdir='mkdir'; 16 17# C compiler stuff 18 19$cc='gcc'; 20if ($debug) 21 { $cflags="-DL_ENDIAN -DDSO_WIN32 -g2 -ggdb"; } 22else 23 { $cflags="-DL_ENDIAN -DDSO_WIN32 -fomit-frame-pointer -O3 -mcpu=i486 -Wall"; } 24 25if ($gaswin and !$no_asm) 26 { 27 $bn_asm_obj='$(OBJ_D)\bn-win32.o'; 28 $bn_asm_src='crypto/bn/asm/bn-win32.s'; 29 $bnco_asm_obj='$(OBJ_D)\co-win32.o'; 30 $bnco_asm_src='crypto/bn/asm/co-win32.s'; 31 $des_enc_obj='$(OBJ_D)\d-win32.o $(OBJ_D)\y-win32.o'; 32 $des_enc_src='crypto/des/asm/d-win32.s crypto/des/asm/y-win32.s'; 33 $bf_enc_obj='$(OBJ_D)\b-win32.o'; 34 $bf_enc_src='crypto/bf/asm/b-win32.s'; 35# $cast_enc_obj='$(OBJ_D)\c-win32.o'; 36# $cast_enc_src='crypto/cast/asm/c-win32.s'; 37 $rc4_enc_obj='$(OBJ_D)\r4-win32.o'; 38 $rc4_enc_src='crypto/rc4/asm/r4-win32.s'; 39 $rc5_enc_obj='$(OBJ_D)\r5-win32.o'; 40 $rc5_enc_src='crypto/rc5/asm/r5-win32.s'; 41 $md5_asm_obj='$(OBJ_D)\m5-win32.o'; 42 $md5_asm_src='crypto/md5/asm/m5-win32.s'; 43 $rmd160_asm_obj='$(OBJ_D)\rm-win32.o'; 44 $rmd160_asm_src='crypto/ripemd/asm/rm-win32.s'; 45 $sha1_asm_obj='$(OBJ_D)\s1-win32.o'; 46 $sha1_asm_src='crypto/sha/asm/s1-win32.s'; 47 $cflags.=" -DBN_ASM -DMD5_ASM -DSHA1_ASM -DOPENSSL_BN_ASM_PART_WORDS"; 48 } 49 50 51$obj='.o'; 52$ofile='-o '; 53 54# EXE linking stuff 55$link='${CC}'; 56$lflags='${CFLAGS}'; 57$efile='-o '; 58$exep=''; 59$ex_libs="-lwsock32 -lgdi32"; 60 61# static library stuff 62$mklib='ar r'; 63$mlflags=''; 64$ranlib='ranlib'; 65$plib='lib'; 66$libp=".a"; 67$shlibp=".a"; 68$lfile=''; 69 70$asm='as'; 71$afile='-o '; 72#$bn_asm_obj=""; 73#$bn_asm_src=""; 74#$des_enc_obj=""; 75#$des_enc_src=""; 76#$bf_enc_obj=""; 77#$bf_enc_src=""; 78 79sub do_lib_rule 80 { 81 local($obj,$target,$name,$shlib)=@_; 82 local($ret,$_,$Name); 83 84 $target =~ s/\//$o/g if $o ne '/'; 85 $target="$target"; 86 ($Name=$name) =~ tr/a-z/A-Z/; 87 88 $ret.="$target: \$(${Name}OBJ)\n"; 89 $ret.="\tif exist $target \$(RM) $target\n"; 90 $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n"; 91 $ret.="\t\$(RANLIB) $target\n\n"; 92 } 93 94sub do_link_rule 95 { 96 local($target,$files,$dep_libs,$libs)=@_; 97 local($ret,$_); 98 99 $file =~ s/\//$o/g if $o ne '/'; 100 $n=&bname($target); 101 $ret.="$target: $files $dep_libs\n"; 102 $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n"; 103 return($ret); 104 } 1051; 106