/trunk/Examples/perl5/constants/example.i

 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