depgen (preproc:symtable): Use for-each-group for deduplication

And here's the optimization that I had wanted to perform all along, but it
took some time to confidently get to this point.

`preceding-sibling` was used since the XSLT1 days for deduplication, before
`for-each-group` existed.  It works just fine for small inputs, but the
problem is we're doing this many thousands of times in larger packages, and
that really adds up.  (In this case, shaving ~8s off of one of our large
packages with ~20k symbols in play.)

DEV-15114
main
Mike Gerwitz 2023-10-19 10:59:30 -04:00
parent abc37ef0cc
commit 959ff06539
1 changed files with 11 additions and 21 deletions

View File

@ -107,31 +107,24 @@
<for-each select="$deps, $deps//preproc:sym-dep">
<variable name="sym-name" as="xs:string"
select="@name" />
<variable name="cursym" as="element( preproc:sym )?"
select="$symtable-map( $sym-name )" />
<if test="not( $cursym )">
<message select="." />
<message terminate="yes"
select="concat( 'internal error: ',
'cannot find symbol in symbol table: ',
'`', $sym-name, '''' )" />
</if>
<!-- do not output duplicates (we used to not output references
to ourselves, but we are now retaining them, since those
data are useful) -->
<variable name="uniq" select="
preproc:sym-ref[
not( @name=preceding-sibling::preproc:sym-ref/@name )
]
" />
<preproc:sym-dep name="{@name}">
<!-- @tex provided an non-empty, or function -->
<for-each-group select="preproc:sym-ref"
group-by="@name">
<!-- symbols must not have themselves as their own dependency -->
<if test="$uniq[ not( $cursym/@allow-circular = 'true' )
<if test="not( $cursym/@allow-circular = 'true' )
and ( @name = $cursym/@name
or @parent = $cursym/@name ) ]">
or @parent = $cursym/@name )">
<message terminate="yes"
select="concat( '[preproc] !!! fatal: symbol ',
$cursym/@name,
@ -139,9 +132,6 @@
'(circular dependency)' )" />
</if>
<preproc:sym-dep name="{@name}">
<!-- @tex provided an non-empty, or function -->
<for-each select="$uniq">
<variable name="name" select="@name" />
<variable name="sym" as="element( preproc:sym )?"
select="$symtable-map( $name )" />
@ -181,7 +171,7 @@
number( $sym/@dim ),
position() )" />
</preproc:sym-ref>
</for-each>
</for-each-group>
</preproc:sym-dep>
</for-each>
</preproc:sym-deps>