blob: 5757dc000a3ecbe47b1bc2f03125809ddf84bea5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
#!/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_output = 'librpc/gen_ndr/tables.c';
my $opt_help = 0;
#########################################
# display help text
sub ShowHelp()
{
print "
perl DCE/RPC interface table generator
Copyright (C) tridge\@samba.org
Usage: tables.pl [options] <idlfile>
Options:
--output OUTNAME put output in OUTNAME.*
\n";
exit(0);
}
# main program
GetOptions (
'help|h|?' => \$opt_help,
'output=s' => \$opt_output,
);
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 dcerpc_interface_table (\w+);/) {
$found = 1;
$init_fns.="\tlibrpc_register_interface(&$1);\n";
}
}
if ($found) {
print TABLEC "#include \"$filename\"\n";
}
close(FILE);
}
print "Creating $opt_output\n";
open(TABLEC, ">$opt_output") || die "failed to open $opt_output\n";
print TABLEC <<EOF;
/* Automatically generated by tables.pl. DO NOT EDIT */
#include "includes.h"
EOF
process_file($_) foreach (@ARGV);
print TABLEC <<EOF;
NTSTATUS dcerpc_table_init(void)
{
$init_fns
return NT_STATUS_OK;
}
EOF
close(TABLEC);
|
