<sourceDesc>
            <p>This text is based on the Project Gutenberg eBook of <bibl>
                  <title>Thalaba the Destroyer</title> by <author>Robert Southey</author>
                  <pubPlace>London</pubPlace>
                  <publisher>PRINTED FOR T. N. LONGMAN AND O. REES</publisher>
                  <pubPlace>PATERNOSTER-ROW, London</pubPlace>
                  <publisher>BY BIGGS AND COTTLE</publisher>
                  <pubPlace>Bristol</pubPlace>,<date>1801</date>. </bibl> Release
               date: <date/> [Ebook #39804] Public domain in the USA. 
           <ref target="http://www.gutenberg.org/files/39804/39804-h/39804-h.htm"/></p>
            <p>This eBook is for the use of anyone anywhere 
               at no cost and with almost no
               restrictions whatsoever. You may copy it, give it away 
               or re-use it under the terms
               of the Project Gutenberg License included with this eBook
               or online at www.gutenberg.org/license</p>
         </sourceDesc>

<lg xml:id="B5_lg317">
         <l rend="i0" n="2460">
               <rs type="place" ref="Bagdad" ana="hereNow">Then Pomp and Pleasure 
                dwelt within her walls</rs>
          </l>
          <l rend="i0" n="2461">The Merchants of <placeName ref="the_East" ana="rel">the
                           East</placeName> and of <placeName ref="the_West" ana="rel">the
                           West</placeName></l>
          <l rend="i4" n="2462">Met <rs type="building" subtype="commerce">in her arched
                    <note type="author" anchored="true" xml:id="N_90">
                       <p><rs type="building" subtype="house">The houses</rs> in 
                        <placeName>Persia</placeName> are not in the same place with 
                       <rs type="building" subtype="commerce">their shops, which stand for
                       the most part in long and large arched streets 40 or 50 foot high, 
                       which streets are called Basar or the market</rs>, and
                       make the heart of the city, the houses being in the out parts, and having
                       almost all <rs type="earthworks" subtype="garden">gardens</rs> belonging to 'em. 
                       <bibl>Chardin.</bibl></p>
                       <p> At <placeName>Tauris</placeName> he says, "there are the fairest
                          Basars that are in any place of <placeName>Asia</placeName>, and it
                          is a lovely sight to see their vast extent, their largeness, their
                          beautiful Duomos and the arches over 'em." </p>
                       <p> At <placeName>Bagdad</placeName> the Bazars are all vaulted,
                        otherwise the merchants could not remain in them on account of the
                        heat. They are also watered two or three times a day, and a number
                        of <orgName>the poor</orgName> are paid for rendering this service
                       to <orgName>the public</orgName>. <bibl>Tavernier.</bibl></p>
                           </note> 
                 Bazars;</rs></l>
                     <l rend="i4" n="2463">All day the active poor</l>
                     <l rend="i0" n="2464">Showered a cool comfort o'er her thronging streets;</l>
                           .  .  .
   </lg>

Ethiopia	place	no-ana	note	B1_lg23	Eden	metaplace	ana

SourceNode [tab] SourceAtt1 [tab] SourceAtt2 [tab] Edge [tab] TargetNode [tab] TargetAtt1 [tab] TargetAtt2

declare default element namespace "http://www.tei-c.org/ns/1.0";
declare namespace elisa='http://elisa.org';

declare function elisa:place-string($place as element()) as xs:string {
  $place/(@ref/normalize-space(.),normalize-space(.))[1]
};

let $places := //(placeName|rs[@type=('place','metaplace') and not(@subtype='language')])

return string-join(
for $place in $places
let $kin := ($place/ancestor::lg//(placeName|rs[@type=('place','metaplace')] except $place))

return
$kin/
string-join(
  (elisa:place-string($place),
   ($place[@type='metaplace']/'metaplace','place')[1], ($place[@ana]/@ana, 'no-ana')[1],
   ($place/ancestor::div[@type='footnotes']/'note','main')[1],
   ancestor::lg/@xml:id,
   elisa:place-string(.),
   (.[@type='metaplace']/'metaplace','place')[1], (.[@ana]/@ana, 'no-ana')[1]
   ),
'	')

,'
')

bitumen_pit	metaplace	hereNow	main	B5_lg344	Ispahan	place	no-ana
bitumen_pit	metaplace	hereNow	main	B5_lg344	France	place	no-ana
bitumen_pit	metaplace	hereNow	main	B5_lg344	Germany	place	no-ana
bitumen_pit	metaplace	hereNow	main	B5_lg344	Spain	place	no-ana

Irem	place	hereNow	main	B1_lg20	Arabia	place	no-ana
Irem	place	hereNow	main	B1_lg20	Hejaz	place	no-ana
Irem	place	hereNow	main	B1_lg20	Mecca	place	no-ana
Irem	place	hereNow	main	B1_lg20	Hejaz	place	no-ana
Irem	place	hereNow	main	B1_lg20	Red_Hillock	place	no-ana
Irem	place	hereNow	main	B1_lg20	Red_Hillock	place	no-ana
Irem	place	hereNow	main	B1_lg20	Magaith	place	no-ana
Irem	place	hereNow	main	B1_lg20	the_world	place	no-ana
Irem	place	hereNow	main	B1_lg20	Al_Ahkaf	place	no-ana
Irem	place	hereNow	main	B1_lg20	Al_Ahkaf	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Irem	place	hereNow
Al_Ahkaf	place	no-ana	note	B1_lg20	Al_Ahkaf	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Hadramaut	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Irem	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	the desarts of Aden	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	sky	metaplace	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Arabia	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Hejaz	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Mecca	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Hejaz	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Red_Hillock	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Red_Hillock	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Magaith	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	the_world	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Al_Ahkaf	place	no-ana
Al_Ahkaf	place	no-ana	note	B1_lg20	Al_Ahkaf	place	no-ana