[Swig-cvs] SWIG/Lib/allegrocl allegrocl.swg,1.5,1.6

[Matthias K. <mk...@us...>]

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

Modified Files:
	allegrocl.swg 
Log Message:
Replace hardcoded type specifiers by typemap-based type specifier lookup.


Index: allegrocl.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/allegrocl/allegrocl.swg,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** allegrocl.swg	3 Aug 2004 23:07:44 -0000	1.5
--- allegrocl.swg	23 Aug 2004 15:28:58 -0000	1.6
***************
*** 4,7 ****
--- 4,30 ----
  #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$