PageRenderTime 42ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. /* Oh what the heck, let's just grab the whole darn header file
    2. 

  2.    and see what happens. */
    3. 

  3. 

  4. %module gifplot
    5. 

  5. %{
    6. 

  6. 

  7. /* Note: You still need this part because the %include directive
    8. 

  8.    merely causes SWIG to interpret the contents of a file.  It doesn't
    9. 

  9.    include the right include headers for the resulting C code */
    10. 

  10. 

  11. #include "gifplot.h"
    12. 

  12. 

  13. %}
    14. 

  14. 

  15. /* Pixel is typedef'd to unsigned char, and SWIG will translate this
    16. 

  16.    type into Scheme characters. We would like to translate Pixels to
    17. 

  17.    Scheme integers instead, so: */
    18. 

  18. 

  19. SIMPLE_MAP(Pixel, gh_scm2int, gh_int2scm, integer);
    20. 

  20. 

  21. %include gifplot.h
    22. 

  22.