Branch Coverage

/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/PDL/PP.pm

Criterion	Covered	Total	%
branch	298	1038	28.7

line	true	false	branch
580	0	2	SETPDLSTATEGOOD => sub { PDL::PP::pp_line_numbers(__LINE__, "$_[0]\->state &= ~PDL_BADVAL") },
	0	0	SETPDLSTATEGOOD => sub { PDL::PP::pp_line_numbers(__LINE__, "$_[0]\->state &= ~PDL_BADVAL") },
	0	0	SETPDLSTATEGOOD => sub { PDL::PP::pp_line_numbers(__LINE__, "$_[0]\->state &= ~PDL_BADVAL") },
582	0	0	ISPDLSTATEGOOD => sub { PDL::PP::pp_line_numbers(__LINE__, "(($_[0]\->state & PDL_BADVAL) == 0)") },
	0	0	ISPDLSTATEGOOD => sub { PDL::PP::pp_line_numbers(__LINE__, "(($_[0]\->state & PDL_BADVAL) == 0)") },
583	1	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	1	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	1	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	1	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	1	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	110	1	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	110	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
	0	0	BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__, "badflag_cache") },
584	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	110
	1	2
	1	2
	1	0
	2	0
1852	2	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
	111	0	} #sub callPerlInit()
	3	0	} #sub callPerlInit()
	3	0	} #sub callPerlInit()
	1	0	} #sub callPerlInit()
	2	0	} #sub callPerlInit()
1855	2	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
	111	0	# This writes an XS header which handles variable argument lists,
	3	0	# This writes an XS header which handles variable argument lists,
	3	0	# This writes an XS header which handles variable argument lists,
	1	0	# This writes an XS header which handles variable argument lists,
	2	0	# This writes an XS header which handles variable argument lists,
1857	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
	0	0	#
1858	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
	0	0	# The use of 'DO NOT SET!!' looks ugly.
2060	2	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
	111	0	${ci}if (nreturn) {
	3	0	${ci}if (nreturn) {
	3	0	${ci}if (nreturn) {
	1	0	${ci}if (nreturn) {
	2	0	${ci}if (nreturn) {
2061	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	111	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	111	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	111	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	3	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	3	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	3	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	3	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	3	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	3	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	1	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	1	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	1	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	2	0	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
	0	2	${ci} if (nreturn > 0) EXTEND (SP, nreturn );
2223	0	1
	0	0
2312	0	3	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	0	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	3	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	0	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	1	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	0	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	2	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
	0	0	qq{\tif ( $instate & PDL_INPLACE && ($out != $in)) {
2527	0	2	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
	2	109	} # sub: coerce_types()
	0	3	} # sub: coerce_types()
	0	3	} # sub: coerce_types()
	0	1	} # sub: coerce_types()
	0	2	} # sub: coerce_types()
2529	0	2	# First, finds the greatest datatype, then, if not supported, takes
	0	2	# First, finds the greatest datatype, then, if not supported, takes
	2	0	# First, finds the greatest datatype, then, if not supported, takes
	2	0	# First, finds the greatest datatype, then, if not supported, takes
	0	2	# First, finds the greatest datatype, then, if not supported, takes
	0	2	# First, finds the greatest datatype, then, if not supported, takes
	0	2	# First, finds the greatest datatype, then, if not supported, takes
	0	111	# First, finds the greatest datatype, then, if not supported, takes
	3	0	# First, finds the greatest datatype, then, if not supported, takes
	3	0	# First, finds the greatest datatype, then, if not supported, takes
	3	0	# First, finds the greatest datatype, then, if not supported, takes
	3	0	# First, finds the greatest datatype, then, if not supported, takes
	1	0	# First, finds the greatest datatype, then, if not supported, takes
	1	0	# First, finds the greatest datatype, then, if not supported, takes
	2	0	# First, finds the greatest datatype, then, if not supported, takes
	2	0	# First, finds the greatest datatype, then, if not supported, takes
2531	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	0	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	2	0	# Not yet optimal.
	111	0	# Not yet optimal.
	111	0	# Not yet optimal.
	0	0	# Not yet optimal.
	0	0	# Not yet optimal.
	0	0	# Not yet optimal.
	0	0	# Not yet optimal.
2533	0	0	# Assuming that, if HASP2Child is true, we only have
	0	0	# Assuming that, if HASP2Child is true, we only have
	0	0	# Assuming that, if HASP2Child is true, we only have
	0	0	# Assuming that, if HASP2Child is true, we only have
	0	0	# Assuming that, if HASP2Child is true, we only have
	0	0	# Assuming that, if HASP2Child is true, we only have
2568	2	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
	111	0	} # sub: find_datatype()
	3	0	} # sub: find_datatype()
	3	0	} # sub: find_datatype()
	1	0	} # sub: find_datatype()
	2	0	} # sub: find_datatype()
2571	0	2
	0	2
	2	0
	0	2
	0	2
	0	2
	2	109
	3	0
	3	0
	1	0
	0	1
	2	0
2572	0	2	sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);}
	0	3	sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);}
	0	3	sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);}
	0	0	sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);}
	0	2	sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);}
2574	2	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
	2	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
	2	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
	2	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
	2	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
	111	0	sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);}
2575	0	2
	0	2
	0	2
	0	2
	0	2
	0	111
	1	0
2576	1	0	sub NT2Decls {&NT2Decls__({},@_);}
2577	1	0
2578	1	0	sub NT2Decls__ {
2579	1	0	my($opts,$onames,$otypes) = @_;
2580	1	0	my $decl;
2581	1	0	my $dopts = {};
2582	0	1	$dopts->{VarArrays2Ptrs} = 1 if $opts->{ToPtrs};
2600	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
2612	2	0
	2	0
	2	0
	2	0
	2	0
	2	0
	111	0
	3	0
	3	0
	1	0
	2	0
2790	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	111	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	111	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	3	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	3	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	3	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	3	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	1	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	1	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	2	0	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
	0	2	my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_;
2791	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
	0	0	my $str = PDL::PP::pp_line_numbers(__LINE__, '');
2795	2	0
	2	0
	2	0
	2	0
	3	0
	3	0
	3	0
	3	0
	1	0
	1	0
	2	0
	2	0
2796	2	0	my $nn = $#$pnames;
	2	0	my $nn = $#$pnames;
	2	0	my $nn = $#$pnames;
	2	0	my $nn = $#$pnames;
	2	0	my $nn = $#$pnames;
	2	0	my $nn = $#$pnames;
	111	0	my $nn = $#$pnames;
	111	0	my $nn = $#$pnames;
2797	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	111	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	111	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	3	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	3	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	3	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	3	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	1	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	1	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	2	0	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
	0	2	my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn );
2798	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
	0	0	$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n";
2799	0	0	$str .= join '',map {$_->get_initdim."\n"} sort values %$dobjs;
	0	0	$str .= join '',map {$_->get_initdim."\n"} sort values %$dobjs;
	0	0	$str .= join '',map {$_->get_initdim."\n"} sort values %$dobjs;
	0	0	$str .= join '',map {$_->get_initdim."\n"} sort values %$dobjs;
	0	0	$str .= join '',map {$_->get_initdim."\n"} sort values %$dobjs;
2804	2	0	#
	0	2	#
	2	0	#
	0	2	#
	2	0	#
	0	2	#
	2	0	#
	0	2	#
	2	0	#
	0	2	#
	111	0	#
	0	111	#
2805	0	0	foreach ( 0 .. $nn ) {
	0	0	foreach ( 0 .. $nn ) {
	0	2	foreach ( 0 .. $nn ) {
	0	0	foreach ( 0 .. $nn ) {
	0	0	foreach ( 0 .. $nn ) {
	0	0	foreach ( 0 .. $nn ) {
	0	0	foreach ( 0 .. $nn ) {
	0	3	foreach ( 0 .. $nn ) {
	0	3	foreach ( 0 .. $nn ) {
	0	1	foreach ( 0 .. $nn ) {
	0	2	foreach ( 0 .. $nn ) {
2806	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
	0	0	$str .= "__creating[$_] = ";
2812	0	2	} # foreach: 0 .. $nn
	0	2	} # foreach: 0 .. $nn
	0	2	} # foreach: 0 .. $nn
	0	2	} # foreach: 0 .. $nn
	0	2	} # foreach: 0 .. $nn
	0	111	} # foreach: 0 .. $nn
2813	0	0
	0	0
	0	0
	0	0
	0	0
	0	0
2814	0	0	$str .= " {\n$pcode\n}\n";
	0	0	$str .= " {\n$pcode\n}\n";
	0	0	$str .= " {\n$pcode\n}\n";
	0	0	$str .= " {\n$pcode\n}\n";
	0	0	$str .= " {\n$pcode\n}\n";
2815	0	0	$str .= " {\n " . make_parnames($pnames,$pobjs,$dobjs) . "
	0	0	$str .= " {\n " . make_parnames($pnames,$pobjs,$dobjs) . "
	0	0	$str .= " {\n " . make_parnames($pnames,$pobjs,$dobjs) . "
	0	0	$str .= " {\n " . make_parnames($pnames,$pobjs,$dobjs) . "
	0	0	$str .= " {\n " . make_parnames($pnames,$pobjs,$dobjs) . "
2819	0	0	\$PRIV(vtable->per_pdl_flags),
2821	0	0	}\n";
	0	0	}\n";
	0	0	}\n";
	0	0	}\n";
	0	0	}\n";
	0	0	}\n";
2822	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
	0	0	$str .= join '',map {$pobjs->{$_}->get_xsnormdimchecks()} @$pnames;
2824	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
	0	0	$str .= join '',map {$pobjs->{$pnames->[$_]}->
2828	0	0	} # sub: make_redodims_thread()
	0	0	} # sub: make_redodims_thread()
	0	0	} # sub: make_redodims_thread()
	0	0	} # sub: make_redodims_thread()
	0	0	} # sub: make_redodims_thread()
2831	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
	0	0	my($xsname,$nxargs) = @_;
2834	0	0
	0	0
	0	0
	0	0
	0	0
2835	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
	0	0	###########################################################
2837	0	0	# Usage : $sig = extract_signature_from_fulldoc($fulldoc)
	0	0	# Usage : $sig = extract_signature_from_fulldoc($fulldoc)
	0	0	# Usage : $sig = extract_signature_from_fulldoc($fulldoc)
	0	0	# Usage : $sig = extract_signature_from_fulldoc($fulldoc)
	0	0	# Usage : $sig = extract_signature_from_fulldoc($fulldoc)
2841	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
	0	0	# Throws : never
2842	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
	0	0	# Notes : the signature must have the following form:
2844	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
	0	0	# : =for sig
2848	0	0	# :
	0	0	# :
	0	0	# :
	0	0	# :
	0	0	# :
	0	0	# :
2851	0	0	# : the parentheses.
	0	0	# : the parentheses.
	0	0	# : the parentheses.
	0	0	# : the parentheses.
	0	0	# : the parentheses.
	0	0	# : the parentheses.
3384	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;
	0	0	{int i;