## MLton 20241230+git20251029+dfsg-5

# XMLShrink

XMLShrink is an optimization pass for the XML IntermediateLanguage, invoked from XMLSimplify.

## Description

This pass performs optimizations based on a reduction system.

## Implementation

- `shrink.sig`

- `shrink.fun`

## Details and Notes

The simplifier is based on Shrinking Lambda Expressions in Linear Time.

The source program may contain functions that are only called once, or not even called at all. Match compilation introduces many such functions. In order to reduce the program size, speed up later phases, and improve the flow analysis, a source to source simplifier is run on XML after type inference and match compilation.

The simplifier implements the reductions shown below. The reductions eliminate unnecessary declarations (see the side constraint in the figure), applications where the function is immediate, and case statements where the test is immediate. Declarations can be eliminated only when the expression is nonexpansive (see Section 4.7 of the Definition), which is a syntactic condition that ensures that the expression has no effects (assignments, raises, or nontermination). The reductions on case statements do not show the other irrelevant cases that may exist. The reductions were chosen so that they were strongly normalizing and so that they never increased tree size.

-     let x = e1 in e2

  reduces to

      e2 [x -> e1]

  if `e1` is a constant or variable or if `e1` is nonexpansive and `x` occurs zero or one time in `e2`

-     (fn x => e1) e2

  reduces to

      let x = e2 in e1

-     e1 handle e2

  reduces to

      e1

  if `e1` is nonexpansive

-     case let d in e end of p1 => e1 ...

  reduces to

      let d in case e of p1 => e1 ... end

-     case C e1 of C x => e2

  reduces to

      let x = e1 in e2