diff options
| author | dgp <dgp@noemail.net> | 2005-09-13 21:23:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2005-09-13 21:23:51 (GMT) |
| commit | c1e501243e34637b54860584feb68ac5bfb0d829 (patch) | |
| tree | 4ec0eea5f561d67d221ac1cac6c7ccde0cf4c8e9 /tools | |
| parent | 1681f04e3154df637defb2acbe06eb4885c399a9 (diff) | |
| download | tcl-c1e501243e34637b54860584feb68ac5bfb0d829.zip tcl-c1e501243e34637b54860584feb68ac5bfb0d829.tar.gz tcl-c1e501243e34637b54860584feb68ac5bfb0d829.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:
FossilOrigin-Name: bdf9458b147a42c52fbe53b2a4032d4fc754dcd2
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 12 |
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 "(" |