root/ompi/mpi/java/c/mpi_Constant.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. ompi_java_setStaticLongField
  2. ompi_java_setIntField
  3. Java_mpi_Constant_setConstant

   1 /*
   2  * Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
   3  *                         University Research and Technology
   4  *                         Corporation.  All rights reserved.
   5  * Copyright (c) 2004-2005 The University of Tennessee and The University
   6  *                         of Tennessee Research Foundation.  All rights
   7  *                         reserved.
   8  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
   9  *                         University of Stuttgart.  All rights reserved.
  10  * Copyright (c) 2004-2005 The Regents of the University of California.
  11  *                         All rights reserved.
  12  * $COPYRIGHT$
  13  *
  14  * Additional copyrights may follow
  15  *
  16  * $HEADER$
  17  */
  18 
  19 #include "ompi_config.h"
  20 
  21 #ifdef HAVE_TARGETCONDITIONALS_H
  22 #include <TargetConditionals.h>
  23 #endif
  24 
  25 #include "mpi_Constant.h"
  26 #include "mpiJava.h"
  27 
  28 void ompi_java_setStaticLongField(JNIEnv *env, jclass c,
  29                                   char *field, jlong value)
  30 {
  31     jfieldID id = (*env)->GetStaticFieldID(env, c, field, "J");
  32     (*env)->SetStaticLongField(env, c, id, value);
  33 }
  34 
  35 void ompi_java_setIntField(JNIEnv *env, jclass c, jobject obj,
  36                            char *field, jint value)
  37 {
  38     jfieldID id = (*env)->GetFieldID(env, c, field, "I");
  39     (*env)->SetIntField(env, obj, id, value);
  40 }
  41 
  42 /*
  43  * Class:     mpi_Constant
  44  * Method:    setConstant
  45  * Signature: ()V
  46  */
  47 JNIEXPORT void JNICALL Java_mpi_Constant_setConstant(JNIEnv *env, jobject obj)
  48 {
  49     jclass c = (*env)->GetObjectClass(env, obj);
  50     ompi_java_setIntField(env, c, obj, "THREAD_SINGLE",     MPI_THREAD_SINGLE);
  51     ompi_java_setIntField(env, c, obj, "THREAD_FUNNELED",   MPI_THREAD_FUNNELED);
  52     ompi_java_setIntField(env, c, obj, "THREAD_SERIALIZED", MPI_THREAD_SERIALIZED);
  53     ompi_java_setIntField(env, c, obj, "THREAD_MULTIPLE",   MPI_THREAD_MULTIPLE);
  54 
  55     ompi_java_setIntField(env, c, obj, "ANY_SOURCE", MPI_ANY_SOURCE);
  56     ompi_java_setIntField(env, c, obj, "ANY_TAG",    MPI_ANY_TAG);
  57     ompi_java_setIntField(env, c, obj, "PROC_NULL",  MPI_PROC_NULL);
  58     ompi_java_setIntField(env, c, obj, "GRAPH",      MPI_GRAPH);
  59     ompi_java_setIntField(env, c, obj, "DIST_GRAPH", MPI_DIST_GRAPH);
  60     ompi_java_setIntField(env, c, obj, "CART",       MPI_CART);
  61 
  62     ompi_java_setIntField(env, c, obj, "UNDEFINED",  MPI_UNDEFINED);
  63     ompi_java_setIntField(env, c, obj, "IDENT",      MPI_IDENT);
  64     ompi_java_setIntField(env, c, obj, "CONGRUENT",  MPI_CONGRUENT);
  65     ompi_java_setIntField(env, c, obj, "SIMILAR",    MPI_SIMILAR);
  66     ompi_java_setIntField(env, c, obj, "UNEQUAL",    MPI_UNEQUAL);
  67 
  68     ompi_java_setIntField(env, c, obj, "TAG_UB",          MPI_TAG_UB);
  69     ompi_java_setIntField(env, c, obj, "HOST",            MPI_HOST);
  70     ompi_java_setIntField(env, c, obj, "IO",              MPI_IO);
  71     ompi_java_setIntField(env, c, obj, "WTIME_IS_GLOBAL", MPI_WTIME_IS_GLOBAL);
  72     ompi_java_setIntField(env, c, obj, "APPNUM",          MPI_APPNUM);
  73     ompi_java_setIntField(env, c, obj, "LASTUSEDCODE",    MPI_LASTUSEDCODE);
  74     ompi_java_setIntField(env, c, obj, "UNIVERSE_SIZE",   MPI_UNIVERSE_SIZE);
  75     ompi_java_setIntField(env, c, obj, "WIN_BASE",        MPI_WIN_BASE);
  76     ompi_java_setIntField(env, c, obj, "WIN_SIZE",        MPI_WIN_SIZE);
  77     ompi_java_setIntField(env, c, obj, "WIN_DISP_UNIT",   MPI_WIN_DISP_UNIT);
  78 
  79     ompi_java_setIntField(env, c, obj, "VERSION", MPI_VERSION);
  80     ompi_java_setIntField(env, c, obj, "SUBVERSION", MPI_SUBVERSION);
  81     ompi_java_setIntField(env, c, obj, "ROOT", MPI_ROOT);
  82     ompi_java_setIntField(env, c, obj, "KEYVAL_INVALID", MPI_KEYVAL_INVALID);
  83     ompi_java_setIntField(env, c, obj, "BSEND_OVERHEAD", MPI_BSEND_OVERHEAD);
  84     ompi_java_setIntField(env, c, obj, "MAX_OBJECT_NAME", MPI_MAX_OBJECT_NAME);
  85     ompi_java_setIntField(env, c, obj, "MAX_PORT_NAME", MPI_MAX_PORT_NAME);
  86     ompi_java_setIntField(env, c, obj, "MAX_DATAREP_STRING", MPI_MAX_DATAREP_STRING);
  87     ompi_java_setIntField(env, c, obj, "MAX_INFO_KEY", MPI_MAX_INFO_KEY);
  88     ompi_java_setIntField(env, c, obj, "MAX_INFO_VAL", MPI_MAX_INFO_VAL);
  89     ompi_java_setIntField(env, c, obj, "ORDER_C", MPI_ORDER_C);
  90     ompi_java_setIntField(env, c, obj, "ORDER_FORTRAN", MPI_ORDER_FORTRAN);
  91     ompi_java_setIntField(env, c, obj, "DISTRIBUTE_BLOCK", MPI_DISTRIBUTE_BLOCK);
  92     ompi_java_setIntField(env, c, obj, "DISTRIBUTE_CYCLIC", MPI_DISTRIBUTE_CYCLIC);
  93     ompi_java_setIntField(env, c, obj, "DISTRIBUTE_NONE", MPI_DISTRIBUTE_NONE);
  94     ompi_java_setIntField(env, c, obj, "DISTRIBUTE_DFLT_DARG", MPI_DISTRIBUTE_DFLT_DARG);
  95 
  96     ompi_java_setIntField(env, c, obj, "MODE_CREATE", MPI_MODE_CREATE);
  97     ompi_java_setIntField(env, c, obj, "MODE_RDONLY", MPI_MODE_RDONLY);
  98     ompi_java_setIntField(env, c, obj, "MODE_WRONLY", MPI_MODE_WRONLY);
  99     ompi_java_setIntField(env, c, obj, "MODE_RDWR", MPI_MODE_RDWR);
 100     ompi_java_setIntField(env, c, obj, "MODE_DELETE_ON_CLOSE", MPI_MODE_DELETE_ON_CLOSE);
 101     ompi_java_setIntField(env, c, obj, "MODE_UNIQUE_OPEN", MPI_MODE_UNIQUE_OPEN);
 102     ompi_java_setIntField(env, c, obj, "MODE_EXCL", MPI_MODE_EXCL);
 103     ompi_java_setIntField(env, c, obj, "MODE_APPEND", MPI_MODE_APPEND);
 104     ompi_java_setIntField(env, c, obj, "MODE_SEQUENTIAL", MPI_MODE_SEQUENTIAL);
 105     ompi_java_setIntField(env, c, obj, "DISPLACEMENT_CURRENT", MPI_DISPLACEMENT_CURRENT);
 106     ompi_java_setIntField(env, c, obj, "SEEK_SET", MPI_SEEK_SET);
 107     ompi_java_setIntField(env, c, obj, "SEEK_CUR", MPI_SEEK_CUR);
 108     ompi_java_setIntField(env, c, obj, "SEEK_END", MPI_SEEK_END);
 109 
 110     ompi_java_setIntField(env, c, obj, "MODE_NOCHECK", MPI_MODE_NOCHECK);
 111     ompi_java_setIntField(env, c, obj, "MODE_NOPRECEDE", MPI_MODE_NOPRECEDE);
 112     ompi_java_setIntField(env, c, obj, "MODE_NOPUT", MPI_MODE_NOPUT);
 113     ompi_java_setIntField(env, c, obj, "MODE_NOSTORE", MPI_MODE_NOSTORE);
 114     ompi_java_setIntField(env, c, obj, "MODE_NOSUCCEED", MPI_MODE_NOSUCCEED);
 115     ompi_java_setIntField(env, c, obj, "LOCK_EXCLUSIVE", MPI_LOCK_EXCLUSIVE);
 116     ompi_java_setIntField(env, c, obj, "LOCK_SHARED", MPI_LOCK_SHARED);
 117 
 118     // Error classes and codes
 119     ompi_java_setIntField(env, c, obj, "SUCCESS",          MPI_SUCCESS);
 120     ompi_java_setIntField(env, c, obj, "ERR_BUFFER",       MPI_ERR_BUFFER);
 121     ompi_java_setIntField(env, c, obj, "ERR_COUNT",        MPI_ERR_COUNT);
 122     ompi_java_setIntField(env, c, obj, "ERR_TYPE",         MPI_ERR_TYPE);
 123     ompi_java_setIntField(env, c, obj, "ERR_TAG",          MPI_ERR_TAG);
 124     ompi_java_setIntField(env, c, obj, "ERR_COMM",         MPI_ERR_COMM);
 125     ompi_java_setIntField(env, c, obj, "ERR_RANK",         MPI_ERR_RANK);
 126     ompi_java_setIntField(env, c, obj, "ERR_REQUEST",      MPI_ERR_REQUEST);
 127     ompi_java_setIntField(env, c, obj, "ERR_ROOT",         MPI_ERR_ROOT);
 128     ompi_java_setIntField(env, c, obj, "ERR_GROUP",        MPI_ERR_GROUP);
 129     ompi_java_setIntField(env, c, obj, "ERR_OP",           MPI_ERR_OP);
 130     ompi_java_setIntField(env, c, obj, "ERR_TOPOLOGY",     MPI_ERR_TOPOLOGY);
 131     ompi_java_setIntField(env, c, obj, "ERR_DIMS",         MPI_ERR_DIMS);
 132     ompi_java_setIntField(env, c, obj, "ERR_ARG",          MPI_ERR_ARG);
 133     ompi_java_setIntField(env, c, obj, "ERR_UNKNOWN",      MPI_ERR_UNKNOWN);
 134     ompi_java_setIntField(env, c, obj, "ERR_TRUNCATE",     MPI_ERR_TRUNCATE);
 135     ompi_java_setIntField(env, c, obj, "ERR_OTHER",        MPI_ERR_OTHER);
 136     ompi_java_setIntField(env, c, obj, "ERR_INTERN",       MPI_ERR_INTERN);
 137     ompi_java_setIntField(env, c, obj, "ERR_IN_STATUS",    MPI_ERR_IN_STATUS);
 138     ompi_java_setIntField(env, c, obj, "ERR_PENDING",      MPI_ERR_PENDING);
 139     ompi_java_setIntField(env, c, obj, "ERR_ACCESS",       MPI_ERR_ACCESS);
 140     ompi_java_setIntField(env, c, obj, "ERR_AMODE",        MPI_ERR_AMODE);
 141     ompi_java_setIntField(env, c, obj, "ERR_ASSERT",       MPI_ERR_ASSERT);
 142     ompi_java_setIntField(env, c, obj, "ERR_BAD_FILE",     MPI_ERR_BAD_FILE);
 143     ompi_java_setIntField(env, c, obj, "ERR_BASE",         MPI_ERR_BASE);
 144     ompi_java_setIntField(env, c, obj, "ERR_CONVERSION",   MPI_ERR_CONVERSION);
 145     ompi_java_setIntField(env, c, obj, "ERR_DISP",         MPI_ERR_DISP);
 146     ompi_java_setIntField(env, c, obj, "ERR_DUP_DATAREP",  MPI_ERR_DUP_DATAREP);
 147     ompi_java_setIntField(env, c, obj, "ERR_FILE_EXISTS",  MPI_ERR_FILE_EXISTS);
 148     ompi_java_setIntField(env, c, obj, "ERR_FILE_IN_USE",  MPI_ERR_FILE_IN_USE);
 149     ompi_java_setIntField(env, c, obj, "ERR_FILE",         MPI_ERR_FILE);
 150     ompi_java_setIntField(env, c, obj, "ERR_INFO_KEY",     MPI_ERR_INFO_KEY);
 151     ompi_java_setIntField(env, c, obj, "ERR_INFO_NOKEY",   MPI_ERR_INFO_NOKEY);
 152     ompi_java_setIntField(env, c, obj, "ERR_INFO_VALUE",   MPI_ERR_INFO_VALUE);
 153     ompi_java_setIntField(env, c, obj, "ERR_INFO",         MPI_ERR_INFO);
 154     ompi_java_setIntField(env, c, obj, "ERR_IO",           MPI_ERR_IO);
 155     ompi_java_setIntField(env, c, obj, "ERR_KEYVAL",       MPI_ERR_KEYVAL);
 156     ompi_java_setIntField(env, c, obj, "ERR_LOCKTYPE",     MPI_ERR_LOCKTYPE);
 157     ompi_java_setIntField(env, c, obj, "ERR_NAME",         MPI_ERR_NAME);
 158     ompi_java_setIntField(env, c, obj, "ERR_NO_MEM",       MPI_ERR_NO_MEM);
 159     ompi_java_setIntField(env, c, obj, "ERR_NOT_SAME",     MPI_ERR_NOT_SAME);
 160     ompi_java_setIntField(env, c, obj, "ERR_NO_SPACE",     MPI_ERR_NO_SPACE);
 161     ompi_java_setIntField(env, c, obj, "ERR_NO_SUCH_FILE", MPI_ERR_NO_SUCH_FILE);
 162     ompi_java_setIntField(env, c, obj, "ERR_PORT",         MPI_ERR_PORT);
 163     ompi_java_setIntField(env, c, obj, "ERR_QUOTA",        MPI_ERR_QUOTA);
 164     ompi_java_setIntField(env, c, obj, "ERR_READ_ONLY",    MPI_ERR_READ_ONLY);
 165     ompi_java_setIntField(env, c, obj, "ERR_RMA_CONFLICT", MPI_ERR_RMA_CONFLICT);
 166     ompi_java_setIntField(env, c, obj, "ERR_RMA_SYNC",     MPI_ERR_RMA_SYNC);
 167     ompi_java_setIntField(env, c, obj, "ERR_SERVICE",      MPI_ERR_SERVICE);
 168     ompi_java_setIntField(env, c, obj, "ERR_SIZE",         MPI_ERR_SIZE);
 169     ompi_java_setIntField(env, c, obj, "ERR_SPAWN",        MPI_ERR_SPAWN);
 170 
 171     ompi_java_setIntField(env, c, obj, "ERR_UNSUPPORTED_DATAREP",
 172                           MPI_ERR_UNSUPPORTED_DATAREP);
 173 
 174     ompi_java_setIntField(env, c, obj, "ERR_UNSUPPORTED_OPERATION",
 175                           MPI_ERR_UNSUPPORTED_OPERATION);
 176 
 177     ompi_java_setIntField(env, c, obj, "ERR_WIN",          MPI_ERR_WIN);
 178     ompi_java_setIntField(env, c, obj, "ERR_LASTCODE",     MPI_ERR_LASTCODE);
 179 }

/* [<][>][^][v][top][bottom][index][help] */