8482f445e04b327ad51e92ca1e885be9a6a93b66
[scilab.git] / scilab / modules / windows_tools / sci_gateway / cpp / sci_winopen.cpp
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) INRIA - Allan CORNET
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.1-en.txt
10 *
11 */
12
13 /*--------------------------------------------------------------------------*/
14 #include "windows_tools_gw.hxx"
15 #include "function.hxx"
16 #include "string.hxx"
17
18 extern "C"
19 {
20 #include "winopen.h"
21 #include "localization.h"
22 #include "Scierror.h"
23 }
24 /*--------------------------------------------------------------------------*/
25 const std::string fname = "winopen";
26 /*--------------------------------------------------------------------------*/
27 types::Function::ReturnValue sci_winopen(types::typed_list &in, int _iRetCount, types::typed_list &out)
28 {
29     if (in.size() != 1)
30     {
31         Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), fname.data(), 1);
32         return types::Function::Error;
33     }
34
35     if (_iRetCount != 1)
36     {
37         Scierror(999, _("%s: Wrong number of output arguments: %d expected.\n"), fname.data(), 1);
38         return types::Function::Error;
39     }
40
41     if (in[0]->isString() == false)
42     {
43         Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"), fname.data(), 1);
44         return types::Function::Error;
45     }
46
47     types::String* pS = in[0]->getAs<types::String>();
48     if (pS->isScalar() == false)
49     {
50         Scierror(999, _("%s: Wrong size for input argument #%d: String expected.\n"), fname.data(), 1);
51         return types::Function::Error;
52     }
53
54     if (winopen(pS->get()[0]))
55     {
56         return types::Function::OK;
57     }
58     else
59     {
60         Scierror(999, _("%s: Cannot open file %ls.\n"), fname.data(), pS->get()[0]);
61         return types::Function::Error;
62     }
63
64     return types::Function::OK;
65 }
66 /*--------------------------------------------------------------------------*/