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