$NEST|$INEST : less than L loops

[JJoe]

Code:

[Patterns]
Name = "$NEST less than L loops"
Active = FALSE
Limit = 25600
Match = "<(table)\1"
        "$SET(L=iii)"
        "&"
        "$NEST(<$TST(\1)"
        "($SET(c=$GET(c)i)(^$TST(c=$TST(L)))"
        "|$SET(L=)$SET(c=))$TST(L=ii+),</$TST(\1) >)"
        "$TST(L=ii+)"
        "$SET(L=)$SET(c=)"

Test against:

Code:

<table>III
<table>II
<table>I
</table>
</table>
</table>

Result:

Code:

<table>III

</table>

Change iii in $SET(L=iii) to vary maximum number of loops allowed,
ii is less than two,
iii is less than three,
etc.

Basic idea should also work with $INEST.
More tests can be added.

I haven't done much with it.
Report oddities.

Have fun