scilab/modules/jvm/sci_gateway/c/sci_with_embedded_jre.c

   1
   2 /*
   3  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   4  * Copyright (C) INRIA - Allan CORNET
   5  *
   6  * This file must be used under the terms of the CeCILL.
   7  * This source file is licensed as described in the file COPYING, which
   8  * you should have received as part of this distribution.  The terms
   9  * are also available at
  10  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  11  *
  12  */
  13
  14 /*--------------------------------------------------------------------------*/
  15 #include "gw_jvm.h"
  16 #include "MALLOC.h"
  17 #include "stack-c.h"
  18 #include "JVM_functions.h"
  19 /*--------------------------------------------------------------------------*/
  20 int sci_with_embedded_jre(char *fname,unsigned long fname_len)
  21 {
  22     static int n1=0,l1=0;
  23     CheckRhs(0,0);
  24     n1=1;
  25     CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
  26     *istk(l1)=(int)withEmbeddedJRE();
  27
  28     LhsVar(1)=Rhs+1;
  29     PutLhsVar();
  30     return 0;
  31 }
  32 /*--------------------------------------------------------------------------*/