Replace hardcoded type specifiers by typemap-based type specifier lookup.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6114 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
dffd437b7f
commit
23d5f2ab9a
2 changed files with 75 additions and 63 deletions
|
|
@ -3,6 +3,29 @@
|
|||
|
||||
#define SWIG_ALLEGRO_CL
|
||||
|
||||
/* Typespecs for basic types. */
|
||||
|
||||
%typemap(ffitype) char ":char";
|
||||
%typemap(lisptype) char "character";
|
||||
%typemap(ffitype) unsigned char ":unsigned-char";
|
||||
%typemap(lisptype) unsigned char "integer";
|
||||
%typemap(ffitype) signed char ":char";
|
||||
%typemap(lisptype) signed char "integer";
|
||||
%typemap(ffitype) short ":short";
|
||||
%typemap(ffitype) signed short ":short";
|
||||
%typemap(ffitype) unsigned short ":unsigned-short";
|
||||
%typemap(ffitype) int ":int";
|
||||
%typemap(ffitype) signed int ":int";
|
||||
%typemap(ffitype) unsigned int ":unsigned-int";
|
||||
%typemap(ffitype) long ":long";
|
||||
%typemap(ffitype) signed long ":long";
|
||||
%typemap(ffitype) unsigned long ":unsigned-long";
|
||||
%typemap(ffitype) float ":float";
|
||||
%typemap(ffitype) double ":double";
|
||||
%typemap(ffitype) char * "(* :char)";
|
||||
%typemap(ffitype) void * "(* :void)";
|
||||
%typemap(ffitype) void ":void";
|
||||
|
||||
%wrapper %{
|
||||
;; $Id$
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue