Re: SEX contributions anyone

2003-09-04 Thread Richard Gaskin
MisterX wrote:

> Who needs externals!

Indeed.  Since working with MC I've replaced more than a dozen externals
with native MetaTalk, with no regrets

-- 
 Richard Gaskin 
 Fourth World Media Corporation
 Developer of WebMerge: Publish any database on any Web site
 ___
 [EMAIL PROTECTED]   http://www.FourthWorld.com
 Tel: 323-225-3717   AIM: FourthWorldInc

___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


RE: SEX contributions anyone

2003-09-04 Thread MisterX
Ben,

You're too fast!!!
Who needs externals!

cheers
Xavier

> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of Ben Rubinstein
> Sent: Thursday, September 04, 2003 19:35
> To: [EMAIL PROTECTED]
> Subject: Re: SEX contributions anyone
> 
> 
> on 4/9/03 6:18 pm, MisterX wrote
> 
> > function FilterLines olist,str
> > local thisline,nulist
> > put 1 into thisline
> > put "" into nulist
> > repeat while thisline > 0
> >   set cursor to busy
> >   
> >   put LineOffset(str,olist) into thisline
> >   put line thisline of olist & return after nulist
> >   delete line 1 to thisline of olist
> >   if olist is empty then exit repeat
> >   
> > end repeat
> > return nulist
> > end FilterLines
> > 
> 
> wouldn't it be even faster as
> 
> function FilterLines olist,str
> filter olist with ("*" & str & "*")
> return olist
> end FilterLines
> 
> ?!
>  
>   Ben Rubinstein   |  Email: [EMAIL PROTECTED]
>   Cognitive Applications Ltd   |  Phone: +44 (0)1273-821600
>   http://www.cogapp.com|  Fax  : +44 (0)1273-728866
> 
> ___
> metacard mailing list
> [EMAIL PROTECTED]
> http://lists.runrev.com/mailman/listinfo/metacard
> 
___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


Re: SEX contributions anyone

2003-09-04 Thread Ben Rubinstein
on 4/9/03 6:18 pm, MisterX wrote

> function FilterLines olist,str
> local thisline,nulist
> put 1 into thisline
> put "" into nulist
> repeat while thisline > 0
>   set cursor to busy
>   
>   put LineOffset(str,olist) into thisline
>   put line thisline of olist & return after nulist
>   delete line 1 to thisline of olist
>   if olist is empty then exit repeat
>   
> end repeat
> return nulist
> end FilterLines
> 

wouldn't it be even faster as

function FilterLines olist,str
filter olist with ("*" & str & "*")
return olist
end FilterLines

?!
 
  Ben Rubinstein   |  Email: [EMAIL PROTECTED]
  Cognitive Applications Ltd   |  Phone: +44 (0)1273-821600
  http://www.cogapp.com|  Fax  : +44 (0)1273-728866

___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


RE: SEX contributions anyone

2003-09-04 Thread MisterX
here, adapt this...


function FilterLines olist,str
  local thisline,nulist
  put 1 into thisline
  put "" into nulist
  repeat while thisline > 0
set cursor to busy

put LineOffset(str,olist) into thisline
put line thisline of olist & return after nulist
delete line 1 to thisline of olist
if olist is empty then exit repeat

  end repeat
  return nulist
end FilterLines

just put an "add 1 to counthowmany"
and return that instead of nulist...

it's quite fast even with a table with 1 rows...

from the XOS Obj Lib

> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of Pierre Sahores
> Sent: Thursday, September 04, 2003 18:25
> To: [EMAIL PROTECTED]
> Subject: Re: SEX contributions anyone
> 
> 
> Le jeu 04/09/2003 à 18:17, MisterX a écrit :
> 
> > 
> > I know Frederic Rinaldi's StripDup but it's Mac Only...
> > Maybe Fred will share his source...
> > 
> I would, for my own, will be really "reconnaissant" to get from Frederic
> a port of its "HowMany" cross-command to the native transcript language
> ;-)
> 
> Bests, Pierre
> > 
> > cheers
> > Xavier
> > ___
> > metacard mailing list
> > [EMAIL PROTECTED]
> > http://lists.runrev.com/mailman/listinfo/metacard
> > 
> 
> ___
> metacard mailing list
> [EMAIL PROTECTED]
> http://lists.runrev.com/mailman/listinfo/metacard
> 

___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


Re: SEX contributions anyone

2003-09-04 Thread Ben Rubinstein
on 4/9/03 5:17 pm, MisterX wrote

> Has anyone got a "Fast" remove duplicate lines script?
> Best I get is 12ms per line... Any line being a word.

If split worked the way I think it should (and still could, quite compatibly
- perhaps I'll make in bugzilla a suggestion I made long ago) then doing
split/combine would probably do this almost instantaneously.

Even without that, I've found Rev/MC's hashed arrays fantastically
efficient.  Have you tried simply:

put empty into aTemp
repeat for each line t in tManyLines
   put true into aTemp[t]
end repeat
put the keys of aTemp into tFewerLines

Of course that will lose the order, but I'd expect it to be very fast.  If
you want to keep sequence (first appearance) then

put empty into tFewerLines
put empty into aTemp
repeat for each line t in tManyLines
   if aTemp[t] = empty then
   put t & return after tFewerLines
   put true into aTemp[t]
   end if
end repeat
 
should work, albeit a bit more slowly.
 
  Ben Rubinstein   |  Email: [EMAIL PROTECTED]
  Cognitive Applications Ltd   |  Phone: +44 (0)1273-821600
  http://www.cogapp.com|  Fax  : +44 (0)1273-728866

___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


Re: SEX contributions anyone

2003-09-04 Thread Pierre Sahores
Le jeu 04/09/2003 à 18:17, MisterX a écrit :

> 
> I know Frederic Rinaldi's StripDup but it's Mac Only...
> Maybe Fred will share his source...
> 
I would, for my own, will be really "reconnaissant" to get from Frederic
a port of its "HowMany" cross-command to the native transcript language
;-)

Bests, Pierre
> 
> cheers
> Xavier
> ___
> metacard mailing list
> [EMAIL PROTECTED]
> http://lists.runrev.com/mailman/listinfo/metacard
> 

___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard


SEX contributions anyone

2003-09-04 Thread MisterX
Hi y'all,

Im starting to get a little anxy... Im too rusty in C...

Has anyone got a "Fast" remove duplicate lines script?
Best I get is 12ms per line... Any line being a word.

So before I install a c compiler and put in 2 weeks to
make an external, has anyone got one ready? 

I know Frederic Rinaldi's StripDup but it's Mac Only...
Maybe Fred will share his source...

Sometimes, I miss my Mac and HyperCard...

This routine is for a good cause, you're best alternative
script editor for MC and soon RR...

cheers
Xavier
___
metacard mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/metacard