[REBOL] Re: select/deep

[CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN]

great one !
thanks

chr==


> -----Original Message-----
> From: Anton [SMTP:[EMAIL PROTECTED]]
> Sent: vrijdag 2 februari 2001 14:24
> To:   [EMAIL PROTECTED]
> Subject:      [REBOL] Re: [SCRIPT] select/deep
> 
> How about this quick one?
> 
> block: ["anybody" [test1 [1 [1 2] 2 [1 5]]]]
> selection-block: ["anybody" 'test1 2]
> 
> 
> select-deep: func [
>     blk [block!] sel-blk [block!] /local v
> ][
>       v: select blk first sel-blk
> 
>     foreach item next sel-blk [
>         probe v
>         v: select v item
>     ]    
>     return v
> ]
> 
> 
> select-deep block selection-block
> 
> > Hi Andrew,
> > 
> > Thanks for suggesting, but IMHO I think the approach I proposed should
> be
> > more robust for multi-type nested structures:
> > 
> > Let's say:
> > 
> > >> c: ["anybody" [test1 [1 [1 2] 2 [1 5]]]]
> > >> c/"anybody"/test1
> > ** Syntax Error: Invalid path -- c/.
> > ** Where: (line 1) c/"anybody"/test1
> > >> select-deep c "anybody" 'test1
> > == [1 [1 2] 2 [1 5]]
> > 
> > But in order to allow this, you have to modify my function's header in :
> > 
> > select-deep: func [
> >     data [block!]
> >     arg1 [any-type!]
> >     arg2 [any-type! unset!]
> >     arg3 [any-type! unset!]
> >     arg4 [any-type! unset!]
> >     arg5 [any-type! unset!]
> > ][...]
> > 
> > Your idea ?
> 
> -- 
> 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.