For your consideration:
We are using a function called "vword" as
(value of word in block or object)
a safe, easy way to get unknown values out of blocks or objects.
For instance:
We store email/report templates in blocks, but can now safely skip
any report details by leaving the items out of the template/blocks or
providing a default value to use as a substitute.
Another great use for "vword" is when decoding CGI gets or posts.
You never really know what is in or out of CGI object,
so vword is a safe way to interogate the object and get all the values.
Try it out and let me know what you think.
REBOL []
;---------------------------------------------------------------------------
---------
vword: func [
{ Test to see if a certain word is found in a block or object.
If so, the value of the word is returned. (Hence, the name vword.)
If not, then the alternate value will be used.
If the word is not found and no alternate value is supplied, none is
returned.}
item [block! object!] "The item containing the word you wish to search
for."
i-word [word!] "The word / attribute you wish to search for."
i-alt [any-type!] "The alternate value to use if the word is not
found."
/local ret
][
either block? item [
if none? ret: select item :i-word [
if (value? 'i-alt) [ret: i-alt]
]
][
either none? ret: in item :i-word [
if (value? 'i-alt) [ret: i-alt]
][
ret: get in item :i-word
]
]
return ret
]
;---------------------------------------------------------------------------
---------
>> do %/e/scripts/rs/vword.r
Script: "Untitled" (none)
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'd "DICED PEACHES"
== "DICED PEACHES"
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'a "DICED PEACHES"
== "APPLE"
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'b "DICED PEACHES"
== "BANANA"
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'c "DICED PEACHES"
== "CARROT"
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'e "DICED PEACHES"
== "DICED PEACHES"
>> vword [a "APPLE" b "BANANA" c "CARROT"] 'e
== none
>> print mold xo
make object! [
a: "ABC"
b: "BOY"
]
>> vword xo 'a "alpha"
== "ABC"
>> vword xo 'c "alpha"
== "alpha"
>> vword xo 'c
== none
>> vword xo 'c "alpha"
== "alpha"
>> vword xo 'b "alpha"
== "BOY"
>>
Douglas Vos - EDS/GM-BSU Webmaster
e-Mail: mailto:[EMAIL PROTECTED]
