/*--------------------------------------------------------------------------*/
int C2F(asciitocode)(int * n,int * line,char * str,int * flagx,unsigned long str_len)
{
int nn = 0;
if (*flagx == 1)
{
int j = 0;
nn = *n;
while (nn--)
{
unsigned char current_char = str[j];
line[j] = convertAsciiCodeToScilabCode(current_char);
j++;
}
}
else
{
int l = 0;
/* check *n value */
if ( (int)strlen(str) > *n ) l = (int)strlen(str);
else l = *n;
for (nn = l - 1 ; nn >= 0; --nn)
{
unsigned char current_char = str[nn];
line[nn] = convertAsciiCodeToScilabCode(current_char);
}
}
return 0;
}
/*--------------------------------------------------------------------------*/
static int equal_scistring_and_string(int length, int *scistr, char *str)
{
/* compare a scistring with a classic C string */
int i = 0, res = 0;
if ( (int)strlen(str) != length )
return 0;
res = 1; i = 0;
while (res && i < length)
{
res = (scistr[i] == convertAsciiCodeToScilabCode(str[i]));
i++;
}
return (res);
}
/*--------------------------------------------------------------------------*/
int C2F(getfastcode)(unsigned char *c, unsigned long c_len)
{
return convertAsciiCodeToScilabCode(c[0]);
}
