/* File : example.i */
%module example

extern int    gcd(int x, int y);

%typemap(jni) (int argc, char *argv[]) "jobjectArray"
%typemap(jtype) (int argc, char *argv[]) "String[]"
%typemap(jstype) (int argc, char *argv[]) "String[]"

%typemap(in) (int argc, char *argv[]) (jstring *jsarray) {
int i;

  $1 = (*jenv)->GetArrayLength(jenv, $input);
  if ($1 == 0) {
    SWIG_JavaThrowException(jenv, SWIG_JavaIndexOutOfBoundsException, "Array must contain at least 1 element");
    return $null;
  }
  $2 = (char **) malloc(($1+1)*sizeof(char *));
  jsarray = (jstring *) malloc($1*sizeof(jstring));
  for (i = 0; i < $1; i++) {
    jsarray[i] = (jstring) (*jenv)->GetObjectArrayElement(jenv, $input, i);
    $2[i] = (char *) (*jenv)->GetStringUTFChars(jenv, jsarray[i], 0);
  }
  $2[i] = 0;
}

%typemap(argout) (int argc, char *argv[]) "" /* override char *[] default */

%typemap(freearg) (int argc, char *argv[]) {
int i;
  for (i = 0; i < $1; i++) {
    (*jenv)->ReleaseStringUTFChars(jenv, jsarray$argnum[i], $2[i]);
  }
  free($2);
}

extern int gcdmain(int argc, char *argv[]);

%typemap(jni) (char *bytes, int len) "jstring"
%typemap(jtype) (char *bytes, int len) "String"
%typemap(jstype) (char *bytes, int len) "String"

%typemap(in) (char *bytes, int len) {
  $1 = ($1_type)(*jenv)->GetStringUTFChars(jenv, $input, 0);
  $2 = (*jenv)->GetStringUTFLength(jenv, $input);
}

%typemap(freearg) (char *bytes, int len) %{
  (*jenv)->ReleaseStringUTFChars(jenv, $input, $1);
%}

extern int count(char *bytes, int len, char c);

/* This example shows how to wrap a function that mutates a c string. A one
 * element Java string array is used so that the string can be returned modified.*/

%typemap(jni) (char *str, int len) "jobjectArray"
%typemap(jtype) (char *str, int len) "String[]"
%typemap(jstype) (char *str, int len) "String[]"

%typemap(in) (char *str, int len) (jstring js) %{
  int index=0;

  js = (jstring) (*jenv)->GetObjectArrayElement(jenv, $input, index);
  $1 = (char *) (*jenv)->GetStringUTFChars(jenv, js, 0);
  $2 = (*jenv)->GetStringUTFLength(jenv, js);
%}

/* Return the mutated string as a modified element in the array. */
%typemap(argout) (char *str, int len) {
  jstring newstring = (*jenv)->NewStringUTF(jenv, $1);
  (*jenv)->SetObjectArrayElement(jenv, $input, 0, newstring);
}

/* Release memory */
%typemap(freearg) (char *str, int len) {
  (*jenv)->ReleaseStringUTFChars(jenv, js$argnum, $1);
}

extern void capitalize(char *str, int len);

/* A multi-valued constraint.  Force two arguments to lie
   inside the unit circle */

%typemap(check) (double cx, double cy) {
   double a = $1*$1 + $2*$2;
   if (a > 1.0) {
    SWIG_JavaThrowException(jenv, SWIG_JavaIllegalArgumentException, "$1_name and $2_name must be in unit circle");
    return;
   }
}

extern void circle(double cx, double cy);


