[REBOL] Re: My function seems to have no effect

[COFFRE Richard FTO]

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:[EMAIL PROTECTED]]
Envoy� : lundi 15 avril 2002 13:05
� : [EMAIL PROTECTED]
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�res
   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�l. : 01 47 61 46 28


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.