r12574: Bring tables.pl back to life and move registration of interfaces
[kai/samba.git] / source / librpc / tables.pl
1 #!/usr/bin/perl -w
2
3 ###################################################
4 # package to produce a table of all idl parsers
5 # Copyright tridge@samba.org 2003
6 # Copyright jelmer@samba.org 2005
7 # released under the GNU GPL
8
9 use strict;
10
11 use Getopt::Long;
12 use File::Basename;
13
14 my $opt_output = 'librpc/gen_ndr/tables.c';
15 my $opt_help  = 0;
16
17
18 #########################################
19 # display help text
20 sub ShowHelp()
21 {
22     print "
23            perl DCE/RPC interface table generator
24            Copyright (C) tridge\@samba.org
25
26            Usage: tables.pl [options] <idlfile>
27
28            Options:
29              --output OUTNAME      put output in OUTNAME.*
30            \n";
31     exit(0);
32 }
33
34 # main program
35 GetOptions (
36             'help|h|?' => \$opt_help, 
37             'output=s' => \$opt_output,
38             );
39
40 if ($opt_help) {
41     ShowHelp();
42     exit(0);
43 }
44
45 my $init_fns = "";
46
47 ###################################
48 # extract table entries from 1 file
49 sub process_file($)
50 {
51         my $filename = shift;
52         open(FILE, $filename) || die "unable to open $filename\n";
53         my $found = 0;
54
55         while (my $line = <FILE>) {
56                 if ($line =~ /extern const struct dcerpc_interface_table (\w+);/) {
57                         $found = 1;
58                         $init_fns.="\tlibrpc_register_interface(&$1);\n";
59                 }
60         }
61
62         if ($found) {
63                 print TABLEC "#include \"$filename\"\n";
64         }
65
66         close(FILE);
67 }
68
69 print "Creating $opt_output\n";
70 open(TABLEC, ">$opt_output") || die "failed to open $opt_output\n";
71
72 print TABLEC <<EOF;
73
74 /* Automatically generated by tables.pl. DO NOT EDIT */
75
76 #include "includes.h"
77 EOF
78
79 process_file($_) foreach (@ARGV);
80
81 print TABLEC <<EOF;
82
83 NTSTATUS dcerpc_table_init(void)
84 {
85 $init_fns
86         
87         return NT_STATUS_OK;
88 }
89 EOF
90
91 close(TABLEC);