Cloning node and modifying the clone using xquery

Question

I have some html stripped out of an online dictionary that I want to convert to XML for eventual conversion into a word list for a BK-tree. The online dictionary records variant spellings, but sometimes does so by putting a vowel or ending that may or may not appear in parenthesis, like so:


    
    a
     indef. art.  Also 
    an. Early forms: as subj.,
    ane, 
    on, 
    o; as obj., 
    ane, 
    on(e, 
    o, & (chiefly masc.) 
    an(n)e, 
    æn(n)e, 
    en(n)e, 
    en; after prep.,chiefly 
    ane, 
    on(e, masc. also 
    anne, 
    æn(n)e, fem. also 
    anre, 
    are, 
    hare, 
    ore; gen. 
    anes, 
    æn(n)es, 
    en(n)es.

I've written the following XQuery to convert the HTML TO XML, stripping anything that's not in tags and selecting elements based on the class of the particular span:

declare function local:node-change($nodes as node()*) as node()* {
  for $span in $nodes
  return 
    if ($span/@class = "HDORTH") then {$span/text()}
    else if ($span/@class = "POS") then {$span/text()}
    else if ($span/@class = "ORTH") then {$span/text()}
    else $span
 } ;


{
let $collection:=concat($collection, '?select=*.xml')
let $q:=collection($collection)

for $y in $q 
let $s := $y/td/span/*

let $c := local:node-change($s)
(:let $l := local:stripleftparen($c):)

order by number(substring(substring-before(tokenize(document-uri($y), "/")[last()],"."),4))
return
{$c}
}

This returns the following XML:


        a
         indef. art. 
        an
        ane
        on
        o
        ane
        on(e
        o
        an(n)e
        æn(n)e
        en(n)e
        en
        ane
        on(e
        anne
        æn(n)e
        anre
        are
        hare
        ore
        anes
        æn(n)es
        en(n)es

What I need to do now is clone the nodes that have parens, so that I can modify the clone and have the following result, but I'm not sure how to do so.


        a
         indef. art. 
        an
        ane
        on
        o
        ane
        on
        one
        o
        ane
        anne
        æne
        ænne
        ene
        enne
        en
        ane
        on
        one
        anne
        æne
        ænne
        anre
        are
        hare
        ore
        anes
        ænes
        ænnes
        enes
        ennes

I know I need to use substring, substring-before, or substring-after to actually modify the node, but where I'm having problems is in the actual cloning process. Copy doesn't work within the for/return loop, and everything I've found online either suggests that for copying nodes or talks about de-duplicating data (which I'll need to do, but I want to get it exactly as I want it before I do so). How can I copy a node, modify the copy, and display the results so that I can get what I'm looking for?

Kevin Brown · Accepted Answer

I am not clear what the rules are. But it seems to me that you should be able to do it all at once in the node-change function.

I would think you could do something along these lines:

      declare function local:node-change($nodes as node()*) as node()* {
      for $span in $nodes
      let $varient1 :=
        if ($span/@class = "HDORTH") then {$span/text()}
        else if ($span/@class = "POS") then {$span/text()}
        else if ($span/@class = "ORTH" and contains($span/text(),')')) then {translate($span/text(),'()','')}
        else $span
        (:Implement some if here to get the other varient if needed :)
        let $varient2 := 
      return 
        ($varient1, $varient2)
     } ;

If there are three varients (not sure) just follow the same pattern. Of course, the else for any one of the addition varients could be empty element and you could strip that at the end (i.e. else ) and then just strip any in the result.

something like this maybe (guessing at the rules):

    xquery version "3.0";
    declare function local:node-change($nodes as node()*) as node()* {
      for $span in $nodes
      let $varient1 :=
        if ($span/@class = "HDORTH") then {$span/text()}
        else if ($span/@class = "POS") then {$span/text()}
        else if ($span/@class = "ORTH" and contains($span/text(),'(') and not(contains($span/text(),')'))) then {substring-before($span/text(),'(')}
        else if ($span/@class = "ORTH" and contains($span/text(),'(') and contains($span/text(),')')) then {concat(substring-before($span/text(),'('),substring-after($span/text(),')'))}
        else if ($span/@class = "ORTH" and not(contains($span/text(),'(')) and not(contains($span/text(),')'))) then {$span/text()}
        else $span
        let $varient2 := if ($span/@class = "ORTH" and contains($span/text(),'(') and not(contains($span/text(),')'))) then {translate($span/text(),'(','')}
        else 
        let $varient3 := if ($span/@class = "ORTH" and contains($span/text(),'(') and contains($span/text(),')')) then {translate($span/text(),'()','')}
        else 
      return 
        ($varient1, $varient2, $varient3)
     } ;
    let $cell := 
        
        a
         indef. art.  Also 
        an. Early forms: as subj.,
        ane, 
        on, 
        o; as obj., 
        ane, 
        on(e, 
        o, & (chiefly masc.) 
        an(n)e, 
        æn(n)e, 
        en(n)e, 
        en; after prep.,chiefly 
        ane, 
        on(e, masc. also 
        anne, 
        æn(n)e, fem. also 
        anre, 
        are, 
        hare, 
        ore; gen. 
        anes, 
        æn(n)es, 
        en(n)es.
    

    let $s := $cell/span/*
    let $c := local:node-change($s)
    return
    $c[not(local-name()='empty')]

returns this:

a
 indef. art. 
an
ane
on
o
ane
on
one
o
ane
anne
æne
ænne
ene
enne
en
ane
on
one
anne
æne
ænne
anre
are
hare
ore
anes
ænes
ænnes
enes
ennes

Cloning node and modifying the clone using xquery

Answers (1)

Related Questions