/tags/ttn-post-libtool-1-4-3-upgrade/SWIG/Examples/perl5/constants/example.i
Swig | 27 lines | 12 code | 9 blank | 6 comment | 0 complexity | cb0bb1f676ff1f88c20a3f70c470ae10 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- /* File : example.i */
- %module example
- /* A few preprocessor macros */
- #define ICONST 42
- #define FCONST 2.1828
- #define CCONST 'x'
- #define CCONST2 '\n'
- #define SCONST "Hello World"
- #define SCONST2 "\"Hello World\""
- /* This should work just fine */
- #define EXPR ICONST + 3*(FCONST)
- /* This shouldn't do anything */
- #define EXTERN extern
- /* Neither should this (BAR isn't defined) */
- #define FOO (ICONST + BAR)
- /* The following directives also produce constants */
- %constant int iconst = 37;
- %constant double fconst = 3.14;