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 ] ] ]
halt ;; to terminate script if DO'ne from webpage