File Browser: add an entry in the main menu
[scilab.git] / scilab / modules / ui_data / sci_gateway / cpp / sci_filebrowser.cpp
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2011 - DIGITEO - Calixte DENIZET
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 #include "FileBrowser.hxx"
14
15 extern "C"
16 {
17 #include "gw_ui_data.h"
18 #include "getScilabJavaVM.h"
19 #include "stack-c.h"
20 #include "scicurdir.h"
21 }
22
23 using namespace org_scilab_modules_ui_data;
24
25 /*--------------------------------------------------------------------------*/
26 int sci_filebrowser(char *fname, unsigned long fname_len)
27 {
28     char * cwd = NULL;
29     int err = 0;
30
31     CheckRhs(0, 0);
32     CheckLhs(0, 1);
33
34     FileBrowser::openFileBrowser(getScilabJavaVM());
35
36     cwd = scigetcwd(&err);
37     if (cwd)
38     {
39         FileBrowser::setBaseDir(getScilabJavaVM(), cwd);
40     }
41
42     LhsVar(1) = 0;
43     PutLhsVar();
44
45     return 0;
46 }