diff options
Diffstat (limited to 'modules/parameters/src/c')
| -rwxr-xr-x | modules/parameters/src/c/.deps/.dirstamp | 0 | ||||
| -rwxr-xr-x | modules/parameters/src/c/.deps/libsciparameters_la-parameters.Plo | 297 | ||||
| -rwxr-xr-x | modules/parameters/src/c/.dirstamp | 0 | ||||
| -rwxr-xr-x | modules/parameters/src/c/.libs/libsciparameters_la-parameters.o | bin | 0 -> 86472 bytes | |||
| -rwxr-xr-x | modules/parameters/src/c/DllmainParameters.c | 33 | ||||
| -rwxr-xr-x | modules/parameters/src/c/libsciparameters_la-parameters.lo | 12 | ||||
| -rwxr-xr-x | modules/parameters/src/c/parameters.c | 1192 | ||||
| -rwxr-xr-x | modules/parameters/src/c/parameters.rc | 97 |
8 files changed, 1631 insertions, 0 deletions
diff --git a/modules/parameters/src/c/.deps/.dirstamp b/modules/parameters/src/c/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/parameters/src/c/.deps/.dirstamp diff --git a/modules/parameters/src/c/.deps/libsciparameters_la-parameters.Plo b/modules/parameters/src/c/.deps/libsciparameters_la-parameters.Plo new file mode 100755 index 000000000..882ee16e6 --- /dev/null +++ b/modules/parameters/src/c/.deps/libsciparameters_la-parameters.Plo @@ -0,0 +1,297 @@ +src/c/libsciparameters_la-parameters.lo: src/c/parameters.c \ + /usr/include/stdc-predef.h /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h includes/parameters.h \ + ../../modules/api_scilab/includes/api_scilab.h \ + ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h \ + ../../modules/api_scilab/includes/api_common.h \ + ../../modules/api_scilab/includes/api_scilab.h \ + ../../modules/api_scilab/includes/api_double.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/api_scilab/includes/api_string.h /usr/include/wchar.h \ + /usr/include/stdio.h /usr/include/x86_64-linux-gnu/bits/wchar.h \ + /usr/include/x86_64-linux-gnu/bits/wchar2.h \ + ../../modules/api_scilab/includes/api_int.h \ + ../../modules/api_scilab/includes/api_poly.h \ + ../../modules/api_scilab/includes/api_sparse.h \ + ../../modules/api_scilab/includes/api_boolean.h \ + ../../modules/api_scilab/includes/api_boolean_sparse.h \ + ../../modules/api_scilab/includes/api_pointer.h \ + ../../modules/api_scilab/includes/api_list.h \ + ../../modules/api_scilab/includes/api_error.h \ + ../../modules/api_scilab/includes/api_handle.h \ + ../../modules/api_scilab/includes/api_optional.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/api_scilab/includes/api_hypermat.h \ + ../../modules/core/includes/core_math.h \ + ../../modules/core/includes/sci_types.h \ + ../../modules/core/includes/MALLOC.h \ + ../../modules/core/includes/sci_mem_alloc.h \ + ../../modules/core/includes/freeArrayOfString.h \ + ../../modules/output_stream/includes/Scierror.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +includes/parameters.h: + +../../modules/api_scilab/includes/api_scilab.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +../../modules/api_scilab/includes/api_common.h: + +../../modules/api_scilab/includes/api_scilab.h: + +../../modules/api_scilab/includes/api_double.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/api_scilab/includes/api_string.h: + +/usr/include/wchar.h: + +/usr/include/stdio.h: + +/usr/include/x86_64-linux-gnu/bits/wchar.h: + +/usr/include/x86_64-linux-gnu/bits/wchar2.h: + +../../modules/api_scilab/includes/api_int.h: + +../../modules/api_scilab/includes/api_poly.h: + +../../modules/api_scilab/includes/api_sparse.h: + +../../modules/api_scilab/includes/api_boolean.h: + +../../modules/api_scilab/includes/api_boolean_sparse.h: + +../../modules/api_scilab/includes/api_pointer.h: + +../../modules/api_scilab/includes/api_list.h: + +../../modules/api_scilab/includes/api_error.h: + +../../modules/api_scilab/includes/api_handle.h: + +../../modules/api_scilab/includes/api_optional.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/api_scilab/includes/api_hypermat.h: + +../../modules/core/includes/core_math.h: + +../../modules/core/includes/sci_types.h: + +../../modules/core/includes/MALLOC.h: + +../../modules/core/includes/sci_mem_alloc.h: + +../../modules/core/includes/freeArrayOfString.h: + +../../modules/output_stream/includes/Scierror.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/parameters/src/c/.dirstamp b/modules/parameters/src/c/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/parameters/src/c/.dirstamp diff --git a/modules/parameters/src/c/.libs/libsciparameters_la-parameters.o b/modules/parameters/src/c/.libs/libsciparameters_la-parameters.o Binary files differnew file mode 100755 index 000000000..c842d8cc7 --- /dev/null +++ b/modules/parameters/src/c/.libs/libsciparameters_la-parameters.o diff --git a/modules/parameters/src/c/DllmainParameters.c b/modules/parameters/src/c/DllmainParameters.c new file mode 100755 index 000000000..96bd1e099 --- /dev/null +++ b/modules/parameters/src/c/DllmainParameters.c @@ -0,0 +1,33 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <windows.h> +/*--------------------------------------------------------------------------*/ +#pragma comment(lib,"../../bin/libintl.lib") +/*--------------------------------------------------------------------------*/ +int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved) +{ + switch (reason) + { + case DLL_PROCESS_ATTACH: + break; + case DLL_PROCESS_DETACH: + break; + case DLL_THREAD_ATTACH: + break; + case DLL_THREAD_DETACH: + break; + } + return 1; +} +/*--------------------------------------------------------------------------*/ + diff --git a/modules/parameters/src/c/libsciparameters_la-parameters.lo b/modules/parameters/src/c/libsciparameters_la-parameters.lo new file mode 100755 index 000000000..b2a96adeb --- /dev/null +++ b/modules/parameters/src/c/libsciparameters_la-parameters.lo @@ -0,0 +1,12 @@ +# src/c/libsciparameters_la-parameters.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libsciparameters_la-parameters.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/parameters/src/c/parameters.c b/modules/parameters/src/c/parameters.c new file mode 100755 index 000000000..960641142 --- /dev/null +++ b/modules/parameters/src/c/parameters.c @@ -0,0 +1,1192 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2010 - DIGITEO - Yann COLLETTE + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * Copyright (C) 2010 - DIGITEO - Bernard HUGUENEY + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include <stdarg.h> +/*--------------------------------------------------------------------------*/ +#include "parameters.h" +#include "sci_types.h" +#include "MALLOC.h" +#include "freeArrayOfString.h" +#include "Scierror.h" +#include "sciprint.h" +#include "api_scilab.h" +#include "localization.h" +#ifdef _MSC_VER +#include "strdup_windows.h" +#endif +/*--------------------------------------------------------------------------*/ +static int commonFindLabel(void* _pvCtx, int * _piAddress, char const * const _pstLabelToFind); +static int commonFindLabelPartial(void* _pvCtx, int * _piAddress, char const * const _pstLabelToFind); +static void int_fill_n(int* dst, size_t n, int v); +static void double_fill_n(double* dst, size_t n, int v); +/*--------------------------------------------------------------------------*/ +SciErr initPList(void* _pvCtx, int _iVar, int ** _piAddress) +{ + SciErr _SciErr; + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + _SciErr = getVarAddressFromPosition(_pvCtx, _iVar, _piAddress); + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +int checkPList(void* _pvCtx, int * _piAddress) +{ + int nb_param = 0, i = 0, var_type = 0; + int m_label = 0, n_label = 0; + int * len_label = NULL; + char ** label_list = NULL; + int result = 0; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + _SciErr = getVarType(_pvCtx, _piAddress, &var_type); + if (var_type != sci_mlist) + { + return 0; + } + + _SciErr = getListItemNumber(_pvCtx, _piAddress, &nb_param); + + if (nb_param != 0) + { + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, NULL, NULL); + + len_label = (int *)MALLOC(m_label * n_label * sizeof(int)); + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, NULL); + + label_list = (char **)MALLOC(m_label * n_label * sizeof(char *)); + for (i = 0; i < n_label * m_label; i++) + { + label_list[i] = (char *)MALLOC((len_label[i] + 1) * sizeof(char)); + } + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, label_list); + if (strcmp(label_list[0], "plist") != 0) + { + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + return 0; + } + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + } + + result = 1; + + return result; +} +/*--------------------------------------------------------------------------*/ +int hasPartialLabelInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel) +{ + SciErr _SciErr; + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + return commonFindLabelPartial(_pvCtx, _piAddress, _pstLabel); +} +/*--------------------------------------------------------------------------*/ +int hasLabelInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel) +{ + SciErr _SciErr; + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + return commonFindLabel(_pvCtx, _piAddress, _pstLabel); +} +/*--------------------------------------------------------------------------*/ +SciErr getIntInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel, int * _piValue, int * _piFound, + int _iDefaultValue, int _iLog, enum type_check _eCheck, ...) +{ + int pos_label = 0, i = 0; + int m_tmp = 0, n_tmp = 0; + double * tmp_dbl = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + pos_label = commonFindLabel(_pvCtx, _piAddress, _pstLabel); + *_piFound = pos_label; + + if (pos_label != -1) + { + _SciErr = getMatrixOfDoubleInList(_pvCtx, _piAddress, pos_label + 1, &m_tmp, &n_tmp, &tmp_dbl); + if (!_SciErr.iErr) + { + *_piValue = (int)tmp_dbl[0]; + } + else + { + if (_iLog) + { + sciprint(_("%s: wrong parameter type. %s expected. Return default value %d.\n"), "getIntInPList", "int", _iDefaultValue); + } + *_piValue = _iDefaultValue; + } + } + else + { + if (_iLog) + { + sciprint(_("%s: parameter not found. Return default value %d.\n"), "getIntInPList", _iDefaultValue); + } + *_piValue = _iDefaultValue; + } + + /* Now check parameters */ + + if (_eCheck != CHECK_NONE) + { + va_list vl; + int nb_value_to_check = 0; + int value_to_check = 0; + int check_res = 0; + + va_start(vl, _eCheck); + + switch (_eCheck) + { + case CHECK_MIN: + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check > *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + } + *_piValue = _iDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_MAX: + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check < *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + } + *_piValue = _iDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_BOTH: + // First value is the min bound + value_to_check = va_arg(vl, int); + if (value_to_check > *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + } + *_piValue = _iDefaultValue; + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + // Second value is the max bound + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check < *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + } + *_piValue = _iDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_VALUES: + // First parameters is int and contains the number of values to check + nb_value_to_check = va_arg(vl, int); + check_res = 0; + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, int); + check_res = check_res || (value_to_check == *_piValue); + } + + if (!check_res) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong value for parameter %s: value %d\n"), "getIntInPList", _pstLabel, *_piValue); + sciprint(_("%s: awaited parameters: "), "getIntInPList"); + va_start(vl, _eCheck); + nb_value_to_check = va_arg(vl, int); + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, int); + sciprint(" %d", value_to_check); + } + sciprint("\n"); + } + + *_piValue = _iDefaultValue; + + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong value for parameter %s: value %d\n"), "getIntInPList", _pstLabel, *_piValue); + return _SciErr; + } + + va_end(vl); + break; + } + } + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr getDoubleInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel, double * _pdblValue, int * _piFound, + double _dblDefaultValue, int _iLog, enum type_check _eCheck, ...) +{ + int pos_label = 0, i = 0; + int m_tmp = 0, n_tmp = 0; + double * tmp_values = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + pos_label = commonFindLabel(_pvCtx, _piAddress, _pstLabel); + *_piFound = pos_label; + + if (pos_label != -1) + { + _SciErr = getMatrixOfDoubleInList(_pvCtx, _piAddress, pos_label + 1, &m_tmp, &n_tmp, &tmp_values); + if (!_SciErr.iErr) + { + *_pdblValue = tmp_values[0]; + } + else + { + if (_iLog) + { + sciprint(_("%s: wrong parameter type. %s expected. Return default value %f.\n"), "getDoubleInPList", "double", _dblDefaultValue); + } + *_pdblValue = _dblDefaultValue; + } + } + else + { + if (_iLog) + { + sciprint(_("%s: parameter not found. Return default value %f.\n"), "getDoubleInPList", _dblDefaultValue); + } + *_pdblValue = _dblDefaultValue; + } + + /* Now check parameters */ + + if (_eCheck != CHECK_NONE) + { + va_list vl; + int nb_value_to_check = 0; + double value_to_check = 0; + int check_res = 0; + + va_start(vl, _eCheck); + + switch (_eCheck) + { + case CHECK_MIN: + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check > *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + *_pdblValue = _dblDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_MAX: + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check < *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + *_pdblValue = _dblDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_BOTH: + /* First value is the min bound */ + value_to_check = va_arg(vl, double); + if (value_to_check > *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + *_pdblValue = _dblDefaultValue; + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + /* Second value is the max bound */ + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check < *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + *_pdblValue = _dblDefaultValue; + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_VALUES: + /* First parameters is int and contains the number of values to check */ + nb_value_to_check = va_arg(vl, int); + check_res = 0; + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, double); + check_res = check_res || (value_to_check == *_pdblValue); + } + + if (!check_res) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong value for parameter %s: value %f\n"), "getDoubleInPList", _pstLabel, *_pdblValue); + sciprint(_("%s: awaited parameters: "), "getDoubleInPList"); + va_start(vl, _eCheck); + nb_value_to_check = va_arg(vl, int); + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, double); + sciprint(" %f", value_to_check); + } + sciprint("\n"); + } + + *_pdblValue = _dblDefaultValue; + + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong value for parameter %s: value %f\n"), "getDoubleInPList", _pstLabel, *_pdblValue); + return _SciErr; + } + + va_end(vl); + break; + } + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr getStringInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel, char ** _pstValue, int * _piFound, + const char * _pstDefaultValue, int _iLog, enum type_check _eCheck, ...) +{ + int pos_label = 0, i = 0; + int m_label = 0, n_label = 0; + int * len_label = NULL; + char ** label_list = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + pos_label = commonFindLabel(_pvCtx, _piAddress, _pstLabel); + *_piFound = pos_label; + + if (pos_label != -1) + { + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, pos_label + 1, &m_label, &n_label, NULL, NULL); + len_label = (int *)MALLOC(m_label * n_label * sizeof(int)); + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, pos_label + 1, &m_label, &n_label, len_label, NULL); + label_list = (char **)MALLOC(m_label * n_label * sizeof(char *)); + for (i = 0; i < n_label * m_label; i++) + { + label_list[i] = (char *)MALLOC((len_label[i] + 1) * sizeof(char)); + } + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, pos_label + 1, &m_label, &n_label, len_label, label_list); + + if (!_SciErr.iErr) + { + if (label_list[0]) + { + *_pstValue = strdup(label_list[0]); + } + else + { + if (_iLog) + { + sciprint(_("%s: wrong parameter type. %s expected. Return default value %s.\n"), "getStringInPList", "string", _pstDefaultValue); + } + *_pstValue = strdup(_pstDefaultValue); + } + } + else + { + if (_iLog) + { + sciprint(_("%s: parameter not found. Return default value %s.\n"), "getStringInPList", _pstDefaultValue); + } + *_pstValue = strdup(_pstDefaultValue); + } + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + } + else + { + *_pstValue = strdup(_pstDefaultValue); + } + + /* Now check parameters */ + + if (_eCheck != CHECK_NONE) + { + va_list vl; + int nb_value_to_check = 0; + char * value_to_check = 0; + int check_res = 0; + + va_start(vl, _eCheck); + + switch (_eCheck) + { + case CHECK_VALUES: + /* First parameters is int and contains the number of values to check */ + nb_value_to_check = va_arg(vl, int); + check_res = 0; + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, char *); + check_res = check_res || (strcmp(value_to_check, *_pstValue) == 0); + } + + if (!check_res) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong value for parameter %s: value %s\n"), "getStringInPList", _pstLabel, *_pstValue); + sciprint(_("%s: awaited parameters: "), "getStringInPList"); + va_start(vl, _eCheck); + nb_value_to_check = va_arg(vl, int); + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, char *); + sciprint(" \"%s\"", value_to_check); + } + sciprint("\n"); + } + + if (*_pstValue) + { + FREE(*_pstValue); + *_pstValue = NULL; + } + + *_pstValue = strdup(_pstDefaultValue); + + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong value for parameter %s: value %s\n"), "getStringInPList", _pstLabel, *_pstValue); + return _SciErr; + } + + va_end(vl); + break; + } + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +/* get vector of double / integers */ +SciErr getColVectorOfIntInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel, int * _piValue, int * _piFound, + int _iDefaultValue, int _iDefaultSize, int * _piSize, int _iLog, enum type_check _eCheck, ...) +{ + int pos_label = 0, i = 0; + int m_tmp = 0, n_tmp = 0; + double * tmp_dbl = 0; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + *_piSize = -1; + + pos_label = commonFindLabel(_pvCtx, _piAddress, _pstLabel); + *_piFound = pos_label; + + if (pos_label != -1) + { + _SciErr = getMatrixOfDoubleInList(_pvCtx, _piAddress, pos_label + 1, &m_tmp, &n_tmp, &tmp_dbl); + if (!_SciErr.iErr) + { + *_piSize = m_tmp * n_tmp; + for (i = 0; i < *_piSize; i++) + { + _piValue[i] = (int)tmp_dbl[i]; + } + } + else + { + if (_iLog) + { + sciprint(_("%s: wrong parameter type. %s expected. Return default value %d.\n"), "getColVectorOfIntInPList", "int", _iDefaultValue); + } + *_piSize = _iDefaultSize; + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + } + } + else + { + if (_iLog) + { + sciprint(_("%s: parameter not found. Return default value %d.\n"), "getColVectorOfIntInPList", _iDefaultValue); + } + *_piSize = _iDefaultSize; + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + } + + /* Now check parameters */ + + if (_eCheck != CHECK_NONE) + { + va_list vl; + int nb_value_to_check = 0; + int value_to_check = 0; + int check_res = 0; + + va_start(vl, _eCheck); + + switch (_eCheck) + { + case CHECK_SIZE: + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check != *_piSize) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong size for parameter %s: %d requested, got %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piSize); + } + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + addErrorMessage(&_SciErr, 999, _("%s: wrong size for parameter %s: %d requested, got %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piSize); + return _SciErr; + } + break; + case CHECK_MIN: + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check > *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + } + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_MAX: + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check < *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + } + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_BOTH: + /* First value is the min bound */ + value_to_check = va_arg(vl, int); + if (value_to_check > *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + } + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + /* Second value is the max bound */ + value_to_check = va_arg(vl, int); + va_end(vl); + if (value_to_check < *_piValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + } + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %d, value %d\n"), "getColVectorOfIntInPList", _pstLabel, value_to_check, *_piValue); + return _SciErr; + } + break; + case CHECK_VALUES: + /* First parameters is int and contains the number of values to check */ + nb_value_to_check = va_arg(vl, int); + check_res = 0; + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, int); + check_res = check_res || (value_to_check == *_piValue); + } + + if (!check_res) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong value for parameter %s: value %d\n"), "getColVectorOfIntInPList", _pstLabel, *_piValue); + sciprint(_("%s: awaited parameters: "), "getColVectorOfIntInPList"); + va_start(vl, _eCheck); + nb_value_to_check = va_arg(vl, int); + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, int); + sciprint(" %d", value_to_check); + } + sciprint("\n"); + } + + int_fill_n(_piValue, _iDefaultSize, _iDefaultValue); + + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong value for parameter %s: value %d\n"), "getColVectorOfIntInPList", _pstLabel, *_piValue); + return _SciErr; + } + + va_end(vl); + break; + } + } + + return _SciErr; +} + +SciErr getColVectorOfDoubleInPList(void* _pvCtx, int * _piAddress, const char * _pstLabel, double * _pdblValue, int * _piFound, + double _dblDefaultValue, int _iDefaultSize, int * _piSize, int _iLog, enum type_check _eCheck, ...) +{ + int pos_label = 0, i = 0; + int m_label = 0, n_label = 0; + int m_tmp = 0, n_tmp = 0; + int * len_label = NULL; + double * tmp_values = NULL; + char ** label_list = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + *_piSize = -1; + + pos_label = commonFindLabel(_pvCtx, _piAddress, _pstLabel); + *_piFound = pos_label; + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + if (pos_label != -1) + { + _SciErr = getMatrixOfDoubleInList(_pvCtx, _piAddress, pos_label + 1, &m_tmp, &n_tmp, &tmp_values); + if (!_SciErr.iErr) + { + *_piSize = m_tmp * n_tmp; + + memcpy( _pdblValue, tmp_values, sizeof(double) * (*_piSize)); + } + else + { + if (_iLog) + { + sciprint(_("%s: wrong parameter type. %s expected. Return default value %f.\n"), "getColVectorOfDoubleInPList", "double", _dblDefaultValue); + } + *_piSize = _iDefaultSize; + double_fill_n(_pdblValue, (size_t)_iDefaultSize, (int)_dblDefaultValue); + } + } + else + { + if (_iLog) + { + sciprint(_("%s: parameter not found. Return default value %f.\n"), "getColVectorOfDoubleInPList", _dblDefaultValue); + } + *_piSize = _iDefaultSize; + double_fill_n(_pdblValue, (size_t)_iDefaultSize, (int)_dblDefaultValue); + } + + /* Now check parameters */ + + if (_eCheck != CHECK_NONE) + { + va_list vl; + int nb_value_to_check = 0; + double value_to_check = 0; + int check_res = 0; + + va_start(vl, _eCheck); + + switch (_eCheck) + { + case CHECK_SIZE: + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check != *_piSize) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong size for parameter %s: %d requested, got %d\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_piSize); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + + addErrorMessage(&_SciErr, 999, _("%s: wrong size for parameter %s: %d requested, got %d\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_piSize); + return _SciErr; + } + break; + case CHECK_MIN: + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check > *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_MAX: + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check < *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_BOTH: + /* First value is the min bound */ + value_to_check = va_arg(vl, double); + if (value_to_check > *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong min bound for parameter %s: min bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + /* Second value is the max bound */ + value_to_check = va_arg(vl, double); + va_end(vl); + if (value_to_check < *_pdblValue) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + + addErrorMessage(&_SciErr, 999, _("%s: wrong max bound for parameter %s: max bound %f, value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, value_to_check, *_pdblValue); + return _SciErr; + } + break; + case CHECK_VALUES: + /* First parameters is int and contains the number of values to check */ + nb_value_to_check = va_arg(vl, int); + check_res = 0; + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, double); + check_res = check_res || (value_to_check == *_pdblValue); + } + if (!check_res) + { + if ((*_piFound != -1) && (_iLog)) + { + sciprint(_("%s: wrong value for parameter %s: value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, *_pdblValue); + sciprint(_("%s: awaited parameters: "), "getColVectorOfDoubleInPList"); + va_start(vl, _eCheck); + nb_value_to_check = va_arg(vl, int); + for (i = 0; i < nb_value_to_check; i++) + { + value_to_check = va_arg(vl, double); + sciprint(" %f", value_to_check); + } + sciprint("\n"); + } + + for (i = 0; i < _iDefaultSize; i++) + { + _pdblValue[i] = _dblDefaultValue; + } + va_end(vl); + addErrorMessage(&_SciErr, 999, _("%s: wrong value for parameter %s: value %f\n"), "getColVectorOfDoubleInPList", _pstLabel, *_pdblValue); + return _SciErr; + } + va_end(vl); + break; + } + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createPList(void* _pvCtx, int _iVar, int ** _piAddress, char ** _pstLabelNames, int _iNbParams) +{ + SciErr _SciErr; + int i = 0; + char ** label_list = NULL; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + _SciErr = createMList(_pvCtx, _iVar, _iNbParams + 1, _piAddress); + label_list = (char **)MALLOC((_iNbParams + 1) * sizeof(char *)); + label_list[0] = strdup("plist"); + + for (i = 1; i <= _iNbParams; i++) + { + label_list[i] = strdup(_pstLabelNames[i - 1]); + } + + _SciErr = createMatrixOfStringInList(_pvCtx, _iVar, *_piAddress, 1, 1, _iNbParams + 1, label_list); + + if (label_list) + { + freeArrayOfString(label_list, _iNbParams + 1); + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createIntInPList(void* _pvCtx, int _iVar, int * _piAddress, char * _pstLabelName, int _iValue) +{ + int itemPos = -1; + double tmp_val[1]; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + itemPos = commonFindLabel(_pvCtx, _piAddress, _pstLabelName) + 1; + +#ifdef DEBUG + sciprint("DEBUG: addIntInPList - itemPos = %d _pstLabelName = %s\n", itemPos, _pstLabelName); +#endif + + tmp_val[0] = (double)_iValue; + _SciErr = createMatrixOfDoubleInList(_pvCtx, _iVar, _piAddress, itemPos, 1, 1, tmp_val); + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createDoubleInPList(void* _pvCtx, int _iVar, int * _piAddress, char * _pstLabelName, double _dblValue) +{ + int itemPos = -1; + double tmp_val[1]; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + itemPos = commonFindLabel(_pvCtx, _piAddress, _pstLabelName) + 1; + +#ifdef DEBUG + sciprint("DEBUG: addDoubleInPList - itemPos = %d _pstLabelName = %s\n", itemPos, _pstLabelName); +#endif + + tmp_val[0] = _dblValue; + _SciErr = createMatrixOfDoubleInList(_pvCtx, _iVar, _piAddress, itemPos, 1, 1, tmp_val); + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createStringInPList(void* _pvCtx, int _iVar, int * _piAddress, char * _pstLabelName, char * _pstValue) +{ + int itemPos = -1; + char * tmp_val[1]; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + itemPos = commonFindLabel(_pvCtx, _piAddress, _pstLabelName) + 1; + +#ifdef DEBUG + sciprint("DEBUG: addStringInPList - itemPos = %d _pstLabelName = %s\n", itemPos, _pstLabelName); +#endif + + tmp_val[0] = strdup(_pstValue); + _SciErr = createMatrixOfStringInList(_pvCtx, _iVar, _piAddress, itemPos, 1, 1, tmp_val); + + if (tmp_val[0]) + { + FREE(tmp_val[0]); + tmp_val[0] = NULL; + + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createColVectorOfIntInPList(void* _pvCtx, int _iVar, int * _piAddress, char * _pstLabelName, int _iNbValues, int * _piValue) +{ + int itemPos = -1, i = 0; + double * tmp_val = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + itemPos = commonFindLabel(_pvCtx, _piAddress, _pstLabelName) + 1; + +#ifdef DEBUG + sciprint("DEBUG: addVectorOfIntInPList - itemPos = %d _pstLabelName = %s\n", itemPos, _pstLabelName); +#endif + + tmp_val = (double *)MALLOC(_iNbValues * sizeof(double)); + for (i = 0; i < _iNbValues; i++) + { + tmp_val[i] = (double)_piValue[i]; + } + _SciErr = createMatrixOfDoubleInList(_pvCtx, _iVar, _piAddress, itemPos, _iNbValues, 1, tmp_val); + + if (tmp_val) + { + FREE(tmp_val); + tmp_val = NULL; + } + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +SciErr createColVectorOfDoubleInPList(void* _pvCtx, int _iVar, int * _piAddress, char * _pstLabelName, int _iNbValues, double * _pdblValue) +{ + int itemPos = -1; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + itemPos = commonFindLabel(_pvCtx, _piAddress, _pstLabelName) + 1; + +#ifdef DEBUG + sciprint("DEBUG: addVectorOfDoubleInPList - itemPos = %d _pstLabelName = %s\n", itemPos, _pstLabelName); +#endif + + _SciErr = createMatrixOfDoubleInList(_pvCtx, _iVar, _piAddress, itemPos, _iNbValues, 1, _pdblValue); + + return _SciErr; +} +/*--------------------------------------------------------------------------*/ +/* Utility functions */ +static int commonFindLabelPartial(void* _pvCtx, int * _piAddress, char const * const _pstLabelToFind) +{ + int Pos = -1, i = 0; + int m_label = 0, n_label = 0; + int * len_label = NULL; + char ** label_list = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, NULL, NULL); + len_label = (int *)MALLOC(m_label * n_label * sizeof(int)); + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, NULL); + label_list = (char **)MALLOC(m_label * n_label * sizeof(char *)); + + for (i = 0; i < n_label * m_label; i++) + { + label_list[i] = (char *)MALLOC((len_label[i] + 1) * sizeof(char)); + } + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, label_list); + + if (label_list != NULL) + { + for (i = 0; i < m_label * n_label; i++) + { + /* A bug in scilab: if the mlist contains only the type, the C API returns m_label*n_label==2 !! */ + if (label_list[i] != NULL) + { + if (strncmp(label_list[i], _pstLabelToFind, strlen(_pstLabelToFind)) == 0) + { + Pos = i; + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + return Pos; + } + } + } + } + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + return Pos; +} +/*--------------------------------------------------------------------------*/ +static int commonFindLabel(void* _pvCtx, int * _piAddress, char const * const _pstLabelToFind) +{ + int Pos = -1, i = 0; + int m_label = 0, n_label = 0; + int * len_label = NULL; + char ** label_list = NULL; + SciErr _SciErr; + + _SciErr.iErr = 0; + _SciErr.iMsgCount = 0; + + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, NULL, NULL); + len_label = (int *)MALLOC(m_label * n_label * sizeof(int)); + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, NULL); + label_list = (char **)MALLOC(m_label * n_label * sizeof(char *)); + for (i = 0; i < n_label * m_label; i++) + { + label_list[i] = (char *)MALLOC((len_label[i] + 1) * sizeof(char)); + } + _SciErr = getMatrixOfStringInList(_pvCtx, _piAddress, 1, &m_label, &n_label, len_label, label_list); + + if (label_list != NULL) + { + for (i = 0; i < m_label * n_label; i++) + { + /* A bug in scilab: if the mlist contains only the type, the C API returns m_label*n_label==2 !! */ + if (label_list[i] != NULL) + { + if (strcmp(label_list[i], (char *)_pstLabelToFind) == 0) + { + Pos = i; + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + return Pos; + } + } + } + } + + if (len_label) + { + FREE(len_label); + len_label = NULL; + } + freeArrayOfString(label_list, m_label * n_label); + + return Pos; +} +/*--------------------------------------------------------------------------*/ +// c versions of std::fill_n +void int_fill_n(int* dst, size_t n, int v) +{ + for (; n; --n, ++dst) + { + *dst = v; + } +} +/*--------------------------------------------------------------------------*/ +void double_fill_n(double* dst, size_t n, int v) +{ + for (; n; --n, ++dst) + { + *dst = v; + } +} +/*--------------------------------------------------------------------------*/ + diff --git a/modules/parameters/src/c/parameters.rc b/modules/parameters/src/c/parameters.rc new file mode 100755 index 000000000..a3d389709 --- /dev/null +++ b/modules/parameters/src/c/parameters.rc @@ -0,0 +1,97 @@ +// Microsoft Visual C++ generated resource script. +// + + +#define APSTUDIO_READONLY_SYMBOLS +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 2 resource. +// +//#include "afxres.h" +#define APSTUDIO_HIDDEN_SYMBOLS +#include "windows.h" +///////////////////////////////////////////////////////////////////////////// +#undef APSTUDIO_READONLY_SYMBOLS + +///////////////////////////////////////////////////////////////////////////// +// French (France) resources + +#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA) +#ifdef _WIN32 +LANGUAGE LANG_FRENCH, SUBLANG_FRENCH +#pragma code_page(1252) +#endif //_WIN32 + +#ifdef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// TEXTINCLUDE +// + +1 TEXTINCLUDE +BEGIN + "resource.h\0" +END + + +3 TEXTINCLUDE +BEGIN + "\r\n" + "\0" +END + +#endif // APSTUDIO_INVOKED + + +///////////////////////////////////////////////////////////////////////////// +// +// Version +// + +VS_VERSION_INFO VERSIONINFO + FILEVERSION 5,5,2,0 + PRODUCTVERSION 5,5,2,0 + FILEFLAGSMASK 0x17L +#ifdef _DEBUG + FILEFLAGS 0x1L +#else + FILEFLAGS 0x0L +#endif + FILEOS 0x4L + FILETYPE 0x0L + FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040c04b0" + BEGIN + VALUE "FileDescription", "parameters module" + VALUE "FileVersion", "5, 5, 2, 0" + VALUE "InternalName", "parameters module" + VALUE "LegalCopyright", "Copyright (C) 2017" + VALUE "OriginalFilename", "parameters.dll" + VALUE "ProductName", " parameters" + VALUE "ProductVersion", "5, 5, 2, 0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x40c, 1200 + END +END + +#endif // French (France) resources +///////////////////////////////////////////////////////////////////////////// + + + +#ifndef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 3 resource. +// + + +///////////////////////////////////////////////////////////////////////////// +#endif // not APSTUDIO_INVOKED + |