[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

Re: Two U2 frames 1. CheckU2dupes 2. Extract



OK, EXTRACT is working now. But ... what's this? In HHLIST, you're
changing my Sort Key setting without bothering to save it first and
restore it later? A few measly bytes of additional code? Tsk tsk.

I meant to restore it. I really did. Honest. You've got to believe me.
I've revised HLIST so that duplicate framenames are preserved,
regardless of the current Sort Key setting -- which is also, ahem,
preserved. No need for HHLIST anymore, right?

Right. Good riddance.
The new frame CheckU2dupes now calls the new hlist and is much speeded up by using @UPR rather than @LWR, and the new extract* frame is properly commented.

XPLeNCODE v2.0 (ENCODE.EXE)
b-gin [UNTITLED]
{123}{123}5CheckU2Dupes,ckd{125}{125} Check the current U2 for
 duplicate frame names--case insensitive. If it finds a dupe,{032}
it shows the first occurrence of it in the current U2. {091}HB
 August 8, 2016{093}[cr|lf]{002}{<}SV50,{>}{<}SV51,{>};*; 51 s
tores the previous frame name in the alpa-sorted list[cr|lf][JM_]
2.hlist[Q2_][TF_];*;[cr|lf]{<}SV01,{123}{>}{<}SV02,{125}{>};*;
 can't put in the two braces directly--it confuses the U2[cr|lf]
;*;[cr|lf]{<}LBA{>};*; BIG LOOP [cr|lf];*;[JM_]2.extract{186}{<}
PV97{>}{<}PV97{>}{186}{<}PV98{>}{<}PV98{>}[Q2_];*;[cr|lf][BX_]
se {186}{<}PV01{>}{<}PV01{>}{186}[Q2_];*;[cr|lf]{<}IF{<}ER{>}{>}
[XD_][TF_]{<}PRNo duplicate frame names found in current U2{>}
{<}EX1{>}{<}EI{>};*;[cr|lf][XD_][DF_][BX_]se/f {186}{<}PV02{>}
{<}PV02{>}{186}[Q2_];*;[cr|lf]{<}IF{<}ER{>}{>}{<}PRFound start
 of frame but no end{>}{<}EX1{>}{<}EI{>};*;[cr|lf][DF_];*; bel
ow here have DeFined a frame name[cr|lf]{<}SV50{>}{<}SX50,@UPR
({<}IS50{>}){>};*;[JM_]2.@LWR[Q2_];*; store it in s/g 50 and l
ower-case it[cr|lf];*;  now test whether it's a dupe of previ
ous (in s/g 51)[cr|lf]{<}IF{<}IS50{>}<>{<}IS51{>}{>};*; presen
t selection not a duplicate of previous[cr|lf]{<}SX51,{<}IS50{>}
{>};*; so update previous selection to present one, for next l
oop[cr|lf]{<}GLA{>};*; lastly, loop back to see if next pair i
s a dupe[cr|lf];*;[cr|lf]{<}EI{>};*;Below here, have found a d
upe, so show it in the U2[cr|lf]{<}SX51,{<}VA$U2{>}{>};*; had{032}
difficulties using this variable directly[cr|lf][BX_]gofile {<}
PV51{>}[Q2_]{<}IF{<}ER{>}{>}[BX_]ca/100 {<}PV51{>}[Q2_]{<}EI{>}
;*; open U2 [cr|lf][XP_][XD_][TF_][BX_]se/f {186}{<}PV50{>}{186}
[Q2_][XD_][DF_][BC_]se {186}{<}PV50{>}{186}[XC_][DF_]{<}PR dup
e found--the SEearch for its dupe is on the CMLine{>}{<}EX1{>}
{002}[cr|lf][cr|lf]{123}{123}5extract*{125}{125} DeFines the t
ext that lies between specified start and end. E.g., extract{186}
{186} will DeFine "Harry Binswanger" if there's Harr
y Binswanger below cursor position. {091}HB August 8, 2016
 {093}[cr|lf]{002}{<}SX01,{<}VA$FR{>}{>}{<}SX02,{<}VA@01{186}2
{>}{>}{<}SX03,{<}VA@01{186}3{>}{>};*; get the surrounding stri
ngs[cr|lf][BX_]se {186}{<}PV02{>}{186}[Q2_];*;[cr|lf]{<}IF{<}E
R{>}{>}[XD_]{<}PRU2 extract frame reports: not found: @02{>}{<}
EX1{>}{<}EI{>};*;[cr|lf][XD_][DF_];*;[cr|lf][BX_]se/f {186}{<}
PV03{>}{186}[Q2_];*;[cr|lf]{<}IF{<}ER{>}{>}[XD_]{<}PRU2 extrac
t frame reports: not found: @03{>}{<}EX1{>}{<}EI{>};*;[cr|lf][DF_]
{<}EX{>}{002}[cr|lf]
-nd
XPLeNCODE