Rebol

Scripts

Animation

CGI

Compression

Console

Database

Debug

Dialects

Dialogs

Editor

Encryption

Extension

External Library

File

File Handling

Files

Financial

FTP

Game

Games

Graphics

GUI

HTML

HTTP

Internet

LDC

Markup

Math

Module

Network

Networking

None

Other - Net

Parse

Patch

Printing

Protocol

Rebol

Scheme

Scientific

SDK

Security

Shell

Sound

SQL

TCP

Testing

Text

Text Processing

User Interface

Util

Utility

VID

Visualization

Web

Win API

X-File

XML

Wiki

Download Script View Documentation

rebol [
	File: %echos.r
	Date: 6-Jan-2005
	title: "echos"
	Author: "Anton Reisacher"
	Library: [
		Level: 'beginner
		platform: []
		Type: 'function
		Domain: 'patch
		tested-under: [some]
		support: none
		license: none
	]
	Purpose: "allows reusing of an already existing echo file "
	Description: {I use echo/append to-file now/date instead of the normal echo command
		to write one contiguous log file per day}
]
echo: func [
    "Copies console output to a file."
    [catch]
    target [file! none! logic!]
    /append
][
    if port? system/ports/echo [
        close system/ports/echo
        system/ports/echo: none
    ]
    if target = true [target: %rebol-echo.txt]
    if file? target [
		system/ports/echo: throw-on-error [
			either not append [
				 open/write/new/direct target
			] [
				target: open/direct target
				skip target 4294967295 ; highest int should move to the end
				target
		   ]
		]
	]
]