prompt function corrected.
[scilab.git] / scilab / modules / console / sci_gateway / cpp / sci_tohome.cpp
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2011 - DIGITEO - Cedric DELAMARRE
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 "console_gw.hxx"
15 #include "function.hxx"
16
17 extern "C"
18 {
19 #include "localization.h"
20 #include "Scierror.h"
21 #include "tohome.h"
22 }
23 /*--------------------------------------------------------------------------*/
24
25 types::Function::ReturnValue sci_tohome(types::typed_list &in, int _iRetCount, types::typed_list &out)
26 {
27     if(in.size() != 0)
28     {
29         ScierrorW(77, _W("%ls: Wrong number of input argument(s): %d expected.\n"), L"prompt", 0);
30         return types::Function::Error;
31     }
32     if (!tohome())
33     {
34         ScierrorW(999, _W("%ls: This feature has not been implemented in this mode.\n"), L"prompt");
35         return types::Function::Error;
36     }
37
38     return types::Function::OK;
39 }
40 /*--------------------------------------------------------------------------*/
41