Re: Self-referential problem

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Mon, 23 Feb 2009
22:56:00 -0500

Here's SEFU3.PM, a variant of the "search for the unSEarchable"
routine for XyWrite III+. It was tested in versions 3.55 and 3.58B.

In addition to arg 3 (search for any 3-byte character), there are
two new args, F and W. Arg F searches for any 3-byte function. Arg W
searches for any wildcard character. The W option is useful if
you're viewing a Xy4 program file in Xy3, where wildcard chars are
not recognizable in text (they look and behave like illegal
functions). To see what I'm talking about, CAll the Xy4 SEFU routine
(posted earlier) in Xy3 and RUN SEFU3.PM W against it. (Do
NOT SAve the Xy4 SEFU routine in Xy3, however; it will get
corrupted.)

Quotation marks around args 3, F and W are no longer part of the
syntax and should not be used. Search_string arguments can be placed
on the CMline or DeFined in text. DeFined text takes precedence over
a CMline arg -- a change from earlier usage.

'%--_XYENCode_start--
'0 checksum FA2A7EEB
'02-28-2009 12:00:00
~'^SEFU3.PM_for_XyWrite_III+_--_C.L.Distefano_rev.2/28/0
9'^Search_for_"unSEarchable"_strings'.'^__-_Any_3-byte_charact
er'^__-_Any_3-byte_function'^__-_Characters_embedded_in_3-byte
_chars_'^'^Usage'.'^RUN_SEFU3.PM_[search'-string]|3|F|W
'^__Arg_3_searches_for_any_3-byte_character'^__Arg_F_(case-ins
ensitive)_searches_for_any_3-byte_function'^__Arg_W_(case-inse
nsitive)_searches_for_XyWrite_4_"wildcard"_characters_(which_l
ook_and_behave_like_illegal_3-byte_functions_in_Xy3)'^__Search
'-string_may_be_DeFined_in_text_--_useful_when_searching_for_f
unctions_and_other_3-byte_characters,_which_cannot_be_placed_o
n_the_CMline_in_3-byte_form._DeFined_text_takes_precedence_ove
r_a_CMline_argument.'^'^Search_starts_from_cursor_position,_an
d_is_cAsE-Absolute.'^'^~~~>~<>
1~>~~~~~>~~>'NO~>~'BCes_1'XC'BC'GT~~>~~>~~<>~~>'DF~~-~~>~'BCes_0'XC~)<1~>'BC~~~>~~'BC'GT~~~~~~)~{~<0~>~~~)~{~>1~>~~>~~~~~)~{~>0~>~~>~~~~~~>~~~~>~'BCWorking...
'DX'GT~'XD~~>'CR~==~~>~
'XD'BCjmp_~'XC'BC~'GT'DO'FF~~
~~+1024~>'DF'BCjmp_~'XC'BC'GT'DF~~)<1~>~~~~{~<0~>
~~~)>0~>~~~~~>~+~~{~~>'XD'BCjmp_~'XC~>0~>'DO'FF'DF~+~~>'BCjmp_
~'XC'DF'DB~'BC~'GT'DO'FF~~'^
Arg_F_or_W'.'^~~~~~)>2&~~{~<0~>~~<
SX06,~~>~+~~{~~>'XD'BCjmp_
~'XC~~~)==1&(~<~'|~==~&~<~)~>~~~
'^~Z
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx