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="-g2 -ggdb"; }
  15 else
  16         { $cflags="-O3 -fomit-frame-pointer"; }
  17 $dcflags='n'; # Make can't handle -DCFLAGS definition
  18
  19 $obj='.o';
  20 $ofile='-o ';
  21
  22 # EXE linking stuff
  23 $link='${CC}';
  24 $lflags='${CFLAGS}';
  25 $efile='-o ';
  26 $exep='';
  27 $ex_libs="-lwsock32 -lgdi32";
  28
  29 # static library stuff
  30 $mklib='ar r';
  31 $mlflags='';
  32 $ranlib='ranlib';
  33 $plib='lib';
  34 $libp=".a";
  35 $shlibp=".a";
  36 $lfile='';
  37
  38 $asm='as';
  39 $afile='-o ';
  40 $bn_asm_obj="";
  41 $bn_asm_src="";
  42 $des_enc_obj="";
  43 $des_enc_src="";
  44 $bf_enc_obj="";
  45 $bf_enc_src="";
  46
  47 sub do_lib_rule
  48         {
  49         local($obj,$target,$name,$shlib)=@_;
  50         local($ret,$_,$Name);
  51
  52         $target =~ s/\//$o/g if $o ne '/';
  53         $target="$target";
  54         ($Name=$name) =~ tr/a-z/A-Z/;
  55
  56         $ret.="$target: \$(${Name}OBJ)\n";
  57         $ret.="\t\$(RM) $target\n";
  58         $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n";
  59         $ret.="\t\$(RANLIB) $target\n\n";
  60         }
  61
  62 sub do_link_rule
  63         {
  64         local($target,$files,$dep_libs,$libs)=@_;
  65         local($ret,$_);
  66
  67         $file =~ s/\//$o/g if $o ne '/';
  68         $n=&bname($target);
  69         $ret.="$target: $files $dep_libs\n";
  70         $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n";
  71         return($ret);
  72         }
  73 1;
  74