[REBOL] Re: My function seems to have no effect
From: richard:coffre:francetelecom at: 15-Apr-2002 14:16
I'm stupid. I was so obvious that I didn't see it.
Thanks to clean my eyes.
:-)
-----Message d'origine-----
De : Ladislav Mecir [mailto:[lmecir--mbox--vol--cz]]
Envoy=E9 : lundi 15 avril 2002 13:05
=C0 : [rebol-list--rebol--com]
Objet : [REBOL] Re: My function seems to have no effect
Hi Richard,
just use something like:
print ["toto:" get_func_name test]
----- Original Message -----
Subject: [REBOL] My function seems to have no effect
Hi Rebol fellows,
Hereafter my code :
REBOL[]
get_func_name: make function! [ chaine ] [
use [ guillemet ] [
guillemet: make string! {"}
remove/part chaine 6
foo: copy/part chaine 1 1
if foo == guillemet [ remove/part chaine 1 ]
; Supprimer les 2 derniers caract=E8res
clear skip tail chaine -2
return (chaine)
]
]
test: copy "123456fonction rearzer r r12"
print test
print ["toto:" get_func_name [ test ]]
When I test it, I have :
>> do %get_func.r
Script: "Untitled" (none)
123456fonction rearzer r r12
toto:
and not something like this : "fonction rearzer r r"
Richard Coffre
France Telecom Orbiscom
T=E9l. : 01 47 61 46 28
