Subj : Were i can get source cod
To   : mark lewis
From : Jasen Betts
Date : Sat Mar 23 2002 11:28 pm

Hi mark.

22-Mar-02 21:21:41, mark lewis wrote to John H. Guillory

 ml> witness the following (that i removed from a library because of my belief
 ml> that we should pass mail as received and not modified

so you don't claim ownership of this code, prolly a good thing :)

 ml> Function CleanChar(InChar: Char): Char;
 ml>   Const
 ml>     CtlChars: String[32] = 'oooooooooXoollo><|!Pg*|^v><-^v';
 ml>     HiChars: String[64] =
 ml>  'CueaaaageeeiiiAAEaaooouuyOUcLYPfarounNao?--//!<>***|||||||||||||'
 ml>     HiChars2: String[64]=
 ml>  '|--|-+||||=+|=++-=--==-||||*****abcnEduto0nd80En=+><fj/~oo.vn2* '
 ml>   Begin
 ml>   Case InChar of
 ml>     #0..#31: CleanChar := CtlChars[Ord(InChar) + 1];
 ml>     #128..#191: CleanChar := HiChars[Ord(InChar) - 127];
 ml>     #192..#255: CleanChar := HiChars2[Ord(InChar) - 191];
 ml>     Else
 ml>       CleanChar := InChar;
 ml>     End;
 ml>   End;

what a mess!

most of the problem is using the wrong data type for the constants -
use array [char] of char

someone well respected said that chosing the right data structures can make
the programming task much easier.

 Function CleanChar(InChar: Char): Char;
   Const
     CtlChars: array[#0..#31] of char = ' oooooooooXoollo><|!Pg*|^v><-=^v';
     HiChars: array[#128..#255] of char =
       'CueaaaageeeiiiAAEaaooouuyOUcLYPfarounNao?--//!<>***|||||||||||||'+
       '|--|-+||||=+|=++-=--==-||||*****abcnEduto0nd80En=+><fj/~oo.vn2* ';
   Begin
   Case InChar of
     #0  ..#31:  CleanChar := CtlChars[InChar];
     #128..#255: CleanChar := HiChars[InChar];
     Else        CleanChar := InChar;
     End;
   End;

Not that that'll be any help except as an example.

 -=> Bye <=-

P.S. I never saw any messages on this subject before yours.

did the originator find the source code they wanted?





---
 * Origin: Every time I think I know where it's at, they move it (3:640/531.42)

.