From 5675f7cd91515d5e88fd151943c3ec5cde57ceaa Mon Sep 17 00:00:00 2001 From: siddhu8990 Date: Thu, 20 Aug 2015 01:20:26 +0530 Subject: Support for disp added --- .../macros/CCodeGeneration/C_GenerateMakefile.bin | Bin 22632 -> 17792 bytes .../macros/CCodeGeneration/C_GenerateMakefile.sci | 4 +- 2.3-1/macros/CCodeGeneration/C_Type.bin | Bin 9600 -> 9600 bytes .../.fuse_hidden0000024a00000003 | Bin 0 -> 405456 bytes .../macros/ToolInitialization/INIT_CreateDirs.bin | Bin 9600 -> 9600 bytes .../ToolInitialization/INIT_FillSCI2LibCDirs.bin | Bin 404912 -> 406496 bytes .../ToolInitialization/INIT_FillSCI2LibCDirs.sci | 202 ++++++++++++++++----- .../ToolInitialization/INIT_GenAnnFLFunctions.bin | Bin 9600 -> 9600 bytes .../macros/ToolInitialization/INIT_GenFileInfo.bin | Bin 13696 -> 13696 bytes .../ToolInitialization/INIT_GenLibraries.bin | Bin 9600 -> 9600 bytes .../ToolInitialization/INIT_GenSharedInfo.bin | Bin 13696 -> 13696 bytes .../ToolInitialization/INIT_LoadLibraries.bin | Bin 9600 -> 9600 bytes .../macros/ToolInitialization/INIT_RemoveDirs.bin | Bin 13696 -> 13696 bytes 2.3-1/macros/ToolInitialization/INIT_SCI2C.bin | Bin 21152 -> 21152 bytes .../ToolInitialization/INIT_SharedInfoEqual.bin | Bin 9600 -> 9600 bytes .../ToolInitialization/ManageNextConversion.bin | Bin 13696 -> 13696 bytes .../macros/ToolInitialization/UpdateSCI2CInfo.bin | Bin 30256 -> 30256 bytes 2.3-1/macros/findDeps/getAllHeaders.bin | Bin 13696 -> 13696 bytes 2.3-1/macros/findDeps/getAllInterfaces.bin | Bin 13696 -> 13696 bytes 2.3-1/macros/findDeps/getAllInterfaces.sci | 1 + 2.3-1/macros/findDeps/getAllSources.bin | Bin 86496 -> 88224 bytes 2.3-1/macros/findDeps/getAllSources.sci | 120 ++++++++++++ 2.3-1/src/c/auxiliaryFunctions/includes/sign.h | 70 +++++++ .../src/c/auxiliaryFunctions/interfaces/int_sign.h | 16 ++ 2.3-1/src/c/auxiliaryFunctions/sign/i16signa.c | 21 +++ 2.3-1/src/c/auxiliaryFunctions/sign/i16signs.c | 24 +++ 2.3-1/src/c/auxiliaryFunctions/sign/i8signa.c | 21 +++ 2.3-1/src/c/auxiliaryFunctions/sign/i8signs.c | 24 +++ 2.3-1/src/c/auxiliaryFunctions/sign/u16signa.c | 21 +++ 2.3-1/src/c/auxiliaryFunctions/sign/u16signs.c | 24 +++ 2.3-1/src/c/auxiliaryFunctions/sign/u8signa.c | 21 +++ 2.3-1/src/c/auxiliaryFunctions/sign/u8signs.c | 24 +++ 2.3-1/src/c/elementaryFunctions/cos/i16cosa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/cos/i16coss.c | 18 ++ 2.3-1/src/c/elementaryFunctions/cos/i8cosa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/cos/i8coss.c | 18 ++ 2.3-1/src/c/elementaryFunctions/cos/u16cosa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/cos/u16coss.c | 18 ++ 2.3-1/src/c/elementaryFunctions/cos/u8cosa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/cos/u8coss.c | 18 ++ 2.3-1/src/c/elementaryFunctions/cosh/i16cosha.c | 26 +++ 2.3-1/src/c/elementaryFunctions/cosh/i16coshs.c | 27 +++ 2.3-1/src/c/elementaryFunctions/cosh/i8cosha.c | 26 +++ 2.3-1/src/c/elementaryFunctions/cosh/i8coshs.c | 27 +++ 2.3-1/src/c/elementaryFunctions/cosh/u16cosha.c | 26 +++ 2.3-1/src/c/elementaryFunctions/cosh/u16coshs.c | 27 +++ 2.3-1/src/c/elementaryFunctions/cosh/u8cosha.c | 26 +++ 2.3-1/src/c/elementaryFunctions/cosh/u8coshs.c | 27 +++ 2.3-1/src/c/elementaryFunctions/exp/i16expa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/exp/i16exps.c | 18 ++ 2.3-1/src/c/elementaryFunctions/exp/i8expa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/exp/i8exps.c | 18 ++ 2.3-1/src/c/elementaryFunctions/exp/u16expa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/exp/u16exps.c | 18 ++ 2.3-1/src/c/elementaryFunctions/exp/u8expa.c | 20 ++ 2.3-1/src/c/elementaryFunctions/exp/u8exps.c | 18 ++ 2.3-1/src/c/elementaryFunctions/includes/cos.h | 57 ++++++ 2.3-1/src/c/elementaryFunctions/includes/cosh.h | 58 ++++++ 2.3-1/src/c/elementaryFunctions/includes/exp.h | 58 ++++++ 2.3-1/src/c/elementaryFunctions/includes/int16.h | 14 +- 2.3-1/src/c/elementaryFunctions/includes/int8.h | 14 +- 2.3-1/src/c/elementaryFunctions/includes/sin.h | 61 +++++++ 2.3-1/src/c/elementaryFunctions/includes/sinh.h | 59 ++++++ 2.3-1/src/c/elementaryFunctions/includes/tan.h | 59 ++++++ 2.3-1/src/c/elementaryFunctions/includes/tanh.h | 57 ++++++ 2.3-1/src/c/elementaryFunctions/includes/uint16.h | 14 +- 2.3-1/src/c/elementaryFunctions/includes/uint8.h | 12 ++ 2.3-1/src/c/elementaryFunctions/int16/i8int16a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int16/i8int16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int16/u16int16a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int16/u16int16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int16/u8int16a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int16/u8int16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/i16int8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/i16int8s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/u16int8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/u16int8s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/u8int8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/int8/u8int8s.c | 18 ++ .../src/c/elementaryFunctions/interfaces/int_cos.h | 16 ++ .../c/elementaryFunctions/interfaces/int_cosh.h | 16 ++ .../src/c/elementaryFunctions/interfaces/int_exp.h | 16 ++ .../c/elementaryFunctions/interfaces/int_int16.h | 12 ++ .../c/elementaryFunctions/interfaces/int_int8.h | 12 ++ .../src/c/elementaryFunctions/interfaces/int_sin.h | 16 ++ .../c/elementaryFunctions/interfaces/int_sinh.h | 16 ++ .../src/c/elementaryFunctions/interfaces/int_tan.h | 16 ++ .../c/elementaryFunctions/interfaces/int_tanh.h | 16 ++ .../c/elementaryFunctions/interfaces/int_uint16.h | 12 ++ .../c/elementaryFunctions/interfaces/int_uint8.h | 12 ++ 2.3-1/src/c/elementaryFunctions/sin/i16sina.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sin/i16sins.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sin/i8sina.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sin/i8sins.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sin/u16sina.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sin/u16sins.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sin/u8sina.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sin/u8sins.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sinh/i16sinha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sinh/i16sinhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sinh/i8sinha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sinh/i8sinhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sinh/u16sinha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sinh/u16sinhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/sinh/u8sinha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/sinh/u8sinhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tan/i16tana.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tan/i16tans.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tan/i8tana.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tan/i8tans.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tan/u16tana.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tan/u16tans.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tan/u8tana.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tan/u8tans.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tanh/i16tanha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tanh/i16tanhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tanh/i8tanha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tanh/i8tanhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tanh/u16tanha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tanh/u16tanhs.c | 18 ++ 2.3-1/src/c/elementaryFunctions/tanh/u8tanha.c | 20 ++ 2.3-1/src/c/elementaryFunctions/tanh/u8tanhs.c | 18 ++ .../src/c/elementaryFunctions/uint16/i16uint16a.c | 18 ++ .../src/c/elementaryFunctions/uint16/i16uint16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint16/i8uint16a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint16/i8uint16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint16/u8uint16a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint16/u8uint16s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/i16uint8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/i16uint8s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/i8uint8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/i8uint8s.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/u16uint8a.c | 18 ++ 2.3-1/src/c/elementaryFunctions/uint8/u16uint8s.c | 18 ++ 2.3-1/src/c/matrixOperations/eye/i16eyea.c | 23 +++ 2.3-1/src/c/matrixOperations/eye/i8eyea.c | 23 +++ 2.3-1/src/c/matrixOperations/eye/u16eyea.c | 23 +++ 2.3-1/src/c/matrixOperations/eye/u8eyea.c | 23 +++ 2.3-1/src/c/matrixOperations/includes/eye.h | 41 +++++ .../c/matrixOperations/includes/matrixInversion.h | 38 ++++ 2.3-1/src/c/matrixOperations/includes/ones.h | 43 +++++ 2.3-1/src/c/matrixOperations/includes/zeros.h | 40 ++++ 2.3-1/src/c/matrixOperations/interfaces/int_eye.h | 35 ++++ .../src/c/matrixOperations/interfaces/int_invert.h | 16 ++ 2.3-1/src/c/matrixOperations/interfaces/int_ones.h | 34 ++++ .../src/c/matrixOperations/interfaces/int_zeros.h | 37 +++- .../src/c/matrixOperations/inversion/i16inverma.c | 55 ++++++ 2.3-1/src/c/matrixOperations/inversion/i8inverma.c | 55 ++++++ .../src/c/matrixOperations/inversion/u16inverma.c | 55 ++++++ 2.3-1/src/c/matrixOperations/inversion/u8inverma.c | 55 ++++++ 2.3-1/src/c/matrixOperations/ones/i16onesa.c | 28 +++ 2.3-1/src/c/matrixOperations/ones/i8onesa.c | 28 +++ 2.3-1/src/c/matrixOperations/ones/u16onesa.c | 28 +++ 2.3-1/src/c/matrixOperations/ones/u8onesa.c | 28 +++ 2.3-1/src/c/matrixOperations/zeros/i16zerosa.c | 28 +++ 2.3-1/src/c/matrixOperations/zeros/i8zerosa.c | 28 +++ 2.3-1/src/c/matrixOperations/zeros/u16zerosa.c | 28 +++ 2.3-1/src/c/matrixOperations/zeros/u8zerosa.c | 28 +++ 2.3-1/src/c/operations/interfaces/int_OpLogNot.h | 25 +++ 2.3-1/src/c/operations/interfaces/int_OpStar.h | 4 +- 2.3-1/src/c/operations/multiplication/u8mula.c | 21 +++ 2.3-1/src/c/string/disp/i16dispa.c | 23 +++ 2.3-1/src/c/string/disp/i16disps.c | 18 ++ 2.3-1/src/c/string/disp/i8dispa.c | 23 +++ 2.3-1/src/c/string/disp/i8disps.c | 18 ++ 2.3-1/src/c/string/disp/u16dispa.c | 23 +++ 2.3-1/src/c/string/disp/u16disps.c | 18 ++ 2.3-1/src/c/string/disp/u8dispa.c | 23 +++ 2.3-1/src/c/string/disp/u8disps.c | 18 ++ 2.3-1/src/c/string/includes/disp.h | 51 +++++- 2.3-1/src/c/string/includes/str.h | 58 ++++++ 2.3-1/src/c/string/interfaces/int_disp.h | 16 ++ 2.3-1/src/c/string/interfaces/int_string.h | 52 ++++++ 2.3-1/src/c/string/string/i16stringa.c | 23 +++ 2.3-1/src/c/string/string/i16strings.c | 20 ++ 2.3-1/src/c/string/string/i8stringa.c | 23 +++ 2.3-1/src/c/string/string/i8strings.c | 20 ++ 2.3-1/src/c/string/string/u16stringa.c | 23 +++ 2.3-1/src/c/string/string/u16strings.c | 20 ++ 2.3-1/src/c/string/string/u8stringa.c | 23 +++ 2.3-1/src/c/string/string/u8strings.c | 20 ++ 181 files changed, 4097 insertions(+), 58 deletions(-) create mode 100644 2.3-1/macros/ToolInitialization/.fuse_hidden0000024a00000003 create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/i16signa.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/i16signs.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/i8signa.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/i8signs.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/u16signa.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/u16signs.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/u8signa.c create mode 100644 2.3-1/src/c/auxiliaryFunctions/sign/u8signs.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/i16cosa.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/i16coss.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/i8cosa.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/i8coss.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/u16cosa.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/u16coss.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/u8cosa.c create mode 100644 2.3-1/src/c/elementaryFunctions/cos/u8coss.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/i16cosha.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/i16coshs.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/i8cosha.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/i8coshs.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/u16cosha.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/u16coshs.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/u8cosha.c create mode 100644 2.3-1/src/c/elementaryFunctions/cosh/u8coshs.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/i16expa.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/i16exps.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/i8expa.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/i8exps.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/u16expa.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/u16exps.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/u8expa.c create mode 100644 2.3-1/src/c/elementaryFunctions/exp/u8exps.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/i8int16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/i8int16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/u16int16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/u16int16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/u8int16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int16/u8int16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/i16int8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/i16int8s.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/u16int8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/u16int8s.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/u8int8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/int8/u8int8s.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/i16sina.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/i16sins.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/i8sina.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/i8sins.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/u16sina.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/u16sins.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/u8sina.c create mode 100644 2.3-1/src/c/elementaryFunctions/sin/u8sins.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/i16sinha.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/i16sinhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/i8sinha.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/i8sinhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/u16sinha.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/u16sinhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/u8sinha.c create mode 100644 2.3-1/src/c/elementaryFunctions/sinh/u8sinhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/i16tana.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/i16tans.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/i8tana.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/i8tans.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/u16tana.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/u16tans.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/u8tana.c create mode 100644 2.3-1/src/c/elementaryFunctions/tan/u8tans.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/i16tanha.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/i16tanhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/i8tanha.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/i8tanhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/u16tanha.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/u16tanhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/u8tanha.c create mode 100644 2.3-1/src/c/elementaryFunctions/tanh/u8tanhs.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/i16uint16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/i16uint16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/i8uint16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/i8uint16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/u8uint16a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint16/u8uint16s.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/i16uint8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/i16uint8s.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/i8uint8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/i8uint8s.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/u16uint8a.c create mode 100644 2.3-1/src/c/elementaryFunctions/uint8/u16uint8s.c create mode 100644 2.3-1/src/c/matrixOperations/eye/i16eyea.c create mode 100644 2.3-1/src/c/matrixOperations/eye/i8eyea.c create mode 100644 2.3-1/src/c/matrixOperations/eye/u16eyea.c create mode 100644 2.3-1/src/c/matrixOperations/eye/u8eyea.c create mode 100644 2.3-1/src/c/matrixOperations/inversion/i16inverma.c create mode 100644 2.3-1/src/c/matrixOperations/inversion/i8inverma.c create mode 100644 2.3-1/src/c/matrixOperations/inversion/u16inverma.c create mode 100644 2.3-1/src/c/matrixOperations/inversion/u8inverma.c create mode 100644 2.3-1/src/c/matrixOperations/ones/i16onesa.c create mode 100644 2.3-1/src/c/matrixOperations/ones/i8onesa.c create mode 100644 2.3-1/src/c/matrixOperations/ones/u16onesa.c create mode 100644 2.3-1/src/c/matrixOperations/ones/u8onesa.c create mode 100644 2.3-1/src/c/matrixOperations/zeros/i16zerosa.c create mode 100644 2.3-1/src/c/matrixOperations/zeros/i8zerosa.c create mode 100644 2.3-1/src/c/matrixOperations/zeros/u16zerosa.c create mode 100644 2.3-1/src/c/matrixOperations/zeros/u8zerosa.c create mode 100644 2.3-1/src/c/operations/multiplication/u8mula.c create mode 100644 2.3-1/src/c/string/disp/i16dispa.c create mode 100644 2.3-1/src/c/string/disp/i16disps.c create mode 100644 2.3-1/src/c/string/disp/i8dispa.c create mode 100644 2.3-1/src/c/string/disp/i8disps.c create mode 100644 2.3-1/src/c/string/disp/u16dispa.c create mode 100644 2.3-1/src/c/string/disp/u16disps.c create mode 100644 2.3-1/src/c/string/disp/u8dispa.c create mode 100644 2.3-1/src/c/string/disp/u8disps.c create mode 100644 2.3-1/src/c/string/interfaces/int_string.h create mode 100644 2.3-1/src/c/string/string/i16stringa.c create mode 100644 2.3-1/src/c/string/string/i16strings.c create mode 100644 2.3-1/src/c/string/string/i8stringa.c create mode 100644 2.3-1/src/c/string/string/i8strings.c create mode 100644 2.3-1/src/c/string/string/u16stringa.c create mode 100644 2.3-1/src/c/string/string/u16strings.c create mode 100644 2.3-1/src/c/string/string/u8stringa.c create mode 100644 2.3-1/src/c/string/string/u8strings.c (limited to '2.3-1') diff --git a/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.bin b/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.bin index e43b548b..8439eb92 100644 Binary files a/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.bin and b/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.bin differ diff --git a/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.sci b/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.sci index 8956d51d..e2fe6036 100644 --- a/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.sci +++ b/2.3-1/macros/CCodeGeneration/C_GenerateMakefile.sci @@ -51,7 +51,7 @@ PrintStringInfo('SCI2CDIR = .',FileInfo.MakefileFilename,'file','y','y'); // Compiler definition PrintStringInfo('CC = gcc',FileInfo.MakefileFilename,'file','y','y'); -PrintStringInfo('CFLAGS = -Wall -pedantic -I $(HSRCDIR) -I $(ISRCDIR)',FileInfo.MakefileFilename,'file','y','y'); +PrintStringInfo('CFLAGS = -Wall -pedantic -g -I $(HSRCDIR) -I $(ISRCDIR)',FileInfo.MakefileFilename,'file','y','y'); PrintStringInfo('LDFLAGS = -lblas -llapack -lm',FileInfo.MakefileFilename,'file','y','y'); // Binary definition @@ -109,4 +109,4 @@ if getos() == 'Windows' then C_GenerateMakefile_msvc(FileInfo,SharedInfo); end -endfunction \ No newline at end of file +endfunction diff --git a/2.3-1/macros/CCodeGeneration/C_Type.bin b/2.3-1/macros/CCodeGeneration/C_Type.bin index 52bc7220..6e674911 100644 Binary files a/2.3-1/macros/CCodeGeneration/C_Type.bin and b/2.3-1/macros/CCodeGeneration/C_Type.bin differ diff --git a/2.3-1/macros/ToolInitialization/.fuse_hidden0000024a00000003 b/2.3-1/macros/ToolInitialization/.fuse_hidden0000024a00000003 new file mode 100644 index 00000000..82e80fa7 Binary files /dev/null and b/2.3-1/macros/ToolInitialization/.fuse_hidden0000024a00000003 differ diff --git a/2.3-1/macros/ToolInitialization/INIT_CreateDirs.bin b/2.3-1/macros/ToolInitialization/INIT_CreateDirs.bin index 398d6ff0..b898c3cd 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_CreateDirs.bin and b/2.3-1/macros/ToolInitialization/INIT_CreateDirs.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.bin b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.bin index e50798d1..38319cae 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.bin and b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci index ae6545c9..ba8da6cf 100644 --- a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci +++ b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci @@ -191,19 +191,11 @@ PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('d0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('u80'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('i80'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('u160'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('i160'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('u82'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('i82'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('u162'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('i162'+ArgSeparator+'c2',ClassFileName,'file','y'); // --- Annotation Function And Function List Function. --- FunctionName = 'floatcomplex'; @@ -234,19 +226,12 @@ PrintStringInfo('s0'+ArgSeparator+'z0',ClassFileName,'file','y'); PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'z0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('u80'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('i80'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('u160'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('i160'+ArgSeparator+'z0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'z2',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'z2',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('u82'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('i82'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('u162'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('i162'+ArgSeparator+'z2',ClassFileName,'file','y'); + // --- Annotation Function And Function List Function. --- FunctionName = 'doublecomplex'; @@ -422,7 +407,7 @@ PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); PrintStringInfo('NIN= 1',ClassFileName,'file','y'); PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); @@ -432,19 +417,19 @@ PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('u80'+ArgSeparator+'u80',ClassFileName,'file','y'); -PrintStringInfo('i80'+ArgSeparator+'i80',ClassFileName,'file','y'); -PrintStringInfo('u160'+ArgSeparator+'u160',ClassFileName,'file','y'); -PrintStringInfo('i160'+ArgSeparator+'i160',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('u82'+ArgSeparator+'u82',ClassFileName,'file','y'); -PrintStringInfo('i82'+ArgSeparator+'i82',ClassFileName,'file','y'); -PrintStringInfo('u162'+ArgSeparator+'u162',ClassFileName,'file','y'); -PrintStringInfo('i162'+ArgSeparator+'i162',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'s2',ClassFileName,'file','y'); // --- Annotation Function And Function List Function. --- FunctionName = 'sin'; //BJ : Done AS : Float_Done @@ -523,26 +508,91 @@ PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file', INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); -FunctionName = 'OpLogNot'; //BJ : Done AS : Float_Done -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - FunctionName = 'SCI2Cresize'; PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); -FunctionName = 'sign'; //BJ : Done AS : Float_Done +FunctionName = 'chol'; //BJ : Done AS : Float_Done PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); -FunctionName = 'chol'; //BJ : Done AS : Float_Done +// ------------------ +// --- Class OpLogNot +// ------------------ +ClassName = 'OpLogNot'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); + +// --- Function List Class. --- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'u80',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'i80',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'u160',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'i160',ClassFileName,'file','y'); + +PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); +PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'u82',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'i82',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'u162',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'i162',ClassFileName,'file','y'); + +FunctionName = 'OpLogNot'; //BJ : Done AS : Float_Done PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); + +// ------------------ +// --- Class Sign --- +// ------------------ +ClassName = 'Sign'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); + +// --- Function List Class. --- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'i80',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'i80',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'i160',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'i160',ClassFileName,'file','y'); + +PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); +PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'i82',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'i82',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'i162',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'i162',ClassFileName,'file','y'); + + // ------------------- // --- Class Atan. --- // ------------------- @@ -569,19 +619,19 @@ PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('u80'+ArgSeparator+'u80',ClassFileName,'file','y'); -PrintStringInfo('i80'+ArgSeparator+'i80',ClassFileName,'file','y'); -PrintStringInfo('u160'+ArgSeparator+'u160',ClassFileName,'file','y'); -PrintStringInfo('i160'+ArgSeparator+'i160',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('u82'+ArgSeparator+'u82',ClassFileName,'file','y'); -PrintStringInfo('i82'+ArgSeparator+'i82',ClassFileName,'file','y'); -PrintStringInfo('u162'+ArgSeparator+'u162',ClassFileName,'file','y'); -PrintStringInfo('i162'+ArgSeparator+'i162',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); @@ -591,6 +641,11 @@ PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); // PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); // PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); +PrintStringInfo('u82u82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i82i82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('u162u162'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i162i162'+ArgSeparator+'s2',ClassFileName,'file','y'); + // --- Annotation Function And Function List Function. --- FunctionName = 'atan'; //BJ : atan AS : Float_Done @@ -623,11 +678,11 @@ PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('u80'+ArgSeparator+'u80',ClassFileName,'file','y'); -PrintStringInfo('i80'+ArgSeparator+'i80',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('i80'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('u160'+ArgSeparator+'u160',ClassFileName,'file','y'); -PrintStringInfo('i160'+ArgSeparator+'i160',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'s0',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'s0',ClassFileName,'file','y'); PrintStringInfo('i160'+ArgSeparator+'c0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); @@ -636,11 +691,11 @@ PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('u82'+ArgSeparator+'u82',ClassFileName,'file','y'); -PrintStringInfo('i82'+ArgSeparator+'i82',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('i82'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('u162'+ArgSeparator+'u162',ClassFileName,'file','y'); -PrintStringInfo('i162'+ArgSeparator+'i162',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'s2',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'s2',ClassFileName,'file','y'); PrintStringInfo('i162'+ArgSeparator+'c2',ClassFileName,'file','y'); // --- Annotation Function And Function List Function. --- @@ -775,7 +830,7 @@ PrintStringInfo('i80i80'+ArgSeparator+'i82',ClassFileName,'file','y'); PrintStringInfo('u160u160'+ArgSeparator+'u160',ClassFileName,'file','y'); PrintStringInfo('u160u160'+ArgSeparator+'u162',ClassFileName,'file','y'); PrintStringInfo('i160i160'+ArgSeparator+'i160',ClassFileName,'file','y'); -PrintStringInfo('i160i160'+ArgSeparator+'i12',ClassFileName,'file','y'); +PrintStringInfo('i160i160'+ArgSeparator+'i162',ClassFileName,'file','y'); PrintStringInfo('d0d0d0'+ArgSeparator+'d3',ClassFileName,'file','y'); @@ -2550,12 +2605,20 @@ PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('c0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('s2'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('c2'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator+'d0',ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator+'d0',ClassFileName,'file','y'); PrintStringInfo('d3'+ArgSeparator+'d0',ClassFileName,'file','y'); @@ -2565,6 +2628,47 @@ PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file', INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); +// ------------------- +// --- Class String --- +// ------------------- +ClassName = 'String'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 0',ClassFileName,'file','y'); + +// --- Function List Class. --- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('s0'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('d0'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('c0'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('g0'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('u80'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('i80'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('u160'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('i160'+ArgSeparator,ClassFileName,'file','y'); + +PrintStringInfo('s2'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('c2'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('g2'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('u82'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('i82'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('u162'+ArgSeparator,ClassFileName,'file','y'); +PrintStringInfo('i162'+ArgSeparator,ClassFileName,'file','y'); + + +// --- Annotation Function And Function List Function. --- +FunctionName = 'string'; // AS : Done AS : Float_Done +PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); + + // ---------------------- // --- Class OpEqual. --- // ---------------------- diff --git a/2.3-1/macros/ToolInitialization/INIT_GenAnnFLFunctions.bin b/2.3-1/macros/ToolInitialization/INIT_GenAnnFLFunctions.bin index 5d6b1cae..04450330 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_GenAnnFLFunctions.bin and b/2.3-1/macros/ToolInitialization/INIT_GenAnnFLFunctions.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_GenFileInfo.bin b/2.3-1/macros/ToolInitialization/INIT_GenFileInfo.bin index 782c9176..1de53d3e 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_GenFileInfo.bin and b/2.3-1/macros/ToolInitialization/INIT_GenFileInfo.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_GenLibraries.bin b/2.3-1/macros/ToolInitialization/INIT_GenLibraries.bin index 850ca7c2..103aec24 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_GenLibraries.bin and b/2.3-1/macros/ToolInitialization/INIT_GenLibraries.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_GenSharedInfo.bin b/2.3-1/macros/ToolInitialization/INIT_GenSharedInfo.bin index bc174bdc..413a6c60 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_GenSharedInfo.bin and b/2.3-1/macros/ToolInitialization/INIT_GenSharedInfo.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_LoadLibraries.bin b/2.3-1/macros/ToolInitialization/INIT_LoadLibraries.bin index 0be22bf9..52c501f2 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_LoadLibraries.bin and b/2.3-1/macros/ToolInitialization/INIT_LoadLibraries.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_RemoveDirs.bin b/2.3-1/macros/ToolInitialization/INIT_RemoveDirs.bin index 19a66a59..81e058a7 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_RemoveDirs.bin and b/2.3-1/macros/ToolInitialization/INIT_RemoveDirs.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_SCI2C.bin b/2.3-1/macros/ToolInitialization/INIT_SCI2C.bin index 3e596ba3..dd405d08 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_SCI2C.bin and b/2.3-1/macros/ToolInitialization/INIT_SCI2C.bin differ diff --git a/2.3-1/macros/ToolInitialization/INIT_SharedInfoEqual.bin b/2.3-1/macros/ToolInitialization/INIT_SharedInfoEqual.bin index 11e91f43..bcbedb41 100644 Binary files a/2.3-1/macros/ToolInitialization/INIT_SharedInfoEqual.bin and b/2.3-1/macros/ToolInitialization/INIT_SharedInfoEqual.bin differ diff --git a/2.3-1/macros/ToolInitialization/ManageNextConversion.bin b/2.3-1/macros/ToolInitialization/ManageNextConversion.bin index 45fdcc39..01b88f4d 100644 Binary files a/2.3-1/macros/ToolInitialization/ManageNextConversion.bin and b/2.3-1/macros/ToolInitialization/ManageNextConversion.bin differ diff --git a/2.3-1/macros/ToolInitialization/UpdateSCI2CInfo.bin b/2.3-1/macros/ToolInitialization/UpdateSCI2CInfo.bin index fe3fb30f..41b07bbe 100644 Binary files a/2.3-1/macros/ToolInitialization/UpdateSCI2CInfo.bin and b/2.3-1/macros/ToolInitialization/UpdateSCI2CInfo.bin differ diff --git a/2.3-1/macros/findDeps/getAllHeaders.bin b/2.3-1/macros/findDeps/getAllHeaders.bin index 4437369c..88a2063a 100644 Binary files a/2.3-1/macros/findDeps/getAllHeaders.bin and b/2.3-1/macros/findDeps/getAllHeaders.bin differ diff --git a/2.3-1/macros/findDeps/getAllInterfaces.bin b/2.3-1/macros/findDeps/getAllInterfaces.bin index 6a9d2bac..991810e5 100644 Binary files a/2.3-1/macros/findDeps/getAllInterfaces.bin and b/2.3-1/macros/findDeps/getAllInterfaces.bin differ diff --git a/2.3-1/macros/findDeps/getAllInterfaces.sci b/2.3-1/macros/findDeps/getAllInterfaces.sci index 15b93a96..e6e71dca 100644 --- a/2.3-1/macros/findDeps/getAllInterfaces.sci +++ b/2.3-1/macros/findDeps/getAllInterfaces.sci @@ -107,6 +107,7 @@ function allInterfaces = getAllInterfaces() "src/c/operations/interfaces/int_OpExt.h" "src/c/operations/interfaces/int_OpIns.h" "src/c/string/interfaces/int_disp.h" + "src/c/string/interfaces/int_string.h" "src/c/signalProcessing/interfaces/int_ifft.h" "src/c/signalProcessing/interfaces/int_lpc2cep.h" "src/c/signalProcessing/interfaces/int_cepstrum.h" diff --git a/2.3-1/macros/findDeps/getAllSources.bin b/2.3-1/macros/findDeps/getAllSources.bin index d63b91a3..01ab3834 100644 Binary files a/2.3-1/macros/findDeps/getAllSources.bin and b/2.3-1/macros/findDeps/getAllSources.bin differ diff --git a/2.3-1/macros/findDeps/getAllSources.sci b/2.3-1/macros/findDeps/getAllSources.sci index 3d1ff9b1..2dde130b 100644 --- a/2.3-1/macros/findDeps/getAllSources.sci +++ b/2.3-1/macros/findDeps/getAllSources.sci @@ -43,6 +43,14 @@ function allSources = getAllSources() "src/c/auxiliaryFunctions/sign/ssigns.c" "src/c/auxiliaryFunctions/sign/zsigna.c" "src/c/auxiliaryFunctions/sign/zsigns.c" + "src/c/auxiliaryFunctions/sign/u8signa.c" + "src/c/auxiliaryFunctions/sign/u8signs.c" + "src/c/auxiliaryFunctions/sign/i8signa.c" + "src/c/auxiliaryFunctions/sign/i8signs.c" + "src/c/auxiliaryFunctions/sign/u16signa.c" + "src/c/auxiliaryFunctions/sign/u16signs.c" + "src/c/auxiliaryFunctions/sign/i16signa.c" + "src/c/auxiliaryFunctions/sign/i16signs.c" "src/c/auxiliaryFunctions/frexp/dfrexps.c" "src/c/auxiliaryFunctions/frexp/sfrexps.c" "src/c/auxiliaryFunctions/isnan/disnana.c" @@ -76,6 +84,10 @@ function allSources = getAllSources() "src/c/matrixOperations/eye/seyea.c" "src/c/matrixOperations/eye/zeyea.c" "src/c/matrixOperations/eye/ceyea.c" + "src/c/matrixOperations/eye/u8eyea.c" + "src/c/matrixOperations/eye/i8eyea.c" + "src/c/matrixOperations/eye/u16eyea.c" + "src/c/matrixOperations/eye/i16eyea.c" "src/c/matrixOperations/chol/dchola.c" "src/c/matrixOperations/chol/dchols.c" "src/c/matrixOperations/chol/schola.c" @@ -108,6 +120,10 @@ function allSources = getAllSources() "src/c/matrixOperations/ones/sonesa.c" "src/c/matrixOperations/ones/zonesa.c" "src/c/matrixOperations/ones/conesa.c" + "src/c/matrixOperations/ones/u8onesa.c" + "src/c/matrixOperations/ones/i8onesa.c" + "src/c/matrixOperations/ones/u16onesa.c" + "src/c/matrixOperations/ones/i16onesa.c" "src/c/matrixOperations/powm/dpowma.c" "src/c/matrixOperations/powm/spowma.c" "src/c/matrixOperations/powm/zpowma.c" @@ -133,10 +149,18 @@ function allSources = getAllSources() "src/c/matrixOperations/zeros/zzerosa.c" "src/c/matrixOperations/zeros/szerosa.c" "src/c/matrixOperations/zeros/dzerosh.c" + "src/c/matrixOperations/zeros/u8zerosa.c" + "src/c/matrixOperations/zeros/i8zerosa.c" + "src/c/matrixOperations/zeros/u16zerosa.c" + "src/c/matrixOperations/zeros/i16zerosa.c" "src/c/matrixOperations/inversion/zinverma.c" "src/c/matrixOperations/inversion/cinverma.c" "src/c/matrixOperations/inversion/sinverma.c" "src/c/matrixOperations/inversion/dinverma.c" + "src/c/matrixOperations/inversion/u8inverma.c" + "src/c/matrixOperations/inversion/i8inverma.c" + "src/c/matrixOperations/inversion/u16inverma.c" + "src/c/matrixOperations/inversion/i16inverma.c" "src/c/matrixOperations/infiniteNorm/sinfnorma.c" "src/c/matrixOperations/infiniteNorm/dinfnorma.c" "src/c/matrixOperations/infiniteNorm/zinfnorma.c" @@ -191,6 +215,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/cos/zcoss.c" "src/c/elementaryFunctions/cos/ccosa.c" "src/c/elementaryFunctions/cos/ccoss.c" + "src/c/elementaryFunctions/cos/u8cosa.c" + "src/c/elementaryFunctions/cos/u8coss.c" + "src/c/elementaryFunctions/cos/i8cosa.c" + "src/c/elementaryFunctions/cos/i8coss.c" + "src/c/elementaryFunctions/cos/u16cosa.c" + "src/c/elementaryFunctions/cos/u16coss.c" + "src/c/elementaryFunctions/cos/i16cosa.c" + "src/c/elementaryFunctions/cos/i16coss.c" "src/c/elementaryFunctions/fix/dfixa.c" "src/c/elementaryFunctions/fix/dfixs.c" "src/c/elementaryFunctions/fix/sfixa.c" @@ -207,6 +239,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/exp/zexps.c" "src/c/elementaryFunctions/exp/cexpa.c" "src/c/elementaryFunctions/exp/cexps.c" + "src/c/elementaryFunctions/exp/u8expa.c" + "src/c/elementaryFunctions/exp/u8exps.c" + "src/c/elementaryFunctions/exp/i8expa.c" + "src/c/elementaryFunctions/exp/i8exps.c" + "src/c/elementaryFunctions/exp/u16expa.c" + "src/c/elementaryFunctions/exp/u16exps.c" + "src/c/elementaryFunctions/exp/i16expa.c" + "src/c/elementaryFunctions/exp/i16exps.c" "src/c/elementaryFunctions/int/dinta.c" "src/c/elementaryFunctions/int/dints.c" "src/c/elementaryFunctions/int/sinta.c" @@ -239,6 +279,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/sin/ssins.c" "src/c/elementaryFunctions/sin/zsina.c" "src/c/elementaryFunctions/sin/zsins.c" + "src/c/elementaryFunctions/sin/u8sina.c" + "src/c/elementaryFunctions/sin/u8sins.c" + "src/c/elementaryFunctions/sin/i8sina.c" + "src/c/elementaryFunctions/sin/i8sins.c" + "src/c/elementaryFunctions/sin/u16sina.c" + "src/c/elementaryFunctions/sin/u16sins.c" + "src/c/elementaryFunctions/sin/i16sina.c" + "src/c/elementaryFunctions/sin/i16sins.c" "src/c/elementaryFunctions/tan/ctana.c" "src/c/elementaryFunctions/tan/ctans.c" "src/c/elementaryFunctions/tan/dtana.c" @@ -247,6 +295,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/tan/stans.c" "src/c/elementaryFunctions/tan/ztana.c" "src/c/elementaryFunctions/tan/ztans.c" + "src/c/elementaryFunctions/tan/u8tana.c" + "src/c/elementaryFunctions/tan/u8tans.c" + "src/c/elementaryFunctions/tan/i8tana.c" + "src/c/elementaryFunctions/tan/i8tans.c" + "src/c/elementaryFunctions/tan/u16tana.c" + "src/c/elementaryFunctions/tan/u16tans.c" + "src/c/elementaryFunctions/tan/i16tana.c" + "src/c/elementaryFunctions/tan/i16tans.c" "src/c/elementaryFunctions/acos/zacosa.c" "src/c/elementaryFunctions/acos/zacoss.c" "src/c/elementaryFunctions/acos/cacosa.c" @@ -287,6 +343,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/cosh/zcoshs.c" "src/c/elementaryFunctions/cosh/ccosha.c" "src/c/elementaryFunctions/cosh/ccoshs.c" + "src/c/elementaryFunctions/cosh/u8cosha.c" + "src/c/elementaryFunctions/cosh/u8coshs.c" + "src/c/elementaryFunctions/cosh/i8cosha.c" + "src/c/elementaryFunctions/cosh/i8coshs.c" + "src/c/elementaryFunctions/cosh/u16cosha.c" + "src/c/elementaryFunctions/cosh/u16coshs.c" + "src/c/elementaryFunctions/cosh/i16cosha.c" + "src/c/elementaryFunctions/cosh/i16coshs.c" "src/c/elementaryFunctions/sinh/csinha.c" "src/c/elementaryFunctions/sinh/csinhs.c" "src/c/elementaryFunctions/sinh/dsinha.c" @@ -295,6 +359,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/sinh/ssinhs.c" "src/c/elementaryFunctions/sinh/zsinha.c" "src/c/elementaryFunctions/sinh/zsinhs.c" + "src/c/elementaryFunctions/sinh/u8sinha.c" + "src/c/elementaryFunctions/sinh/u8sinhs.c" + "src/c/elementaryFunctions/sinh/i8sinha.c" + "src/c/elementaryFunctions/sinh/i8sinhs.c" + "src/c/elementaryFunctions/sinh/u16sinha.c" + "src/c/elementaryFunctions/sinh/u16sinhs.c" + "src/c/elementaryFunctions/sinh/i16sinha.c" + "src/c/elementaryFunctions/sinh/i16sinhs.c" "src/c/elementaryFunctions/tanh/ctanha.c" "src/c/elementaryFunctions/tanh/ctanhs.c" "src/c/elementaryFunctions/tanh/dtanha.c" @@ -303,6 +375,14 @@ function allSources = getAllSources() "src/c/elementaryFunctions/tanh/stanhs.c" "src/c/elementaryFunctions/tanh/ztanha.c" "src/c/elementaryFunctions/tanh/ztanhs.c" + "src/c/elementaryFunctions/tanh/u8tanha.c" + "src/c/elementaryFunctions/tanh/u8tanhs.c" + "src/c/elementaryFunctions/tanh/i8tanha.c" + "src/c/elementaryFunctions/tanh/i8tanhs.c" + "src/c/elementaryFunctions/tanh/u16tanha.c" + "src/c/elementaryFunctions/tanh/u16tanhs.c" + "src/c/elementaryFunctions/tanh/i16tanha.c" + "src/c/elementaryFunctions/tanh/i16tanhs.c" "src/c/elementaryFunctions/sqrt/csqrta.c" "src/c/elementaryFunctions/sqrt/csqrts.c" "src/c/elementaryFunctions/sqrt/dsqrta.c" @@ -385,18 +465,42 @@ function allSources = getAllSources() "src/c/elementaryFunctions/uint8/duint8a.c" "src/c/elementaryFunctions/uint8/suint8s.c" "src/c/elementaryFunctions/uint8/suint8a.c" + "src/c/elementaryFunctions/uint8/i8uint8s.c" + "src/c/elementaryFunctions/uint8/i8uint8a.c" + "src/c/elementaryFunctions/uint8/u16uint8s.c" + "src/c/elementaryFunctions/uint8/u16uint8a.c" + "src/c/elementaryFunctions/uint8/i16uint8s.c" + "src/c/elementaryFunctions/uint8/i16uint8a.c" "src/c/elementaryFunctions/int8/dint8s.c" "src/c/elementaryFunctions/int8/dint8a.c" "src/c/elementaryFunctions/int8/sint8s.c" "src/c/elementaryFunctions/int8/sint8a.c" + "src/c/elementaryFunctions/int8/u8int8s.c" + "src/c/elementaryFunctions/int8/u8int8a.c" + "src/c/elementaryFunctions/int8/u16int8s.c" + "src/c/elementaryFunctions/int8/u16int8a.c" + "src/c/elementaryFunctions/int8/i16int8s.c" + "src/c/elementaryFunctions/int8/i16int8a.c" "src/c/elementaryFunctions/uint16/duint16s.c" "src/c/elementaryFunctions/uint16/duint16a.c" "src/c/elementaryFunctions/uint16/suint16s.c" "src/c/elementaryFunctions/uint16/suint16a.c" + "src/c/elementaryFunctions/uint16/u8uint16s.c" + "src/c/elementaryFunctions/uint16/u8uint16a.c" + "src/c/elementaryFunctions/uint16/i8uint16s.c" + "src/c/elementaryFunctions/uint16/i8uint16a.c" + "src/c/elementaryFunctions/uint16/i16uint16s.c" + "src/c/elementaryFunctions/uint16/i16uint16a.c" "src/c/elementaryFunctions/int16/dint16s.c" "src/c/elementaryFunctions/int16/dint16a.c" "src/c/elementaryFunctions/int16/sint16s.c" "src/c/elementaryFunctions/int16/sint16a.c" + "src/c/elementaryFunctions/int16/u8int16s.c" + "src/c/elementaryFunctions/int16/u8int16a.c" + "src/c/elementaryFunctions/int16/i8int16s.c" + "src/c/elementaryFunctions/int16/i8int16a.c" + "src/c/elementaryFunctions/int16/u16int16s.c" + "src/c/elementaryFunctions/int16/u16int16a.c" "src/c/statisticsFunctions/max/dmaxa.c" "src/c/statisticsFunctions/max/smaxa.c" "src/c/statisticsFunctions/max/srowmaxa.c" @@ -577,6 +681,14 @@ function allSources = getAllSources() "src/c/string/disp/zdisps.c" "src/c/string/disp/cdispa.c" "src/c/string/disp/cdisps.c" + "src/c/string/disp/u8dispa.c" + "src/c/string/disp/u8disps.c" + "src/c/string/disp/i8dispa.c" + "src/c/string/disp/i8disps.c" + "src/c/string/disp/u16dispa.c" + "src/c/string/disp/u16disps.c" + "src/c/string/disp/i16dispa.c" + "src/c/string/disp/i16disps.c" "src/c/string/disp/ddisph.c" "src/c/string/string/zstringa.c" "src/c/string/string/zstrings.c" @@ -586,6 +698,14 @@ function allSources = getAllSources() "src/c/string/string/sstrings.c" "src/c/string/string/dstringa.c" "src/c/string/string/dstrings.c" + "src/c/string/string/u8stringa.c" + "src/c/string/string/u8strings.c" + "src/c/string/string/i8stringa.c" + "src/c/string/string/i8strings.c" + "src/c/string/string/u16stringa.c" + "src/c/string/string/u16strings.c" + "src/c/string/string/i16stringa.c" + "src/c/string/string/i16strings.c" "src/c/signalProcessing/fft/dfft2.c" "src/c/signalProcessing/fft/cfftma.c" "src/c/signalProcessing/fft/r2tx.c" diff --git a/2.3-1/src/c/auxiliaryFunctions/includes/sign.h b/2.3-1/src/c/auxiliaryFunctions/includes/sign.h index 0f69b4b7..67f0da8b 100644 --- a/2.3-1/src/c/auxiliaryFunctions/includes/sign.h +++ b/2.3-1/src/c/auxiliaryFunctions/includes/sign.h @@ -18,6 +18,7 @@ #include "dynlib_auxiliaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus extern "C" { @@ -55,6 +56,38 @@ EXTERN_AUXFUNCT floatComplex csigns(floatComplex in); **/ EXTERN_AUXFUNCT doubleComplex zsigns(doubleComplex in); +/** + ** \brief Uint8 Sign function + ** Determine the sign of in (assume that 0 is positive). + ** \param in : the uint8 we must determine sign. + ** \return -1 or +1 depending on the sign of in. + **/ +EXTERN_AUXFUNCT int8 u8signs(uint8 in); + +/** + ** \brief Int8 Sign function + ** Determine the sign of in (assume that 0 is positive). + ** \param in : the int8 we must determine sign. + ** \return -1 or +1 depending on the sign of in. + **/ +EXTERN_AUXFUNCT int8 i8signs(int8 in); + +/** + ** \brief Uint16 Sign function + ** Determine the sign of in (assume that 0 is positive). + ** \param in : the uint16 we must determine sign. + ** \return -1 or +1 depending on the sign of in. + **/ +EXTERN_AUXFUNCT int16 u16signs(uint16 in); + +/** + ** \brief Int16 Sign function + ** Determine the sign of in (assume that 0 is positive). + ** \param in : the uint16 we must determine sign. + ** \return -1 or +1 depending on the sign of in. + **/ +EXTERN_AUXFUNCT int16 i16signs(int16 in); + /** ** \brief Float Signe Array function ** Determine the sign of an array in (assume that 0 is positive). @@ -91,6 +124,43 @@ EXTERN_AUXFUNCT void csigna(floatComplex *in, int size, floatComplex *out); **/ EXTERN_AUXFUNCT void zsigna(doubleComplex *in, int size, doubleComplex *out); +/** + ** \brief Uint8 Sign Array function + ** Determine the sign of an array in (assume that 0 is positive). + ** \param in : the uint8 array we must determine sign. + ** \param size : the number of elements. + ** \return -1 or +1 depending on the sign of in elements. + **/ +EXTERN_AUXFUNCT void u8signa(uint8 *in, int size, int8 *out); + +/** + ** \brief Int8 Sign Array function + ** Determine the sign of an array in (assume that 0 is positive). + ** \param in : the int8 array we must determine sign. + ** \param size : the number of elements. + ** \return -1 or +1 depending on the sign of in elements. + **/ +EXTERN_AUXFUNCT void i8signa(int8 *in, int size, int8 *out); + +/** + ** \brief Uint16 Sign Array function + ** Determine the sign of an array in (assume that 0 is positive). + ** \param in : the uint16 array we must determine sign. + ** \param size : the number of elements. + ** \return -1 or +1 depending on the sign of in elements. + **/ +EXTERN_AUXFUNCT void u16signa(uint16 *in, int size, int16 *out); + +/** + ** \brief Int16 Sign Array function + ** Determine the sign of an array in (assume that 0 is positive). + ** \param in : the int16 array we must determine sign. + ** \param size : the number of elements. + ** \return -1 or +1 depending on the sign of in elements. + **/ +EXTERN_AUXFUNCT void i16signa(int16 *in, int size, int16 *out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/auxiliaryFunctions/interfaces/int_sign.h b/2.3-1/src/c/auxiliaryFunctions/interfaces/int_sign.h index 4463901a..1003fe73 100644 --- a/2.3-1/src/c/auxiliaryFunctions/interfaces/int_sign.h +++ b/2.3-1/src/c/auxiliaryFunctions/interfaces/int_sign.h @@ -23,6 +23,14 @@ #define z0signz0(in) zsigns(in) +#define u80signi80(in) u8signs(in) + +#define i80signi80(in) i8signs(in) + +#define u160signi160(in) u16signs(in) + +#define i160signi160(in) i16signs(in) + #define s2signs2(in,size,out) ssigna(in, size[0]*size[1], out) #define d2signd2(in,size,out) dsigna(in, size[0]*size[1], out) @@ -31,4 +39,12 @@ #define z2signz2(in,size,out) zsigna(in, size[0]*size[1], out) +#define u82signi82(in,size,out) u8signa(in, size[0]*size[1], out) + +#define i82signi82(in,size,out) i8signa(in, size[0]*size[1], out) + +#define u162signi162(in,size,out) u16signa(in, size[0]*size[1], out) + +#define i162signi162(in,size,out) i16signa(in, size[0]*size[1], out) + #endif /* !__INT_SIGN_H__ */ diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/i16signa.c b/2.3-1/src/c/auxiliaryFunctions/sign/i16signa.c new file mode 100644 index 00000000..c1d9e915 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/i16signa.c @@ -0,0 +1,21 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +void i16signa(int16 *in, int size, int16 *out) { + int i = 0; + + for (i = 0 ; i < size ; ++i) { + out[i] = i16signs(in[i]); + } +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/i16signs.c b/2.3-1/src/c/auxiliaryFunctions/sign/i16signs.c new file mode 100644 index 00000000..a3a11ab8 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/i16signs.c @@ -0,0 +1,24 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +int16 i16signs(int16 num) { + if (num > 0) { + return (int16)1; + } + if (num < 0) { + return (int16)-1; + } + /* num == 0 */ + return (int16)0; +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/i8signa.c b/2.3-1/src/c/auxiliaryFunctions/sign/i8signa.c new file mode 100644 index 00000000..c86e0fb0 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/i8signa.c @@ -0,0 +1,21 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +void i8signa(int8 *in, int size, int8 *out) { + int i = 0; + + for (i = 0 ; i < size ; ++i) { + out[i] = i8signs(in[i]); + } +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/i8signs.c b/2.3-1/src/c/auxiliaryFunctions/sign/i8signs.c new file mode 100644 index 00000000..ced00a73 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/i8signs.c @@ -0,0 +1,24 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +int8 i8signs(int8 num) { + if (num > 0) { + return (int8)1; + } + if (num < 0) { + return (int8)-1; + } + /* num == 0 */ + return (int8)0; +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/u16signa.c b/2.3-1/src/c/auxiliaryFunctions/sign/u16signa.c new file mode 100644 index 00000000..3cc4f662 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/u16signa.c @@ -0,0 +1,21 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +void u16signa(uint16 *in, int size, int16 *out) { + int i = 0; + + for (i = 0 ; i < size ; ++i) { + out[i] = u16signs(in[i]); + } +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/u16signs.c b/2.3-1/src/c/auxiliaryFunctions/sign/u16signs.c new file mode 100644 index 00000000..7f187227 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/u16signs.c @@ -0,0 +1,24 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +int16 u16signs(uint16 num) { + if (num > 0) { + return (int16)1; + } + if (num < 0) { + return (int16)-1; + } + /* num == 0 */ + return (int16)0; +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/u8signa.c b/2.3-1/src/c/auxiliaryFunctions/sign/u8signa.c new file mode 100644 index 00000000..34021b51 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/u8signa.c @@ -0,0 +1,21 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +void u8signa(uint8 *in, int size, int8 *out) { + int i = 0; + + for (i = 0 ; i < size ; ++i) { + out[i] = u8signs(in[i]); + } +} diff --git a/2.3-1/src/c/auxiliaryFunctions/sign/u8signs.c b/2.3-1/src/c/auxiliaryFunctions/sign/u8signs.c new file mode 100644 index 00000000..437da775 --- /dev/null +++ b/2.3-1/src/c/auxiliaryFunctions/sign/u8signs.c @@ -0,0 +1,24 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sign.h" + +int8 u8signs(uint8 num) { + if (num > 0) { + return (int8)1; + } + if (num < 0) { + return (int8)-1; + } + /* num == 0 */ + return (int8)0; +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/i16cosa.c b/2.3-1/src/c/elementaryFunctions/cos/i16cosa.c new file mode 100644 index 00000000..fb3c6371 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/i16cosa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "cos.h" + +void i16cosa(int16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i16coss(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/i16coss.c b/2.3-1/src/c/elementaryFunctions/cos/i16coss.c new file mode 100644 index 00000000..a46f8e29 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/i16coss.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "cos.h" + +float i16coss(int16 x) { + return (cos(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/i8cosa.c b/2.3-1/src/c/elementaryFunctions/cos/i8cosa.c new file mode 100644 index 00000000..7517b318 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/i8cosa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "cos.h" + +void i8cosa(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8coss(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/i8coss.c b/2.3-1/src/c/elementaryFunctions/cos/i8coss.c new file mode 100644 index 00000000..cd09e066 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/i8coss.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "cos.h" + +float i8coss(int8 x) { + return (cos(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/u16cosa.c b/2.3-1/src/c/elementaryFunctions/cos/u16cosa.c new file mode 100644 index 00000000..63bbdae4 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/u16cosa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "cos.h" + +void u16cosa(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16coss(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/u16coss.c b/2.3-1/src/c/elementaryFunctions/cos/u16coss.c new file mode 100644 index 00000000..95971fee --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/u16coss.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "cos.h" + +float u16coss(uint16 x) { + return (cos(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/u8cosa.c b/2.3-1/src/c/elementaryFunctions/cos/u8cosa.c new file mode 100644 index 00000000..25de95ed --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/u8cosa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "cos.h" + +void u8cosa(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8coss(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/cos/u8coss.c b/2.3-1/src/c/elementaryFunctions/cos/u8coss.c new file mode 100644 index 00000000..9ee1186b --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cos/u8coss.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "cos.h" + +float u8coss(uint8 x) { + return (cos(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/i16cosha.c b/2.3-1/src/c/elementaryFunctions/cosh/i16cosha.c new file mode 100644 index 00000000..8515bc7d --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/i16cosha.c @@ -0,0 +1,26 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" + +float i16coshs(int16 x) { + float y = i16exps(i16abss(x)); + return (0.5f * (y + 1.0f / y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/i16coshs.c b/2.3-1/src/c/elementaryFunctions/cosh/i16coshs.c new file mode 100644 index 00000000..7d6084ff --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/i16coshs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" +#include "types.h" + +float i16coshs(int16 x) { + double y = i16exps(i16abss(x)); + return (0.5 * (y + 1.0/y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/i8cosha.c b/2.3-1/src/c/elementaryFunctions/cosh/i8cosha.c new file mode 100644 index 00000000..b30c14e2 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/i8cosha.c @@ -0,0 +1,26 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" + +float i8coshs(int8 x) { + float y = i8exps(i8abss(x)); + return (0.5f * (y + 1.0f / y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/i8coshs.c b/2.3-1/src/c/elementaryFunctions/cosh/i8coshs.c new file mode 100644 index 00000000..885d1190 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/i8coshs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" +#include "types.h" + +float i8coshs(int8 x) { + double y = i8exps(i8abss(x)); + return (0.5 * (y + 1.0/y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/u16cosha.c b/2.3-1/src/c/elementaryFunctions/cosh/u16cosha.c new file mode 100644 index 00000000..775f710e --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/u16cosha.c @@ -0,0 +1,26 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" + +float u16coshs(uint16 x) { + float y = u16exps(u16abss(x)); + return (0.5f * (y + 1.0f / y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/u16coshs.c b/2.3-1/src/c/elementaryFunctions/cosh/u16coshs.c new file mode 100644 index 00000000..5637bb3c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/u16coshs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" +#include "types.h" + +float u16coshs(uint16 x) { + double y = u16exps(u16abss(x)); + return (0.5 * (y + 1.0/y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/u8cosha.c b/2.3-1/src/c/elementaryFunctions/cosh/u8cosha.c new file mode 100644 index 00000000..b6d614fa --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/u8cosha.c @@ -0,0 +1,26 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" + +float u8coshs(uint8 x) { + float y = u8exps(u8abss(x)); + return (0.5f * (y + 1.0f / y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/cosh/u8coshs.c b/2.3-1/src/c/elementaryFunctions/cosh/u8coshs.c new file mode 100644 index 00000000..7a6715ff --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/cosh/u8coshs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +/* +// cosh(z) = 0.5 (exp(|z|) + exp(-|z|)) +// = 0.5 ( y + 1/y ) with y = exp(|z|) +*/ + +#include +#include "cosh.h" +#include "exp.h" +#include "abs.h" +#include "types.h" + +float u8coshs(uint8 x) { + double y = u8exps(u8abss(x)); + return (0.5 * (y + 1.0/y)); +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/i16expa.c b/2.3-1/src/c/elementaryFunctions/exp/i16expa.c new file mode 100644 index 00000000..faa8a120 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/i16expa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "exp.h" + +void i16expa(int16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i16exps(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/i16exps.c b/2.3-1/src/c/elementaryFunctions/exp/i16exps.c new file mode 100644 index 00000000..97b57d96 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/i16exps.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "exp.h" + +float i16exps(int16 x) { + return (expf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/i8expa.c b/2.3-1/src/c/elementaryFunctions/exp/i8expa.c new file mode 100644 index 00000000..7f731fc9 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/i8expa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "exp.h" + +void i8expa(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8exps(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/i8exps.c b/2.3-1/src/c/elementaryFunctions/exp/i8exps.c new file mode 100644 index 00000000..6f2d43cc --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/i8exps.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "exp.h" + +float i8exps(int8 x) { + return (expf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/u16expa.c b/2.3-1/src/c/elementaryFunctions/exp/u16expa.c new file mode 100644 index 00000000..0426ab46 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/u16expa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "exp.h" + +void u16expa(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16exps(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/u16exps.c b/2.3-1/src/c/elementaryFunctions/exp/u16exps.c new file mode 100644 index 00000000..64f5c5bf --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/u16exps.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "exp.h" + +float u16exps(uint16 x) { + return (expf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/u8expa.c b/2.3-1/src/c/elementaryFunctions/exp/u8expa.c new file mode 100644 index 00000000..bd90e04b --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/u8expa.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "exp.h" + +void u8expa(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8exps(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/exp/u8exps.c b/2.3-1/src/c/elementaryFunctions/exp/u8exps.c new file mode 100644 index 00000000..e48953fa --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/exp/u8exps.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "exp.h" + +float u8exps(uint8 x) { + return (expf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/includes/cos.h b/2.3-1/src/c/elementaryFunctions/includes/cos.h index 5d573b1e..25c76945 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/cos.h +++ b/2.3-1/src/c/elementaryFunctions/includes/cos.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus extern "C" { @@ -48,6 +49,30 @@ EXTERN_ELEMFUNCT floatComplex ccoss(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex zcoss(doubleComplex in); +/* +** \brief Uint8 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8coss(uint8 in); + +/* +** \brief Int8 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8coss(int8 in); + +/* +** \brief Uint16 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16coss(uint16 in); + +/* +** \brief Int8 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16coss(int16 in); + /* ** \brief Float Matrix Cosine function ** \param in : input array value. @@ -80,6 +105,38 @@ EXTERN_ELEMFUNCT void ccosa(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void zcosa(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief uint8 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8cosa(uint8* in, int size, float* out); + +/* +** \brief int8 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8cosa(int8* in, int size, float* out); + +/* +** \brief uint16 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16cosa(uint16* in, int size, float* out); + +/* +** \brief int16 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16cosa(int16* in, int size, float* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/cosh.h b/2.3-1/src/c/elementaryFunctions/includes/cosh.h index 0cbf8eb4..e084e427 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/cosh.h +++ b/2.3-1/src/c/elementaryFunctions/includes/cosh.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus @@ -49,6 +50,30 @@ EXTERN_ELEMFUNCT floatComplex ccoshs(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex zcoshs(doubleComplex in); +/* +** \brief uint8 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8coshs(uint8 in); + +/* +** \brief int8 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8coshs(int8 in); + +/* +** \brief uint16 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16coshs(uint16 in); + +/* +** \brief int16 Cosine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16coshs(int16 in); + /* ** \brief Float Matrix Cosine function ** \param in : input array value. @@ -81,6 +106,39 @@ EXTERN_ELEMFUNCT void ccosha(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void zcosha(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief Uint8 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8cosha(uint8* in, int size, float* out); + +/* +** \brief Int8 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8cosha(int8* in, int size, float* out); + +/* +** \brief Uint16 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16cosha(uint16* in, int size, float* out); + +/* +** \brief Int16 Matrix Cosine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16cosha(int16* in, int size, float* out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/exp.h b/2.3-1/src/c/elementaryFunctions/includes/exp.h index 297a5769..6e8f027c 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/exp.h +++ b/2.3-1/src/c/elementaryFunctions/includes/exp.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus @@ -49,6 +50,30 @@ EXTERN_ELEMFUNCT floatComplex cexps(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex zexps(doubleComplex in); +/* +** \brief Uint8 Exponential function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8exps(uint8 in); + +/* +** \brief Int8 Exponential function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8exps(int8 in); + +/* +** \brief Uint16 Exponential function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16exps(uint16 in); + +/* +** \brief Int16 Exponential function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16exps(int16 in); + /* ** \brief Float Matrix Exponential function ** \param in : input array value. @@ -81,6 +106,39 @@ EXTERN_ELEMFUNCT void cexpa(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void zexpa(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief Uint8 Matrix Exponential function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8expa(uint8* in, int size, float* out); + +/* +** \brief Int8 Matrix Exponential function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8expa(int8* in, int size, float* out); + +/* +** \brief Uint16 Matrix Exponential function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16expa(uint16* in, int size, float* out); + +/* +** \brief Int16 Matrix Exponential function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16expa(int16* in, int size, float* out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/int16.h b/2.3-1/src/c/elementaryFunctions/includes/int16.h index f3271849..8c8204f1 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/int16.h +++ b/2.3-1/src/c/elementaryFunctions/includes/int16.h @@ -27,12 +27,24 @@ extern "C" { EXTERN_ELEMFUNCT int16 sint16s(float in); -EXTERN_ELEMFUNCT int16 dint816s(double in); +EXTERN_ELEMFUNCT int16 dint16s(double in); + +EXTERN_ELEMFUNCT int16 u8int16s(uint8 in); + +EXTERN_ELEMFUNCT int16 i8int16s(int8 in); + +EXTERN_ELEMFUNCT int16 u16int16s(uint16 in); EXTERN_ELEMFUNCT void sint16a(float* in, int size, int16* out); EXTERN_ELEMFUNCT void dint16a(double* in, int size, int16* out); +EXTERN_ELEMFUNCT void u8int16a(uint8* in, int size, int16* out); + +EXTERN_ELEMFUNCT void i8int16a(int8* in, int size, int16* out); + +EXTERN_ELEMFUNCT void u16int16a(uint16* in, int size, int16* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/int8.h b/2.3-1/src/c/elementaryFunctions/includes/int8.h index 12fc595f..795190e2 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/int8.h +++ b/2.3-1/src/c/elementaryFunctions/includes/int8.h @@ -27,12 +27,24 @@ extern "C" { EXTERN_ELEMFUNCT int8 sint8s(float in); -EXTERN_ELEMFUNCT int8 dint8s(double in); +EXTERN_ELEMFUNCT int8 dint8s(double in); + +EXTERN_ELEMFUNCT int8 u8int8s(uint8 in); + +EXTERN_ELEMFUNCT int8 u16int8s(uint16 in); + +EXTERN_ELEMFUNCT int8 i16int8s(int16 in); EXTERN_ELEMFUNCT void sint8a(float* in, int size, int8* out); EXTERN_ELEMFUNCT void dint8a(double* in, int size, int8* out); +EXTERN_ELEMFUNCT void u8int8a(uint8* in, int size, int8* out); + +EXTERN_ELEMFUNCT void u16int8a(uint16* in, int size, int8* out); + +EXTERN_ELEMFUNCT void i16int8a(int16* in, int size, int8* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/sin.h b/2.3-1/src/c/elementaryFunctions/includes/sin.h index 198b0665..ffb76269 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/sin.h +++ b/2.3-1/src/c/elementaryFunctions/includes/sin.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus extern "C" { @@ -48,6 +49,33 @@ EXTERN_ELEMFUNCT floatComplex csins(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex zsins(doubleComplex in); +/* +** \brief Uint8 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8sins(uint8 in); + + +/* +** \brief Int8 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8sins(int8 in); + + +/* +** \brief Uint16 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16sins(uint16 in); + + +/* +** \brief Int16 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16sins(int16 in); + /* ** \brief Float Matrix Sine function ** \param in : input array value. @@ -80,6 +108,39 @@ EXTERN_ELEMFUNCT void csina(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void zsina(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief uint8 Matrix Sine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8sina(uint8* in, int size, float* out); + +/* +** \brief int8 Matrix Sine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8sina(int8* in, int size, float* out); + +/* +** \brief uint16 Matrix Sine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16sina(uint16* in, int size, float* out); + +/* +** \brief int16 Matrix Sine function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16sina(int16* in, int size, float* out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/sinh.h b/2.3-1/src/c/elementaryFunctions/includes/sinh.h index c052a901..c464fce0 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/sinh.h +++ b/2.3-1/src/c/elementaryFunctions/includes/sinh.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus extern "C" { @@ -48,6 +49,31 @@ EXTERN_ELEMFUNCT floatComplex csinhs(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex zsinhs(doubleComplex in); + +/* +** \brief Uint8 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8sinhs(uint8 in); + +/* +** \brief Int8 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8sinhs(int8 in); + +/* +** \brief Uint16 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16sinhs(uint16 in); + +/* +** \brief Int16 Sine function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16sinhs(int16 in); + /* ** \brief Float Matrix Sine function ** \param in : input array value. @@ -80,6 +106,39 @@ EXTERN_ELEMFUNCT void csinha(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void zsinha(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief Uint8 Matrix Sine function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8sinha(uint8* in, int size, float* out); + +/* +** \brief Int8 Matrix Sine function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8sinha(int8* in, int size, float* out); + +/* +** \brief Uint16 Matrix Sine function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16sinha(uint16* in, int size, float* out); + +/* +** \brief Int16 Matrix Sine function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16sinha(int16* in, int size, float* out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/tan.h b/2.3-1/src/c/elementaryFunctions/includes/tan.h index 77ef7868..2632a779 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/tan.h +++ b/2.3-1/src/c/elementaryFunctions/includes/tan.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "types.h" #ifdef __cplusplus extern "C" { @@ -48,6 +49,31 @@ EXTERN_ELEMFUNCT floatComplex ctans(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex ztans(doubleComplex in); +/* +** \brief Uint8 Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8tans(uint8 in); + +/* +** \brief Int8 Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8tans(int8 in); + +/* +** \brief Uint16 Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16tans(uint16 in); + +/* +** \brief Int16 Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16tans(int16 in); + + /* ** \brief Float Matrix Tangeant function ** \param in : input array value. @@ -80,6 +106,39 @@ EXTERN_ELEMFUNCT void ctana(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void ztana(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief Uint8 Matrix Tangeant function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8tana(uint8* in, int size, float* out); + +/* +** \brief Int8 Matrix Tangeant function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8tana(int8* in, int size, float* out); + +/* +** \brief Uint16 Matrix Tangeant function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16tana(uint16* in, int size, float* out); + +/* +** \brief Int16 Matrix Tangeant function +** \param in : input array value. +** \param out : input array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16tana(int16* in, int size, float* out); + + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/tanh.h b/2.3-1/src/c/elementaryFunctions/includes/tanh.h index 9ff440cf..6a654230 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/tanh.h +++ b/2.3-1/src/c/elementaryFunctions/includes/tanh.h @@ -16,6 +16,7 @@ #include "dynlib_elementaryfunctions.h" #include "floatComplex.h" #include "doubleComplex.h" +#include "sinh.h" #ifdef __cplusplus extern "C" { @@ -48,6 +49,30 @@ EXTERN_ELEMFUNCT floatComplex ctanhs(floatComplex in); */ EXTERN_ELEMFUNCT doubleComplex ztanhs(doubleComplex in); +/* +** \brief Uint8 Hyperbolic Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u8tanhs(uint8 in); + +/* +** \brief Int8 Hyperbolic Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i8tanhs(int8 in); + +/* +** \brief Uint16 Hyperbolic Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float u16tanhs(uint16 in); + +/* +** \brief Int16 Hyperbolic Tangeant function +** \param in : input value. +*/ +EXTERN_ELEMFUNCT float i16tanhs(int16 in); + /* ** \brief Float Matrix Hyperbolic Tangeant function ** \param in : input array value. @@ -80,6 +105,38 @@ EXTERN_ELEMFUNCT void ctanha(floatComplex* in, int size, floatComplex* out); */ EXTERN_ELEMFUNCT void ztanha(doubleComplex* in, int size, doubleComplex* out); +/* +** \brief Uint8 Matrix Hyperbolic Tangeant function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u8tanha(uint8* in, int size, float* out); + +/* +** \brief Int8 Matrix Hyperbolic Tangeant function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i8tanha(int8* in, int size, float* out); + +/* +** \brief Uint16 Matrix Hyperbolic Tangeant function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void u16tanha(uint16* in, int size, float* out); + +/* +** \brief Int16 Matrix Hyperbolic Tangeant function +** \param in : input array value. +** \param out : output array value. +** \param size : the size of in and out arrays. +*/ +EXTERN_ELEMFUNCT void i16tanha(int16* in, int size, float* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/uint16.h b/2.3-1/src/c/elementaryFunctions/includes/uint16.h index a0739b67..98625e62 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/uint16.h +++ b/2.3-1/src/c/elementaryFunctions/includes/uint16.h @@ -27,12 +27,24 @@ extern "C" { EXTERN_ELEMFUNCT uint16 suint16s(float in); -EXTERN_ELEMFUNCT uint16 duint816s(double in); +EXTERN_ELEMFUNCT uint16 duint16s(double in); + +EXTERN_ELEMFUNCT uint16 u8uint16s(uint8 in); + +EXTERN_ELEMFUNCT uint16 i8uint16s(int8 in); + +EXTERN_ELEMFUNCT uint16 i16uint16s(int16 in); EXTERN_ELEMFUNCT void suint16a(float* in, int size, uint16* out); EXTERN_ELEMFUNCT void duint16a(double* in, int size, uint16* out); +EXTERN_ELEMFUNCT void u8uint16a(uint8* in, int size, uint16* out); + +EXTERN_ELEMFUNCT void i8uint16a(int8* in, int size, uint16* out); + +EXTERN_ELEMFUNCT void i16uint16a(int16* in, int size, uint16* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/uint8.h b/2.3-1/src/c/elementaryFunctions/includes/uint8.h index 9d3dd395..264230aa 100644 --- a/2.3-1/src/c/elementaryFunctions/includes/uint8.h +++ b/2.3-1/src/c/elementaryFunctions/includes/uint8.h @@ -29,10 +29,22 @@ EXTERN_ELEMFUNCT uint8 suint8s(float in); EXTERN_ELEMFUNCT uint8 duint8s(double in); +EXTERN_ELEMFUNCT uint8 i8uint8s(int8 in); + +EXTERN_ELEMFUNCT uint8 u16uint8s(uint16 in); + +EXTERN_ELEMFUNCT uint8 i16uint8s(int16 in); + EXTERN_ELEMFUNCT void suint8a(float* in, int size, uint8* out); EXTERN_ELEMFUNCT void duint8a(double* in, int size, uint8* out); +EXTERN_ELEMFUNCT void i8uint8a(int8* in, int size, uint8* out); + +EXTERN_ELEMFUNCT void u16uint8a(uint16* in, int size, uint8* out); + +EXTERN_ELEMFUNCT void i16uint8a(int16* in, int size, uint8* out); + #ifdef __cplusplus } /* extern "C" */ #endif diff --git a/2.3-1/src/c/elementaryFunctions/int16/i8int16a.c b/2.3-1/src/c/elementaryFunctions/int16/i8int16a.c new file mode 100644 index 00000000..82c637c6 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/int16/i8int16a.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud Torset + * + * 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-en.txt + * + */ + +#include "int16.h" + +void i8int16a(int8* x, int size, int16* out) { + int i = 0; + for (i=0;i +#include "sin.h" + +float i16sins(int16 x) { + return (sin(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/i8sina.c b/2.3-1/src/c/elementaryFunctions/sin/i8sina.c new file mode 100644 index 00000000..f811501c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/i8sina.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sin.h" + +void i8sina(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8sins(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/i8sins.c b/2.3-1/src/c/elementaryFunctions/sin/i8sins.c new file mode 100644 index 00000000..ab522ef0 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/i8sins.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sin.h" + +float i8sins(int8 x) { + return (sin(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/u16sina.c b/2.3-1/src/c/elementaryFunctions/sin/u16sina.c new file mode 100644 index 00000000..fa4645f8 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/u16sina.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sin.h" + +void u16sina(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16sins(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/u16sins.c b/2.3-1/src/c/elementaryFunctions/sin/u16sins.c new file mode 100644 index 00000000..dfa215dd --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/u16sins.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sin.h" + +float u16sins(uint16 x) { + return (sin(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/u8sina.c b/2.3-1/src/c/elementaryFunctions/sin/u8sina.c new file mode 100644 index 00000000..2bfe866e --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/u8sina.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sin.h" + +void u8sina(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8sins(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sin/u8sins.c b/2.3-1/src/c/elementaryFunctions/sin/u8sins.c new file mode 100644 index 00000000..b1d31790 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sin/u8sins.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sin.h" + +float u8sins(uint8 x) { + return (sin(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/i16sinha.c b/2.3-1/src/c/elementaryFunctions/sinh/i16sinha.c new file mode 100644 index 00000000..107d999a --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/i16sinha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sinh.h" + +void i16sinha(int16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i16sinhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/i16sinhs.c b/2.3-1/src/c/elementaryFunctions/sinh/i16sinhs.c new file mode 100644 index 00000000..ade1d6fb --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/i16sinhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sinh.h" + +float i16sinhs(int16 x) { + return (sinh(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/i8sinha.c b/2.3-1/src/c/elementaryFunctions/sinh/i8sinha.c new file mode 100644 index 00000000..e5fe6e40 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/i8sinha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sinh.h" + +void i8sinha(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8sinhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/i8sinhs.c b/2.3-1/src/c/elementaryFunctions/sinh/i8sinhs.c new file mode 100644 index 00000000..69bf5baa --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/i8sinhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sinh.h" + +float i8sinhs(int8 x) { + return (sinh(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/u16sinha.c b/2.3-1/src/c/elementaryFunctions/sinh/u16sinha.c new file mode 100644 index 00000000..56eb1f84 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/u16sinha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sinh.h" + +void u16sinha(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16sinhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/u16sinhs.c b/2.3-1/src/c/elementaryFunctions/sinh/u16sinhs.c new file mode 100644 index 00000000..e9daf00c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/u16sinhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sinh.h" + +float u16sinhs(uint16 x) { + return (sinh(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/u8sinha.c b/2.3-1/src/c/elementaryFunctions/sinh/u8sinha.c new file mode 100644 index 00000000..b1e2dfea --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/u8sinha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "sinh.h" + +void u8sinha(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8sinhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/sinh/u8sinhs.c b/2.3-1/src/c/elementaryFunctions/sinh/u8sinhs.c new file mode 100644 index 00000000..126f01ca --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/sinh/u8sinhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "sinh.h" + +float u8sinhs(uint8 x) { + return (sinh(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/i16tana.c b/2.3-1/src/c/elementaryFunctions/tan/i16tana.c new file mode 100644 index 00000000..cf1ed946 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/i16tana.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tan.h" + +void i16tana(int16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i16tans(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/i16tans.c b/2.3-1/src/c/elementaryFunctions/tan/i16tans.c new file mode 100644 index 00000000..61c25d76 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/i16tans.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tan.h" + +float i16tans(int16 x) { + return (tanf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/i8tana.c b/2.3-1/src/c/elementaryFunctions/tan/i8tana.c new file mode 100644 index 00000000..3312a272 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/i8tana.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tan.h" + +void i8tana(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8tans(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/i8tans.c b/2.3-1/src/c/elementaryFunctions/tan/i8tans.c new file mode 100644 index 00000000..a7247a68 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/i8tans.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tan.h" + +float i8tans(int8 x) { + return (tanf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/u16tana.c b/2.3-1/src/c/elementaryFunctions/tan/u16tana.c new file mode 100644 index 00000000..44e70256 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/u16tana.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tan.h" + +void u16tana(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16tans(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/u16tans.c b/2.3-1/src/c/elementaryFunctions/tan/u16tans.c new file mode 100644 index 00000000..22f68711 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/u16tans.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tan.h" + +float u16tans(uint16 x) { + return (tanf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/u8tana.c b/2.3-1/src/c/elementaryFunctions/tan/u8tana.c new file mode 100644 index 00000000..725dfb3c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/u8tana.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tan.h" + +void u8tana(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8tans(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tan/u8tans.c b/2.3-1/src/c/elementaryFunctions/tan/u8tans.c new file mode 100644 index 00000000..7af4ba24 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tan/u8tans.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tan.h" + +float u8tans(uint8 x) { + return (tanf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/i16tanha.c b/2.3-1/src/c/elementaryFunctions/tanh/i16tanha.c new file mode 100644 index 00000000..5c564d9b --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/i16tanha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tanh.h" + +void i16tanha(int16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i16tanhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/i16tanhs.c b/2.3-1/src/c/elementaryFunctions/tanh/i16tanhs.c new file mode 100644 index 00000000..d42b2678 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/i16tanhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tanh.h" + +float i16tanhs(int16 x) { + return (tanhf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/i8tanha.c b/2.3-1/src/c/elementaryFunctions/tanh/i8tanha.c new file mode 100644 index 00000000..cbcc6511 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/i8tanha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tanh.h" + +void i8tanha(int8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = i8tanhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/i8tanhs.c b/2.3-1/src/c/elementaryFunctions/tanh/i8tanhs.c new file mode 100644 index 00000000..569eeaa5 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/i8tanhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tanh.h" + +float i8tanhs(int8 x) { + return (tanhf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/u16tanha.c b/2.3-1/src/c/elementaryFunctions/tanh/u16tanha.c new file mode 100644 index 00000000..c7aaca49 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/u16tanha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tanh.h" + +void u16tanha(uint16* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u16tanhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/u16tanhs.c b/2.3-1/src/c/elementaryFunctions/tanh/u16tanhs.c new file mode 100644 index 00000000..6ce5efcf --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/u16tanhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tanh.h" + +float u16tanhs(uint16 x) { + return (tanhf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/u8tanha.c b/2.3-1/src/c/elementaryFunctions/tanh/u8tanha.c new file mode 100644 index 00000000..92f19a63 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/u8tanha.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include "tanh.h" + +void u8tanha(uint8* x, int size, float* y) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = u8tanhs(x[i]); + } +} diff --git a/2.3-1/src/c/elementaryFunctions/tanh/u8tanhs.c b/2.3-1/src/c/elementaryFunctions/tanh/u8tanhs.c new file mode 100644 index 00000000..cac46c7a --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/tanh/u8tanhs.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ + +#include +#include "tanh.h" + +float u8tanhs(uint8 x) { + return (tanhf(x)); +} diff --git a/2.3-1/src/c/elementaryFunctions/uint16/i16uint16a.c b/2.3-1/src/c/elementaryFunctions/uint16/i16uint16a.c new file mode 100644 index 00000000..aea580c1 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/uint16/i16uint16a.c @@ -0,0 +1,18 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud Torset + * + * 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-en.txt + * + */ + +#include "uint16.h" + +void i16uint16a(int16* x, int size, uint16* out) { + int i = 0; + for (i=0;i +#include +#include "matrixInversion.h" +#include "lapack.h" + +void i16inverma ( int16* in, float* out, int leadDimIn ) +{ + + int i = 0 ; + /* these 3 variable are created to permit to use the value in the fortran functions + because they need double matrix as arguments and we can't cast directly the pointers + without having problems , i know that's ugly */ + double *dblin = NULL; + double *dblout = NULL; + + + + /* Array allocations*/ + dblin = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + dblout = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + + + + /*copy and cast all the float value into double value */ + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i ++ ) + { + dblin[i] = (double) in[i] ; + } + + dinverma ( dblin, dblout, leadDimIn ); + + + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i++ ) + { + out[i] =(float) dblout[i] ; + + } + + free ( dblin); + free ( dblout); + +} diff --git a/2.3-1/src/c/matrixOperations/inversion/i8inverma.c b/2.3-1/src/c/matrixOperations/inversion/i8inverma.c new file mode 100644 index 00000000..24fb920c --- /dev/null +++ b/2.3-1/src/c/matrixOperations/inversion/i8inverma.c @@ -0,0 +1,55 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + + +#include +#include +#include "matrixInversion.h" +#include "lapack.h" + +void i8inverma ( int8* in, float* out, int leadDimIn ) +{ + + int i = 0 ; + /* these 3 variable are created to permit to use the value in the fortran functions + because they need double matrix as arguments and we can't cast directly the pointers + without having problems , i know that's ugly */ + double *dblin = NULL; + double *dblout = NULL; + + + + /* Array allocations*/ + dblin = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + dblout = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + + + + /*copy and cast all the float value into double value */ + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i ++ ) + { + dblin[i] = (double) in[i] ; + } + + dinverma ( dblin, dblout, leadDimIn ); + + + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i++ ) + { + out[i] =(float) dblout[i] ; + + } + + free ( dblin); + free ( dblout); + +} diff --git a/2.3-1/src/c/matrixOperations/inversion/u16inverma.c b/2.3-1/src/c/matrixOperations/inversion/u16inverma.c new file mode 100644 index 00000000..a27182d2 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/inversion/u16inverma.c @@ -0,0 +1,55 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + + +#include +#include +#include "matrixInversion.h" +#include "lapack.h" + +void u16inverma ( uint16* in, float* out, int leadDimIn ) +{ + + int i = 0 ; + /* these 3 variable are created to permit to use the value in the fortran functions + because they need double matrix as arguments and we can't cast directly the pointers + without having problems , i know that's ugly */ + double *dblin = NULL; + double *dblout = NULL; + + + + /* Array allocations*/ + dblin = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + dblout = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + + + + /*copy and cast all the float value into double value */ + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i ++ ) + { + dblin[i] = (double) in[i] ; + } + + dinverma ( dblin, dblout, leadDimIn ); + + + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i++ ) + { + out[i] =(float) dblout[i] ; + + } + + free ( dblin); + free ( dblout); + +} diff --git a/2.3-1/src/c/matrixOperations/inversion/u8inverma.c b/2.3-1/src/c/matrixOperations/inversion/u8inverma.c new file mode 100644 index 00000000..4e8a97c0 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/inversion/u8inverma.c @@ -0,0 +1,55 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + + +#include +#include +#include "matrixInversion.h" +#include "lapack.h" + +void u8inverma ( uint8* in, float* out, int leadDimIn ) +{ + + int i = 0 ; + /* these 3 variable are created to permit to use the value in the fortran functions + because they need double matrix as arguments and we can't cast directly the pointers + without having problems , i know that's ugly */ + double *dblin = NULL; + double *dblout = NULL; + + + + /* Array allocations*/ + dblin = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + dblout = (double*)malloc(sizeof(double) * (unsigned int)(leadDimIn * leadDimIn)); + + + + /*copy and cast all the float value into double value */ + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i ++ ) + { + dblin[i] = (double) in[i] ; + } + + dinverma ( dblin, dblout, leadDimIn ); + + + for ( i = 0 ; i < (leadDimIn * leadDimIn) ; i++ ) + { + out[i] =(float) dblout[i] ; + + } + + free ( dblin); + free ( dblout); + +} diff --git a/2.3-1/src/c/matrixOperations/ones/i16onesa.c b/2.3-1/src/c/matrixOperations/ones/i16onesa.c new file mode 100644 index 00000000..b7949de7 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/ones/i16onesa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "ones.h" + +void i16onesa ( int16* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (int16)1 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/ones/i8onesa.c b/2.3-1/src/c/matrixOperations/ones/i8onesa.c new file mode 100644 index 00000000..7c179124 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/ones/i8onesa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "ones.h" + +void i8onesa ( int8* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (int8)1 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/ones/u16onesa.c b/2.3-1/src/c/matrixOperations/ones/u16onesa.c new file mode 100644 index 00000000..852ceef3 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/ones/u16onesa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "ones.h" + +void u16onesa ( uint16* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (uint16)1 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/ones/u8onesa.c b/2.3-1/src/c/matrixOperations/ones/u8onesa.c new file mode 100644 index 00000000..7918a962 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/ones/u8onesa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "ones.h" + +void u8onesa ( uint8* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (uint8)1 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/zeros/i16zerosa.c b/2.3-1/src/c/matrixOperations/zeros/i16zerosa.c new file mode 100644 index 00000000..f1ed904b --- /dev/null +++ b/2.3-1/src/c/matrixOperations/zeros/i16zerosa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "zeros.h" + +void i16zerosa ( int16* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (int16)0 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/zeros/i8zerosa.c b/2.3-1/src/c/matrixOperations/zeros/i8zerosa.c new file mode 100644 index 00000000..e22e06a8 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/zeros/i8zerosa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "zeros.h" + +void i8zerosa ( int8* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (int8)0 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/zeros/u16zerosa.c b/2.3-1/src/c/matrixOperations/zeros/u16zerosa.c new file mode 100644 index 00000000..6c98d2f7 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/zeros/u16zerosa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "zeros.h" + +void u16zerosa ( uint16* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (uint16)0 ; + + } + +} + + + diff --git a/2.3-1/src/c/matrixOperations/zeros/u8zerosa.c b/2.3-1/src/c/matrixOperations/zeros/u8zerosa.c new file mode 100644 index 00000000..42036148 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/zeros/u8zerosa.c @@ -0,0 +1,28 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "zeros.h" + +void u8zerosa ( uint8* in , int rows , int cols ) +{ + int i = 0 ; + + for ( i = 0 ; i < rows*cols ; i++) + { + in[i] = (uint8)0 ; + + } + +} + + + diff --git a/2.3-1/src/c/operations/interfaces/int_OpLogNot.h b/2.3-1/src/c/operations/interfaces/int_OpLogNot.h index 6184265c..852cd1c7 100644 --- a/2.3-1/src/c/operations/interfaces/int_OpLogNot.h +++ b/2.3-1/src/c/operations/interfaces/int_OpLogNot.h @@ -23,6 +23,14 @@ #define z0OpLogNotz0(in) (zreals(in)==0) ? DoubleComplex(1,0) : DoubleComplex(0,0) +#define u8OpLogNotu80(in) (in==0) ? (uint8)1 : (uint8)0 + +#define i8OpLogNoti80(in) (in==0) ? (int8)1 : (int8)0 + +#define u16OpLogNotu160(in) (in==0) ? (uint16)1 : (uint16)0 + +#define i16OpLogNoti160(in) (in==0) ? (int16)1 : (int16)0 + #define s2OpLogNots2(in,size,out) {int i;\ for (i=0;i + +#define s0string(in,out) sstrings(in,out) + +#define d0string(in,out) dstrings(in,out) + +#define c0string(in,out) cstrings(in,out) + +#define z0string(in,out) zstrings(in,out) + +#define u80string(in,out) u8strings(in,out) + +#define i80string(in,out) i8strings(in,out) + +#define u160string(in,out) u16strings(in,out) + +#define i160string(in,out) i16strings(in,out) + +#define s2string(in,size,out) sstringa(in,size[0]*size[1],out) + +#define d2string(in,size,out) dstringa(in,size[0]*size[1],out) + +#define c2string(in,size,out) cstringa(in,size[0]*size[1],out) + +#define z2string(in,size,out) zstringa(in,size[0]*size[1],out) + +#define u82string(in,size,out) u8stringa(in,size[0]*size[1],out) + +#define i82string(in,size,out) i8stringa(in,size[0]*size[1],out) + +#define u162string(in,size,out) u16stringa(in,size[0]*size[1],out) + +#define i162string(in,size,out) i16stringa(in,size[0]*size[1],out) + +#endif /* __INT_STRING_H__ */ diff --git a/2.3-1/src/c/string/string/i16stringa.c b/2.3-1/src/c/string/string/i16stringa.c new file mode 100644 index 00000000..28855df6 --- /dev/null +++ b/2.3-1/src/c/string/string/i16stringa.c @@ -0,0 +1,23 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "str.h" +#include "types.h" + +void i16stringa (int16* in, int size, char** out){ + + int i = 0; + for (i = 0; i < size; ++i) + { + i16strings (in[i], out[i]); + } +} diff --git a/2.3-1/src/c/string/string/i16strings.c b/2.3-1/src/c/string/string/i16strings.c new file mode 100644 index 00000000..2f214308 --- /dev/null +++ b/2.3-1/src/c/string/string/i16strings.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include +#include "str.h" +#include "types.h" + +void i16strings (int16 in, char* out) { + + sprintf (out, "%d" ,in ); +} diff --git a/2.3-1/src/c/string/string/i8stringa.c b/2.3-1/src/c/string/string/i8stringa.c new file mode 100644 index 00000000..cf436f0a --- /dev/null +++ b/2.3-1/src/c/string/string/i8stringa.c @@ -0,0 +1,23 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "str.h" +#include "types.h" + +void i8stringa (int8* in, int size, char** out){ + + int i = 0; + for (i = 0; i < size; ++i) + { + i8strings (in[i], out[i]); + } +} diff --git a/2.3-1/src/c/string/string/i8strings.c b/2.3-1/src/c/string/string/i8strings.c new file mode 100644 index 00000000..926c0f4d --- /dev/null +++ b/2.3-1/src/c/string/string/i8strings.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include +#include "str.h" +#include "types.h" + +void i8strings (int8 in, char* out) { + + sprintf (out, "%d" ,in ); +} diff --git a/2.3-1/src/c/string/string/u16stringa.c b/2.3-1/src/c/string/string/u16stringa.c new file mode 100644 index 00000000..ee5d1b36 --- /dev/null +++ b/2.3-1/src/c/string/string/u16stringa.c @@ -0,0 +1,23 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "str.h" +#include "types.h" + +void u16stringa (uint16* in, int size, char** out){ + + int i = 0; + for (i = 0; i < size; ++i) + { + u16strings (in[i], out[i]); + } +} diff --git a/2.3-1/src/c/string/string/u16strings.c b/2.3-1/src/c/string/string/u16strings.c new file mode 100644 index 00000000..d2854c45 --- /dev/null +++ b/2.3-1/src/c/string/string/u16strings.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include +#include "str.h" +#include "types.h" + +void u16strings (uint16 in, char* out) { + + sprintf (out, "%d" ,in ); +} diff --git a/2.3-1/src/c/string/string/u8stringa.c b/2.3-1/src/c/string/string/u8stringa.c new file mode 100644 index 00000000..4546823d --- /dev/null +++ b/2.3-1/src/c/string/string/u8stringa.c @@ -0,0 +1,23 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include "str.h" +#include "types.h" + +void u8stringa (uint8* in, int size, char** out){ + + int i = 0; + for (i = 0; i < size; ++i) + { + u8strings (in[i], out[i]); + } +} diff --git a/2.3-1/src/c/string/string/u8strings.c b/2.3-1/src/c/string/string/u8strings.c new file mode 100644 index 00000000..38bf670d --- /dev/null +++ b/2.3-1/src/c/string/string/u8strings.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * 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-en.txt + * + */ + +#include +#include "str.h" +#include "types.h" + +void u8strings (uint8 in, char* out) { + + sprintf (out, "%d" ,in ); +} -- cgit