sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-25 23:21:54 +03:00
Code

r24524: make use of ElementStars()

Browse Source 
metze
This commit is contained in:
Stefan Metzmacher 2007-08-17 13:53:12 +00:00 committed by Gerald (Jerry) Carter
parent ff11f2ce0c
commit 701aa31d14
1 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
View File

@ -11,7 +11,7 @@ use Parse::Pidl qw(warning fatal);
use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
use Parse::Pidl::Util qw(ParseExpr has_property is_constant);
use Parse::Pidl::NDR qw(GetNextLevel);
use Parse::Pidl::Samba4 qw(DeclLong);
use Parse::Pidl::Samba4 qw(ElementStars DeclLong);
use Parse::Pidl::Samba4::NDR::Parser qw(GenerateFunctionOutEnv);
use vars qw($VERSION);
@ -28,36 +28,20 @@ sub fn_declare($) { my ($n) = @_; pidl $n; pidl_hdr "$n;"; }
sub DeclLevel($$)
{
sub DeclLevel($$);
my ($e, $l) = @_;
my $ret = "";
my $res = "";
if (has_property($e, "charset")) {
$ret.="const char";
$res .= "const char";
} else {
$ret.=mapTypeName($e->{TYPE});
$res .= mapTypeName($e->{TYPE});
}
my $numstar = $e->{ORIGINAL}->{POINTERS};
if ($numstar >= 1) {
$numstar-- if scalar_is_reference($e->{TYPE});
}
foreach (@{$e->{ORIGINAL}->{ARRAY_LEN}})
{
next if is_constant($_) and
not has_property($e, "charset");
$numstar++;
}
$numstar -= $l;
die ("Too few pointers") if $numstar < 0;
if ($numstar > 0)
{
$ret.=" ";
$ret.="*" foreach (1..$numstar);
}
my $stars = ElementStars($e, $l);
return $ret;
$res .= " ".$stars unless ($stars eq "");
return $res;
}
sub AllocOutVar($$$$)