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

Tcl documentation fixes

Browse source 
Mostly suggestions from Ben Golding on swig-devel mailing list

[skip ci]
This commit is contained in:
William S Fulton 2014-10-10 20:30:17 +01:00
commit 023037b122
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Doc/Manual/Tcl.html
View file

@ -2365,7 +2365,7 @@ Tcl extension by specifying the following in an interface file :
$action // Gets substituted by actual function call $action // Gets substituted by actual function call
} }
catch (RangeError) { catch (RangeError) {
Tcl_SetStringObj(tcl_result,"Array index out-of-bounds"); Tcl_SetResult(interp, (char *)"Array index out-of-bounds", TCL_STATIC);
return TCL_ERROR; return TCL_ERROR;
} }
} }
@ -2384,7 +2384,7 @@ exception handler to only apply to specific methods like this:
$action $action
} }
catch (RangeError) { catch (RangeError) {
Tcl_SetStringObj(tcl_result,"Array index out-of-bounds"); Tcl_SetResult(interp, (char *)"Array index out-of-bounds", TCL_STATIC);
return TCL_ERROR; return TCL_ERROR;
} }
} }
@ -2394,7 +2394,7 @@ exception handler to only apply to specific methods like this:
$action $action
} }
catch (RangeError) { catch (RangeError) {
Tcl_SetStringObj(tcl_result,"Array index out-of-bounds"); Tcl_SetResult(interp, (char *)"Array index out-of-bounds", TCL_STATIC);
return TCL_ERROR; return TCL_ERROR;
} }
} }
@ -2419,7 +2419,7 @@ For example:
$action $action
} }
catch (RangeError) { catch (RangeError) {
Tcl_SetStringObj(tcl_result,"Array index out-of-bounds"); Tcl_SetResult(interp, (char *)"Array index out-of-bounds", TCL_STATIC);
return TCL_ERROR; return TCL_ERROR;
} }
} }
@ -2921,7 +2921,6 @@ int Tcl_GetDoubleFromObj(Tcl_Interp *, Tcl_Obj *o, double *dp);
<div class="code"> <div class="code">
<pre> <pre>
Tcl_Obj *Tcl_NewStringObj(char *str, int len); Tcl_Obj *Tcl_NewStringObj(char *str, int len);
void Tcl_SetStringObj(Tcl_Obj *obj, char *str, int len);
char *Tcl_GetStringFromObj(Tcl_Obj *obj, int *len); char *Tcl_GetStringFromObj(Tcl_Obj *obj, int *len);
void Tcl_AppendToObj(Tcl_Obj *obj, char *str, int len); void Tcl_AppendToObj(Tcl_Obj *obj, char *str, int len);
</pre> </pre>
@ -3037,9 +3036,10 @@ work)
<div class="code"> <div class="code">
<pre> <pre>
%typemap(out) char * { %typemap(out,noblock=1,fragment="SWIG_FromCharPtr") char *, const char * {
Tcl_SetStringObj($result,$1); Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)$1));
} }
</pre> </pre>
</div> </div>