From 7af9ab5e582ce583ce1f3232785feb183337bc34 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 25 May 2004 07:48:18 +0000 Subject: More idiomatic example. [Bug 959602] --- ChangeLog | 5 +++++ doc/bgerror.n | 6 ++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index dd8d67d..96e405a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-05-25 Donal K. Fellows + + * doc/bgerror.n: Use idiomatic open flags for working with log + files. [Bug 959602] + 2004-05-24 Jeff Hobbs * generic/tclExecute.c (VerifyExprObjType): use GET_WIDE_OR_INT to diff --git a/doc/bgerror.n b/doc/bgerror.n index e5aa246..29776f4 100644 --- a/doc/bgerror.n +++ b/doc/bgerror.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: bgerror.n,v 1.5 2004/04/21 19:33:17 dkf Exp $ +'\" RCS: @(#) $Id: bgerror.n,v 1.6 2004/05/25 07:48:21 dkf Exp $ '\" .so man.macros .TH bgerror n 7.5 Tcl "Tcl Built-In Commands" @@ -77,14 +77,12 @@ package or other kind of library, consider avoiding \fBbgerror\fR. The reason for this is that the application programmer may also want to define a \fBbgerror\fR, or use other code that does and thus will have trouble integrating your code. - .SH "EXAMPLE" This \fBbgerror\fR procedure appends errors to a file, with a timestamp. - .CS proc bgerror {message} { set timestamp [clock format [clock seconds]] - set fl [open mylog.txt a] + set fl [open mylog.txt {WRONLY CREAT APPEND}] puts $fl "$timestamp: bgerror in $::argv '$message'" close $fl } -- cgit v0.12