;; ============================================== ;; Script: log.r ;; downloaded from: www.REBOL.org ;; on: 28-Mar-2024 ;; at: 15:07:51.051461 UTC ;; owner: ajmartin [script library member who can ;; update this script] ;; ============================================== ;; =================================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would not ;; be munged ;; =================================================== REBOL [ Title: "Log" Date: 20-Dec-2002 Name: 'Log Version: 1.0.0 File: %log.r Author: "Andrew Martin" Purpose: "Logs Rebol values to a file." eMail: %Al--Bri--xtra--co--nz Web: http://valley.150m.com library: [ level: 'beginner platform: none type: 'tool domain: none tested-under: none support: none license: none see-also: none ] ] Log: function [ {Logs Rebol values to a file.} Value [any-type!] "The value to log." /Clear "Clears (by deleting) the current log file." ] [File] [ File: %Log.txt if Clear [ delete File ] write/append/lines File reform [ now/time mold :Value ] :Value ]