[Swig-cvs] SWIG/Source/Modules chicken.cxx,1.40,1.41

[John L. <wu...@us...>]

Update of /cvsroot/swig/SWIG/Source/Modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29742/Source/Modules

Modified Files:
	chicken.cxx 
Log Message:
SWIG chicken module now returns multiple values instead of returning a list.


Index: chicken.cxx
===================================================================
RCS file: /cvsroot/swig/SWIG/Source/Modules/chicken.cxx,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** chicken.cxx	15 Apr 2005 05:23:14 -0000	1.40
--- chicken.cxx	15 Apr 2005 22:38:09 -0000	1.41
***************
*** 603,608 ****
                     "  C_kontinue(continuation, resultobj);\n",
                     "}\n", NIL);
    } else {
!     Printf(f->code,"    C_kontinue (continuation, resultobj);\n");
    }
  
--- 603,613 ----
                     "  C_kontinue(continuation, resultobj);\n",
                     "}\n", NIL);
+   } else if (Wrapper_check_local(f, "gswig_list_p")) {
+     Printv(f->code,"if (gswig_list_p)\n",
+ 		   "  C_apply_values(3, C_SCHEME_UNDEFINED, continuation, resultobj);\n",
+ 		   "else\n",
+ 		   "  C_kontinue(continuation, resultobj);\n", NIL);
    } else {
!     Printf(f->code,"C_kontinue (continuation, resultobj);\n");
    }