From a5af327b809440e5772560d8c7fc7bd53193c371 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 20 Sep 2007 16:24:44 +0000 Subject: * doc/load.n: Backport corrected example. --- ChangeLog | 6 +++++- doc/load.n | 8 ++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index e1faa6a..e0b4997 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,11 @@ -2007-09-19 Don Porter +2007-09-20 Don Porter *** 8.4.16 TAGGED FOR RELEASE *** + * doc/load.n: Backport corrected example. + +2007-09-19 Don Porter + * unix/Makefile.in: Update `make dist` so that tclDTrace.d is included in the source code distribution. diff --git a/doc/load.n b/doc/load.n index ea5c7f3..86149b2 100644 --- a/doc/load.n +++ b/doc/load.n @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: load.n,v 1.7.2.1 2004/10/27 12:52:40 dkf Exp $ +'\" RCS: @(#) $Id: load.n,v 1.7.2.2 2007/09/20 16:24:46 dgp Exp $ '\" .so man.macros .TH load n 7.5 Tcl "Tcl Built-In Commands" @@ -132,7 +132,7 @@ The following is a minimal extension: #include #include static int fooCmd(ClientData clientData, - Tcl_Interp *interp, int objc, char * CONST objv[]) { + Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { printf("called with %d arguments\\n", objc); return TCL_OK; } @@ -154,10 +154,10 @@ it can then be loaded into Tcl with the following: # Load the extension switch $tcl_platform(platform) { windows { - \fBload\fR ./foo.dll + \fBload\fR [file join [pwd] foo.dll] } unix { - \fBload\fR ./libfoo[info sharedlibextension] + \fBload\fR [file join [pwd] libfoo[info sharedlibextension]] } } -- cgit v0.12