linear_algebra plugged.
[scilab.git] / scilab / modules / boolean / sci_gateway / cpp / sci_bool2s.cpp
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2011 - DIGITEO - Antoine ELIAS
4 *
5 * This file must be used under the terms of the CeCILL.
6 * This source file is licensed as described in the file COPYING, which
7 * you should have received as part of this distribution.  The terms
8 * are also available at
9 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 *
11 */
12 /*--------------------------------------------------------------------------*/
13
14 #include "boolean_gw.hxx"
15 #include "function.hxx"
16 #include "double.hxx"
17 #include "bool.hxx"
18
19 extern "C"
20 {
21 #include "localization.h"
22 #include "Scierror.h"
23 }
24 /*--------------------------------------------------------------------------*/
25
26 types::Function::ReturnValue sci_bool2s(types::typed_list &in, int _iRetCount, types::typed_list &out)
27 {
28     types::InternalType* pOut = NULL;
29     if(in.size() != 1)
30     {
31         ScierrorW(77, _W("%ls: Wrong number of input argument(s): %d to %d expected.\n"), L"bool2s", 1);
32         return types::Function::Error;
33     }
34
35     if(in[0]->isDouble())
36     {
37         types::Double* pIn = in[0]->getAs<types::Double>();
38
39         types::Double* pD = new types::Double(pIn->getDims(), pIn->getDimsArray());
40         for(int i = 0 ; i < pIn->getSize() ; i++)
41         {
42             pD->set(i, pIn->get(i) != 0);
43         }
44         pOut = pD;
45     }
46     else if(in[0]->isBool())
47     {
48         types::Bool* pIn = in[0]->getAs<types::Bool>();
49
50         types::Double* pD = new types::Double(pIn->getDims(), pIn->getDimsArray());
51         for(int i = 0 ; i < pIn->getSize() ; i++)
52         {
53             pD->set(i, pIn->get(i));
54         }
55         pOut = pD;
56     }
57     //else if(in[0]->isSparse())
58     //{
59     //}
60     //else if(in[0]->isBooleanSparse())
61     //{
62     //}
63     else
64     {
65         ScierrorW(999, _W("%ls: Wrong type for input argument #%d: %s or %s expected.\n"), L"bool2s", 1, L"bool", L"double");
66         return types::Function::Error;
67     }
68
69     out.push_back(pOut);
70     return types::Function::OK;
71 }
72 /*--------------------------------------------------------------------------*/