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