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