/* ==================================================================== */
int sci_foo6(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt* opt, int nout, scilabVar* out)
{
int i = 0;
int row1 = 0;
int col1 = 0;
int size1 = 0;
double* in1 = NULL;
double* out1 = NULL;
int row2 = 0;
int col2 = 0;
int size2 = 0;
int* in2 = NULL;
int* out2 = NULL;
/* --> [a,b] = foo(d[i,j], b[i,j])
/* check that we have only 2 input arguments */
/* check that we have only 1 output argument */
if (nin > 2)
{
Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), fname, 2);
return 1;
}
if (scilab_isDouble(env, in[0]) == 0 || scilab_isMatrix2d(env, in[0]) == 0 || scilab_isComplex(env, in[0]) == 1)
{
Scierror(999, _("%s: Wrong type for input argument #%d: A scalar expected.\n"), fname, 1);
return 1;
}
if (scilab_isBoolean(env, in[1]) == 0 || scilab_isMatrix2d(env, in[1]) == 0)
{
Scierror(999, _("%s: Wrong type for input argument #%d: A boolean matrix expected.\n"), fname, 2);
return 1;
}
size1 = scilab_getDim2d(env, in[0], &row1, &col1);
size2 = scilab_getDim2d(env, in[1], &row2, &col2);
if (row1 != row2 || col1 != col2)
{
Scierror(999, _("%s: Wrong size for input arguments: Same size expected.\n"), fname);
return 1;
}
scilab_getDoubleArray(env, in[0], &in1);
scilab_getBooleanArray(env, in[1], &in2);
out[0] = scilab_createDoubleMatrix2d(env, row1, col1, 0);
out[1] = scilab_createBooleanMatrix2d(env, row2, col2);
scilab_getDoubleArray(env, out[0], &out1);
scilab_getBooleanArray(env, out[1], &out2);
for (i = 0; i < size1; ++i)
{
//For each element of the matrix, multiply by 2
out1[i] = in1[i] * 2;
}
for (i = 0; i < size2; ++i)
{
//For each element of the matrix, invert the value
out2[i] = in2[i] == TRUE ? FALSE : TRUE;
}
return 0;
}
int sci_string_test(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt opt, int nout, scilabVar* out)
{
int i = 0;
int inr1 = 0;
int inc1 = 0;
int size1 = 0;
wchar_t** in1 = NULL;
wchar_t* in2 = 0;
int dim1 = 3;
int dims1[] = {0, 0, 2};
wchar_t** out1 = NULL;
wchar_t* out2;
int len2 = 0;
if (nin != 2)
{
Scierror(999, _("%s: Wrong number of input arguments: %d expected.\n"), fname, 2);
return STATUS_ERROR;
}
if (nout != 2)
{
Scierror(999, _("%s: Wrong number of output arguments: %d expected.\n"), fname, 3);
return STATUS_ERROR;
}
//in[0] : matrix 2d of string
if (scilab_isString(env, in[0]) == 0 || scilab_isMatrix2d(env, in[0]) == 0)
{
Scierror(999, _("%s: Wrong type for input argument #%d: A string matrix expected.\n"), fname, 1);
return STATUS_ERROR;
}
size1 = scilab_getDim2d(env, in[0], &inr1, &inc1);
scilab_getStringArray(env, in[0], &in1);
//in[1] : string
if (scilab_isString(env, in[1]) == 0 || scilab_isScalar(env, in[1]) == 0)
{
Scierror(999, _("%s: Wrong type for input argument #%d: A double expected.\n"), fname, 2);
return STATUS_ERROR;
}
scilab_getString(env, in[1], &in2);
//out1 : matrix 2d of string with same size of in[0]
dims1[0] = inr1;
dims1[1] = inc1;
out[0] = scilab_createStringMatrix(env, dim1, dims1);
scilab_getStringArray(env, out[0], &out1);
for (i = 0; i < size1; ++i)
{
wchar_t temp[128];
wcscpy(temp, in1[i]);
wcscat(temp, L".one");
out1[i] = os_wcsdup(temp);
wcscpy(temp, in1[i]);
wcscat(temp, L".two");
out1[i + size1] = os_wcsdup(temp);
}
//out2 : string
out2 = os_wcsdup(in2);
len2 = wcslen(out2);
for (i = 0; i < len2; ++i)
{
if (out2[i] >= L'a' && out2[i] <= L'z')
{
out2[i] = ((out2[i] - 'a' + 26 - 1) % 26) + 'a';
}
else if (out2[i] >= L'A' && out2[i] <= L'Z')
{
out2[i] = ((out2[i] - 'A' + 26 - 1) % 26) + 'A';
}
else
{
//no change
}
}
out[1] = scilab_createString(env, out2);
FREE(out2);
return STATUS_OK;
}
