1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/*-----------------------------------------------------------------------------------*/
/* INRIA 2005 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#include "intsetlanguagemenu.h"
/*-----------------------------------------------------------------------------------*/
#ifdef WIN32
extern void SetLanguageMenu(char *Language); /* see "wsci/wmenu.c" */
#endif
/*-----------------------------------------------------------------------------------*/
int C2F(intsetlanguagemenu) _PARAMS((char *fname))
{
#define LANGUAGE_MAX 1024
extern int C2F(cluni0) __PARAMS((char *name, char *nams, integer *ln, long int name_len,long int nams_len));
char Language[LANGUAGE_MAX];
int m1,n1,l1;
int out_n;
long int lout;
CheckRhs(1,1);
/* checking variable file */
GetRhsVar(1,"c",&m1,&n1,&l1);
/*** first call to get the size **/
lout=LANGUAGE_MAX;
C2F(cluni0)(cstk(l1), Language, &out_n,m1*n1,lout);
if ( (strcmp(Language,"eng")!=0) && (strcmp(Language,"fr")!=0) )
{
sciprint("Unsupported language\n");
LhsVar(1)=0;
C2F(putlhsvar)();
return 0;
}
#ifdef WIN32
SetLanguageMenu(Language);
#else
#endif
LhsVar(1)=0;
C2F(putlhsvar)();
return 0;
}
/*-----------------------------------------------------------------------------------*/
|
