Roger,
This is a good exercise in Functional programming. Note the three
different ways for assembling the map to be printed -- in the code
below:
<xsl:stylesheet version="3.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:f="function"
xmlns:map="http://www.w3.org/2005/xpath-functions/map">
<xsl:output method="text"/>
<!-- Test the two map functions -->
<xsl:template match="/">
<xsl:variable name="m" select="map{'Linda' := 'Rosie'}" />
<xsl:variable name="m1" select="map:entry('Sally', 'Betsy')" />
<xsl:variable name="m2" select="map:entry('Barb', 'Sue')" />
<xsl:variable name="m3" select="map:entry('Nadia', 'Valerie')" />
<xsl:variable name="m4" select="map:entry('Faye', 'Carol')" />
<xsl:sequence select="f:print-map(map:new(($m, $m1, $m2, $m3,
$m4)))" />
==========================================
<xsl:variable name="vMapEntries" select=
"map-pairs(map:entry(?,?), ('Linda', 'Sally', 'Barb', 'Nadia','Faye'),
('Rosie', 'Betsy', 'Sue', 'Valerie', 'Carol')
)"/>
<xsl:sequence select="f:print-map(map:new($vMapEntries))" />
==========================================
<xsl:sequence select=
"f:print-map(fold-left(f:add-entry-to-map#2, map:new(),
$vMapEntries))" />
</xsl:template>
<xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType,
item()*)">
<xsl:param name="key" as="xs:string" />
<xsl:param name="value" as="item()" />
<xsl:param name="m" as="map(xs:anyAtomicType, item()*)" />
<xsl:sequence select="map:new(($m, map:entry($key, $value)))" />
</xsl:function>
<xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType,
item()*)">
<xsl:param name="m1" as="map(xs:anyAtomicType, item()*)" />
<xsl:param name="m2" as="map(xs:anyAtomicType, item()*)" />
<xsl:sequence select="map:new(($m1, $m2))" />
</xsl:function>
<xsl:function name="f:print-map" as="item()*">
<xsl:param name="m" as="map(xs:anyAtomicType, item()*)" />
<xsl:sequence select="map:keys($m) ! (., '-', map:get($m, .))"/>
</xsl:function>
</xsl:stylesheet>
Result:
Linda - Rosie Sally - Betsy Nadia - Valerie Barb - Sue Faye - Carol
==========================================
Linda - Rosie Sally - Betsy Nadia - Valerie Barb - Sue Faye - Carol
==========================================
Linda - Rosie Nadia - Valerie Sally - Betsy Barb - Sue Faye - Carol
On Thu, Aug 29, 2013 at 2:16 AM, Costello, Roger L.
<costello(_at_)mitre(_dot_)org> wrote:
Wow!
Thank you Sean, Dimitre, and Wolfgang.
You are awesome.
Okay, we now have two very fine functions on maps:
1. Update an existing map with another key/value pair
2. Print the contents of a map
Below is a complete, working stylesheet which tests the two map functions.
/Roger
------------------------------------------------------------
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:map="http://www.w3.org/2005/xpath-functions/map"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:f="function"
version="3.0">
<xsl:template match="/">
<xsl:variable name="m" select="map{'Linda' := 'Rosie'}" />
<xsl:variable name="m1" select="f:add-entry-to-map('Sally', 'Betsy',
$m)" />
<xsl:variable name="m2" select="f:add-entry-to-map('Barb', 'Sue',
$m1)" />
<xsl:variable name="m3" select="f:add-entry-to-map('Nadia',
'Valerie', $m2)" />
<xsl:variable name="m4" select="f:add-entry-to-map('Faye', 'Carol',
$m3)" />
<xsl:sequence select="f:print-map($m4)" />
<!-- The output is:
Linda - Rosie
Sally - Betsy
Barb - Sue
Nadia - Valerie
Faye - Carol
-->
</xsl:template>
<xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType,
item()*)">
<xsl:param name="key" as="xs:anyAtomicType" />
<xsl:param name="value" as="item()*" />
<xsl:param name="m" as="map(xs:anyAtomicType, item()*)" />
<xsl:sequence select="map:new(($m, map:entry($key, $value)),
map:collation($m) )" />
</xsl:function>
<xsl:function name="f:print-map" as="xs:string*">
<xsl:param name="m" as="map(xs:anyAtomicType, item()*)" />
<xsl:sequence select="map:keys($m) ! (., ' - ', map:get($m, .))"/>
</xsl:function>
</xsl:stylesheet>
--~------------------------------------------------------------------
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
To unsubscribe, go to: http://lists.mulberrytech.com/xsl-list/
or e-mail:
<mailto:xsl-list-unsubscribe(_at_)lists(_dot_)mulberrytech(_dot_)com>
--~--
--
Cheers,
Dimitre Novatchev
---------------------------------------
Truly great madness cannot be achieved without significant intelligence.
---------------------------------------
To invent, you need a good imagination and a pile of junk
-------------------------------------
Never fight an inanimate object
-------------------------------------
To avoid situations in which you might make mistakes may be the
biggest mistake of all
------------------------------------
Quality means doing it right when no one is looking.
-------------------------------------
You've achieved success in your field when you don't know whether what
you're doing is work or play
-------------------------------------
Facts do not cease to exist because they are ignored.
-------------------------------------
Typing monkeys will write all Shakespeare's works in 200yrs.Will they
write all patents, too? :)
-------------------------------------
I finally figured out the only reason to be alive is to enjoy it.
--~------------------------------------------------------------------
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
To unsubscribe, go to: http://lists.mulberrytech.com/xsl-list/
or e-mail: <mailto:xsl-list-unsubscribe(_at_)lists(_dot_)mulberrytech(_dot_)com>
--~--