Merge remote-tracking branch 'origin/master' into windows
[scilab.git] / scilab / modules / elementary_functions / sci_gateway / cpp / sci_tan.cpp
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2012 - DIGITEO - Cedric DELAMARRE
4  *
5  * Copyright (C) 2012 - 2016 - Scilab Enterprises
6  *
7  * This file is hereby licensed under the terms of the GNU GPL v2.0,
8  * pursuant to article 5.3.4 of the CeCILL v.2.1.
9  * This file was originally licensed under the terms of the CeCILL v2.1,
10  * and continues to be available under such terms.
11  * For more information, see the COPYING file which you should have received
12  * along with this program.
13  *
14  */
15 /*--------------------------------------------------------------------------*/
16
17 #include <complex>
18
19 #include "elem_func_gw.hxx"
20 #include "function.hxx"
21 #include "double.hxx"
22 #include "overload.hxx"
23
24 extern "C"
25 {
26 #include "Scierror.h"
27 #include "localization.h"
28 #include "tan.h"
29 }
30
31 /*
32 clear a;nb = 2500;a = rand(nb, nb);tic();tan(a);toc
33 clear a;nb = 2500;a = rand(nb, nb); a = a + a *%i;tic();tan(a);toc
34 */
35 /*--------------------------------------------------------------------------*/
36 types::Function::ReturnValue sci_tan(types::typed_list &in, int _iRetCount, types::typed_list &out)
37 {
38     types::Double* pDblIn   = NULL;
39     types::Double* pDblOut  = NULL;
40
41     if (in.size() != 1)
42     {
43         Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), "tan", 1);
44         return types::Function::Error;
45     }
46
47     if (_iRetCount > 1)
48     {
49         Scierror(78, _("%s: Wrong number of output argument(s): %d expected.\n"), "tan", 1);
50         return types::Function::Error;
51     }
52
53     if (in[0]->isDouble() == false)
54     {
55         std::string stFuncName = "%" + in[0]->getShortTypeStr() + "_tan";
56         return Overload::call(stFuncName, in, _iRetCount, out);
57     }
58
59     pDblIn = in[0]->getAs<types::Double>();
60     pDblOut = trigo(pDblIn, std::tan, std::tan);
61     out.push_back(pDblOut);
62     return types::Function::OK;
63 }
64 /*--------------------------------------------------------------------------*/