Script Library: 1238 scripts


REBOL [ Title: "Values" Date: 9-Sep-2002 Name: 'Values Version: 1.1.1 File: %values.r Author: "Andrew Martin" Purpose: {Loads Values into Rebol. Interprets 'Needs field in header.} eMail: %Al--Bri--xtra--co--nz Web: library: [ level: 'advanced platform: none type: 'tool domain: none tested-under: none support: none license: none see-also: none ] ] Values: make object! [ Problem: none Files: make block! 100 use [Do-File Patches] [ Do-File: function [File [file!]] [Loaded Needs] [ File: clean-path File if not found? find Files File [ Loaded: load/header File Needs: Loaded/1/Needs if all [ found? Needs block? Needs ] [ foreach Need Needs [ if file? Need [ Do-File Need ] ] ] Problem: File do File ; Deliberately done to get Rebol to print "Script: " etc from 'do. append Files File Problem: none ] ] append Files clean-path Rebol/Script/Header/File Patches: %Patches.r if exists? Patches [ Do-File Patches ] foreach File read %. [ if find/last File %.r [ Do-File File ] ] ] ]
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)