ad758df90b
Please note that the Alphatronics implementation does not follow the Vebon specification. An extra padding byte had to be added to the idl..
98 lines
2.2 KiB
Perl
98 lines
2.2 KiB
Perl
###################################################
|
|
# server template function generator
|
|
# Copyright tridge@samba.org 2003
|
|
# released under the GNU GPL
|
|
|
|
package Parse::Pidl::Samba4::Template;
|
|
|
|
use vars qw($VERSION);
|
|
$VERSION = '0.01';
|
|
|
|
use strict;
|
|
|
|
my($res);
|
|
|
|
#####################################################################
|
|
# produce boilerplate code for a interface
|
|
sub Template($)
|
|
{
|
|
my($interface) = shift;
|
|
my($data) = $interface->{DATA};
|
|
my $name = $interface->{NAME};
|
|
|
|
$res .=
|
|
"/*
|
|
Unix SMB/CIFS implementation.
|
|
|
|
endpoint server for the $name pipe
|
|
|
|
Copyright (C) YOUR NAME HERE YEAR
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include \"includes.h\"
|
|
#include \"rpc_server/dcerpc_server.h\"
|
|
#include \"librpc/gen_ndr/ndr_$name.h\"
|
|
#include \"rpc_server/common/common.h\"
|
|
|
|
";
|
|
|
|
foreach my $d (@{$data}) {
|
|
if ($d->{TYPE} eq "FUNCTION") {
|
|
my $fname = $d->{NAME};
|
|
$res .=
|
|
"
|
|
/*
|
|
$fname
|
|
*/
|
|
static $d->{RETURN_TYPE} dcesrv_$fname(struct dcesrv_call_state *dce_call, TALLOC_CTX *mem_ctx,
|
|
struct $fname *r)
|
|
{
|
|
";
|
|
|
|
if ($d->{RETURN_TYPE} eq "void") {
|
|
$res .= "\tDCESRV_FAULT_VOID(DCERPC_FAULT_OP_RNG_ERROR);\n";
|
|
} else {
|
|
$res .= "\tDCESRV_FAULT(DCERPC_FAULT_OP_RNG_ERROR);\n";
|
|
}
|
|
|
|
$res .= "}
|
|
|
|
";
|
|
}
|
|
}
|
|
|
|
$res .=
|
|
"
|
|
/* include the generated boilerplate */
|
|
#include \"librpc/gen_ndr/ndr_$name\_s.c\"
|
|
"
|
|
}
|
|
|
|
|
|
#####################################################################
|
|
# parse a parsed IDL structure back into an IDL file
|
|
sub Parse($)
|
|
{
|
|
my($idl) = shift;
|
|
$res = "";
|
|
foreach my $x (@{$idl}) {
|
|
($x->{TYPE} eq "INTERFACE") &&
|
|
Template($x);
|
|
}
|
|
return $res;
|
|
}
|
|
|
|
1;
|