Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Selective to-(data-type) Howto?|more

From: tim:johnsons-web at: 14-Jul-2001 9:22

Thanks Anton:
> foreach word first system/words [ > if all [ > p: find to-string word "to-" > 1 = index? p > ][ > print word > ] > ]
Yes. I had deduced that from using >>source what
> If you want to get the function body > of the functions, you can see how the > mezzanine function 'what does it. > ("mezzanine" meaning made from rebol code. > Compare to print, which is a native.)
Are mezzanine functions generated dynamically when rebol starts? I have read many references to them, but this hasn't really sunk in. None of the files in core42.tar.gz have any source code for mezzanine functions in them. thanks for the continuing edification :>) tim
> Examine 'what like this: > > >> ?? what > what: func [ > "Prints a list of globally-defined functions." > /local vals args here total > ][ > total: copy [] > vals: second system/words > foreach word first system/words [ > if any-function? first vals [ > args: first first vals > if here: find args /local [args: copy/part args here] > append total reduce [word mold args] > ] > vals: next vals > ] > foreach [word args] sort/skip total 2 [print [word args]] > exit > ] > --
-- Tim Johnson <[tim--johnsons-web--com]> http://www.johnsons-web.com