[REBOL] Re: Enabling the REBOL community

[Andrew Martin]

> 2) IIRC Andrew Martin did nice component/module system. I don't know it's
URL though ... but it would be good to look into it imo.

It's attached, as there's a lot of new comers recently. Place it into the
directory $/Rebol/Scripts/Units/ then put:
        do %../Scripts/Units/Units.r
    in your %User.r file for each of your Rebol variants in the directories:
        %/Rebol/Core.
    and:
        %/Rebol/View/

I must get an update onto my site and finish my eText and the Index web site
builder (creates a web site from plain text files).

Andrew Martin
ICQ: 26227169 http://members.nbci.com/AndrewMartin/
-><-



-- Attached file included as plaintext by Listar --
-- File: Units.r

[
Rebol [
        Name: 'Units
        Title: "Units"
        File: %Units.r
        Author: "Andrew Martin"
        eMail: [EMAIL PROTECTED]
        Date: 20/April/2001
        Home: http://members.nbci.com/AndrewMartin/Rebol/Units/Units.r
        Version: 1.3.0
        History: [
                1.3.0 {Added /Directory to allow specifying a base directory}
                1.2.0 {Changed allowed file extensions from string! to file! 
data-type.}
                1.1.0 "Allowed 'Unit to take blocks of filenames."
                1.0.0 "Original"
                ]
        ]

Unit!: make object! [
        Units: make block! 0
        Do-Once: func [Filename [file!]][
                throw-on-error [
                        Filename: clean-path Filename
                        all [
                                not found? find Units Filename
                                (
                                        do Filename
                                        append Units Filename
                                        true
                                        )
                                ]
                        ]
                ]
        set 'Unit func [[catch] Filename [file! block!] /Directory Dir [file! url!]][
                throw-on-error [
                        if none? Dir [
                                Dir: %.
                                ]
                        either block? Filename [
                                foreach File Filename [
                                        Do-Once Dir/:File
                                        ]
                                ][
                                Do-Once Dir/:Filename
                                ]
                        ]
                ]
        ]

Units: function [
        Directory [file!] Units [word!] Filter [block!]
        ][
        Unit Original-Directory Headers Files Script Header
        ][
        Original-Directory: what-dir
        Headers: make block! 0
        error? try [
                change-dir Directory
                Unit: make object! compose [
                        Directory: what-dir
                        (to set-word! Units) make block! 0
                        ]
                Files: read %.
                foreach File Files [
                        if all [
                                not dir? File
                                any [
                                        found? find/tail File %.r
                                        found? find/tail File %.rip
                                        ]
                                ][
                                Script: load/header File
                                Header: first Script
                                if all bind bind Filter 'Header 'File [
                                        do Script
                                        append Headers reduce [to set-word! 
Header/Name Header]
                                        ]
                                ]
                        ]
                ]
        change-dir Original-Directory
        set in Unit Units make object! Headers
        Unit
        ]

Patches: Units %../Patches/ 'Patch [
        not none? in Header 'File
        Header/File = File
        not none? in Header 'Patch
        Header/Patch = Header/Name
        ]

Enhancements: Units %../Enhancements/ 'Enhancement [
        not none? in Header 'File
        Header/File = File
        not none? in Header 'Enhancement
        Header/Enhancement = Header/Name
        ]

]

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