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

# · Swig · 21 lines · 6 code · 7 blank · 8 comment · 0 complexity · 01cf85afafe4b6081fa6dca96383f0e4 MD5 · raw file

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