Inheritance diagram for TclPlugIn:

Collaboration diagram for TclPlugIn:

Public Member Functions
	TclPlugIn (MathParser &mp)

	~TclPlugIn (void)

const char *	sName (void) const

int	Read (int argc, char *argv[])

TypedValue::Type	GetType (void) const

TypedValue	GetVal (void) const

Public Member Functions inherited from MathParser::PlugIn
	PlugIn (MathParser &mp)

virtual	~PlugIn ()

Protected Attributes
TypedValue::Type	type

Tcl_Obj *	cmd

Protected Attributes inherited from MathParser::PlugIn
MathParser &	mp

Detailed Description

Definition at line 46 of file module-tclpgin.cc.

Constructor & Destructor Documentation

TclPlugIn::TclPlugIn ( MathParser & mp )

Definition at line 60 of file module-tclpgin.cc.

References interp, and MBDYN_EXCEPT_ARGS.

 : MathParser::PlugIn(mp), type(TypedValue::VAR_UNKNOWN),
 cmd(0)
 {
         if (!::interp) {
                 ::interp = Tcl_CreateInterp();
                 if (!::interp) {
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
         }
 
         interp_cnt++;
 }

TclPlugIn::~TclPlugIn ( void )

Definition at line 74 of file module-tclpgin.cc.

References cmd, and interp.

 {
         Tcl_DecrRefCount(cmd);
 
         if (--interp_cnt == 0) {
                 if (::interp) {
                         Tcl_DeleteInterp(interp);
                 }
         }
 }

Member Function Documentation

TypedValue::Type TclPlugIn::GetType ( void ) const

virtual

Implements MathParser::PlugIn.

Definition at line 157 of file module-tclpgin.cc.

References type.

 {
         return type;
 }

TypedValue TclPlugIn::GetVal ( void ) const

virtual

Implements MathParser::PlugIn.

Definition at line 163 of file module-tclpgin.cc.

References cmd, interp, MBDYN_EXCEPT_ARGS, type, TypedValue::VAR_INT, and TypedValue::VAR_REAL.

 {
         Tcl_Obj *res;
         
         if (Tcl_EvalObjEx(interp, cmd, 0) != TCL_OK) {
                 silent_cerr("TclPlugIn::GetVal: Tcl_EvalObjEx failed" 
                         << std::endl);
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         res = Tcl_GetObjResult(interp);
         if (res == 0) {
                 silent_cerr("TclPlugIn::GetVal: Tcl_GetObjResult failed" 
                         << std::endl);
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         switch (type) {
         case TypedValue::VAR_INT: {
                 int i;
                 if (Tcl_GetIntFromObj(0, res, &i) != TCL_OK) {
                         silent_cerr("TclPlugIn::GetVal: Tcl_GetIntFromObj failed"
                                 << std::endl);
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
                 return TypedValue(i);
                 }
 
         case TypedValue::VAR_REAL: {
                 double d;
                 if (Tcl_GetDoubleFromObj(0, res, &d) != TCL_OK) {
                         silent_cerr("TclPlugIn::GetVal: Tcl_GetDoubleFromObj failed"
                                 << std::endl);
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
                 return TypedValue(d);
                 }
 
         default:
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         Tcl_ResetResult(interp);
 }

int TclPlugIn::Read	(	int	argc,
		char *	argv[]
	)

virtual

Implements MathParser::PlugIn.

Definition at line 92 of file module-tclpgin.cc.

References buf, cmd, MBDYN_EXCEPT_ARGS, STRLENOF, type, TypedValue::VAR_BOOL, TypedValue::VAR_INT, and TypedValue::VAR_REAL.

 {
         char *s_type = argv[0];
         if (strcasecmp(s_type, "real") == 0) {
                 type = TypedValue::VAR_REAL;
 
         } else if (strcasecmp(s_type, "integer") == 0) {
                 type = TypedValue::VAR_INT;
 
         } else if (strcasecmp(s_type, "bool") == 0) {
                 type = TypedValue::VAR_BOOL;
 
         } else {
                 silent_cerr("unknown or unhandled type \"" << s_type << "\"" << std::endl);
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         char *s_tcl = argv[1];
         if (strncasecmp(s_tcl, "file://", STRLENOF("file://")) == 0) {
                 char *fname = &s_tcl[STRLENOF("file://")];
                 FILE *fin;
                 std::string s;
                 char buf[1024];
                 int cmdlen;
 
                 fin = fopen(fname, "r");
                 if (fin == 0) {
                         silent_cerr("TclPlugIn::Read: unable to open file \"" << fname << "\"" << std::endl);
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 if (!fgets(buf, sizeof(buf), fin)) {
                         silent_cerr("TclPlugIn::Read: unable to read from file \"" << fname << "\"" << std::endl);
                         fclose(fin);
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 s += buf;
 
                 while (fgets(buf, sizeof(buf), fin)) {
                         s += buf;
                 }
                 fclose(fin);
                 
                 cmd = Tcl_NewStringObj(s.c_str(), s.length());
 
         } else {
 
                 /*
                  * check / escape string ?
                  */
                 cmd = Tcl_NewStringObj(s_tcl, strlen(s_tcl));
         }
 
         if (cmd == 0) {
                 silent_cerr("TclPlugIn::Read: Tcl_NewStringObj failed" << std::endl);
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         Tcl_IncrRefCount(cmd);
 
         return 0;
 }