blob: 31309220c15b72a74a9fe91ea5e8f6d7a3c4372c (
plain)
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);
|