Re: LISTWDS [was Re: XYwrite macro please....]

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "J. R. Fox"  Tue, 10 Sep 2002
09:53:20 -0800

Jordan:

> So this should replace all prior versions of LISTWDS and SORTWDS ?

I thought the progression was clear: each succeeding revision
supersedes all previous. But... you tell me. *Am* I making
progress? Is any of this useful or interesting? *Should* it go
into U2? Is there value-added in relation to existing routines,
notably CITE, which covers similar terrain but more flexibly, esp.
in its provision for user-adjustable context in the listing of
results (context can be adjusted downward to approximate a single
word), and in its ability to locate (JuMP back to) found items in
the source text? User comments, pro or con, would be helpful,
especially in the case of something like LISTWDS, which I probably
wouldn't have thought of writing for myself.

Speaking of which, here's the latest revision, now permitting case-
absolute searches (with framename LISTWDSA), and searches limited to
instrings occuring internally within words:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5listwds*}} List words in the current file that contain a{32}
specified string [CLD rev. 9/10/02][cr|lf]{2}{<}GLa{>}[cr|lf]
[cr|lf]Usage (with subject file in current window):[cr|lf] L
ist words containing instring:   LISTWDS[A] [instring][cr|lf] List words _starting_ with instring: LISTWDS[A]
 [instring]*[cr|lf] List words _ending_ with instri
ng:  LISTWDS[A] *[instring][cr|lf] List words with
 internal instring:  LISTWDS[A] *[instring]*[cr|lf]
 List hyphenated words:        LISTWDS[A] -[
cr|lf] List ALL words in current file:   LISTWDS
[cr|lf] Allow duplicates in list:      LISTWDS[A]/NV [
instring][cr|lf] Usage reminder:         {32}
  LISTWDS ?[cr|lf][cr|lf]Notes:[cr|lf]1) Framename{32}
LISTWDSA performs a case-Absolute search.[cr|lf]2) To include
 footnotes, formatting commands and other embedded material i
n the word list, the subject file must be displayed in eXPand
ed view (command: FUNC XP) before running LISTWDS.[cr|lf][cr|
lf]{<}LBa{>}[XH_][BX_]es 1[Q2_]{<}IF{<}VA@50{>}=="?"{>}{<}PRL
ISTWDS[/NV] [*]instring[*]{>}{<}EX{>}{<}EI{>}{<}IF{<
}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$WA{>
}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}IF{<}VA|50{>}<1{>}{
<}SV50,[wA]{>}{<}EI{>}{<}SX01,{<}IS50{>}{>}{<}IF{<}IS50{>}{24
0}"*"{>}{<}IF{<}VA@50*2{>}{238}{<}IS50{>}==1&@siz({<}VA@50*2{
>})=={<}VA|50{>}-2{>}{<}SX01,{<}VA@50*2{>}{>}{<}SX50,"[wA]"+{
<}VA@50*2{>}+"[wA]"{>}{<}GLb{>}{<}EI{>}{<}SV02,*{>}{<}XS50,02
,02,,03{>}{<}IF"*"{238}{<}IS50{>}=={<}VA|50{>}-1{>}{<}SX50,"[
wS]"+{<}IS02{>}{>}{<}SX01,{<}IS02{>}{>}{<}GLb{>}{<}EI{>}{<}SX
50,{<}IS03{>}+"[wS]"{>}{<}SX01,{<}IS03{>}{>}{<}LBb{>}{<}EI{>}
{<}IF{<}IS50{>}=="-"{>}{<}SV50,[wL]-{>}{<}SV01,-{>}{<}EI{>}{<
}SX02,{<}VA$WA{>}
{>}[BX_]func #{<}PV02{>}[Q2_][BX_]ne/1[Q2_][AS_]{<}IF{<}VA$DT
{>}>0&{<}VA$DT{>}<>8{>}[WG_]{<}IF{<}VA$DT{>}>1{>}[MK_]{<}EI{>
}{<}EI{>}[TF_][TF_][XD_][XD_][XD_][YD_]{<}SV02,{3}{8}{tab} "(
)+,-/:;<=>[\]^`{|}~{158}{<}{>}{176}{177}{178}{179}{180}{185}
{186}{187}{188}{191}{192}{193}{194}{195}{196}{197}{200}{201}{
202}{203}{204}{205}{206}{217}{218}{219}{220}{221}{223}{238}{2
39}{240}{241}{242}{244}{245}{246}{247}{248}{249}{250}{>}{<}SV
04,{>}{<}IF@upr({<}VA$FR{>}){240}"A"{>}{<}SV04,a{>}{<}EI{>}[D
X_]{<}SX03,"Listing all words in "+{<}VA$FP{>}{>}{<}IF{<}IS50
{>}<>"[wA]"{>}{<}SV05,contain{>}{<}IF"[wS]"{238}{<}IS50{>}==0
{>}{<}SV05,start with{>}{<}EI{>}{<}IF({<}IS50{>}+"[255+192+14
2]"){240}"[wS][255+192+142]"{>}{<}SV05,end in{>}{<}EI{>}{<}SX
03,{<}IS03{>}+" that "+{<}IS05{>}+" """+{<}IS01{>}+""""{>}{<}
EI{>}{<}PR@03{>}{<}LBc{>}[BX_]se{<}PV04{>} [999]{<}PV50{>}[99
9][Q2_]{<}IF@not({<}ER{>}){>}[CL_]{<}LBd{>}[DW_]{<}SV03{>}{<}
IF({<}IS03{>}+"[255+192+142]"){240}"-[255+192+142]"{>}{<}GLd{
>}{<}EI{>}[YD_]{<}LBe{>}{<}SX05,{<}IS03{>}+"[255+192+142]"{>}
{<}SV06,{27}X[255+192+142]{>}{<}XS05,06,06,07,08{>}{<}SV08,{2
7}X{>}{<}XS07,08,,08,09{>}{<}IF{<}IS02{>}{240}{<}IS08{>}{>}{<
}SX03,{<}IS06{>}{>}{<}GLe{>}{<}EI{>}[AS_]{<}GT03{>}[255+48+68
][DO_][DX_][AS_]{<}GLc{>}{<}EI{>}[AS_][DF_][TF_][TF_][DF_]{<}
SV02,{>}{<}SV03,{>}{<}IF"/"{238}{<}VA$FR{>}<0{>}{<}SX02,{<}VA
$SK{>}{>}{<}SX02,"[BX_]d sk="+{<}IS02{>}+"[Q2_]"{>}[BX_]d sk=
4,80[Q2_]{<}SV03, unique{>}{<}EI{>}[BX_]sort/nv[Q2_][BX_]wait
[Q2_]{<}PV02{>}[TF_][TF_][AS_][TF_][TF_][AS_][BX_]ch [wC] [w
C][Q2_][BX_]wait[Q2_]{<}SX02,{<}VA$WC{>}{>}{<}SV05,{>}{<}IF{<
}PV02{>}<>1{>}{<}SV05,s{>}{<}EI{>}{<}SX02,{<}IS02{>}+{<}IS03{
>}+" word"+{<}IS05{>}{>}{<}IF{<}IS50{>}<
>"[wA]"{>}{<}SV05,containing{>}{<}IF"[wS]"{238}{<}IS50{>}==0{
>}{<}SV05,starting with{>}{<}EI{>}{<}IF({<}IS50{>}+"[255+192+
142]"){240}"[wS][255+192+142]"{>}{<}SV05,ending in{>}{<}EI{>}
{<}SX01,{<}IS02{>}+" "+{<}IS05{>}+" """+{<}IS01{>}+""""{>}{<}
EI{>}{<}PR@01{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE


--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/