diff options
author | Shashank | 2017-05-29 12:40:26 +0530 |
---|---|---|
committer | Shashank | 2017-05-29 12:40:26 +0530 |
commit | 0345245e860375a32c9a437c4a9d9cae807134e9 (patch) | |
tree | ad51ecbfa7bcd3cc5f09834f1bb8c08feaa526a4 /modules/boolean/sci_gateway | |
download | scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.gz scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.bz2 scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.zip |
CMSCOPE changed
Diffstat (limited to 'modules/boolean/sci_gateway')
24 files changed, 1586 insertions, 0 deletions
diff --git a/modules/boolean/sci_gateway/boolean_gateway.xml b/modules/boolean/sci_gateway/boolean_gateway.xml new file mode 100755 index 000000000..936fb4a3a --- /dev/null +++ b/modules/boolean/sci_gateway/boolean_gateway.xml @@ -0,0 +1,41 @@ +<?xml version="1.0" encoding="UTF-8" standalone="no"?> + +<!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd"> +<GATEWAY name="boolean"> + <!-- =================== --> + <!-- + Scilab + Interface description. In this file, we define the list of the function which + will be available into Scilab and the link to the "native" function. + + gatewayId is the position in the hashtable 'Interfaces' defined in the + file SCI/modules/core/src/c/callinterf.h + + primitiveId is the position in the hashtable '<module>Table Tab[]' defined + in the file modules/<module>/sci_gateway/c/gw_<module>.c + + primitiveName is the name of the Scilab function + + =================== + Don't touch if you do not know what you are doing +--> + + <!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) INRIA - Allan CORNET , Sylvestre LEDRU + * + * 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 + * + --> + + + <!-- =================== --> + + <PRIMITIVE gatewayId="23" primitiveId="1" primitiveName="bool2s" /> + <PRIMITIVE gatewayId="23" primitiveId="2" primitiveName="or" /> + <PRIMITIVE gatewayId="23" primitiveId="3" primitiveName="and" /> +</GATEWAY> diff --git a/modules/boolean/sci_gateway/c/.deps/.dirstamp b/modules/boolean/sci_gateway/c/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/boolean/sci_gateway/c/.deps/.dirstamp diff --git a/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-gw_boolean.Plo b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-gw_boolean.Plo new file mode 100755 index 000000000..fcecc7cdb --- /dev/null +++ b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-gw_boolean.Plo @@ -0,0 +1,279 @@ +sci_gateway/c/libsciboolean_la-gw_boolean.lo: sci_gateway/c/gw_boolean.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 includes/gw_boolean.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/callFunctionFromGateway.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 /usr/include/values.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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 + +/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: + +includes/gw_boolean.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/callFunctionFromGateway.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: + +/usr/include/values.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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: diff --git a/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_and.Plo b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_and.Plo new file mode 100755 index 000000000..8a1466f8c --- /dev/null +++ b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_and.Plo @@ -0,0 +1,289 @@ +sci_gateway/c/libsciboolean_la-sci_and.lo: sci_gateway/c/sci_and.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 includes/gw_boolean.h \ + ../../modules/core/includes/machine.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 /usr/include/values.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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/output_stream/includes/Scierror.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h src/c/vect_and.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: + +includes/gw_boolean.h: + +../../modules/core/includes/machine.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: + +/usr/include/values.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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/output_stream/includes/Scierror.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +src/c/vect_and.h: diff --git a/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_bool2s.Plo b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_bool2s.Plo new file mode 100755 index 000000000..bbae99cda --- /dev/null +++ b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_bool2s.Plo @@ -0,0 +1,9 @@ +sci_gateway/c/libsciboolean_la-sci_bool2s.lo: sci_gateway/c/sci_bool2s.c \ + /usr/include/stdc-predef.h includes/gw_boolean.h \ + ../../modules/core/includes/machine.h + +/usr/include/stdc-predef.h: + +includes/gw_boolean.h: + +../../modules/core/includes/machine.h: diff --git a/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_or.Plo b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_or.Plo new file mode 100755 index 000000000..4d8ae7875 --- /dev/null +++ b/modules/boolean/sci_gateway/c/.deps/libsciboolean_la-sci_or.Plo @@ -0,0 +1,289 @@ +sci_gateway/c/libsciboolean_la-sci_or.lo: sci_gateway/c/sci_or.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 includes/gw_boolean.h \ + ../../modules/core/includes/machine.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 /usr/include/values.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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/output_stream/includes/Scierror.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h src/c/vect_or.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: + +includes/gw_boolean.h: + +../../modules/core/includes/machine.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: + +/usr/include/values.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/float.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/lib/gcc/x86_64-linux-gnu/5/include/stdarg.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/output_stream/includes/Scierror.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +src/c/vect_or.h: diff --git a/modules/boolean/sci_gateway/c/.dirstamp b/modules/boolean/sci_gateway/c/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/boolean/sci_gateway/c/.dirstamp diff --git a/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-gw_boolean.o b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-gw_boolean.o Binary files differnew file mode 100755 index 000000000..418986764 --- /dev/null +++ b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-gw_boolean.o diff --git a/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_and.o b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_and.o Binary files differnew file mode 100755 index 000000000..6c7248715 --- /dev/null +++ b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_and.o diff --git a/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_bool2s.o b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_bool2s.o Binary files differnew file mode 100755 index 000000000..6b8379ffe --- /dev/null +++ b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_bool2s.o diff --git a/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_or.o b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_or.o Binary files differnew file mode 100755 index 000000000..f0a11c58d --- /dev/null +++ b/modules/boolean/sci_gateway/c/.libs/libsciboolean_la-sci_or.o diff --git a/modules/boolean/sci_gateway/c/gw_boolean.c b/modules/boolean/sci_gateway/c/gw_boolean.c new file mode 100755 index 000000000..f0ff726cd --- /dev/null +++ b/modules/boolean/sci_gateway/c/gw_boolean.c @@ -0,0 +1,39 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) INRIA - Allan CORNET + * Copyright (C) DIGITEO - 2012 - 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 <string.h> +/*--------------------------------------------------------------------------*/ +#include "gw_boolean.h" +#include "callFunctionFromGateway.h" +#include "api_scilab.h" +#include "MALLOC.h" +/*--------------------------------------------------------------------------*/ +static gw_generic_table Tab[] = +{ + {C2F(sci_bool2s), "bool2s"}, + {sci_or, "or"}, + {sci_and, "and"} +}; +/*--------------------------------------------------------------------------*/ +int gw_boolean(void) +{ + if (pvApiCtx == NULL) + { + pvApiCtx = (StrCtx*)MALLOC(sizeof(StrCtx)); + } + + pvApiCtx->pstName = (char*)Tab[Fin - 1].name; + callFunctionFromGateway(Tab, SIZE_CURRENT_GENERIC_TABLE(Tab)); + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/boolean/sci_gateway/c/libsciboolean_la-gw_boolean.lo b/modules/boolean/sci_gateway/c/libsciboolean_la-gw_boolean.lo new file mode 100755 index 000000000..00b35d88f --- /dev/null +++ b/modules/boolean/sci_gateway/c/libsciboolean_la-gw_boolean.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libsciboolean_la-gw_boolean.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/libsciboolean_la-gw_boolean.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/boolean/sci_gateway/c/libsciboolean_la-sci_and.lo b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_and.lo new file mode 100755 index 000000000..67c41e2d1 --- /dev/null +++ b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_and.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libsciboolean_la-sci_and.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/libsciboolean_la-sci_and.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/boolean/sci_gateway/c/libsciboolean_la-sci_bool2s.lo b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_bool2s.lo new file mode 100755 index 000000000..7b942e777 --- /dev/null +++ b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_bool2s.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libsciboolean_la-sci_bool2s.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/libsciboolean_la-sci_bool2s.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/boolean/sci_gateway/c/libsciboolean_la-sci_or.lo b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_or.lo new file mode 100755 index 000000000..4d08db4f3 --- /dev/null +++ b/modules/boolean/sci_gateway/c/libsciboolean_la-sci_or.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libsciboolean_la-sci_or.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/libsciboolean_la-sci_or.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/boolean/sci_gateway/c/sci_and.c b/modules/boolean/sci_gateway/c/sci_and.c new file mode 100755 index 000000000..51dc702ed --- /dev/null +++ b/modules/boolean/sci_gateway/c/sci_and.c @@ -0,0 +1,203 @@ +/* +* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +* Copyright (C) INRIA - Allan CORNET +* Copyright (C) DIGITEO - 2012 - 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 <string.h> +#include "gw_boolean.h" +#include "api_scilab.h" +#include "Scierror.h" +#include "localization.h" +#include "vect_and.h" +/*--------------------------------------------------------------------------*/ +/* SCILAB function : and */ +/*--------------------------------------------------------------------------*/ +int sci_and(char *fname, unsigned long l) +{ + int m1 = 0, n1 = 0; + int opt = 0; + int *pBoolValuesOne = NULL; + int *pBoolResult = NULL; + + SciErr sciErr; + int *piAddressVarOne = NULL; + + CheckRhs(1, 2); + CheckLhs(1, 1); + + sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1); + return 0; + } + + if (!isBooleanType(pvApiCtx, piAddressVarOne)) + { + callOverloadFunction(pvApiCtx, 1, fname, l); + return 0; + } + + if (Rhs == 2) + { + int *piAddressVarTwo = NULL; + + sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 2); + return 0; + } + + if (!isScalar(pvApiCtx, piAddressVarTwo)) + { + Scierror(999, _("%s: Wrong size for input argument #%d.\n"), fname, 2); + return 0; + } + + if (isStringType(pvApiCtx, piAddressVarTwo)) + { + char *pStr = NULL; + if (getAllocatedSingleString(pvApiCtx, piAddressVarTwo, &pStr) == 0) + { + if (pStr) + { + size_t len = strlen(pStr); + switch (pStr[0]) + { + case 'r': + { + opt = AND_BY_ROWS; + } + break; + case '*': + { + opt = AND_ON_ALL; + } + break; + case 'c': + { + opt = AND_BY_COLUMNS; + } + break; + default: + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + break; + } + + freeAllocatedSingleString(pStr); + pStr = NULL; + + if (len != 1) + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + } + else + { + Scierror(999, _("%s: Memory allocation error.\n"), fname); + return 0; + } + } + else + { + Scierror(999, _("%s: Memory allocation error.\n"), fname); + return 0; + } + } + else + { + if (isDoubleType(pvApiCtx, piAddressVarTwo)) + { + double dValue = 0.; + if (isVarComplex(pvApiCtx, piAddressVarTwo)) + { + Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2); + return 0; + } + + if (getScalarDouble(pvApiCtx, piAddressVarTwo, &dValue) != 0) + { + Scierror(999, _("%s: No more memory.\n"), fname); + return 0; + } + + opt = (int)dValue; + if (dValue != (double)opt) + { + Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 2); + return 0; + } + + if ((opt > AND_BY_COLUMNS) || (opt < AND_BY_ROWS)) + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + } + else + { + Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2); + return 0; + } + } + } + + if ((Rhs == 2) && isEmptyMatrix(pvApiCtx, piAddressVarOne)) + { + createEmptyMatrix(pvApiCtx, Rhs + 1); + LhsVar(1) = Rhs + 1; + PutLhsVar(); + return 0; + } + + sciErr = getMatrixOfBoolean(pvApiCtx, piAddressVarOne, &m1, &n1, &pBoolValuesOne); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1); + return 0; + } + + /* cross variable size checking */ + if (opt == AND_ON_ALL) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, 1, 1, &pBoolResult); + } + else if (opt == AND_BY_ROWS) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, 1, n1, &pBoolResult); + } + else if (opt == AND_BY_COLUMNS) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, m1, 1, &pBoolResult); + } + + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: No more memory.\n"), fname); + return 0; + } + + vect_and(pBoolValuesOne, m1, n1, pBoolResult, opt); + + LhsVar(1) = Rhs + 1; + PutLhsVar(); + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/boolean/sci_gateway/c/sci_bool2s.c b/modules/boolean/sci_gateway/c/sci_bool2s.c new file mode 100755 index 000000000..f46318b37 --- /dev/null +++ b/modules/boolean/sci_gateway/c/sci_bool2s.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) INRIA - 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 "gw_boolean.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(intsbool2s)(); +/*--------------------------------------------------------------------------*/ +int C2F(sci_bool2s)(char *fname, unsigned long fname_len) +{ + C2F(intsbool2s)(); + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/boolean/sci_gateway/c/sci_or.c b/modules/boolean/sci_gateway/c/sci_or.c new file mode 100755 index 000000000..7733dd80b --- /dev/null +++ b/modules/boolean/sci_gateway/c/sci_or.c @@ -0,0 +1,203 @@ +/* +* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +* Copyright (C) INRIA - Allan CORNET +* Copyright (C) DIGITEO - 2012 - 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 <string.h> +#include "gw_boolean.h" +#include "api_scilab.h" +#include "Scierror.h" +#include "localization.h" +#include "vect_or.h" +/*--------------------------------------------------------------------------*/ +/* SCILAB function : or */ +/*--------------------------------------------------------------------------*/ +int sci_or(char *fname, unsigned long l) +{ + int m1 = 0, n1 = 0; + int opt = 0; + int *pBoolValuesOne = NULL; + int *pBoolResult = NULL; + + SciErr sciErr; + int *piAddressVarOne = NULL; + + CheckRhs(1, 2); + CheckLhs(1, 1); + + sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1); + return 0; + } + + if (!isBooleanType(pvApiCtx, piAddressVarOne)) + { + callOverloadFunction(pvApiCtx, 1, fname, l); + return 0; + } + + if (Rhs == 2) + { + int *piAddressVarTwo = NULL; + + sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 2); + return 0; + } + + if (!isScalar(pvApiCtx, piAddressVarTwo)) + { + Scierror(999, _("%s: Wrong size for input argument #%d.\n"), fname, 2); + return 0; + } + + if (isStringType(pvApiCtx, piAddressVarTwo)) + { + char *pStr = NULL; + if (getAllocatedSingleString(pvApiCtx, piAddressVarTwo, &pStr) == 0) + { + if (pStr) + { + size_t len = strlen(pStr); + switch (pStr[0]) + { + case 'r': + { + opt = OR_BY_ROWS; + } + break; + case '*': + { + opt = OR_ON_ALL; + } + break; + case 'c': + { + opt = OR_BY_COLUMNS; + } + break; + default: + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + break; + } + + freeAllocatedSingleString(pStr); + pStr = NULL; + + if (len != 1) + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + } + else + { + Scierror(999, _("%s: Memory allocation error.\n"), fname); + return 0; + } + } + else + { + Scierror(999, _("%s: Memory allocation error.\n"), fname); + return 0; + } + } + else + { + if (isDoubleType(pvApiCtx, piAddressVarTwo)) + { + double dValue = 0.; + if (isVarComplex(pvApiCtx, piAddressVarTwo)) + { + Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2); + return 0; + } + + if (getScalarDouble(pvApiCtx, piAddressVarTwo, &dValue) != 0) + { + Scierror(999, _("%s: No more memory.\n"), fname); + return 0; + } + + opt = (int)dValue; + if (dValue != (double)opt) + { + Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 2); + return 0; + } + + if ((opt > OR_BY_COLUMNS) || (opt < OR_BY_ROWS)) + { + Scierror(44, _("%s: Wrong value for input argument #%d.\n"), fname, 2); + return 0; + } + } + else + { + Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2); + return 0; + } + } + } + + if ((Rhs == 2) && isEmptyMatrix(pvApiCtx, piAddressVarOne)) + { + createEmptyMatrix(pvApiCtx, Rhs + 1); + LhsVar(1) = Rhs + 1; + PutLhsVar(); + return 0; + } + + sciErr = getMatrixOfBoolean(pvApiCtx, piAddressVarOne, &m1, &n1, &pBoolValuesOne); + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1); + return 0; + } + + /* cross variable size checking */ + if (opt == OR_ON_ALL) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, 1, 1, &pBoolResult); + } + else if (opt == OR_BY_ROWS) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, 1, n1, &pBoolResult); + } + else if (opt == OR_BY_COLUMNS) + { + sciErr = allocMatrixOfBoolean(pvApiCtx, Rhs + 1, m1, 1, &pBoolResult); + } + + if (sciErr.iErr) + { + printError(&sciErr, 0); + Scierror(999, _("%s: No more memory.\n"), fname); + return 0; + } + + vect_or(pBoolValuesOne, m1, n1, pBoolResult, opt); + + LhsVar(1) = Rhs + 1; + PutLhsVar(); + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/boolean/sci_gateway/fortran/.deps/.dirstamp b/modules/boolean/sci_gateway/fortran/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/boolean/sci_gateway/fortran/.deps/.dirstamp diff --git a/modules/boolean/sci_gateway/fortran/.dirstamp b/modules/boolean/sci_gateway/fortran/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/boolean/sci_gateway/fortran/.dirstamp diff --git a/modules/boolean/sci_gateway/fortran/.libs/sci_f_bool2s.o b/modules/boolean/sci_gateway/fortran/.libs/sci_f_bool2s.o Binary files differnew file mode 100755 index 000000000..e9b570c6b --- /dev/null +++ b/modules/boolean/sci_gateway/fortran/.libs/sci_f_bool2s.o diff --git a/modules/boolean/sci_gateway/fortran/sci_f_bool2s.f b/modules/boolean/sci_gateway/fortran/sci_f_bool2s.f new file mode 100755 index 000000000..7a80a1933 --- /dev/null +++ b/modules/boolean/sci_gateway/fortran/sci_f_bool2s.f @@ -0,0 +1,152 @@ +c ================================================== + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +c ================================================== + subroutine intsbool2s + include 'stack.h' + + logical ref + integer sadr,iadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1) +c + + 10 if(rhs.ne.1) then + call error(39) + return + endif + if(lhs.ne.1) then + call error(39) + return + endif + + il1=iadr(lstk(top)) + ilr=il1 + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + ref=ilr.ne.il1 + mn1=istk(il1+1)*istk(il1+2) + if (mn1.eq.0) return + + if(istk(il1).eq.4) then + +c argument is a full boolean matrix + lr=sadr(ilr+4) + err=lr+mn1-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + + do 13 k=mn1-1,0,-1 + stk(lr+k)=istk(il1+3+k) + 13 continue + istk(ilr)=1 + istk(ilr+1)=istk(il1+1) + istk(ilr+2)=istk(il1+2) + istk(ilr+3)=0 + lstk(top+1)=lr+mn1 + elseif(istk(il1).eq.6) then +c argument is a sparse boolean matrix + m1=istk(il1+1) + n1=istk(il1+2) + nel1=istk(il1+4) +c + if(ref) then + err=sadr(ilr+5+m1+nel1)+nel1-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call icopy(m1+nel1,istk(il1+5),1,istk(ilr+5),1) + endif + lj=sadr(ilr+5+m1+nel1) + call dset(nel1,1.0d0,stk(lj),1) + istk(ilr)=5 + istk(ilr+1)=istk(il1+1) + istk(ilr+2)=istk(il1+2) + istk(ilr+3)=0 + istk(ilr+4)=nel1 + lstk(top+1)=lj+nel1 + elseif(istk(il1).eq.1) then + if(istk(il1+3).ne.0) then + call putfunnam('bool2s',top) + fun=-1 + return + endif + + if(mn1.eq.0) then + istk(ilr)=1 + istk(ilr+1)=0 + istk(ilr+2)=0 + istk(ilr+3)=0 + lstk(top+1)=lr + else + l1=sadr(il1+4) + lr=sadr(ilr+4) + if(ref) then + err=lr+mn1-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + endif + do 20 k=mn1-1,0,-1 + if(stk(l1+k).ne.0.0d0) then + stk(lr+k)=1.0d0 + else + stk(lr+k)=0.0d0 + endif + 20 continue + istk(ilr)=1 + istk(ilr+1)=istk(il1+1) + istk(ilr+2)=istk(il1+2) + istk(ilr+3)=0 + lstk(top+1)=lr+mn1 + endif + elseif(istk(il1).eq.5) then +c argument is a sparse matrix + m1=istk(il1+1) + n1=istk(il1+2) + nel1=istk(il1+4) + if(istk(il1+3).ne.0) then + call putfunnam('bool2s',top) + fun=-1 + return + endif +c + if(ref) then + err=sadr(ilr+5+m1+nel1)+nel1-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call icopy(m1+nel1,istk(il1+5),1,istk(ilr+5),1) + endif + lj=sadr(ilr+5+m1+nel1) + call dset(nel1,1.0d0,stk(lj),1) + istk(ilr)=5 + istk(ilr+1)=istk(il1+1) + istk(ilr+2)=istk(il1+2) + istk(ilr+3)=0 + istk(ilr+4)=nel1 + lstk(top+1)=lj+nel1 + else + call putfunnam('bool2s',top) + fun=-1 + return + endif + end +c ================================================== + + diff --git a/modules/boolean/sci_gateway/fortran/sci_f_bool2s.lo b/modules/boolean/sci_gateway/fortran/sci_f_bool2s.lo new file mode 100755 index 000000000..43d078f3f --- /dev/null +++ b/modules/boolean/sci_gateway/fortran/sci_f_bool2s.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/sci_f_bool2s.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/sci_f_bool2s.o' + +# Name of the non-PIC object +non_pic_object=none + |