diff options
Diffstat (limited to 'source4/librpc/idl-deps.pl')
| -rwxr-xr-x | source4/librpc/idl-deps.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/source4/librpc/idl-deps.pl b/source4/librpc/idl-deps.pl new file mode 100755 index 0000000000..9865a41283 --- /dev/null +++ b/source4/librpc/idl-deps.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use strict; + +my %vars = (); + +foreach(@ARGV) { + push (@{$vars{IDL_FILES}}, $_); + my $b = $_; $b =~ s/.*\/(.*?).idl$/\1/; + push (@{$vars{IDL_HEADER_FILES}}, "librpc/gen_ndr/$b.h"); + push (@{$vars{IDL_NDR_HEADER_FILES}}, "librpc/gen_ndr/ndr_$b.h"); + push (@{$vars{IDL_NDR_PARSE_FILES}}, "librpc/gen_ndr/ndr_$b.c"); + push (@{$vars{IDL_NDR_CLIENT_C_FILES}}, "librpc/gen_ndr/ndr_$b\_c.c"); + push (@{$vars{IDL_NDR_CLIENT_HEADER_FILES}}, "librpc/gen_ndr/ndr_$b\_c.h"); + push (@{$vars{IDL_NDR_SERVER_C_FILES}}, "librpc/gen_ndr/ndr_$b\_s.c"); + push (@{$vars{IDL_NDR_EJS_C_FILES}}, "librpc/gen_ndr/ndr_$b\_ejs.c"); + push (@{$vars{IDL_NDR_EJS_H_FILES}}, "librpc/gen_ndr/ndr_$b\_ejs.h"); +} + +foreach (keys %vars) { + print "$_ = " . join (' ', @{$vars{$_}}) . "\n"; +} |