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

[REBOL] Re: nargs

From: AJMartin:orcon at: 24-Dec-2003 22:41

Maarten wrote:
> Here is a nargs function that also counts the optional arguments if you
use refinements (e.g. nargs copy == 1 nargs copy/part == 2).
> [Snip large chunk of code.]
Ouch! That's a large amount of code. Isn't this easier?
>> length? Arguments :copy
== 1
>> source Arguments
Arguments: func [ {Returns the arguments of the function as a block of word! values.} F [any-function!] "The Function" ][ head clear any [ find first :F refinement! tail first :F ] ] And if one needs the length of a path:
>> length? 'copy/part
== 2 Or perhaps I've misunderstood something? Andrew J Martin Grail Jedi ICQ: 26227169