9755d1b266cbaaf27885396b951d99d0df0e59f5
[openssl.git] / util / pl / Mingw32f.pl
1 #!/usr/local/bin/perl
2 #
3 # Mingw32f.pl -- copy files; Mingw32.pl is needed to do the compiling. 
4 #
5
6 $o='\\';
7 $cp='copy';
8 $rm='del';
9
10 # C compiler stuff
11
12 $cc='gcc';
13 if ($debug)
14         { $cflags="-DWINDOWS -g2 -ggdb"; }
15 else
16         { $cflags="-DWINDOWS -O3 -fomit-frame-pointer"; }
17
18 $obj='.o';
19 $ofile='-o ';
20
21 # EXE linking stuff
22 $link='${CC}';
23 $lflags='${CFLAGS}';
24 $efile='-o ';
25 $exep='';
26 $ex_libs="-lwsock32 -lgdi32";
27
28 # static library stuff
29 $mklib='ar r';
30 $mlflags='';
31 $ranlib='ranlib';
32 $plib='lib';
33 $libp=".a";
34 $shlibp=".a";
35 $lfile='';
36
37 $asm='as';
38 $afile='-o ';
39 $bn_asm_obj="";
40 $bn_asm_src="";
41 $des_enc_obj="";
42 $des_enc_src="";
43 $bf_enc_obj="";
44 $bf_enc_src="";
45
46 sub do_lib_rule
47         {
48         local($obj,$target,$name,$shlib)=@_;
49         local($ret,$_,$Name);
50
51         $target =~ s/\//$o/g if $o ne '/';
52         $target="$target";
53         ($Name=$name) =~ tr/a-z/A-Z/;
54
55         $ret.="$target: \$(${Name}OBJ)\n";
56         $ret.="\t\$(RM) $target\n";
57         $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n";
58         $ret.="\t\$(RANLIB) $target\n\n";
59         }
60
61 sub do_link_rule
62         {
63         local($target,$files,$dep_libs,$libs)=@_;
64         local($ret,$_);
65         
66         $file =~ s/\//$o/g if $o ne '/';
67         $n=&bname($target);
68         $ret.="$target: $files $dep_libs\n";
69         $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n";
70         return($ret);
71         }
72 1;
73