Re: Cross check program--code included

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Fri, 06 Aug
2010 10:38:17 -0400

Harry:

> Re XP vs. WG, I don't see the need for all that (but you
> probably have a good reason).

The reason is that you lose pinpoint control when you insert MoDe
commands in anything other than eXPanded view. In other display
types, the MoDe command may end up being inserted at a position that
doesn't correspond exactly to where the difference with the other
file begins or ends.

> Couldn't I simply begin with an XP and end with a WG, if I
> wanted that?

Sure. In your private programming you do whatever you want. For
public programming (and anything posted here is on the Net, after
all), my bias is to respect the user's preferences and restore
initial system states when the routine finishes, to the extent
possible. It's only good programming hygiene.

> I respect your objectivity in making these frames provide for
> all contingencies, and I guess I should check for unsaved
> edits, but, subjectively, it doesn't arise in my usage.

Same point as above. A routine to remove the markup would address my
concern -- if said routine were *bulletproof*.

> It would be very nice to have Robert's program, if there is
> one.

There is: frame COMP, below; I'm pretty sure he posted it to the
list way back when. It displays the differences between the "base
file" (current screen) and the "comparison file" (alternate screen)
as redlining insertions and deletions in the base file; you restore
the original by commanding PE. Neat.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5comp}} COMP Display all [FD_]/[FM_]Deletions + Additions
 in a single file RJH LastRev.11/18/05[cr|lf]{002}{<}SV01,BA
SE{>}{<}SU02,{<}SX03,"Is this the "+{<}IS01{>}+" file? (Y/n)"
{>}{>}{<}SV04,Redlining found in file - Abort{>}{<}SV05,2{>}[
BX_]es 1[Q2_]{<}CUC,05{>}{<}GT02{>}{<}PR@03{>}{<}SX03,{<}RC{>
}{>}{<}IF@UPR({<}IS03{>}){240}"N"{>}{<}SV04,Abort{>}{<}IF{<}I
S01{>}{240}"C"{>}{<}LBA{>}[TF_][WG_][AS_][TF_][WG_]{<}EI{>}{<
}LBB{>}{<}PR@04{>}{<}EX1{>}{<}EI{>}{<}IF{<}VA$RL{>}>0{>}[RO_]
{<}EI{>}[XH_][YD_][XD_][XP_][TF_][SI_][DO_][FF_][BX_]se/f [w
<]MDI[w-]T[wO][w<]MD+I[w-]T[wO][w<]MD-I[w-]T[wO][w<]MDD[wO][w
<]MD+D[wO][w<]MD-D[Q2_]{<}IF@NOT({<}ER{>}){>}{<}GLB{>}{<}EI{>
}[AS_]{<}SV01,COMPARISON{>}{<}LBC{>}{<}PR {>}{<}SV02,|NMN|BOB
|ITI|ULU|BIO|BUL|RVR|BRV|SBD|SUS|{>}{<}SV05,{027}X{>}{<}SV06,
{>}{<}SU04,{<}LBD{>}[BX_]se {<}PV07{>}[wO][w<]MD[Q2_]{<}IF{<
}VA$RS{>}<>"["{>}[BX_]seb [w<]MD[Q2_]{<}SX50,{<}CP{>}{>}[WG_
][DO_][FF_][JM_]2.ReJuMP[Q2_]{<}SX08,{<}VAMD{>}{>}[XP_][JM_]2
{046}ReJuMP[Q2_][BX_]se [w<]MD[Q2_][DF_][BX_]se/f [w>][Q2_][DF_
]{<}SV09{>}[DN_]{<}IF{<}IS09{>}=="NM"{>}{<}GT10{>}{<}GT11{>}{
<}SV06,{>}{<}SV12,NM{>}{<}GLD{>}{<}EI{>}{<}IF{<}IS09{>}{240}"
-"!{<}IS09{>}{240}"+"{>}{<}XS09,05,,13,14{>}{<}SX09,{<}IS14{>
}{>}{<}IF{<}IS13{>}=="+"{>}{<}SX06,{<}IS12{>}{>}{<}GT13{>}{<}
EI{>}{<}IF{<}IS13{>}=="-"{>}{<}SX09,{<}IS12{>}{>}{<}IF{<}VA|0
6{>}>0{>}{<}SX09,{<}IS06{>}{>}{<}SX12,{<}IS09{>}{>}{<}EI{>}{<
}SV06,{>}{<}EI{>}{<}EI{>}{<}SX12,{<}IS09{>}{>}{<}SX09,"|"+{<}
IS09{>}{>}{<}XS02,09,,09,08{>}{<}XS08,05,,09,14{>}{<}GT10{>}{
<}GT09{>}{<}GLD{>}{<}EI{>}
[RC_][BD_][BX_]se [w>][Q2_]{>}{<}SU15,{<}XS02,16,,14,17{>}{<
}XS17,05,,11,14{>}{<}SX17,"{<}MD"+{<}IS10{>}+{<}IS11{>}+"{>}"
{>}{<}GT17{>}{>}{<}LBE{>}{<}IF{<}VA$FE{>}<1{>}[FD_]{<}SX50,{<
}CP{>}{>}[WG_][DO_][FF_][JM_]2.ReJuMP[Q2_]{<}SX18,{<}VAMD{>}{
{062}}[XP_][JM_]2.ReJuMP[Q2_][AS_][DF_][AS_][FM_]{<}SX17,{<}CP{>}
{>}{<}SX16,"|"+{<}IS18{>}{>}{<}IF{<}PV50{>}<{<}PV17{>}{>}{<}S
V07,[998]{>}{<}SX17,{<}IS07{>}+{<}IS07{>}+"{<}MD"+{<}IS18{>}+
"{>}"{>}{<}GT17{>}{<}SX12,{<}IS18{>}{>}[JM_]2.ReJuMP[Q2_]{<}S
V10,I{>}{<}GT15{>}{<}GT04{>}{<}EI{>}[AS_][DF_]{<}IF{<}VA$DS{>
}<{<}VA$DN{>}{>}[AS_]{<}SV10,D{>}{<}GT15{>}[CP_]{<}SV07,[999]
{>}{<}SX19,{<}IS07{>}+{<}IS07{>}+"{<}MD"+{<}IS18{>}+"{>}"{>}{
<}GT19{>}{<}SX12,{<}IS18{>}{>}[BX_]seb {<}PV17{>}[Q2_][BX_]s
e {<}PV17{>}[Q2_]{<}GT04{>}[AS_]{<}EI{>}[XD_][AS_]{<}GLE{>}{
<}EI{>}[AS_][BC_]PE{<}SV04,Command "PE[V]" to restore[adj
ust] original{>}{<}GLA{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx