Itcl - the [incr Tcl] extension

Check-in [72e57e75b5]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use resolved built-in commands to avoid shadowing by child class methods.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 72e57e75b562c55803f22dda81b8f54679a86364
User & Date: dgp 2016-08-26 12:16:37
Context
2016-09-09
15:08
[e5f529da75] Fix scope of inherited non-public commons. check-in: baf65dd2ca user: dgp tags: trunk
2016-08-30
19:31
WIP check-in: f9361450b8 user: dgp tags: dgp-info-rework
2016-08-26
12:48
merge trunk check-in: a05bc3e6d2 user: dgp tags: dgp-method-type
12:16
Use resolved built-in commands to avoid shadowing by child class methods. check-in: 72e57e75b5 user: dgp tags: trunk
2016-08-25
15:25
Repair failed refcounting. check-in: bd2ba2b4f4 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itclBase.c.

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
"    return $ptr\n"
"}";

static const char *clazzClassScript =
"::oo::class create ::itcl::clazz {\n"
"  superclass ::oo::class\n"
"  method unknown args {\n"
"    tailcall ::itcl::parser::handleClass [lindex [info level 0] 0] [self] {*}$args\n"
"  }\n"
"  unexport create new unknown\n"
"}";

#define ITCL_IS_ENSEMBLE 0x1

typedef struct ItclCmdsInfo {







|







92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
"    return $ptr\n"
"}";

static const char *clazzClassScript =
"::oo::class create ::itcl::clazz {\n"
"  superclass ::oo::class\n"
"  method unknown args {\n"
"    ::tailcall ::itcl::parser::handleClass [::lindex [::info level 0] 0] [self] {*}$args\n"
"  }\n"
"  unexport create new unknown\n"
"}";

#define ITCL_IS_ENSEMBLE 0x1

typedef struct ItclCmdsInfo {