[Swig-cvs] SWIG/Examples/tcl/multimap example.i,1.4,1.5

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Examples/tcl/multimap
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17163/Examples/tcl/multimap

Modified Files:
	example.i 
Log Message:
add %typemap(LANG,..) warning 1387184

Index: example.i
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/tcl/multimap/example.i,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** example.i	28 Jun 2005 21:11:12 -0000	1.4
--- example.i	5 Jan 2006 19:48:53 -0000	1.5
***************
*** 15,21 ****
  extern int    gcd(int x, int y);
  
! %typemap(tcl8,arginit) (int argc, char *argv[]) "$2 = 0;";
  
! %typemap(tcl8,in) (int argc, char *argv[]) {
    Tcl_Obj **listobjv = 0;
    int i;
--- 15,21 ----
  extern int    gcd(int x, int y);
  
! %typemap(arginit) (int argc, char *argv[]) "$2 = 0;";
  
! %typemap(in) (int argc, char *argv[]) {
    Tcl_Obj **listobjv = 0;
    int i;
***************
*** 31,35 ****
  }
  
! %typemap(tcl8,freearg) char *argv[] {
    if ($1) {
      free($1);
--- 31,35 ----
  }
  
! %typemap(freearg) char *argv[] {
    if ($1) {
      free($1);
***************
*** 39,43 ****
  extern int gcdmain(int argc, char *argv[]);
  
! %typemap(tcl8,in) (char *bytes, int len) {
    $1 = Tcl_GetStringFromObj($input,&$2);
  }
--- 39,43 ----
  extern int gcdmain(int argc, char *argv[]);
  
! %typemap(in) (char *bytes, int len) {
    $1 = Tcl_GetStringFromObj($input,&$2);
  }
***************
*** 48,52 ****
  /* This example shows how to wrap a function that mutates a string */
  
! %typemap(tcl8,in) (char *str, int len) {
    char *temp;
    temp = Tcl_GetStringFromObj($input,&$2);
--- 48,52 ----
  /* This example shows how to wrap a function that mutates a string */
  
! %typemap(in) (char *str, int len) {
    char *temp;
    temp = Tcl_GetStringFromObj($input,&$2);
***************
*** 57,61 ****
  /* Return the mutated string as a new object.   */
  
! %typemap(tcl8,argout) (char *str, int len) {
   Tcl_Obj *o;
   o = Tcl_NewStringObj($1,$2);
--- 57,61 ----
  /* Return the mutated string as a new object.   */
  
! %typemap(argout) (char *str, int len) {
   Tcl_Obj *o;
   o = Tcl_NewStringObj($1,$2);