[Swig-cvs] SWIG/Examples/mzscheme/multimap example.i,1.3,1.4

[William F. <wsf...@us...>]

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

Modified Files:
	example.i 
Log Message:
remove deprecated language specification in %typemap

Index: example.i
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/mzscheme/multimap/example.i,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** example.i	28 Jun 2005 21:11:04 -0000	1.3
--- example.i	9 Jan 2006 21:23:27 -0000	1.4
***************
*** 16,20 ****
  extern int    gcd(int x, int y);
  
! %typemap(mzscheme,in) (int argc, char *argv[]) {
    int i;
    Scheme_Object **elms;
--- 16,20 ----
  extern int    gcd(int x, int y);
  
! %typemap(in) (int argc, char *argv[]) {
    int i;
    Scheme_Object **elms;
***************
*** 38,47 ****
  }
  
! %typemap(mzscheme,freear) (int argc, char *argv[]) {
    free($2);
  }
  extern int gcdmain(int argc, char *argv[]);
  
! %typemap(mzscheme,in) (char *bytes, int len) {
    if (!SCHEME_STRINGP($input)) {
       scheme_wrong_type("$name","string",1,argc,argv);
--- 38,47 ----
  }
  
! %typemap(freearg) (int argc, char *argv[]) {
    free($2);
  }
  extern int gcdmain(int argc, char *argv[]);
  
! %typemap(in) (char *bytes, int len) {
    if (!SCHEME_STRINGP($input)) {
       scheme_wrong_type("$name","string",1,argc,argv);
***************
*** 56,60 ****
  /* This example shows how to wrap a function that mutates a string */
  
! %typemap(mzscheme,in) (char *str, int len) {
    if (!SCHEME_STRINGP($input)) {
       scheme_wrong_type("$name","string",1,argc,argv);
--- 56,60 ----
  /* This example shows how to wrap a function that mutates a string */
  
! %typemap(in) (char *str, int len) {
    if (!SCHEME_STRINGP($input)) {
       scheme_wrong_type("$name","string",1,argc,argv);
***************
*** 67,71 ****
  /* Return the mutated string as a new object.  */
  
! %typemap(mzscheme,argout) (char *str, int len) {
     Scheme_Object *s;
     s = scheme_make_sized_string($1,$2,1);
--- 67,71 ----
  /* Return the mutated string as a new object.  */
  
! %typemap(argout) (char *str, int len) {
     Scheme_Object *s;
     s = scheme_make_sized_string($1,$2,1);