/tags/rel-1-3-24/SWIG/Examples/GIFPlot/Common-Lisp/full/gifplot.i

 1/* Oh what the heck, let's just grab the whole darn header file
 2   and see what happens. */
 3
 4%module gifplot
 5%{
 6
 7/* Note: You still need this part because the %include directive
 8   merely causes SWIG to interpret the contents of a file.  It doesn't
 9   include the right include headers for the resulting C code */
10
11#include "gifplot.h"
12
13%}
14
15/* Pixel is typedef'd to unsigned char, and SWIG will translate this
16   type into Scheme characters. We would like to translate Pixels to
17   Scheme integers instead, so: */
18
19SIMPLE_MAP(Pixel, gh_scm2int, gh_int2scm, integer);
20
21%include gifplot.h