projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9e5d210
)
Add Tcl_InitStubs
author
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 5 Mar 2003 22:02:47 +0000
(22:02 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 5 Mar 2003 22:02:47 +0000
(22:02 +0000)
ir-tcl.c
patch
|
blob
|
history
diff --git
a/ir-tcl.c
b/ir-tcl.c
index
8fc6185
..
881f428
100644
(file)
--- a/
ir-tcl.c
+++ b/
ir-tcl.c
@@
-4,7
+4,10
@@
* See the file LICENSE for details.
*
* $Log: ir-tcl.c,v $
* See the file LICENSE for details.
*
* $Log: ir-tcl.c,v $
- * Revision 1.123 2003-03-05 21:21:41 adam
+ * Revision 1.124 2003-03-05 22:02:47 adam
+ * Add Tcl_InitStubs
+ *
+ * Revision 1.123 2003/03/05 21:21:41 adam
* APDU log. default largeSetLowerBound changed from 2 to 1
*
* Revision 1.122 2003/03/05 18:02:08 adam
* APDU log. default largeSetLowerBound changed from 2 to 1
*
* Revision 1.122 2003/03/05 18:02:08 adam
@@
-4716,6
+4719,11
@@
DllEntryPoint(hInst, reason, reserved)
*/
EXPORT (int,Irtcl_Init) (Tcl_Interp *interp)
{
*/
EXPORT (int,Irtcl_Init) (Tcl_Interp *interp)
{
+#if USE_TCL_STUBS
+ if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
+ return TCL_ERROR;
+ }
+#endif
Tcl_CreateCommand (interp, "ir", ir_obj_mk, (ClientData) NULL,
(Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand (interp, "ir-set", ir_set_obj_mk,
Tcl_CreateCommand (interp, "ir", ir_obj_mk, (ClientData) NULL,
(Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand (interp, "ir-set", ir_set_obj_mk,