axis_test:
AXIS COLONCOLON test { let a, (t,k) = $1, $3 in
match a with
- Attribute when QNameSet.is_finite t ->
- [ a, ((QNameSet.fold
- (fun t a ->
- QNameSet.add
- (QName.attribute t) a)
- t QNameSet.empty), k) ]
+ | Attribute -> [ a, (t, NodeKind.Attribute) ]
| Preceding|Following ->
[ (Descendant true, (t,k));
if a == Preceding then
}
| PI { (if $1 = "" then star
else QNameSet.singleton(
- QName.processing_instruction (
- QName.of_string $1)
+ QName.of_string $1
)), NodeKind.ProcessingInstruction
}
| TAG { QNameSet.singleton(QName.of_string $1),