diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-08-21 23:17:35 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:34:17 -0500 |
commit | efc03df292aa84edb592c22191dbf86cdf8c32d0 (patch) | |
tree | 8a72f715ced0922effaa6dc48000bb1b48b82678 /source4/build/pidl/Parse/Pidl/Samba/SWIG.pm | |
parent | 6e388c27d86d77f2c7f9414fbb152c246ca53022 (diff) | |
download | samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.tar.gz samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.tar.bz2 samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.zip |
r9459: Move pidl up one level (to prevent too much nesting)
(This used to be commit e48202275e60c18e464457d200daeb953386e221)
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Samba/SWIG.pm')
-rw-r--r-- | source4/build/pidl/Parse/Pidl/Samba/SWIG.pm | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Samba/SWIG.pm b/source4/build/pidl/Parse/Pidl/Samba/SWIG.pm deleted file mode 100644 index 409095804f..0000000000 --- a/source4/build/pidl/Parse/Pidl/Samba/SWIG.pm +++ /dev/null @@ -1,76 +0,0 @@ -################################################### -# Samba4 parser generator for swig wrappers -# Copyright tpot@samba.org 2004,2005 -# released under the GNU GPL - -package Parse::Pidl::Samba::SWIG; - -use strict; - -sub pidl($) -{ - print OUT shift; -} - -##################################################################### -# rewrite autogenerated header file -sub RewriteHeader($$$) -{ - my($idl) = shift; - my($input) = shift; - my($output) = shift; - - open(IN, "<$input") || die "can't open $input for reading"; - open(OUT, ">$output") || die "can't open $output for writing"; - - pidl "%{\n"; - pidl "#define data_in in\n"; - pidl "#define data_out out\n"; - pidl "%}\n\n"; - - while(<IN>) { - - # Rename dom_sid2 to dom_sid as we don't care about the difference - # for the swig wrappers. - - s/dom_sid2/dom_sid/g; - - # Copy structure and union definitions - - if (/^(struct|union) .*? {$/ .. /^\};$/) { - s/\} (in|out);/\} data_$1;/; # "in" is a Python keyword - pidl $_; - next; - } - - # Copy dcerpc functions - - pidl $_ if /^NTSTATUS dcerpc_.*?\(struct dcerpc_pipe/; - - # Copy interface definitions - - pidl $_ - if /^\#define DCERPC_.*?_UUID/ or /^\#define DCERPC_.*?_VERSION/; - } - - close(OUT); -} - -##################################################################### -# rewrite autogenerated header file -sub RewriteC($$$) -{ - my($idl) = shift; - my($input) = shift; - my($output) = shift; - - open(IN, "<$input") || die "can't open $input for reading"; - open(OUT, ">>$output") || die "can't open $output for writing"; - - while(<IN>) { - } - - close(OUT); -} - -1; |