ns2 Network Simulator      C++ Class Hierarchy of version ns-snapshot-20040722
|  Home |  Source Code |  Manual |  FAQ |  Mailing List Archive |  Search |  |  Download | 


Main Page   Namespace List   Class Hierarchy   Alphabetical List   Compound List   File List   Compound Members   File Members  

tclcl/Tcl.cc File Reference

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <ctype.h>
#include <tcl.h>
#include "tclcl.h"
#include "tclcl-config.h"
#include "tclcl-internal.h"
#include <sys/types.h>
#include <assert.h>
#include "tracedvar.h"
#include <tk.h>

Compounds

class  InstVar
class  InstVarBandwidth
class  InstVarBool
class  InstVarError
class  InstVarInt
class  InstVarReal
class  InstVarTclObject
class  InstVarTime
class  InstVarTracedInt
class  InstVarTracedReal
class  InstVarUInt
class  TracedVarTcl

Defines

#define MAX_CODE_TO_DUMP   (8*1024)
#define WRK_SMALL_SIZE   32
#define WRK_MEDIUM_SIZE   256
#define TOB(FUNCTION, C_TYPE, INSTVAR_TYPE, OTHER_STUFF)
#define TODB(FUNCTION, C_TYPE, INSTVAR_TYPE, TRACEDVAR_CODE)

Functions

 TOB (bind, TracedInt, InstVarTracedInt, val->name(var);val->owner(this);) TOB(bind
val name (var)
val owner (this)
 TODB (delay_bind, double, InstVarReal, not_a_TracedVar(thisVarName)) TODB(delay_bind_bw
 not_a_TracedVar (thisVarName)) TODB(delay_bind_time
unsigned handle_TracedVar (thisVarName, val, tracer)) TODB(delay_bind

Variables

const char rcsid []
EmbeddedTcl et_tclobject
 TracedDouble
 InstVarTracedReal
 double
 InstVarBandwidth
 InstVarTime
 int
 InstVarInt
unsigned InstVarUInt
unsigned InstVarBool
unsigned TracedInt
unsigned InstVarTracedInt

Define Documentation

#define MAX_CODE_TO_DUMP   (8*1024)
 

#define TOB (  FUNCTION,
C_TYPE,
INSTVAR_TYPE,
OTHER_STUFF    ) 
 

Value:

void TclObject::FUNCTION(const char* var, C_TYPE* val) \
        { \
                  create_instvar(var); \
                  OTHER_STUFF; \
                  init(new INSTVAR_TYPE(var, val), var); \
        }

#define TODB (  FUNCTION,
C_TYPE,
INSTVAR_TYPE,
TRACEDVAR_CODE    ) 
 

Value:

bool \
TclObject:: FUNCTION (const char* varName, const char* localName, \
                      const char* thisVarName, \
                      C_TYPE *val, TclObject *tracer) \
{ \
        if (strcmp(varName, thisVarName) != 0) return false; \
        if (tracer) { \
                  \
                TRACEDVAR_CODE; \
        }  else { \
                  \
                if (TCL_OK != create_framevar(localName)) abort(); \
                (void) (new INSTVAR_TYPE (localName, val)); \
        }; \
        return true; \
}

#define WRK_MEDIUM_SIZE   256
 

#define WRK_SMALL_SIZE   32
 

Function Documentation

unsigned handle_TracedVar (  thisVarName   ,
val   ,
tracer   
) 
 

val name (  var    ) 
 

unsigned not_a_TracedVar (  thisVarName    ) 
 

val owner (  this    ) 
 

TOB (  bind   ,
TracedInt   ,
InstVarTracedInt   ,
val->name(var);val->owner(this);   
) 
 

TODB (  delay_bind   ,
double   ,
InstVarReal   ,
not_a_TracedVar(thisVarName)   
) 
 

Variable Documentation

double
 

EmbeddedTcl et_tclobject
 

InstVarBandwidth
 

unsigned InstVarBool
 

InstVarInt
 

InstVarTime
 

unsigned InstVarTracedInt
 

unsigned InstVarTracedReal
 

unsigned InstVarUInt
 

unsigned int
 

const char rcsid[] [static]
 

Initial value:

    "@(#) $Header: /cvsroot/otcl-tclcl/tclcl/Tcl.cc,v 1.71 2002/07/17 21:15:50 heidemann Exp $ (LBL)"

unsigned TracedDouble
 

unsigned TracedInt
 

This document is generated by doxygen.