[REBOL] Re: My function seems to have no effect
From: richard:coffre:francetelecom at: 16-Apr-2002 14:45
It's really great but the double quotes are optional so what should be
update in your code ?
You're really fast for me and I don't have the time to understand everything
but with this easy example I can realize all the power of Rebol.
Let's go to the Rebolution ...
-----Message d'origine-----
De : Joel Neely [mailto:[joel--neely--fedex--com]]
Envoy=E9 : mardi 16 avril 2002 14:21
=C0 : [rebol-list--rebol--com]
Objet : [REBOL] Re: My function seems to have no effect
Hi, Richard,
In that case...
COFFRE Richard FTO wrote:
> Hi Joel,
>
> Indeed, the lines I need to "clean" look like
> Call ("GetOCode:initData")
> where I need to delete "Call ("" and the final ").
>
Some sample data:
bletch: {
Call ("Get0Code:initData")
call ("TestFunc:blahblah")
call("Quux:flarp") call("Quux:spoo")
call ( "Layout:spaceObsessively" ) CALL ( "The:end" )
}
Some generic boilerplate:
whitespace: charset { ^-^/} gap: [any whitespace]
The real work happens here:
parse/all bletch [
any [
{call} gap {(} gap {"} copy fn to {"} {"} gap {)} (
print fn
)
|
skip
]
]
This produces the following output:
Get0Code:initData
TestFunc:blahblah
Quux:flarp
Quux:spoo
Layout:spaceObsessively
The:end
You can, of course, do something inside the parens more interesting
than just print out to the console...
HTH!
-jn-
--
; Joel Neely joeldotneelyatfedexdotcom
REBOL [] do [ do func [s] [ foreach [a b] s [prin b] ] sort/skip
do function [s] [t] [ t: "" foreach [a b] s [repend t [b a]] t ] {
| e s m!zauafBpcvekexEohthjJakwLrngohOqrlryRnsctdtiub} 2 ]
