[REBOL] Re: embed rebol in html
From: al:bri:xtra at: 22-Aug-2002 19:56
Jason wrote:
> For the new 'build-markup' - Where are there any docs on it ?
Use the source, Luke! :)
>> source build-markup
build-markup: func [
{Return markup text replacing <%tags%> with their evaluated results.}
content [string! file! url!]
/quiet "Do not show errors in the output."
/local out eval value
][
content: either string? content [copy content] [read content]
out: make string! 126
eval: func [val /local tmp] [
either error? set/any 'tmp try [do val] [
if not quiet [
tmp: disarm :tmp
append out reform ["***ERROR" tmp/id "in:" val]
]
] [
if not unset? get/any 'tmp [append out :tmp]
]
]
parse/all content [
any [
end break
| "<%" [copy value to "%>" 2 skip | copy value to end] (eval
value)
| copy value [to "<%" | to end] (append out value)
]
]
out
]
Andrew Martin
ICQ: 26227169 http://valley.150m.com/
