ooxml: refs.xsl annotate

annotate refs.xsl @ 31:6270bef9b5d4

need to preserve abs ref info

author	Henry S. Thompson <ht@markup.co.uk>
date	Wed, 12 Apr 2017 11:36:27 +0100
parents	16eff0d30d4d
children	f4432c1faf7f

rev	line source
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	1 <?xml version='1.0'?>
a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	2 <!DOCTYPE doc SYSTEM "../../../lib/xml/xsl.dtd" >
23 bfa38afaea63 change to default ns Henry S. Thompson <ht@markup.co.uk> parents: 22 diff changeset	3 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="3.0" xmlns:s="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:e="http://markup.co.uk/excel" exclude-result-prefixes="xs s e xf" xmlns="http://markup.co.uk/excel" xmlns:xf="http://www.w3.org/2005/xpath-functions">
27 8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	4 <xsl:param name="sheet-number"/>
8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	5 <xsl:param name="xlDir"/>
8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	6
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	7 <xsl:variable name="pat1">("[^"]")\|(\{[^}]+})\|(,)\|([^=\-+/();:,.$<>^!]+(?:\.[^=\-+/();:,.$<>^!]+)\()\|([)])\|(^=\|\()\|((?:'[^']+')\|(?:\[[0-9]+\][^!]))\|(\$?[A-Z]+\$?[0-9]+)\|([a-zA-Z_\\][a-zA-Z0-9._])\|(.)</xsl:variable>
27 8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	8 <xsl:param name="pat" select="$pat1"/><!-- xsl:param for refinement debugging by passing in the pattern -->
8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	9
8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	10 <xsl:variable name="workbook" select="document(concat($xlDir,'/workbook.xml'))/*"/>
8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	11 <xsl:variable name="sheet-name" select="$workbook/s:sheets/s:sheet[@sheetId=$sheet-number]/@name"/>
29 87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	12
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	13 <xsl:function name="e:lookup" as="xs:string*">
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	14 <xsl:param name="name" as="xs:string" required="yes"/>
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	15 <xsl:variable name="defn" select="$workbook/s:definedNames/s:definedName[@name=$name]"/>
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	16 <xsl:sequence select="let $prefix := concat($sheet-name,'!')
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	17 return if ($defn and
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	18 starts-with($defn,$prefix))
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	19 then substring-after($defn,$prefix)
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	20 else ()"/>
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	21 </xsl:function>
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	22
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	23 <xsl:function name="e:tokenise" as="array(xs:string)">
29 87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	24 <!-- Tokenise a formula, recursively wrt variables -->
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	25 <xsl:param name="formula" as="xs:string" required="yes"/>
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	26 <xsl:sequence select="
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	27 let $tokens := analyze-string($formula,$pat)/xf:match/xf:group
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	28 return if ($tokens[@nr=(7,8,9)])
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	29 then
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	30 let $n := count($tokens),
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	31 $vars := for $i in (1 to $n) return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	32 let $t := $tokens[$i],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	33 $l := $tokens[$i - 1],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	34 $r := $tokens[$i + 1] return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	35 if ($t/@nr=9 and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	36 not($l[@nr=10 and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	37 .=(':','!')]) and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	38 not($r[@nr=10 and .=':']))
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	39 then string($t)
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	40 else (),
29 87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	41 $defns := for $var in $vars return e:lookup($var),
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	42 $recur := for $sub in $defns
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	43 return if ($sub) then e:tokenise($defns) else (),
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	44 $singles := for $i in (1 to $n) return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	45 let $t := $tokens[$i],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	46 $l := $tokens[$i - 1],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	47 $r := $tokens[$i + 1] return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	48 if ($t/@nr=8 and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	49 not($l[@nr=10 and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	50 .=(':','!')]) and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	51 not($r[@nr=10 and .=':']))
31 6270bef9b5d4 need to preserve abs ref info Henry S. Thompson <ht@markup.co.uk> parents: 30 diff changeset	52 then string($t)
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	53 else (),
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	54 $ranges := for $i in (1 to count($tokens)) return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	55 let $t := $tokens[$i] return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	56 if ($t[@nr=10 and .=':' and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	57 not($i gt 2 and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	58 $tokens[$i - 2][@nr=10 and .='!'])])
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	59 then let $l := $tokens[$i - 1],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	60 $r := $tokens[$i + 1],
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	61 $l1 := if ($l/@nr=9) then e:lookup($l)
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	62 else $l,
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	63 $r1 := if ($r/@nr=9) then e:lookup($r)
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	64 else $r
31 6270bef9b5d4 need to preserve abs ref info Henry S. Thompson <ht@markup.co.uk> parents: 30 diff changeset	65 return concat($l1,':',$r1)
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	66 else (),
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	67 $externals := for $i in (1 to count($tokens)) return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	68 let $t := $tokens[$i] return
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	69 if ($t/@nr=7)
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	70 then
31 6270bef9b5d4 need to preserve abs ref info Henry S. Thompson <ht@markup.co.uk> parents: 30 diff changeset	71 let $bit := concat($t,'!',$tokens[$i + 2]) return
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	72 if ((($i+3) le $n) and
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	73 $tokens[$i + 3][@nr=10 and .=':'])
16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	74 then concat($bit,':',
31 6270bef9b5d4 need to preserve abs ref info Henry S. Thompson <ht@markup.co.uk> parents: 30 diff changeset	75 $tokens[$i + 4])
30 16eff0d30d4d tidied dereferencing, added simple (no recursion) coverage for variables in ranges Henry S. Thompson <ht@markup.co.uk> parents: 29 diff changeset	76 else $bit
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	77 else ()
29 87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	78 return [($singles,for $a in $recur return $a?1),
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	79 ($ranges,for $a in $recur return $a?2),
87ed04a0fde2 recursion in place, need to check for names in ranges Henry S. Thompson <ht@markup.co.uk> parents: 28 diff changeset	80 ($externals,for $a in $recur return $a?3)]
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	81 else ()"/>
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	82 </xsl:function>
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	83
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	84 <xsl:template match="/">
27 8309dcfce613 preparing for variable deref Henry S. Thompson <ht@markup.co.uk> parents: 25 diff changeset	85 <refs sheetName="{$sheet-name}"><xsl:apply-templates select="//s:c"/></refs>
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	86 </xsl:template>
a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	87
18 16bba7a0d0bd one form of refs output, not sure it's what is wanted... Henry S. Thompson <ht@markup.co.uk> parents: 17 diff changeset	88 <xsl:template match="s:c[s:f]">
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	89 <xsl:variable name="tokens" select="e:tokenise(s:f/.)"/>
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	90 <xsl:if test="@r='xxx'"><xsl:message>\|</xsl:message>
21 f05f0d0ee296 fix false positives Henry S. Thompson <ht@markup.co.uk> parents: 18 diff changeset	91 </xsl:if>
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	92 <xsl:if test="count($tokens)>0">
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	93 <xsl:variable name="singles" select="$tokens?1"/>
23 bfa38afaea63 change to default ns Henry S. Thompson <ht@markup.co.uk> parents: 22 diff changeset	94 <!-- Note that we don't bother to treat external ranges as ranges,
bfa38afaea63 change to default ns Henry S. Thompson <ht@markup.co.uk> parents: 22 diff changeset	95 since we're not going to try to detect cross-document refs -->
28 c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	96 <xsl:variable name="ranges" select="$tokens?2"/>
c56a2e6990bd convert tokenisation to a function, so can make recursive Henry S. Thompson <ht@markup.co.uk> parents: 27 diff changeset	97 <xsl:variable name="externals" select="$tokens?3"/>
23 bfa38afaea63 change to default ns Henry S. Thompson <ht@markup.co.uk> parents: 22 diff changeset	98 <ref c="{@r}">
25 a5125a2e77ea towards inverted map of refs Henry S. Thompson <ht@markup.co.uk> parents: 24 diff changeset	99 <xsl:for-each select="distinct-values($singles)">
24 87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	100 <s><xsl:value-of select="."/></s>
87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	101 </xsl:for-each>
25 a5125a2e77ea towards inverted map of refs Henry S. Thompson <ht@markup.co.uk> parents: 24 diff changeset	102 <xsl:for-each select="distinct-values($ranges)">
24 87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	103 <r><xsl:value-of select="."/></r>
87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	104 </xsl:for-each>
25 a5125a2e77ea towards inverted map of refs Henry S. Thompson <ht@markup.co.uk> parents: 24 diff changeset	105 <xsl:for-each select="distinct-values($externals)">
24 87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	106 <e><xsl:value-of select="."/></e>
87e0d620deea switch to elements from attributes and default namespace Henry S. Thompson <ht@markup.co.uk> parents: 23 diff changeset	107 </xsl:for-each>
23 bfa38afaea63 change to default ns Henry S. Thompson <ht@markup.co.uk> parents: 22 diff changeset	108 </ref></xsl:if>
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	109 </xsl:template>
18 16bba7a0d0bd one form of refs output, not sure it's what is wanted... Henry S. Thompson <ht@markup.co.uk> parents: 17 diff changeset	110
16bba7a0d0bd one form of refs output, not sure it's what is wanted... Henry S. Thompson <ht@markup.co.uk> parents: 17 diff changeset	111 <xsl:template match="s:c"/>
17 a874f2a81ed2 default vis pipeline to raw xml, start extracting refs Henry S. Thompson <ht@markup.co.uk> parents: diff changeset	112 </xsl:stylesheet>

Mercurial > hg > ooxml

annotate refs.xsl @ 31:6270bef9b5d4