source4/librpc/idl-deps.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use File::Basename;
   4 use Cwd 'abs_path';
   5
   6 sub add($$)
   7 {
   8         my ($name, $val) = @_;
   9
  10         print "$name += $val\n";
  11 }
  12
  13 my %vars = ();
  14
  15 foreach(@ARGV) {
  16         my $f = $_;
  17         my $b = basename($f);
  18
  19         $b =~ s/\.idl//;
  20
  21         my $gen_ndr = dirname($f);
  22         $gen_ndr =~ s/\/idl$/\/gen_ndr/;
  23         $gen_ndr = abs_path($gen_ndr);
  24
  25         print "# $f\n";
  26         add("IDL_FILES", $f);
  27         add("IDL_HEADER_FILES", "$gen_ndr/$b.h");
  28         add("IDL_NDR_PARSE_H_FILES", "$gen_ndr/ndr_$b.h");
  29         add("IDL_NDR_PARSE_C_FILES", "$gen_ndr/ndr_$b.c");
  30         add("IDL_NDR_CLIENT_C_FILES", "$gen_ndr/ndr_$b\_c.c");
  31         add("IDL_NDR_CLIENT_H_FILES", "$gen_ndr/ndr_$b\_c.h");
  32         add("IDL_SWIG_FILES", "$gen_ndr/$b.i");
  33         add("IDL_NDR_SERVER_C_FILES", "$gen_ndr/ndr_$b\_s.c");
  34         add("IDL_NDR_EJS_C_FILES", "$gen_ndr/ndr_$b\_ejs.c");
  35         add("IDL_NDR_EJS_H_FILES", "$gen_ndr/ndr_$b\_ejs.h");
  36         add("IDL_NDR_PY_C_FILES", "$gen_ndr/py_$b.c");
  37         add("IDL_NDR_PY_H_FILES", "$gen_ndr/py_$b.h");
  38         print "\n";
  39 }