r955: Update debian package rules... builds now
[ira/wip.git] / source4 / build / pidl / pidl.pl
1 #!/usr/bin/perl -w
2
3 ###################################################
4 # package to parse IDL files and generate code for
5 # rpc functions in Samba
6 # Copyright tridge@samba.org 2000-2003
7 # released under the GNU GPL
8
9 use strict;
10
11 use FindBin qw($RealBin);
12 use lib "$RealBin";
13 use lib "$RealBin/lib";
14 use Getopt::Long;
15 use File::Basename;
16 use idl;
17 use dump;
18 use header;
19 use server;
20 use parser;
21 use eparser;
22 use validator;
23 use util;
24 use template;
25
26 my($opt_help) = 0;
27 my($opt_parse) = 0;
28 my($opt_dump) = 0;
29 my($opt_diff) = 0;
30 my($opt_header) = 0;
31 my($opt_template) = 0;
32 my($opt_server) = 0;
33 my($opt_parser) = 0;
34 my($opt_eparser) = 0;
35 my($opt_keep) = 0;
36 my($opt_output);
37
38 my $idl_parser = new idl;
39
40 #####################################################################
41 # parse an IDL file returning a structure containing all the data
42 sub IdlParse($)
43 {
44     my $filename = shift;
45     my $idl = $idl_parser->parse_idl($filename);
46     util::CleanData($idl);
47     return $idl;
48 }
49
50
51 #########################################
52 # display help text
53 sub ShowHelp()
54 {
55     print "
56            perl IDL parser and code generator
57            Copyright (C) tridge\@samba.org
58
59            Usage: pidl.pl [options] <idlfile>
60
61            Options:
62              --help                this help page
63              --output OUTNAME      put output in OUTNAME.*
64              --parse               parse a idl file to a .pidl file
65              --dump                dump a pidl file back to idl
66              --header              create a C header file
67              --parser              create a C parser
68              --server              create server boilerplate
69              --template            print a template for a pipe
70              --eparser             create an ethereal parser
71              --diff                run diff on the idl and dumped output
72              --keep                keep the .pidl file
73            \n";
74     exit(0);
75 }
76
77 # main program
78 GetOptions (
79             'help|h|?' => \$opt_help, 
80             'output=s' => \$opt_output,
81             'parse' => \$opt_parse,
82             'dump' => \$opt_dump,
83             'header' => \$opt_header,
84             'server' => \$opt_server,
85             'template' => \$opt_template,
86             'parser' => \$opt_parser,
87             'eparser' => \$opt_eparser,
88             'diff' => \$opt_diff,
89             'keep' => \$opt_keep
90             );
91
92 if ($opt_help) {
93     ShowHelp();
94     exit(0);
95 }
96
97 sub process_file($)
98 {
99         my $idl_file = shift;
100         my $output;
101         my $pidl;
102
103         my $basename = basename($idl_file, ".idl");
104
105         if (!defined($opt_output)) {
106                 $output = $idl_file;
107         } else {
108                 $output = $opt_output . $basename;
109         }
110
111         my($pidl_file) = util::ChangeExtension($output, ".pidl");
112
113         print "Compiling $idl_file\n";
114
115         if ($opt_parse) {
116                 $pidl = IdlParse($idl_file);
117                 defined $pidl || die "Failed to parse $idl_file";
118                 IdlValidator::Validate($pidl);
119                 if ($opt_keep && !util::SaveStructure($pidl_file, $pidl)) {
120                             die "Failed to save $pidl_file\n";
121                 }
122         } else {
123                 $pidl = util::LoadStructure($pidl_file);
124                 defined $pidl || die "Failed to load $pidl_file - maybe you need --parse\n";
125         }
126
127         if ($opt_dump) {
128                 print IdlDump::Dump($pidl);
129         }
130
131         if ($opt_header) {
132                 my($header) = util::ChangeExtension($output, ".h");
133                 util::FileSave($header, IdlHeader::Parse($pidl));
134         }
135
136         if ($opt_server) {
137                 my($server) = util::ChangeExtension($output, "_s.c");
138                 util::FileSave($server, IdlServer::Parse($pidl));
139         }
140
141         if ($opt_parser) {
142                 my($parser) = util::ChangeExtension($output, ".c");
143                 IdlParser::Parse($pidl, $parser);
144         }
145
146         if ($opt_eparser) {
147                 my($parser) = dirname($output) . "/packet-dcerpc-$basename.c";
148                 IdlEParser::Parse($pidl, $parser);
149         }
150
151         if ($opt_diff) {
152                 my($tempfile) = util::ChangeExtension($output, ".tmp");
153                 util::FileSave($tempfile, IdlDump::Dump($pidl));
154                 system("diff -wu $idl_file $tempfile");
155                 unlink($tempfile);
156         }
157
158         if ($opt_template) {
159                 print IdlTemplate::Parse($pidl);
160         }
161 }
162
163
164 foreach my $filename (@ARGV) {
165         process_file($filename);
166 }