setgetlanguage.c File Reference

#include <string.h>
#include <stdlib.h>
#include "setgetlanguage.h"
#include "MALLOC.h"
#include "tableslanguages.h"
#include "loadsavelanguage.h"
#include "loadhashtableslocalization.h"

Include dependency graph for setgetlanguage.c:

Go to the source code of this file.

Defines
#define	UPDATESCILABHELPMACRO   "try update_scilab_help();catch end;"
Functions
static BOOL	LanguageIsOK (char *lang)
static int	FindLanguageCode (char *lang)
static BOOL	setlanguagecode (char *lang)
static char *	FindAlias (char *lang)
static char *	GetLanguageFromAlias (char *langAlias)
int C2F()	syncexec (char *str, int *ns, int *ierr, int *seq, long int str_len)
BOOL	setlanguage (char *lang, BOOL updateHelpIndex, BOOL updateMenus)
char *	getlanguage (void)
int	getcurrentlanguagecode (void)
char *	getlanguagefromcode (int code)
int	getcodefromlanguage (char *language)
char *	getlanguagealias (void)
int	comparelanguages (char *language1, char *language2)
BOOL	needtochangelanguage (char *language)
char *	convertlanguagealias (char *strlanguage)
Variables
static char	CURRENTLANGUAGESTRING [LengthAlphacode] = SCILABDEFAULTLANGUAGE
static int	CURRENTLANGUAGECODE = SCILABDEFAULTLANGUAGECODE

---

Define Documentation

#define UPDATESCILABHELPMACRO   "try update_scilab_help();catch end;"

Referenced by setlanguage().

---

Function Documentation

int comparelanguages	(	char *	language1,
		char *	language2
	)

TODO compare 2 languages same or not ?

Parameters:

language

Returns:

Definition at line 185 of file setgetlanguage.c.

Referenced by needtochangelanguage().

{
        return strcmp(language1,language2);
}

Here is the caller graph for this function:

char* convertlanguagealias

(

char *

strlanguage

)

TODO try to convert strlanguage (alias) to a good language string

Parameters:

language

Returns:

Definition at line 204 of file setgetlanguage.c.

References GetLanguageFromAlias(), and NULL.

Referenced by C2F().

{
        char *correctlanguage=NULL;

        if (strlen(strlanguage)==2)
        {
                correctlanguage=GetLanguageFromAlias(strlanguage);
        }
        else if (strcmp(strlanguage,"eng")==0) /* compatibility previous scilab */
        {
                correctlanguage=GetLanguageFromAlias("en");
        }
        return correctlanguage;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static char * FindAlias

(

char *

lang

)

[static]

Definition at line 148 of file setgetlanguage.c.

References i, LANGUAGE_LOCALE_ALIAS, MALLOC, NULL, and NumberLanguagesAlias.

Referenced by getlanguagealias().

{
        char *RetAlias=NULL;
        int i=0;
        for(i=0;i<NumberLanguagesAlias;i++)
        {
                if (strcmp(LANGUAGE_LOCALE_ALIAS[i].alphacode,lang)==0)
                {
                        RetAlias=(char*)MALLOC(sizeof(char)*(strlen(LANGUAGE_LOCALE_ALIAS[i].alias)+1));
                        strcpy(RetAlias,LANGUAGE_LOCALE_ALIAS[i].alias);
                        return RetAlias;
                }
        }
        return RetAlias;
}

Here is the caller graph for this function:

static int FindLanguageCode

(

char *

lang

)

[static]

Definition at line 119 of file setgetlanguage.c.

References code, i, LANGUAGE_COUNTRY_TAB, and NumberLanguages.

Referenced by getcodefromlanguage(), and setlanguagecode().

{
        int Code=-1;
        int i=0;

        for (i=0;i<NumberLanguages;i++)
        {
                if (strcmp(lang,LANGUAGE_COUNTRY_TAB[i].alphacode)==0)
                {
                        Code=LANGUAGE_COUNTRY_TAB[i].code;
                        return Code;
                }
        }
        return Code;
}

Here is the caller graph for this function:

int getcodefromlanguage

(

char *

language

)

TODO get code of a language

Parameters:

language

Returns:

Definition at line 98 of file setgetlanguage.c.

References FindLanguageCode().

{
        return FindLanguageCode(language);
}

Here is the call graph for this function:

int getcurrentlanguagecode

(

void

)

TODO return internal code associated with a language

Returns:

Definition at line 76 of file setgetlanguage.c.

References CURRENTLANGUAGECODE.

{
        return CURRENTLANGUAGECODE;
}

char* getlanguage

(

void

)

TODO returns current language

Returns:

Definition at line 66 of file setgetlanguage.c.

References CURRENTLANGUAGESTRING, MALLOC, and NULL.

Referenced by C2F(), needtochangelanguage(), and savelanguagepref_linux().

{
        char *RetLanguage=NULL;

        RetLanguage=(char*)MALLOC(sizeof(char)*(strlen(CURRENTLANGUAGESTRING)+1));
        strcpy(RetLanguage,CURRENTLANGUAGESTRING);

        return RetLanguage;
}

Here is the caller graph for this function:

char* getlanguagealias

(

void

)

TODO returns current alias example : en_US --> en

Returns:

Definition at line 180 of file setgetlanguage.c.

References CURRENTLANGUAGESTRING, and FindAlias().

Referenced by C2F().

{
        return FindAlias(CURRENTLANGUAGESTRING);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static char * GetLanguageFromAlias

(

char *

langAlias

)

[static]

Definition at line 164 of file setgetlanguage.c.

References i, LANGUAGE_LOCALE_ALIAS, MALLOC, NULL, and NumberLanguagesAlias.

Referenced by convertlanguagealias().

{
        char *RetLanguage=NULL;
        int i=0;
        for(i=0;i<NumberLanguagesAlias;i++)
        {
                if (strcmp(LANGUAGE_LOCALE_ALIAS[i].alias,langAlias)==0)
                {
                        RetLanguage=(char*)MALLOC(sizeof(char)*(strlen(LANGUAGE_LOCALE_ALIAS[i].alphacode)+1));
                        strcpy(RetLanguage,LANGUAGE_LOCALE_ALIAS[i].alphacode);
                        return RetLanguage;
                }
        }
        return RetLanguage;
}

Here is the caller graph for this function:

char* getlanguagefromcode

(

int

code

)

TODO returns language of code

Parameters:

code

Returns:

Definition at line 81 of file setgetlanguage.c.

References i, LANGUAGE_COUNTRY_TAB, MALLOC, NULL, and NumberLanguages.

{
        char *RetLanguage=NULL;
        int i=0;

        for (i=0;i<NumberLanguages;i++)
        {
                if (LANGUAGE_COUNTRY_TAB[i].code == code)
                {
                        RetLanguage=(char*)MALLOC(sizeof(char)*(strlen(LANGUAGE_COUNTRY_TAB[i].alphacode)+1));
                        strcpy(RetLanguage,LANGUAGE_COUNTRY_TAB[i].alphacode);
                        return RetLanguage;
                }
        }
        return RetLanguage;
}

static BOOL LanguageIsOK

(

char *

lang

)

[static]

Definition at line 103 of file setgetlanguage.c.

References FALSE, i, LANGUAGE_COUNTRY_TAB, NumberLanguages, and TRUE.

Referenced by setlanguage().

{
        BOOL bOK=FALSE;
        int i=0;

        for (i=0;i<NumberLanguages;i++)
        {
                if (strcmp(lang,LANGUAGE_COUNTRY_TAB[i].alphacode)==0)
                {
                        bOK=TRUE;
                        return bOK;
                }
        }
        return bOK;
}

Here is the caller graph for this function:

BOOL needtochangelanguage

(

char *

language

)

TODO test if we need to change language

Parameters:

language

Returns:

Definition at line 190 of file setgetlanguage.c.

References comparelanguages(), FALSE, FREE, getlanguage(), NULL, and TRUE.

Referenced by C2F(), and setlanguage().

{
        BOOL bOK=FALSE;
        char *currentlanguage=NULL;

        currentlanguage=getlanguage();

        if (comparelanguages(language,currentlanguage)) bOK=TRUE;

        if (currentlanguage) {FREE(currentlanguage);currentlanguage=NULL;}

        return bOK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

BOOL setlanguage	(	char *	lang,
		BOOL	updateHelpIndex,
		BOOL	updateMenus
	)

TODO change language

Parameters:

lang

Definition at line 24 of file setgetlanguage.c.

References C2F, CURRENTLANGUAGESTRING, FALSE, ierr, int, LanguageIsOK(), LoadHashTablesLocalization(), needtochangelanguage(), savelanguagepref(), setlanguagecode(), syncexec(), TRUE, and UPDATESCILABHELPMACRO.

Referenced by C2F(), and loadlanguagepref_linux().

{
        BOOL bOK=FALSE;
        if (lang)
        {
                if ( LanguageIsOK(lang) )
                {
                        if (needtochangelanguage(lang))
                        {
                                /* change language */
                                strcpy(CURRENTLANGUAGESTRING,lang);
                                setlanguagecode(lang);

                                if (updateHelpIndex)
                                {
                                        #define UPDATESCILABHELPMACRO "try update_scilab_help();catch end;" 
                                        integer ierr ;
                                        integer seq = 1 ;
                                        int macroCallLength=0;

                                        /* update help index */
                                        macroCallLength = (int)strlen(UPDATESCILABHELPMACRO);
                                        C2F(syncexec)(UPDATESCILABHELPMACRO,&macroCallLength,&ierr,&seq, macroCallLength);
                                }

                                /* save language pref. */
                                savelanguagepref();

                                /* update hash tables messages , errors , menus */
                                LoadHashTablesLocalization(lang);

                                if (updateMenus)
                                {
                                        /* changes menus : to do after */
                                }
                                bOK=TRUE;
                        }
                }
        }
        return bOK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static BOOL setlanguagecode

(

char *

lang

)

[static]

Definition at line 135 of file setgetlanguage.c.

References CURRENTLANGUAGECODE, FALSE, FindLanguageCode(), and TRUE.

Referenced by setlanguage().

{
        BOOL bOK=FALSE;
        int tmpCode=FindLanguageCode(lang);
        
        if (tmpCode>0) 
        {
                CURRENTLANGUAGECODE=tmpCode;
                bOK=TRUE;
        }
        return bOK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() syncexec	(	char *	str,
		int *	ns,
		int *	ierr,
		int *	seq,
		long int	str_len
	)

Definition at line 1525 of file parse.c.

References allowptr(), basbrk, bexec(), bot, C2F, c__0, c__1, callinterf(), Eptover(), Err, err, fin, fun, funs(), Infstk, ir, iset(), krec, Lhs, Lstk, max, nsiz, parse(), Pt, ref2val(), Rhs, SciError(), Top, and TRUE_.

{

  /* Local variables */
  int Pts, Tops;
  extern int C2F(iset)();
  extern int C2F(callinterf)(), C2F(ref2val)();
  static int iflagint;
  static int k;
  static int ir;

  static int *Ids  = C2F(recu).ids-nsiz-1;
  static int *Rstk = C2F(recu).rstk-1;
  static int *Lstk = C2F(vstk).lstk-1;
  static int *Infstk  = C2F(vstk).infstk-1;

  Pt = max(Pt,0);Pts=Pt;
  Top = max(Top,0);Tops=Top;
  C2F(basbrk).interruptible = *seq != 0;
  C2F(bexec)(str, ns, ierr, (*ns));
  if (*ierr != 0) {
    goto L9998;
  }
  /* + */
  if (Eptover(1)) {
    goto L9998;
  }
  Ids[1 + Pt * nsiz] = Lhs;
  Ids[2 + Pt * nsiz] = Rhs;
  Ids[3 + Pt * nsiz] = C2F(com).sym;
  Rstk[Pt] = 1002;
  ++C2F(recu).niv;
  C2F(com).fun = 0;
  C2F(recu).icall = 5;

  /* code translated from callinterf.h */
 L60:

   C2F(parse)();
  if (C2F(iop).err > 0) {
    goto L9999;
  }

  if (C2F(com).fun == 99) {
    C2F(com).fun = 0;
    goto L200;
  }

  if (Rstk[Pt] / 100 == 9) {
    ir = Rstk[Pt] - 900;
    if (ir == 1) {
      /* back to matsys */
      k = 13;
    } else if (ir >= 2 && ir <= 9) {
      /* back to matio */
      k = 5;
    } else if (ir == 10) {
      /* end of overloaded function */
      goto L96;
    } else if (ir > 40) {
      /* back to gw_user2 */
      k = 24;
    } else if (ir > 20) {
      /* back to gw_user */
      k = 14;
    } else {
      goto L89;
    }
    iflagint = 0;
    goto L95;
  }

 L89:
  if (Top < Rhs) {
    SciError(22);
    goto L9999;
  }
  if (Top - Rhs + Lhs + 1 >= C2F(vstk).bot) {
    SciError(18);
    goto L9999;
  }
  goto L91;

 L90:
  if (C2F(iop).err > 0) {
    goto L9999;
  }
 L91:
  k = C2F(com).fun;
  C2F(com).fun = 0;
  if (k == C2F(recu).krec) {
    C2F(recu).krec = -1;
    SciError(22);
    goto L9999;
  }
  C2F(recu).krec = -1;
  if (k == 0) {
    goto L60;
  }
 L95:
  if (! C2F(allowptr)(&k)) {
    C2F(ref2val)();
  }
  C2F(recu).krec = k;
  C2F(callinterf)(&k, &iflagint);
  /*      if (k.eq.krec) krec=99999 */
  C2F(recu).krec = -1;
  if (C2F(com).fun >= 0) {
    if (Top - Lhs + 1 > 0) {
      C2F(iset)(&Rhs, &c__0, &Infstk[Top - Lhs+1], &c__1);
    }
    goto L90;
  }
  /*     called interface ask for a scilab function to perform the function (fun=-1) */
  /*     the function name is given in ids(1,pt+1) */
  C2F(ref2val)();
  C2F(com).fun = 0;
  C2F(funs)(&Ids[1 + (Pt + 1) * nsiz]);
  if (C2F(iop).err > 0) {
    goto L9999;
  }
  if (C2F(com).fun > 0) {
    goto L91;
  }
  if (C2F(com).fin == 0) {
    SciError(246);
    if (C2F(iop).err > 0) {
      goto L9999;
    }
    goto L90;
  }
  ++Pt;
  C2F(com).fin = Lstk[C2F(com).fin];
  Rstk[Pt] = 910;
  C2F(recu).icall = 5;
  C2F(com).fun = 0;
  /*     *call*  macro */
  goto L60;
 L96:
  --Pt;
  goto L90;
  /* End of callinterf.h code */

 L200:
  Lhs = Ids[1 + Pt * nsiz];
  Rhs = Ids[2 + Pt * nsiz];
  C2F(com).sym = Ids[3 + Pt * nsiz];
  --Pt;
  --Top;
  /* + */
  --C2F(recu).niv;
  *ierr = 0;
  C2F(recu).icall = 0;
  C2F(com).fin = 3;
  C2F(basbrk).interruptible = TRUE_;
  return 0;
 L9998:
  *ierr = 1;
  Pt=Pts;Top=Tops;
  C2F(basbrk).interruptible = TRUE_;

  return 0;
 L9999:
  /* Err == 9999999 arises if abort has been used to terminate the callback execution */
  if (Err != 9999999) *ierr = 1;
  --Top;
  --C2F(recu).niv;
  Pt=Pts;Top=Tops;
  C2F(basbrk).interruptible = TRUE_;
  return 0;
} /* syncexec */

Here is the call graph for this function:

---

Variable Documentation

int CURRENTLANGUAGECODE = SCILABDEFAULTLANGUAGECODE [static]

Definition at line 14 of file setgetlanguage.c.

Referenced by getcurrentlanguagecode(), and setlanguagecode().

char CURRENTLANGUAGESTRING[LengthAlphacode] = SCILABDEFAULTLANGUAGE [static]

Definition at line 13 of file setgetlanguage.c.

Referenced by getlanguage(), getlanguagealias(), and setlanguage().

---