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

Minor fixes.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@228 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-02-11 19:48:20 +00:00
commit e52a46d271
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
SWIG/Source/Modules1.1/pycpp.cxx
View file

@ -411,12 +411,14 @@ void PYTHON::cpp_variable(char *name, char *iname, DataType *t) {
// Now write some code to set the variable
*setattr << tab8 << "if name == \"" << realname << "\" :\n";
if (inhash) {
*setattr << tab8 << tab4 << module << "." << name_set(name_member(realname,class_name)) << "(self,value.this)\n";
if (Status & STAT_READONLY) {
*setattr << tab8 << tab4 << "raise RuntimeError, \'Member is read-only\'\n";
} else {
if (inhash)
*setattr << tab8 << tab4 << "value.thisown = 0\n";
*setattr << tab8 << tab4 << module << "." << name_set(name_member(realname,class_name)) << "(self,value)\n";
*setattr << tab8 << tab4 << "return\n";
}
*setattr << tab8 << tab4 << "return\n";
// Write some code to get the variable
*getattr << tab8 << "if name == \"" << realname << "\" : \n";

2
SWIG/Source/Modules1.1/tcl8.cxx
View file

@ -1196,7 +1196,7 @@ char *TCL8::usage_const(char *name, DataType *, char *value) {
void TCL8::add_native(char *name, char *funcname, DataType *, ParmList *) {
fprintf(f_init,"\t Tcl_CreateCommand(%s, SWIG_prefix \"%s\", %s, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);\n",interp_name, name, funcname);
fprintf(f_init,"\t Tcl_CreateObjCommand(%s, SWIG_prefix \"%s\", %s, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);\n",interp_name, name, funcname);
}