12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
26 lines
518 B
OpenEdge ABL
26 lines
518 B
OpenEdge ABL
// Tests passing of references to primitive datatypes
|
|
%module primitive_ref
|
|
|
|
%define ref(type,name)
|
|
%inline %{
|
|
const type &ref_##name(const type &x) {
|
|
static type y = x;
|
|
return y;
|
|
}
|
|
%}
|
|
%enddef
|
|
|
|
ref(int,int);
|
|
ref(unsigned int, uint);
|
|
ref(short, short);
|
|
ref(unsigned short, ushort);
|
|
ref(long,long);
|
|
ref(unsigned long, ulong);
|
|
ref(signed char, schar);
|
|
ref(unsigned char, uchar);
|
|
ref(char, char);
|
|
ref(float, float);
|
|
ref(double, double);
|
|
ref(bool, bool);
|
|
ref(long long, longlong);
|
|
ref(unsigned long long, ulonglong);
|