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

Initial revision for clisp support.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7325 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Surendra Singhi 2005-07-13 08:03:21 +00:00
commit ccca3c012e
2 changed files with 346 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Lib/clisp/clisp.swg Normal file
View file

@ -0,0 +1,28 @@
/* Define a C preprocessor symbol that can be used in interface files
to distinguish between the SWIG language modules. */
#define SWIG_CLISP
/* 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)";