embedeval.c -- example of tcl-code embedding

embedeval.c

/*
 * embedeval.c -- example of tcl-code embedding
 * 
 * Compile:
 *   mingw: gcc -O2 -DUSE_TCL_STUBS=1 -I$tcl/win  -I$tcl/generic embedeval.c -shared -o embedeval.dll libtclstub86.a
 *   *nix:  gcc -O2 -DUSE_TCL_STUBS=1 -I$tcl/unix -I$tcl/generic embedeval.c -shared -o embedeval.so  libtclstub86.a
 * 
 * Usage:
 *   $ tclsh86
 *   % load embedeval
 */
 
#include "tcl.h"

/* ------------------------------------------------------------- */

const char * tclCode = 
"puts {this is embedded code};\n"
"puts \"2 + 2 equals [expr {2 + 2}]\";";
 
int Embedeval_Init(Tcl_Interp *interp) {
  if (!Tcl_InitStubs(interp, "8.5", 0)) {
    return TCL_ERROR;
  }
  return Tcl_Eval(interp, tclCode);
}