Unless files
[scilab.git] / scilab / modules / localization / sci_gateway / c / sci_getlanguage.c
1 /*--------------------------------------------------------------------------*/
2 /* INRIA 2008 */
3 /* @author Sylvestre LEDRU */
4 /*--------------------------------------------------------------------------*/
5 #include "gw_localization.h"
6 #include "setgetlanguage.h"
7 #include "Scierror.h"
8 #include "MALLOC.h"
9 #include "stack-c.h"
10 /*--------------------------------------------------------------------------*/
11 int C2F(sci_getlanguage) _PARAMS((char *fname,unsigned long fname_len))
12 {
13         static int n1,m1;
14         char *Output=NULL;
15
16         CheckRhs(0,0);
17         CheckLhs(0,1);
18
19         Output=getlanguage();
20
21         n1=1;
22         CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(Output), &m1),&n1,&Output);
23         LhsVar(1) = Rhs+1;
24         C2F(putlhsvar)();
25
26         return 0;
27 }
28 /*--------------------------------------------------------------------------*/