#!/bin/sh
# script to effect some edit annotations
#=================RULES =================
#
#==========1: RULES FOR WHOLE DOCUMENT
#
#1A: Each SPAN, /SPAN, DIV, /DIV must be all upper-case
# or all ower cases; e.g. no Span
#
#
#=========2: RULES FOR ANNOTATATION MATERIAL
#
# 2A: The CLASS= on our SPANs and DIVs must take the form:
# class="xx"
# i.e. "class" is lower-case, use double-quotes to enclose class name
# class name is lower-case
#
#
#===============THE SCRIPT ====================
#
OUTFILE=t#effected
rm -f $OUTFILE
# STAGE 1: CONVERT DIV and SPAN to upper-case (but not class=)
#
cat - $* <<'9' | sed '#
s/<div/<DIV/g
s/<\/div/<\/DIV/g
s/<span/<SPAN/g
s/<\/span/<\/SPAN/g
#
# STAGE 2 STRIP USING ml1' | ml1 -w50000 >$OUTFILE
MCSET S21=0
MCSKIP NONL WITHS NL
MCSKIP # NL
#
# Match ordinary SPANs and DIVS (in case they come within ours)
MCSKIPG MDT, < WITHS DIV  < WITHS / WITHS DIV
MCSKIPG MDT, < WITHS SPAN  < WITHS / WITHS SPAN
#
# Delete anchors (but leave commentary anchors alone)
MCSKIPG M,  < WITHS DIV WITHS class WITHS = WITHS " WITHS ar WITHS " WITHS >NONL
  < WITHS / WITHS DIV WITHS >
MCSKIPG M,  < WITHS DIV WITHS class WITHS = WITHS " WITHS ad WITHS " WITHS >NONL
  < WITHS / WITHS DIV WITHS >
#
# Delete SPAN and DIVS surrounding additions
MCSKIPG MT, < WITHS DIV WITHS class WITHS = WITHS " WITHS i WITHS " WITHS >NONL
  < WITHS / WITHS DIV WITHS >
MCSKIPG MT, < WITHS DIV WITHS class WITHS = WITHS " WITHS r WITHS " WITHS >NONL
  < WITHS / WITHS DIV WITHS >
# Delete explanation
MCSKIPG M, < WITHS DIV WITHS class WITHS = WITHS " WITHS ex WITHS " WITHS >NONL
  < WITHS / WITHS DIV WITHS >
#
MCNOSKIP
MCSET S21=1
MCSET S2=0
9
echo Output is in $OUTFILE
cat $OUTFILE