summaryrefslogtreecommitdiff
path: root/source4/build/pidl/Parse/Pidl/Samba/Template.pm
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Samba/Template.pm')
-rw-r--r--source4/build/pidl/Parse/Pidl/Samba/Template.pm88
1 files changed, 0 insertions, 88 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Samba/Template.pm b/source4/build/pidl/Parse/Pidl/Samba/Template.pm
deleted file mode 100644
index eb71b6d707..0000000000
--- a/source4/build/pidl/Parse/Pidl/Samba/Template.pm
+++ /dev/null
@@ -1,88 +0,0 @@
-###################################################
-# server template function generator
-# Copyright tridge@samba.org 2003
-# released under the GNU GPL
-
-package Parse::Pidl::Samba::Template;
-
-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 2 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, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-*/
-
-#include \"includes.h\"
-#include \"rpc_server/dcerpc_server.h\"
-#include \"librpc/gen_ndr/ndr_$name.h\"
-
-";
-
- foreach my $d (@{$data}) {
- if ($d->{TYPE} eq "FUNCTION") {
- my $fname = $d->{NAME};
- $res .=
-"
-/*
- $fname
-*/
-static $d->{RETURN_TYPE} $fname(struct dcesrv_call_state *dce_call, TALLOC_CTX *mem_ctx,
- struct $fname *r)
-{
- DCESRV_FAULT(DCERPC_FAULT_OP_RNG_ERROR);
-}
-
-";
- }
- }
-
- $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;