#!/bin/sh
# Perform a set of edit-annotations, writing the result to a file.
# Assumes the relavent DIVs and SPANs in the input are in canonical
# form, e.g. everything is lower case

OFILE=done.html
rm -f $OFILE
echo "output will be placed in $OFILE"

cat - $* <<'9' | ml1 -w50000 >$OFILE
MCSKIP MT, ^WITH< ^WITH>
MCINS ^WITH% .
MCSKIP ^ WITH # WITH # NL
^##
^## Match SPANS and DIVs in case these are nested within our ones
MCDEF OPT < WITHS span > < WITHS / WITHS span WITHS >
OR < WITHS div > < WITHS / WITHS div WITHS > ALL
AS ^<^%WD0.^%WB1.^%WD1.^%WB2.^%WD2.^>
^##
^## Delete anchors
MCSKIP M, < WITHS span WITHS class WITHS = WITHS " WITHS ar WITHS " WITHS >  < WITHS / WITHS span WITHS >
MCSKIP M, < WITHS span WITHS class WITHS = WITHS " WITHS em WITHS " WITHS >  < WITHS / WITHS span WITHS >
MCSKIP M, < WITHS span WITHS class WITHS = WITHS " WITHS ad WITHS " WITHS >  < WITHS / WITHS span WITHS >
MCSKIP M, < WITHS div WITHS class WITHS = WITHS " WITHS ar WITHS " WITHS >  < WITHS / WITHS div WITHS >
MCSKIP M, < WITHS div WITHS class WITHS = WITHS " WITHS em WITHS " WITHS >  < WITHS / WITHS div WITHS >
MCSKIP M, < WITHS div WITHS class WITHS = WITHS " WITHS ad WITHS " WITHS >  < WITHS / WITHS div WITHS >
^##
^## Delete DIVs and SPANs surrounding insertions/replacements
MCSKIP T, < WITHS span WITHS class WITHS = WITHS " WITHS i WITHS " WITHS >  < WITHS / WITHS span WITHS >
MCSKIP T, < WITHS span WITHS class WITHS = WITHS " WITHS r WITHS " WITHS >  < WITHS / WITHS span WITHS >
MCSKIP T, < WITHS div WITHS class WITHS = WITHS " WITHS i WITHS " WITHS >  < WITHS / WITHS div WITHS >
MCSKIP T, < WITHS div WITHS class WITHS = WITHS " WITHS r WITHS " WITHS >  < WITHS / WITHS div WITHS >
MCSET S2 = 0
9