diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 07:47:28 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:55 +1000 |
commit | 9e64d4521dbf5247580929eb0a00c9f83cd311f8 (patch) | |
tree | 6a153be3ebe57df79a88a03572f87fa9d8ffb4a9 /jim-syslog.c | |
parent | 0833de336567cccd1de4d246eed30b7fd5ce0413 (diff) | |
download | jimtcl-9e64d4521dbf5247580929eb0a00c9f83cd311f8.zip jimtcl-9e64d4521dbf5247580929eb0a00c9f83cd311f8.tar.gz jimtcl-9e64d4521dbf5247580929eb0a00c9f83cd311f8.tar.bz2 |
Ensure that Tcl extensions can be built-in or external
All C extensions must call Jim_PackageProvide()
make-c-ext ensures that Tcl extensions call Jim_PackageProvide()
if compiled in.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-syslog.c')
-rw-r--r-- | jim-syslog.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/jim-syslog.c b/jim-syslog.c index 21c9eed..a128e63 100644 --- a/jim-syslog.c +++ b/jim-syslog.c @@ -170,7 +170,12 @@ int Jim_SyslogCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) int Jim_syslogInit(Jim_Interp *interp) { - SyslogInfo *info = Jim_Alloc(sizeof(*info)); + SyslogInfo *info; + + if (Jim_PackageProvide(interp, "syslog", "1.0", JIM_ERRMSG)) + return JIM_ERR; + + info = Jim_Alloc(sizeof(*info)); info->logOpened = 0; info->options = 0; |