Lines Matching refs:section
91 # return the attributes of the section
93 my ($section, $part)=@_;
98 # print "Section: $section, part: $part\n";
102 if(!$inside && ($_ =~ /^ *\<$section/)) {
118 # detect end of section when part wasn't found
119 elsif((1 ==$inside) && ($_ =~ /^ *\<\/$section\>/)) {
131 my ($section, $part)=@_;
141 if(!$inside && ($_ =~ /^ *\<$section/)) {
164 elsif(($inside >= 1) && ($_ =~ /^ *\<\/$section/)) {
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,
197 # end of file implies end of section.
198 print STDERR "*** getpart.pm: $section/$part returned data!\n";
201 # section/part does not exist or has no data without an end of
202 # section; end of file implies end of section.
203 print STDERR "*** getpart.pm: $section/$part returned empty!\n";
210 my ($section, $part)=@_;
215 if(!$inside && ($_ =~ /^ *\<$section/)) {
221 elsif((1 == $inside) && ($_ =~ /^ *\<\/$section/)) {