[REBOL] HTTP basic auth - object? Re:(2)

[ingo]

Hi Andrew,

Those were the words of [EMAIL PROTECTED]:
> Hi, Porter. You wrote:
<...> 

You can shorten the appends by using compose, e.g.

REBOL []

Scheme!: make object! [
    scheme: word!
    user: string!
    pass: string!
    host: [tuple! url!]
    path: file!
    Block: function [Full_FileName][Block][
         path: Full_FileName
         Block: compose [
              scheme: (to-lit-word scheme)
              user: (user)
              pass: (pass)
              host: (form host)
              path: (path)
         ]
        Block: make block! 10
        Block
        ]
    ]

Scheme: Scheme!
Scheme/scheme: 'http
Scheme/user: "webuser"
Scheme/pass: "letmein"
Scheme/host: 127.0.0.1
Scheme/path: %mysite/default.htm
Scheme/Block "mysite/default.htm"


>> do %scheme.r
Script: "Untitled" (none)
== [
    scheme: 'http 
    user: "webuser" 
    pass: "letmein" 
    host: "127.0.0.1" 
    path: "mysite/default.htm"]


regards,

Ingo

--  _     .                                _
ingo@)|_ /|  _| _  <We ARE all ONE   www._|_o _   _ ._ _  
www./_|_) |o(_|(/_  We ARE all FREE> ingo@| |(_|o(_)| (_| 
http://www.2b1.de/Rebol/                     ._|      ._|