r2253: Add test program, as small example of what's going on.

(This used to be commit fd31ae38dfe2d005b3e01ac059c2e15fa389aad4)

1 files changed, 24 insertions, 0 deletions

diff --git a/source4/build/pidl/swig.pm b/source4/build/pidl/swig.pm
new file mode 100644
index 0000000000..124b6e593e
--- /dev/null
+++ b/source4/build/pidl/swig.pm
@@ -0,0 +1,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;