Mingw32.pl revision 68654
1#!/usr/local/bin/perl 2# 3# Mingw32.pl -- Mingw32 with GNU cp (Mingw32f.pl uses DOS tools) 4# $FreeBSD: head/crypto/openssl/util/pl/Mingw32.pl 68654 2000-11-13 02:20:29Z kris $ 5# 6 7$o='/'; 8$cp='cp'; 9$rm='rem'; # use 'rm -f' if using GNU file utilities 10$mkdir='gmkdir'; 11 12# gcc wouldn't accept backslashes in paths 13#$o='\\'; 14#$cp='copy'; 15#$rm='del'; 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 -m486 -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 $des_enc_obj='$(OBJ_D)/d-win32.o $(OBJ_D)/y-win32.o'; 30 $des_enc_src='crypto/des/asm/d-win32.s crypto/des/asm/y-win32.s'; 31 $bf_enc_obj='$(OBJ_D)/b-win32.o'; 32 $bf_enc_src='crypto/bf/asm/b-win32.s'; 33# $cast_enc_obj='$(OBJ_D)/c-win32.o'; 34# $cast_enc_src='crypto/cast/asm/c-win32.s'; 35 $rc4_enc_obj='$(OBJ_D)/r4-win32.o'; 36 $rc4_enc_src='crypto/rc4/asm/r4-win32.s'; 37 $rc5_enc_obj='$(OBJ_D)/r5-win32.o'; 38 $rc5_enc_src='crypto/rc5/asm/r5-win32.s'; 39 $md5_asm_obj='$(OBJ_D)/m5-win32.o'; 40 $md5_asm_src='crypto/md5/asm/m5-win32.s'; 41 $rmd160_asm_obj='$(OBJ_D)/rm-win32.o'; 42 $rmd160_asm_src='crypto/ripemd/asm/rm-win32.s'; 43 $sha1_asm_obj='$(OBJ_D)/s1-win32.o'; 44 $sha1_asm_src='crypto/sha/asm/s1-win32.s'; 45 $cflags.=" -DBN_ASM -DMD5_ASM -DSHA1_ASM"; 46 } 47 48 49$obj='.o'; 50$ofile='-o '; 51 52# EXE linking stuff 53$link='${CC}'; 54$lflags='${CFLAGS}'; 55$efile='-o '; 56$exep=''; 57$ex_libs="-lwsock32 -lgdi32"; 58 59# static library stuff 60$mklib='ar r'; 61$mlflags=''; 62$ranlib='ranlib'; 63$plib='lib'; 64$libp=".a"; 65$shlibp=".a"; 66$lfile=''; 67 68$asm='as'; 69$afile='-o '; 70$bn_asm_obj=""; 71$bn_asm_src=""; 72$des_enc_obj=""; 73$des_enc_src=""; 74$bf_enc_obj=""; 75$bf_enc_src=""; 76 77sub do_lib_rule 78 { 79 local($obj,$target,$name,$shlib)=@_; 80 local($ret,$_,$Name); 81 82 $target =~ s/\//$o/g if $o ne '/'; 83 $target="$target"; 84 ($Name=$name) =~ tr/a-z/A-Z/; 85 86 $ret.="$target: \$(${Name}OBJ)\n"; 87 $ret.="\t\$(RM) $target\n"; 88 $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n"; 89 $ret.="\t\$(RANLIB) $target\n\n"; 90 } 91 92sub do_link_rule 93 { 94 local($target,$files,$dep_libs,$libs)=@_; 95 local($ret,$_); 96 97 $file =~ s/\//$o/g if $o ne '/'; 98 $n=&bname($target); 99 $ret.="$target: $files $dep_libs\n"; 100 $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n"; 101 return($ret); 102 } 1031; 104