[Swig-cvs] SWIG/Lib/clisp clisp.swg,1.1,1.2

[Surendra S. <efu...@us...>]

Update of /cvsroot/swig/SWIG/Lib/clisp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20849

Modified Files:
	clisp.swg 
Log Message:
Now only basic types are provided, and changed the name "ffitype" to "in. We now do recursive type conversion in clisp.cxx so no need to provide pointer and array types.

Index: clisp.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/clisp/clisp.swg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** clisp.swg	13 Jul 2005 08:02:24 -0000	1.1
--- clisp.swg	18 Jul 2005 06:23:41 -0000	1.2
***************
*** 6,28 ****
  /* Typespecs for basic types. */
  
! %typemap(ffitype) void "NIL";
! %typemap(ffitype) void * "(ffi:c-pointer NIL)";
! %typemap(ffitype) char "character";
! %typemap(ffitype) char * "ffi:c-string";
! %typemap(ffitype) unsigned char "ffi:uchar";
! %typemap(ffitype) signed char "ffi:char";
! %typemap(ffitype) short "ffi:short";
! %typemap(ffitype) signed short "ffi:short";
! %typemap(ffitype) unsigned short "ffi:ushort";
! %typemap(ffitype) int "ffi:int";
! %typemap(ffitype) int * "(ffi:c-pointer ffi:int)";
! %typemap(ffitype) signed int "ffi:int";
! %typemap(ffitype) unsigned int "ffi:uint";
! %typemap(ffitype) long "ffi:long";
! %typemap(ffitype) signed long "ffi:long";
! %typemap(ffitype) unsigned long "ffi:ulong";
! %typemap(ffitype) float "SINGLE-FLOAT";
! %typemap(ffitype) float * "(ffi:c-pointer SINGLE-FLOAT)";
! %typemap(ffitype) double "DOUBLE_FLOAT";
! %typemap(ffitype) double * "(ffi:c-pointer DOUBLE-FLOAT)";
  
--- 6,28 ----
  /* Typespecs for basic types. */
  
! %typemap(in) void "NIL";
! 
! %typemap(in) char "character";
! %typemap(in) char * "ffi:c-string";
! %typemap(in) unsigned char "ffi:uchar";
! %typemap(in) signed char "ffi:char";
! 
! %typemap(in) short "ffi:short";
! %typemap(in) signed short "ffi:short";
! %typemap(in) unsigned short "ffi:ushort";
  
+ %typemap(in) int "ffi:int";
+ %typemap(in) signed int "ffi:int";
+ %typemap(in) unsigned int "ffi:uint";
+ 
+ %typemap(in) long "ffi:long";
+ %typemap(in) signed long "ffi:long";
+ %typemap(in) unsigned long "ffi:ulong";
+ 
+ %typemap(in) float "SINGLE-FLOAT";
+ %typemap(in) double "DOUBLE_FLOAT";