source4/script/build_smb_interfaces.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl

my $idl_file = shift;

require smb_interfaces;
my $idl_parser = new smb_interfaces;
$parse = $idl_parser->parse($idl_file);

use Data::Dumper;
print Dumper($parse);