Basic C++ TCL access.
More...
#include "classdesc_access.h"
#include "pack_base.h"
#include <stdio.h>
#include <assert.h>
#include <string.h>
#include <stdlib.h>
#include <stdarg.h>
#include <iostream>
#include <tcl.h>
#include <string>
#include <time.h>
#include "Realloc.h"
#include "eco_strstream.h"
#include "error.h"
Go to the source code of this file.
|
#define | CONST84 |
|
#define | PARALLEL |
|
#define | DEFINE_ECOLAB_LIBRARY |
| define ecolab_library in user models
|
|
#define | NEWCMD(name, nargs) |
|
#define | BUFSIZE 20 |
|
#define | DBLSIZ 16 /* enough characters to hold a string rep of a double */ |
|
#define | INTSIZ 12 /* enough characters to hold a string rep of an int */ |
|
|
void | ecolab::interpExitProc (ClientData cd) |
|
Tcl_Interp * | ecolab::interp () |
| default interpreter. Set to NULL when interp() is destroyed
|
|
int | ecolab::TCL_newcommand (const char *c) |
| test whether command is not already defined
|
|
int | ecolab::TCL_proc (ClientData cd, Tcl_Interp *interp, int argc, CONST84 char **argv) |
|
int | ecolab::setEcoLabLib (const char *path) |
| set the value of the TCL variable ecolab_library
|
|
bool | ecolab::exists (const tclvar &x) |
| Check if a TCL variable exists.
|
|
std::ostream & | ecolab::operator<< (std::ostream &stream, tclvar x) |
|
std::string | ecolab::chomp (const std::string &s) |
|
◆ NEWCMD
#define NEWCMD |
( |
|
name, |
|
|
|
nargs |
|
) |
| |
Value:static void name(int argc, CONST84 char* argv[]); \
namespace name##_ns { \
DEFINE_ECOLAB_LIBRARY; \
ecolab::tclpp_cd name##data(#name,nargs,name); \
} \
static void name(int argc,CONST84 char* argv[])
Macro for declaring TCL commands: takes a name and the number of arguments expected. The command will return and error if the number of arguments is not what is expected. A declaration of -1 for the expected number of arguments disables this checking