source4/build/smb_build/cflags.pm

   1 # SMB Build System
   2 #
   3 #  Copyright (C) Jelmer Vernooij 2006
   4 #  Released under the GNU GPL
   5
   6 package cflags;
   7 use strict;
   8
   9 sub create_cflags($$)
  10 {
  11         my ($CTX, $file) = @_;
  12
  13         open(CFLAGS_TXT,">$file") || die ("Can't open `$file'\n");
  14
  15         foreach my $key (values %{$CTX}) {
  16                 next unless defined ($key->{OBJ_LIST});
  17                 next unless defined ($key->{EXTRA_CFLAGS});
  18                 next if ($key->{EXTRA_CFLAGS} eq "");
  19
  20                 foreach (@{$key->{OBJ_LIST}}) {
  21                         my $ofile = $_;
  22                         my $dfile = $_;
  23                         $dfile =~ s/\.o$/.d/;
  24                         $dfile =~ s/\.ho$/.d/;
  25                         print CFLAGS_TXT "$ofile $dfile: CFLAGS+=$key->{EXTRA_CFLAGS}\n";
  26                 }
  27         }
  28         close(CFLAGS_TXT);
  29
  30         print __FILE__.": creating $file\n";
  31 }
  32 1;