Rebol Programming/build-markup

USAGE:

BUILD-MARKUP content /quiet 

DESCRIPTION:

Return markup text replacing <%tags%> with their evaluated results.

BUILD-MARKUP is a function value.

ARGUMENTS

• content -- (Type: string file url)

REFINEMENTS

• /quiet -- Do not show errors in the output.

SOURCE CODE

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
]