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