mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
aafc15c3c3
Signed-off-by: Stefan Metzmacher <metze@samba.org> Reviewed-by: Andrew Bartlett <abartlet@samba.org>
88 lines
1.5 KiB
Perl
Executable File
88 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
###################################################
|
|
# package to produce a table of all idl parsers
|
|
# Copyright tridge@samba.org 2003
|
|
# Copyright jelmer@samba.org 2005
|
|
# released under the GNU GPL
|
|
|
|
use strict;
|
|
|
|
use Getopt::Long;
|
|
use File::Basename;
|
|
|
|
my $opt_help = 0;
|
|
|
|
|
|
#########################################
|
|
# display help text
|
|
sub ShowHelp()
|
|
{
|
|
print "
|
|
perl NDR interface table generator
|
|
Copyright (C) tridge\@samba.org
|
|
|
|
Usage: tables.pl [options] <idlfile>
|
|
|
|
\n";
|
|
exit(0);
|
|
}
|
|
|
|
# main program
|
|
GetOptions (
|
|
'help|h|?' => \$opt_help,
|
|
);
|
|
|
|
if ($opt_help) {
|
|
ShowHelp();
|
|
exit(0);
|
|
}
|
|
|
|
my $init_fns = "";
|
|
|
|
###################################
|
|
# extract table entries from 1 file
|
|
sub process_file($)
|
|
{
|
|
my $filename = shift;
|
|
open(FILE, $filename) || die "unable to open $filename\n";
|
|
my $found = 0;
|
|
|
|
while (my $line = <FILE>) {
|
|
if ($line =~ /extern const struct ndr_interface_table (\w+);/) {
|
|
$found = 1;
|
|
$init_fns.="\tstatus = ndr_table_register(&$1);\n";
|
|
$init_fns.="\tif (NT_STATUS_IS_ERR(status)) return status;\n\n";
|
|
}
|
|
}
|
|
|
|
if ($found) {
|
|
print "#include \"$filename\"\n";
|
|
}
|
|
|
|
close(FILE);
|
|
}
|
|
|
|
print <<EOF;
|
|
|
|
/* Automatically generated by tables.pl. DO NOT EDIT */
|
|
|
|
#include "includes.h"
|
|
#include "librpc/ndr/libndr.h"
|
|
#include "librpc/ndr/ndr_table.h"
|
|
EOF
|
|
|
|
process_file($_) foreach (@ARGV);
|
|
|
|
print <<EOF;
|
|
|
|
NTSTATUS ndr_table_register_builtin_tables(void)
|
|
{
|
|
NTSTATUS status;
|
|
|
|
$init_fns
|
|
|
|
return NT_STATUS_OK;
|
|
}
|
|
EOF
|