Updated 2015-03-05 23:43:41 by pooryorick

extension example is the most simple example of a Tcl extension. More examples at Extending Tcl.

Contributed by Ralf Fassel, stubs support added by George Peter Staplin
/* hello.c */
#include <stdio.h>
#include <stdlib.h>
#include <tcl.h>
int
hello(/* args ignored */)
{
  printf("hello world\n");
  return TCL_OK;
}
int
Hello_Init(Tcl_Interp *interp)
{
  if (NULL == Tcl_InitStubs (interp, TCL_VERSION, 0))
    return TCL_ERROR;

  printf("this is hello loading\n");

  Tcl_CreateCommand(interp, "hello", hello, NULL, NULL);
  return Tcl_PkgProvide(interp, "Hello", "1.0");
}
% gcc -fPIC -shared -o /tmp/hello.so hello.c
% tclsh
% load /tmp/hello.so 

For stubs:
$ gcc -shared -o hello.so -DUSE_TCL_STUBS hello.c /path/to/libtclstub84.a -lm -Wl,-rpath=/path/to/dir/with/libtcl84.so
$ tclsh8.4
% load ./hello.so