r15260: Don't dereference NULL pointers to obtain array lengths - found by
[samba.git] / source / pidl / lib / Parse / Pidl / Samba4 / Template.pm
1 ###################################################
2 # server template function generator
3 # Copyright tridge@samba.org 2003
4 # released under the GNU GPL
5
6 package Parse::Pidl::Samba4::Template;
7
8 use vars qw($VERSION);
9 $VERSION = '0.01';
10
11 use strict;
12
13 my($res);
14
15 #####################################################################
16 # produce boilerplate code for a interface
17 sub Template($)
18 {
19         my($interface) = shift;
20         my($data) = $interface->{DATA};
21         my $name = $interface->{NAME};
22
23         $res .= 
24 "/* 
25    Unix SMB/CIFS implementation.
26
27    endpoint server for the $name pipe
28
29    Copyright (C) YOUR NAME HERE YEAR
30    
31    This program is free software; you can redistribute it and/or modify
32    it under the terms of the GNU General Public License as published by
33    the Free Software Foundation; either version 2 of the License, or
34    (at your option) any later version.
35    
36    This program is distributed in the hope that it will be useful,
37    but WITHOUT ANY WARRANTY; without even the implied warranty of
38    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
39    GNU General Public License for more details.
40    
41    You should have received a copy of the GNU General Public License
42    along with this program; if not, write to the Free Software
43    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
44 */
45
46 #include \"includes.h\"
47 #include \"rpc_server/dcerpc_server.h\"
48 #include \"librpc/gen_ndr/ndr_$name.h\"
49 #include \"rpc_server/common/common.h\"
50
51 ";
52
53         foreach my $d (@{$data}) {
54                 if ($d->{TYPE} eq "FUNCTION") {
55                         my $fname = $d->{NAME};
56                         $res .=
57 "
58 /* 
59   $fname 
60 */
61 static $d->{RETURN_TYPE} $fname(struct dcesrv_call_state *dce_call, TALLOC_CTX *mem_ctx,
62                        struct $fname *r)
63 {
64 ";
65
66         if ($d->{RETURN_TYPE} eq "void") {
67                 $res .= "\tDCESRV_FAULT_VOID(DCERPC_FAULT_OP_RNG_ERROR);\n";
68         } else {
69                 $res .= "\tDCESRV_FAULT(DCERPC_FAULT_OP_RNG_ERROR);\n";
70         }
71
72         $res .= "}
73
74 ";
75                 }
76         }
77
78         $res .= 
79 "
80 /* include the generated boilerplate */
81 #include \"librpc/gen_ndr/ndr_$name\_s.c\"
82 "
83 }
84
85
86 #####################################################################
87 # parse a parsed IDL structure back into an IDL file
88 sub Parse($)
89 {
90         my($idl) = shift;
91         $res = "";
92         foreach my $x (@{$idl}) {
93                 ($x->{TYPE} eq "INTERFACE") && 
94                     Template($x);
95         }
96         return $res;
97 }
98
99 1;