[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
Re: Two U2 frames 1. CheckU2dupes 2. Extract
- Subject: Re: Two U2 frames 1. CheckU2dupes 2. Extract
- From: Harry Binswanger hb@xxxxxxxx
- Date: Mon, 08 Aug 2016 22:12:30 -0400
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