mirror of
https://github.com/samba-team/samba.git
synced 2025-01-15 23:24:37 +03:00
e3374bb48d
used to generate ejs objects for making raw smb calls. Running 'make smb_interfaces' should run the build_smb_interfaces.pl script which at the moment only displays a dump of the parsed data. Const is also not working right now but it's bedtime. (This used to be commit 1be5f55d7f6926bf7266ea72623990f0bb558c94)
11 lines
182 B
Perl
Executable File
11 lines
182 B
Perl
Executable File
#!/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);
|