Overview
| Comment: | Added support for a ClientData type |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
91b1a5ba3dc85777c5e7ffe958775b72 |
| User & Date: | rkeene on 2016-01-25 18:31:00 |
| Other Links: | manifest | tags |
Context
|
2016-01-25
| ||
| 18:31 | Added support for additional ways of representing the x86_64 machine name check-in: 9a09044c1d user: rkeene tags: trunk | |
| 18:31 | Added support for a ClientData type check-in: 91b1a5ba3d user: rkeene tags: trunk | |
| 18:18 | Added support for a ClientData type check-in: 633a01c5d6 user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [779467e01e] to [f1fd06e875].
| ︙ | ︙ | |||
586 587 588 589 590 591 592 |
set varnames {}
set cargs {}
set cnames {}
set cbody {}
set code {}
# Write wrapper
| | > | | | | > > > > > > > > > > > > > | 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 |
set varnames {}
set cargs {}
set cnames {}
set cbody {}
set code {}
# Write wrapper
append cbody "int $wname\(ClientData clientdata, Tcl_Interp *ip, int objc, Tcl_Obj *CONST objv\[\]) {" "\n"
# if first arg is "Tcl_Interp*", pass it without counting it as a cmd arg
while {1} {
if {[lindex $adefs 0] eq "Tcl_Interp*"} {
lappend cnames ip
lappend cargs [lrange $adefs 0 1]
set adefs [lrange $adefs 2 end]
continue
}
if {[lindex $adefs 0] eq "ClientData"} {
lappend cnames clientdata
lappend cargs [lrange $adefs 0 1]
set adefs [lrange $adefs 2 end]
continue
}
break
}
foreach {t n} $adefs {
set types($n) $t
lappend varnames $n
lappend cnames _$n
lappend cargs "$t $n"
|
| ︙ | ︙ | |||
637 638 639 640 641 642 643 644 645 646 647 648 649 650 |
append code "$rtype2 ${cname}($cargs_str);\n"
}
}
# Create wrapper function
## Supported input types
## Tcl_Interp*
## int
## long
## float
## double
## char*
## Tcl_Obj*
## void*
| > | 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 |
append code "$rtype2 ${cname}($cargs_str);\n"
}
}
# Create wrapper function
## Supported input types
## Tcl_Interp*
## ClientData
## int
## long
## float
## double
## char*
## Tcl_Obj*
## void*
|
| ︙ | ︙ |