[TCLCORE] mk4 with tcl9

[Simon G. <si...@wh...>]

Has anyone tried building this? I've just tried and failed:

g++ -c -g -O2  -fPIC -DUSE_TCL_STUBS -I./../include
-I/usr/local/include/generic -I/usr/local/include ../tcl/mk4tcl.cpp
../tcl/mk4tcl.cpp:409:3:error: invalid conversion from ‘int
(*)(ClientData, Tcl_Interp*)’ {aka ‘int (*)(void*, Tcl_Interp*)’} to
‘void*’ [-fpermissive]
  409 | mkClose,  /* Close channel, clean instance data      */
      | ^~~~~~~
      | |
      | int (*)(ClientData, Tcl_Interp*) {aka int (*)(void*, Tcl_Interp*)}
../tcl/mk4tcl.cpp:In function ‘int SetAsObj(Tcl_Interp*, const
c4_RowRef&, const c4_Property&, Tcl_Obj*)’:
../tcl/mk4tcl.cpp:490:54:error: cannot convert ‘int*’ to ‘Tcl_Size*’
{aka ‘long int*’} in argument passing
  490 |         const char *ptr = Tcl_GetStringFromObj(obj_, &len);
      | ^~~~
      | |
      | int*
In file included from /usr/local/include/tcl.h:2435,
                 from ../tcl/mk4tcl.h:9,
                 from ../tcl/mk4tcl.cpp:5:
../tcl/mk4tcl.cpp:498:60:error: cannot convert ‘int*’ to ‘Tcl_Size*’
{aka ‘long int*’} in argument passing
  498 |         const t4_byte *ptr = Tcl_GetByteArrayFromObj(obj_, &len);
      | ^
      | |
      | int*
../tcl/mk4tcl.cpp:In function ‘const c4_Property& AsProperty(Tcl_Obj*,
const c4_View&)’:
../tcl/mk4tcl.cpp:1044:49:error: cannot convert ‘int*’ to ‘Tcl_Size*’
{aka ‘long int*’} in argument passing
1044 |     char *string = Tcl_GetStringFromObj(objPtr, &length);
      | ^~~~~~~
      | |
      | int*
../tcl/mk4tcl.cpp:In function ‘int SetCursorFromAny(Tcl_Interp*,
Tcl_Obj*)’:
../tcl/mk4tcl.cpp:1157:44:warning: cast to pointer from integer of
different size [-Wint-to-pointer-cast]
1157 |     objPtr->internalRep.twoPtrValue.ptr1 = (void*)i;

as a sample. No doubt it needs to be updated but I don't want to spend
time on it when it's already been done. Or maybe the world has moved on
and there's something similar I could use instead?

Thanks

Simon