swig/Examples/test-suite/java_enums.i
William S Fulton e072f9b077 Test for %javaconstvalue added
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6002 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2004-06-27 21:05:48 +00:00

51 lines
1.4 KiB
OpenEdge ABL

// This testcase uses the %javaconst directive to control how enums are initialised
%module java_enums
%include "enumtypeunsafe.swg"
// Some pragmas to add in an interface to the module class
%pragma(java) moduleinterfaces="Serializable"
%pragma(java) moduleimports=%{
import java.io.*; // For Serializable
%}
// Set default Java const code generation
%javaconst(1);
// Change the default generation so that these enums are generated into an interface instead of a class
%typemap(javaclassmodifiers) enum stuff "public interface"
%inline %{
enum stuff { FIDDLE = 2*100, STICKS = 5+8, BONGO, DRUMS };
%}
// Check that the enum typemaps are working by using a short for the enums instead of int
%javaconst(0); // will create compile errors in runme file if short typemaps not used
%typemap(jtype) enum nonsense "short"
%typemap(jstype) enum nonsense "short"
%typemap(javain) enum nonsense "$javainput"
%typemap(in) enum nonsense %{ $1 = (short)$input; %}
%typemap(out) enum nonsense %{ $result = (jshort)$1; %}
%typemap(jni) enum nonsense "jshort"
%typemap(javaout) enum nonsense {
return $jnicall;
}
%inline %{
enum nonsense { POPPYCOCK, JUNK };
nonsense test1(nonsense n) { return n; }
enum nonsense test2(enum nonsense n) { return n; }
%}
// Test the %javaconstvalue directive for enums
%{
static const int FOUR = 4;
%}
%javaconst(1);
%javaconstvalue(4) Quattro;
%inline %{
enum Numero { Quattro = FOUR };
%}