/tags/rel-1.3.35/Examples/GIFPlot/Chicken/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_TYPEMAP(Pixel, C_unfix, C_fix, C_swig_is_fixnum, (int), 0);
20
21%{
22static Pixel int_to_Pixel (int v) { return (Pixel) v; }
23%}
24extern Pixel int_to_Pixel (int v);
25
26%include gifplot.h