cctwtcl.cpp File Reference

#include <tcl.h>
#include "cctwtcl_commands.h"
#include "cctwapplication.h"

Include dependency graph for cctwtcl.cpp:

Go to the source code of this file.

Functions
int	Cctwtcl_Init (Tcl_Interp *interp)

Function Documentation

int Cctwtcl_Init

(

Tcl_Interp *

interp

)

Definition at line 8 of file cctwtcl.cpp.

References Cctwtcl_Cmd(), Cctwtcl_Initialize(), Cctwtcl_Input_Cmd(), Cctwtcl_Merge_Cmd(), Cctwtcl_Output_Cmd(), Cctwtcl_Parameters_Cmd(), and Cctwtcl_Transform_Cmd().

{
  if (sizeof(void*) > sizeof(long)) {
    Tcl_SetResult(interp, (char*) "ERROR: Pointers are bigger than longs", TCL_STATIC);

    return TCL_ERROR;
  }

  if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
      return TCL_ERROR;
  }

  if (Tcl_PkgRequire(interp, "Tcl", "8.1", 0) == NULL) {
      return TCL_ERROR;
  }

  if (Tcl_PkgProvide(interp, "cctw", STR(CCTW_VERSION)) != TCL_OK) {
      return TCL_ERROR;
  }

  Tcl_CreateObjCommand(interp, "cctw", (Tcl_ObjCmdProc *) Cctwtcl_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_CreateObjCommand(interp, "cctw_parameters", (Tcl_ObjCmdProc *) Cctwtcl_Parameters_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_CreateObjCommand(interp, "cctw_input", (Tcl_ObjCmdProc *) Cctwtcl_Input_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_CreateObjCommand(interp, "cctw_transform", (Tcl_ObjCmdProc *) Cctwtcl_Transform_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_CreateObjCommand(interp, "cctw_merge", (Tcl_ObjCmdProc *) Cctwtcl_Merge_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_CreateObjCommand(interp, "cctw_output", (Tcl_ObjCmdProc *) Cctwtcl_Output_Cmd,
          (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Cctwtcl_Initialize();

  return TCL_OK;
}