Lines Matching refs:part
11 # you should have received as part of this distribution. The terms
55 # Normalize the part function arguments for proper caching. This includes the
90 # if $part is undefined (ie only one argument) then
93 my ($section, $part)=@_;
98 # print "Section: $section, part: $part\n";
105 if((1 ==$inside) && ( ($_ =~ /^ *\<$part ([^>]*)/) ||
106 !(defined($part)) )
118 # detect end of section when part wasn't found
122 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
131 my ($section, $part)=@_;
144 elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
148 elsif($_ =~ /$part [^>]*base64=/) {
149 # attempt to detect our base64 encoded part
152 elsif($_ =~ /$part [^>]*hex=/) {
153 # attempt to detect a hex-encoded part
158 elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
166 print STDERR "$xmlfile:$line:1: error: missing </$part> tag before </$section>\n";
170 print STDERR "*** getpart.pm: $section/$part returned data!\n";
173 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
196 # section/part has data but end of section not detected,
198 print STDERR "*** getpart.pm: $section/$part returned data!\n";
201 # section/part does not exist or has no data without an end of
203 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
210 my ($section, $part)=@_;
218 elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
227 # The code currently never calls this more than once per part per file, so