Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Make stub table pointer a 'const'ant, because Tcl_LoadFile is the only function that is allowed to fill the table. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b8fd487e3fd0ad8629898ac13c80520e |
| User & Date: | jan.nijtmans 2015-06-26 13:01:50.876 |
Context
|
2015-06-26
| ||
| 21:57 | Fix [625f0ee464]: Disable writing to build-dir at install time. Thanks to Erik Leunissen for noticing that this copying to the top build directory is completely unnecessary. check-in: 7f0253a5c5 user: jan.nijtmans tags: trunk | |
| 13:01 | Make stub table pointer a 'const'ant, because Tcl_LoadFile is the only function that is allowed to fill the table. check-in: b8fd487e3f user: jan.nijtmans tags: trunk | |
|
2015-06-15
| ||
| 10:09 | Make sure that tdbc_LIB_DIR is always a canonical absolute path. Improve formatting in Makefile.in, adapted from latest sampleextension. check-in: 8a460b3726 user: jan.nijtmans tags: trunk | |
Changes
Changes to tools/genExtStubs.tcl.
1 2 3 | # genExtStubs.tcl -- # # Generates an import table for one or more external dynamic | | | 1 2 3 4 5 6 7 8 9 10 11 | # genExtStubs.tcl -- # # Generates an import table for one or more external dynamic # link libraries. # # Usage: # # tclsh genExtStubs.tcl stubDefs.txt stubStruct.h stubInit.c # # Parameters: # |
| ︙ | ︙ | |||
37 38 39 40 41 42 43 | # stubDefs -- Name of the file to parse # # Results: # # Returns a list of tuples. The possible tuples are: # # libraries NAME NAME... | | | | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
# stubDefs -- Name of the file to parse
#
# Results:
#
# Returns a list of tuples. The possible tuples are:
#
# libraries NAME NAME...
# Sets the names of the
# prefix NAME
# Sets the name of the stub structure to NAME and prefixes
# all the definitions of the stubbed routines with NAME
# import TYPE NAME PARAMS
# Declares the imported routine NAME to return data of type
# TYPE and accept parmeters PARAMS.
proc parseImports {stubDefs} {
set defsFile [open $stubDefs r]
set imports {}
set lineNo 0
while {[gets $defsFile line] >= 0} {
|
| ︙ | ︙ | |||
329 330 331 332 333 334 335 |
set structFile [open $stubStruct w]
chan configure $structFile -translation lf
writeStructHeader $stubDefs $stubStruct $structFile
writeStubDeclarations $structFile $imports
writeStructFooter $stubDefs $structFile
set stubPrefix [writeStubDefines $structFile $imports]
| | | 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 |
set structFile [open $stubStruct w]
chan configure $structFile -translation lf
writeStructHeader $stubDefs $stubStruct $structFile
writeStubDeclarations $structFile $imports
writeStructFooter $stubDefs $structFile
set stubPrefix [writeStubDefines $structFile $imports]
chan puts $structFile "MODULE_SCOPE const [file rootname [file tail $stubDefs]]\
*${stubPrefix};"
close $structFile
# Write the initializations of the function names to import
set initFile [open $stubInit r+]
set initProgram [chan read $initFile]
|
| ︙ | ︙ |