sub ParseInterface($)
{
my($interface) = shift;
+
+ $res_hdr .= "#ifndef _HEADER_RPC_$interface->{NAME}\n";
+ $res_hdr .= "#define _HEADER_RPC_$interface->{NAME}\n\n";
+
$res .= "/* $interface->{NAME} - client functions generated by pidl */\n\n";
foreach my $fn (@{$interface->{FUNCTIONS}}) {
$done{$fn->{NAME}} = 1;
}
+ $res_hdr .= "#endif /* _HEADER_RPC_$interface->{NAME} */\n";
+
return $res;
}
{
my($interface,$needed) = @_;
- pidl_hdr "#ifndef _HEADER_RPC_$interface->{NAME}";
- pidl_hdr "#define _HEADER_RPC_$interface->{NAME}";
+ pidl_hdr "#ifndef _HEADER_NDR_$interface->{NAME}";
+ pidl_hdr "#define _HEADER_NDR_$interface->{NAME}";
pidl_hdr "";
FunctionTable($interface);
- pidl_hdr "#endif /* _HEADER_RPC_$interface->{NAME} */";
+ pidl_hdr "#endif /* _HEADER_NDR_$interface->{NAME} */";
}
#####################################################################
$res = "";
$res_hdr = "";
- pidl_hdr "/* header auto-generated by pidl */";
+ pidl_hdr "/* header auto-generated by pidl */";
pidl_hdr "";
pidl "/* parser auto-generated by pidl */";