source4/build/pidl/swig.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

###################################################
# Samba4 parser generator for swig wrappers
# Copyright tpot@samba.org 2004
# released under the GNU GPL

package IdlSwig;

use strict;

sub Parse($)
{
    my($idl) = shift;
    my($res) = "";

    $res = "/* header auto-generated by pidl */\n\n";

    foreach my $x (@{$idl}) {
#	($x->{TYPE} eq "INTERFACE") && HeaderInterface($x);
    }

    return $res;
}

1;