util/pl/f

   1 # do a rule for each file that says 'copy' to new direcory on change
   2 sub do_copy_rule
   3         {
   4         local($to,$files,$p)=@_;
   5         local($ret,$_,$n,$pp);
   6
   7         $files =~ s/\//$o/g if $o ne '/';
   8         foreach (split(/\s+/,$files))
   9                 {
  10                 $n=&bname($_);
  11                 if ($n =~ /bss_file/)
  12                         { $pp=".c"; }
  13                 else    { $pp=$p; }
  14                 $ret.="$to${o}$n$pp: \$(SRC_D)$o$_$pp\n\t\$(CP) \$(SRC_D)$o$_$pp $to${o}$n$pp\n\n";
  15                 }
  16         return($ret);
  17         }