svn commit: samba r19854 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl: .

[metze at samba.org]

Author: metze
Date: 2006-11-23 13:11:08 +0000 (Thu, 23 Nov 2006)
New Revision: 19854

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=19854

Log:
readd support for 'sptr' pointers, to work against windows servers
until jelmer commits his 'ptr' support

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-23 10:42:58 UTC (rev 19853)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-23 13:11:08 UTC (rev 19854)
@@ -310,6 +310,7 @@
 	
 	return "ref" if (has_property($e, "ref"));
 	return "ptr" if (has_property($e, "ptr"));
+	return "sptr" if (has_property($e, "sptr"));
 	return "unique" if (has_property($e, "unique"));
 	return "relative" if (has_property($e, "relative"));
 	return "ignore" if (has_property($e, "ignore"));
@@ -1055,10 +1056,10 @@
 
 	if (has_property($interface, "pointer_default")) {
 		if ($interface->{PROPERTIES}->{pointer_default} eq "ptr") {
-			nonfatal $interface, "Full pointers are not supported yet, falling back to unique";
-			$interface->{PROPERTIES}->{pointer_default} = "unique";
+			nonfatal $interface, "Full pointers are not supported yet, falling back to sptr";
+			$interface->{PROPERTIES}->{pointer_default} = "sptr";
 		} elsif (not grep (/$interface->{PROPERTIES}->{pointer_default}/, 
-					("ref", "unique", "ptr"))) {
+					("ref", "unique", "ptr", "sptr"))) {
 			fatal $interface, "Unknown default pointer type `$interface->{PROPERTIES}->{pointer_default}'";
 		}
 	}