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

add %typemap(varin) SWIGTYPE[], fix some typemaps to be safe for %apply

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6423 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-10-18 00:38:44 +00:00
commit 9d9580639a
5 changed files with 27 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Lib/tcl/tcl8.swg
View file

@ -236,14 +236,14 @@
%typemap(out) const long long & {
char temp[256];
sprintf(temp,"%lld", *($1));
sprintf(temp,"%lld", (long long)*($1));
Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
}
%typemap(out) const unsigned long long &
{
char temp[256];
sprintf(temp,"%llu", *($1));
sprintf(temp,"%llu", (unsigned long long)*($1));
Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
}
@ -258,13 +258,13 @@
%typemap(varout) long long {
char temp[256];
sprintf(temp,"%lld", $1);
sprintf(temp,"%lld", (long long)$1);
$result = Tcl_NewStringObj(temp,-1);
}
%typemap(varout) unsigned long long {
char temp[256];
sprintf(temp,"%llu", $1);
sprintf(temp,"%llu", (unsigned long long)$1);
$result = Tcl_NewStringObj(temp,-1);
}
@ -381,6 +381,10 @@
}
}
%typemap(varin,warning="462: Unable to set dimensionless array variable") SWIGTYPE [] {
return (char*)"Variable $symname is read-only.";
}
%typemap(varin) void * {
void *temp;
if (SWIG_ConvertPtr($input,&temp,0, SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK) {

4
Lib/tcl/typemaps.i
View file

@ -274,7 +274,7 @@ output values.
{
char temp[256];
Tcl_Obj *o;
sprintf(temp,"%lld",*($1));
sprintf(temp,"%lld",(long long)*($1));
o = Tcl_NewStringObj(temp,-1);
Tcl_ListObjAppendElement(interp,Tcl_GetObjResult(interp),o);
}
@ -283,7 +283,7 @@ output values.
{
char temp[256];
Tcl_Obj *o;
sprintf(temp,"%llu",*($1));
sprintf(temp,"%llu",(unsigned long long)*($1));
o = Tcl_NewStringObj(temp,-1);
Tcl_ListObjAppendElement(interp,Tcl_GetObjResult(interp),o);
}