C function in metaTalk?

[Wouter Abraham]

> C function in metaTalk?
>
>     * From: eric . allen . engle
>     * Subject: C function in metaTalk?
> * Date: Thu, 13 Mar 2003 05:09:52 -0800
>
> I'm trying to translate the following C functions into
> hypertalk.
> If done properly they take as input a string, say ABC
> and then
> permutate it into
> a
> a b
> a b c
> b
> b c
> c
>
> UGLY C***************************************

Hi Eric,

Something like this? :


local theResult
on mouseUp
  put "" into theResult
   put abra(fld "orig") into fld "result"
end mouseUp

function abra x
   if x <> "" then
     put char 2 to -1 of x into y
     repeat until x = ""
       put cr & x before theCollector
       delete char -1 of x
     end repeat
     put  theCollector after theResult
     get abra(y)
   else return char 2 to -1 of theResult
end abra

Have a nice evening,
WA