summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-09-13 21:23:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-09-13 21:23:51 (GMT)
commitc483a47557d64385bc3cc9f65aedf8b6bf387843 (patch)
tree4ec0eea5f561d67d221ac1cac6c7ccde0cf4c8e9 /tools
parent0f676d700286952cb2db293c6dd1320dd31e7fe9 (diff)
downloadtcl-c483a47557d64385bc3cc9f65aedf8b6bf387843.zip
tcl-c483a47557d64385bc3cc9f65aedf8b6bf387843.tar.gz
tcl-c483a47557d64385bc3cc9f65aedf8b6bf387843.tar.bz2
* generic/tcl.h: Explicitly standardized on the use of stdarg.h
* generic/tclBasic.c: conventions for functions with variable number * generic/tclInt.h: of arguments. Support for varargs.h has been * generic/tclPanic.c: implicitly gone for some time now. All * generic/tclResult.c: TCL_VARARGS* macros purged from Tcl sources, * generic/tclStringObj.c: leaving only some deprecated #define's * tools/genStubs.tcl: in tcl.h for the sake of older extensions. * generic/tclDecls.h: make genstubs * doc/AddErrInfo.3: Replaced all documented requirement for use * doc/Eval.3: of TCL_VARARGS_START() with requirement for * doc/Panic.3: use of va_start(). * doc/SetResult.3: * doc/StringObj.3:
Diffstat (limited to 'tools')
-rw-r--r--tools/genStubs.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 15cb0a2..788ab7a 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: genStubs.tcl,v 1.17 2004/03/17 18:14:18 das Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.18 2005/09/13 21:23:51 dgp Exp $
package require Tcl 8
@@ -371,7 +371,7 @@ proc genStubs::makeDecl {name decl index} {
}
TCL_VARARGS {
set arg [lindex $args 1]
- append line "TCL_VARARGS([lindex $arg 0],[lindex $arg 1])"
+ append line "([lindex $arg 0][lindex $arg 1], ...)"
}
default {
set sep "("
@@ -464,13 +464,13 @@ proc genStubs::makeStub {name decl index} {
if {![string compare $arg1 "TCL_VARARGS"]} {
lassign [lindex $args 1] type argName
- append text " TCL_VARARGS_DEF($type,$argName)\n\{\n"
+ append text " ($type$argName, ...)\n\{\n"
append text " " $type " var;\n va_list argList;\n"
if {[string compare $rtype "void"]} {
append text " " $rtype " resultValue;\n"
}
- append text "\n var = (" $type ") TCL_VARARGS_START(" \
- $type "," $argName ",argList);\n\n "
+ append text "\n var = (" $type ") (va_start(argList, " \
+ $argName "), " $argName ");\n\n "
if {[string compare $rtype "void"]} {
append text "resultValue = "
}
@@ -533,7 +533,7 @@ proc genStubs::makeSlot {name decl index} {
}
TCL_VARARGS {
set arg [lindex $args 1]
- append text "TCL_VARARGS([lindex $arg 0],[lindex $arg 1])"
+ append text "([lindex $arg 0][lindex $arg 1], ...)"
}
default {
set sep "("