diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-27 14:43:09 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-27 14:43:09 (GMT) |
commit | 4955bdc67b8a5c3d9d12cf70cfe0b73c8a4f4ca8 (patch) | |
tree | 7a733c8f49dc66ae55cca35e7652f5bb0b1c51c6 /doc/unknown.n | |
parent | 45beb64f7dcb09a6ce83532702bca760f72e6f4d (diff) | |
download | tcl-4955bdc67b8a5c3d9d12cf70cfe0b73c8a4f4ca8.zip tcl-4955bdc67b8a5c3d9d12cf70cfe0b73c8a4f4ca8.tar.gz tcl-4955bdc67b8a5c3d9d12cf70cfe0b73c8a4f4ca8.tar.bz2 |
Finished user-level documentation backport
Diffstat (limited to 'doc/unknown.n')
-rw-r--r-- | doc/unknown.n | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/doc/unknown.n b/doc/unknown.n index 2ef5b14..bb7549b 100644 --- a/doc/unknown.n +++ b/doc/unknown.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: unknown.n,v 1.4 2001/06/27 21:00:45 hobbs Exp $ +'\" RCS: @(#) $Id: unknown.n,v 1.4.12.1 2004/10/27 14:43:15 dkf Exp $ '\" .so man.macros .TH unknown n "" Tcl "Tcl Built-In Commands" @@ -71,6 +71,20 @@ auto-exec step is skipped. Under normal circumstances the return value from \fBunknown\fR is the return value from the command that was eventually executed. +.SH EXAMPLE +Arrange for the \fBunknown\fR command to have its standard behavior +except for first logging the fact that a command was not found: +.PP +.CS +# Save the original one so we can chain to it +rename \fBunknown\fR _original_unknown + +# Provide our own implementation +proc \fBunknown\fR args { + puts stderr "WARNING: unknown command: $args" + uplevel 1 [list _original_unknown {expand}$args] +} +.CE .SH "SEE ALSO" info(n), proc(n), interp(n), library(n) |