Test of the astyle formating
[scilab.git] / scilab / modules / core / src / c / xscion.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2006 - INRIA - Allan CORNET
4  *
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at
9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10  *
11  */
12 #include "xscion.h"
13 #include "scilabmode.h"
14 /*--------------------------------------------------------------------------*/
15 int C2F(xscion) (int *i)
16 {
17     if (getScilabMode() == SCILAB_STD)
18     {
19         *i = 1;
20     }
21     else
22     {
23         *i = 0;
24     }
25     return 0;
26 }
27 /*--------------------------------------------------------------------------*/
28 int getINXscilab(void)
29 {
30     return getScilabMode() == SCILAB_STD;
31 }
32 /*--------------------------------------------------------------------------*/