f8b82decf5188d60938c44b81f99fc117254ffdf
[scilab.git] / 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.1-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 /*--------------------------------------------------------------------------*/