diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-31 09:27:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-31 09:27:11 (GMT) |
| commit | 3f70347b4b061f2da308565d2a850d5f0fdf8dcf (patch) | |
| tree | b0c5ab37fa9ac435be51a5019b478964c876194b /generic/ttk/ttkGenStubs.tcl | |
| parent | 975dc4a26d2d686c80b5f06ef0f218e5e8051503 (diff) | |
| parent | 4f970286ec90b02eaf3ad950648ca61a79c193e9 (diff) | |
| download | tk-3f70347b4b061f2da308565d2a850d5f0fdf8dcf.zip tk-3f70347b4b061f2da308565d2a850d5f0fdf8dcf.tar.gz tk-3f70347b4b061f2da308565d2a850d5f0fdf8dcf.tar.bz2 | |
Put extern "C" guards around all stub table struct definitions,
so it is usable to be used for C++ compilers as well without the danger of modifying the calling convention.
For tkDecls.h, ttkDecls.h tkIntXlibDecls.h is was no problem, because tk.h, tkTheme.h and Xlib.h
already contain those guards. But not for the other *Decls.h files.
Diffstat (limited to 'generic/ttk/ttkGenStubs.tcl')
| -rw-r--r-- | generic/ttk/ttkGenStubs.tcl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl index d8e9a8a..5e56951 100644 --- a/generic/ttk/ttkGenStubs.tcl +++ b/generic/ttk/ttkGenStubs.tcl @@ -769,6 +769,8 @@ proc genStubs::emitHeader {name} { append text "#define ${CAPName}_STUBS_REVISION $revision\n" } + append text "\n#ifdef __cplusplus\nextern \"C\" {\n#endif\n" + emitDeclarations $name text if {[info exists hooks($name)]} { @@ -796,8 +798,7 @@ proc genStubs::emitHeader {name} { append text "} ${capName}Stubs;\n\n" - append text "#ifdef __cplusplus\nextern \"C\" {\n#endif\n" - append text "extern const ${capName}Stubs *${name}StubsPtr;\n" + append text "extern const ${capName}Stubs *${name}StubsPtr;\n\n" append text "#ifdef __cplusplus\n}\n#endif\n" emitMacros $name text @@ -821,9 +822,10 @@ proc genStubs::emitInit {name textVar} { variable hooks variable interfaces variable epoch + variable revision upvar $textVar text - set root 1 + set root 1 set capName [string toupper [string index $name 0]] append capName [string range $name 1 end] |