[REBOL] Did you know? - 'Bind is stackable! Re:
From: lmecir::geocities::com at: 5-Oct-2000 10:38
Hi,
Andrew wrote:
> Did you know? - 'Bind is stackable!
>
> I didn't - until I tried it. Have a look at the line:
> if all bind bind Filter 'File 'Header
>
> Unit: function ['Name [word!] Base-Directory [file!] Sub-Directory [file!]
> Filter [block!]] [Script Header] [
> error? try [
> if system/script/parent/header/File = %user.r [
> set Name make object! [
> Directory: file!
> Files: block!
> ]
> change-dir Base-Directory
> Name: get Name
> Name/Directory: Sub-Directory
> Name/Files: read Name/Directory
> change-dir Name/Directory
> foreach File Name/Files [
> Script: load/header File
> Header: first Script
> if all bind bind Filter 'File 'Header [
> do Script
> ]
> ]
> Name/Directory: join Base-Directory Sub-Directory
> ]
> ]
> ]
>
> Unit Patches %/C/Rebol/Patch/ %Patches/ [
> Header/File = File
> Header/Patch = Header/Name
> ]
>
> Unit Enhancements %/C/Rebol/Enhancement/ %Enhancements/ [
> Header/File = File
> Header/Enhancement = Header/Name
> ]
>
> BTW, 'Unit is my keystone building block for Patches, Enhancements for
Rebol
> and Components and Plug-ins for Rebol applications, like RebMail.
>
> Note that the order of 'File and 'Header didn't matter. Which leads me to
> wonder if an enhanced version of 'bind that allows a block would be of
> interest to people or Rebol crew.
>
> Andrew Martin
> ICQ: 26227169
> http://members.nbci.com/AndrewMartin/
> http://members.xoom.com/AndrewMartin/
> -><-
>
The order of 'File and 'Header didn't matter only because 'File context,
'Header context and the block bound aren't such, that there is a word e.g.
'Common such that 'Common is in the block and 'Common can be bound to both
'File context and 'Header context. In that case the results would differ.
Regards
Ladislav
