add localization gateway
[scilab.git] / scilab / modules / localization / sci_gateway / sci_getlanguage.c
1 /*-----------------------------------------------------------------------------------*/\r
2 /* INRIA 2007 */\r
3 /* Allan CORNET */\r
4 /*-----------------------------------------------------------------------------------*/ \r
5 #include "sci_getlanguage.h"\r
6 #include "setgetlanguage.h"\r
7 #include "MALLOC.h"\r
8 /*-----------------------------------------------------------------------------------*/ \r
9 int C2F(sci_getlanguage) _PARAMS((char *fname,unsigned long fname_len))\r
10 {\r
11         static int l1,n1,m1;\r
12         char *Output=NULL;\r
13 \r
14         CheckRhs(0,0);\r
15         CheckLhs(0,1);\r
16 \r
17         Output=getlanguage();\r
18 \r
19         n1=1;\r
20         CreateVarFromPtr( 1, "c",(m1=(int)strlen(Output), &m1),&n1,&Output);\r
21         LhsVar(1) = 1;\r
22         C2F(putlhsvar)();       \r
23         if (Output) {FREE(Output);Output=NULL;}\r
24 \r
25         return 0;\r
26 }\r
27 /*-----------------------------------------------------------------------------------*/ \r