Script Library: load-header.r

Script Library: 1238 scripts

load-header.r

rebol [
    Title: "Load-header"
    File: %load-header.r
    Date: 28/11/03
        Version: 0.0.1
    Author: "Romano Paolo Tenca"
    Purpose: "Load a Rebol header without evaluating it"
    Library: library: [level: 'intermediate platform: 'all type: [] domain: [] tested-under: none support: none license: none see-also: none ]
]

load-header: func [
    "Load and construct a Rebol header object"
    str [file! url! string!]
][
    if str: script? str [
        attempt [
            construct/with first load/next find find str "rebol" "[" system/standard/script
        ]
    ]
]