/trunk/Examples/perl5/constants/example.i
Swig | 27 lines | 12 code | 9 blank | 6 comment | 0 complexity | cb0bb1f676ff1f88c20a3f70c470ae10 MD5 | raw file
1/* File : example.i */ 2%module example 3 4/* A few preprocessor macros */ 5 6#define ICONST 42 7#define FCONST 2.1828 8#define CCONST 'x' 9#define CCONST2 '\n' 10#define SCONST "Hello World" 11#define SCONST2 "\"Hello World\"" 12 13/* This should work just fine */ 14#define EXPR ICONST + 3*(FCONST) 15 16/* This shouldn't do anything */ 17#define EXTERN extern 18 19/* Neither should this (BAR isn't defined) */ 20#define FOO (ICONST + BAR) 21 22/* The following directives also produce constants */ 23 24%constant int iconst = 37; 25%constant double fconst = 3.14; 26 27