-while(($line1 = <IN>) && not ($line1 =~ /<\/h:Object>/)) {
- $line2 = <IN>; # <h:Occurrence>
- $line3 = <IN>; # <h:position>value</h:position>
- $line4 = <IN>; # <h:occurrence>value</h:occurrence>
- $line5 = <IN>; # </h:Occurrence>
- $line6 = <IN>; # </refObj>
+while(($line1 = <IN>) && not ($line1 =~ /<\/h:Object>/)) { # <h:refObj
+ $line2 = <IN>; # <h:position rdf:resource="&hns;value"/>
+ $position = $line2;
+ chomp($position);
+ $position =~ s/^[ \t]*[^"]*"&hns;([^"]*)"\/>/$1/;
+ if ($position eq 'MainHypothesis' || $position eq 'MainConclusion') {
+ $line3 = <IN>; # <h:depth>value</h:depth>
+ }
+ $line4 = <IN>; # <h:occurrence><h:Object rdf:about="value"/></h:occurrence>
+ $line5 = <IN>; # </h:refObj>