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