Examples/test-suite/char_constant.i


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/* This interface file tests whether character constants are correctly
   wrapped as procedures returning Scheme characters (rather than
   Scheme strings). 
*/

%module char_constant

#define CHAR_CONSTANT 'x'

#define STRING_CONSTANT "xyzzy"

#define ESC_CONST  '\1'
#define NULL_CONST '\0'
#define SPECIALCHAR 'á'

%inline 
{
  const int ia = (int)'a';
  const int ib = 'b';
}