jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Work on Tcl global variable support.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@187 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-02-02 23:36:49 +00:00
commit 04ea7149f6
1 changed files with 27 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

33
Source/Modules1.1/tcl8.cxx
View file

@ -768,8 +768,7 @@ void TCL8::create_function(char *name, char *iname, DataType *d, ParmList *l)
} }
// ----------------------------------------------------------------------- // -----------------------------------------------------------------------
// TCL8::link_variable(char *name, char *iname, DataType *t, // TCL8::link_variable(char *name, char *iname, DataType *t, int ex)
// int ex)
// //
// Create a TCL link to a variable. // Create a TCL link to a variable.
// ----------------------------------------------------------------------- // -----------------------------------------------------------------------
@ -832,9 +831,18 @@ void TCL8::link_variable(char *name, char *iname, DataType *t)
set.code << tab4 << "*(addr) = " << t->print_cast() << "atof(value);\n"; set.code << tab4 << "*(addr) = " << t->print_cast() << "atof(value);\n";
break; break;
case T_USER: case T_USER:
// User defined type. We've got to extract it as a pointer and perform a copy. // User defined type. We return it as a pointer
t->is_pointer++;
fprintf(stderr,"User defined type\n"); t->remember();
set.code << tab4 << "{\n"
<< tab8 << "void *ptr;\n"
<< tab8 << "if (SWIG_ConvertPtrFromString(interp,value,&ptr,SWIGTYPE" << t->print_mangle() << ") != TCL_OK) {\n"
<< tab8 << tab4 << "return \"Type Error\";\n"
<< tab8 << "}\n"
<< tab8 << "*(addr) = *(" << t->print_cast() << " ptr);\n"
<< tab4 << "}\n";
t->is_pointer--;
break; break;
default: default:
fprintf(stderr,"Unknown type!\n"); fprintf(stderr,"Unknown type!\n");
@ -842,8 +850,11 @@ void TCL8::link_variable(char *name, char *iname, DataType *t)
} }
} else { } else {
if ((t->is_pointer == 1) && (t->type == T_CHAR)) { if ((t->is_pointer == 1) && (t->type == T_CHAR)) {
if (CPlusPlus) {
}
/* A character string */ /* A character string */
} else {
/* A Pointer */
} }
} }
set.code << tab4 << "return NULL;\n" set.code << tab4 << "return NULL;\n"
@ -882,6 +893,16 @@ void TCL8::link_variable(char *name, char *iname, DataType *t)
get.code << tab4 << "temp[0] = *addr; temp[1] = 0;\n" get.code << tab4 << "temp[0] = *addr; temp[1] = 0;\n"
<< tab4 << "Tcl_SetVar2(interp,name1,name2,temp,flags);\n"; << tab4 << "Tcl_SetVar2(interp,name1,name2,temp,flags);\n";
break; break;
case T_USER:
get.add_local("Tcl_Obj *","value");
t->is_pointer++;
get.code << tab4 << "value = SWIG_NewPointerObj(addr, SWIGTYPE" << t->print_mangle() << ");\n"
<< tab4 << "Tcl_SetVar2(interp,name1,name2,Tcl_GetStringFromObj(value,NULL), flags);\n"
<< tab4 << "Tcl_DecrRefCount(value);\n";
t->is_pointer--;
break;
default: default:
break; break;
} }