orte/libjorte/JORTEDomainAppDestroy.c

   1 /* JORTEDomainAppDestroy.c  */
   2
   3 /**
   4   * This code provides conversion between JAVA a C environments.
   5   * The C functions are calling here and results are send to JAVA
   6   * native functions. It uses the header pregenerated by JAVA
   7   * (by command 'javah -jni class_with_native_function')
   8   *
   9   * @author Lukas Pokorny (lukas_pokorny@centrum.cz)
  10   * @author CTU FEE Prague - Department of Control Engineering (dce.felk.cvut.cz
  11 )
  12   * @author Project ORTE - OCERA Real Time Ethernet (www.ocera.org)
  13   * @author dedication to Kj
  14   * @version 0.1
  15   *
  16   *
  17   * This program is free software; you can redistribute it and/or modify
  18   * it under the terms of the GNU General Public License as published by
  19   * the Free Software Foundation; either version 2 of the License, or
  20   * (at your option) any later version.
  21   *
  22   * This program is distributed in the hope that it will be useful,
  23   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  25   * GNU General Public License for more details.
  26   *
  27   */
  28
  29 #include <stdlib.h>
  30 // origin orte headers
  31 #include "orte.h"
  32 // pregenerated header
  33 #include "jorte/org_ocera_orte_DomainApp.h"
  34 #include "jorte/4all.h"
  35 #include "jorte/jorte_typedefs_defines.h"
  36
  37 JNIEXPORT jboolean JNICALL
  38 Java_org_ocera_orte_DomainApp_jORTEDomainAppDestroy
  39 (JNIEnv *env, jobject obj, jlong dhandle)
  40 {
  41   jlong       h;
  42   jclass      cls;
  43   jfieldID    fid;
  44   int         flag_ok = 0;
  45
  46   do {
  47     // check domain handle
  48     if (dhandle == 0)
  49     {
  50       printf(":!c: ORTEDomainAppDestroy failed! [bad handle] \n");
  51       break;
  52     }
  53     // call ORTE function
  54     if (!ORTEDomainAppDestroy((ORTEDomain *) dhandle))
  55     {
  56       #ifdef TEST_STAGE
  57          printf(":c: ORTEDomainAppDestroy failed.. \n");
  58       #endif
  59       break;
  60     }
  61
  62     // free domainEvents object
  63     // find cls
  64     cls = (*env)->GetObjectClass(env, obj);
  65     if(cls == 0)
  66     {
  67       #ifdef TEST_STAGE
  68         printf(":!c: cls = NULL! \n");
  69       #endif
  70       break;
  71     }
  72     // fieldID
  73     fid = (*env)->GetFieldID(env,
  74                              cls,
  75                              "domainEventsContextHandle",
  76                              "J");
  77     if(fid == 0)
  78     {
  79      #ifdef TEST_STAGE
  80        printf(":!c: fid = NULL! \n");
  81      #endif
  82      break;
  83     }
  84     // get value
  85     h = (*env)->GetLongField(env, obj, fid);
  86     if(h)
  87     {
  88       JORTEDomainEventsContext_t *ctx = (JORTEDomainEventsContext_t*)h;
  89       if(ctx->obj_de)
  90       {
  91         #ifdef TEST_STAGE
  92           printf(":c: deleting ctx->obj_de \n");
  93         #endif
  94         (*env)->DeleteGlobalRef(env, ctx->obj_de);
  95       }
  96       //
  97       free((void*)h);
  98     }
  99     flag_ok = 1;
 100   } while(0);
 101
 102   if(flag_ok == 0)
 103   {
 104     printf(":!c: ORTEDomainAppDestroy failed!  \n");
 105     return 0;
 106   }
 107
 108   return 1;
 109 }