source4/script/build_smb_interfaces.pl

   1 #!/usr/bin/perl
   2
   3 my $idl_file = shift;
   4
   5 require smb_interfaces;
   6 my $idl_parser = new smb_interfaces;
   7 $parse = $idl_parser->parse($idl_file);
   8
   9 use Data::Dumper;
  10 print Dumper($parse);