Re: searching with XPL

[Robert Holmgren holmgren@xxxxxxxx]

** Reply to note from xywrite@xxxxxxxx Wed, 10 Dec 1997 10:23:46 -0500

>> Best way to do this is to use FIXCR.EXE, which was bundled with XyWrite 3+.

> Gee, I never heard of it -- guess I never needed it. I bet some of us would
> like to see it posted here, if it's short. Can you put it up as an attachment?


FIXCR.EXE is an old (1987) XyQuest file. It's readily available at:

http://www.tgrp.com/Utils&Drivers/XPLProgramming/FIXCR.EXE

But better to forget it. First of all, FIXCR is junk: it would have been
more successful if it converted lone line feeds to carriage returns,
instead of simply *deleting them* from the file! (How's that for problem
solving?) Second, FIXCR is cumbersome to use, requiring input files, output
files, copy this, delete that, DOS. Third, it's completely superfluous and
really makes you wonder what XyQuest was thinking about, or if they were
thinking at all; because "fixing" carriage returns using Xy3+ XPL is easy.
Here's a template; stick it in your library, it operates from  to
EndOfFile, and converts:

 10d   >> 13d+10d
 13d   >> 13d+10d
 10d+13d >> 13d+10d

The code is commented & thus readily modified if you don't like all those
actions. Excerpted from CTRLCHAR.TXT (a 1989-90 essay). Xy3+ only!

--------
FIXCR.PM for XyWrite III+ R.J.Holmgren 12/9/97
--------
Convert all good Ascii 13/10s to one of 128 (!) *undocumented* 3-byte screen
representations of "ÿ1B"; here I arbitrarily use "{Ascii-255}(r". This is
entirely unnecessary - you could use any dummy string to hold the 13/10s,
such as "<0D0A>" -- but I use "{Ascii-255}(r" as an excuse to mention these
"hidden" char sets, which nobody talks about. XPLeNCODEd and UUencoded
herewith.


XPLeNCODE v1.9
b-gin FIXCR.PM
{<}LBBegin{>}[XP_][BC_]cia {6}[255+70+70]{13} [255+70+70][255
+48+65]{6}[CL_][CL_][BD_][BD_][CL_][BD_][CR_][CR_][CR_][255+7
0+70](r{6}[XC_]{<}LB Convert reversed  Ascii 10/13 to und
ocumented "[255+49+66]"{>}[BC_]cia {6}[255+70+70][255+48+65]{32}
[255+70+70]{13}{6}[CL_][CL_][BD_][BD_][CL_][BD_][CR_][CR_][CR
_][255+70+70](r{6}[XC_]{<}LB Convert Ascii 10 to undocumented
 "[255+49+66]"{>}[BC_]cia {6}[255+70+70][255+48+65]{6}[CL_][C
L_][BD_][CR_][CR_][255+70+70](r{6}[XC_]{<}LB Convert Ascii 13
 to undocumented "[255+49+66]"{>}[BC_]cia {6}[255+70+70]{13}{
6}[CL_][CL_][BD_][CR_][CR_][255+70+70](r{6}[XC_]{<}LB Restore
 undocumented "[255+49+66]" to Ascii 13/10{>}[BC_]cia {6}[255
+70+70](r{6}[255+70+70]{13} [255+70+70][255+48+65]{6}[CL_][CL
_][BD_][BD_][CL_][BD_][XC_][BC_][GT_][WG_]{<}EX{>}[NO_][cr|lf
]
-nd
XPLeNCODE



-----------
Robert Holmgren
holmgren@xxxxxxxx
-----------
begin 644 fixcr.pm
MKD=,0F5G:6ZO#0HM+2TM+2TM+0T*1DE80U(N4$T@9F]R(%AY5W)I=&4@24E)
M*R`@4BY*+DAO;&UG71E('-C
M6]U(&-O=6QD('5S92!A;GD@9'5M;7D@&-U