prompt function corrected.
[scilab.git] / scilab / modules / console / sci_gateway / c / sci_iswaitingforinput.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2007 - INRIA - Vincent COUVERT 
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 /* desc: interface for iswaitingforinput primitive                          */
14 /*--------------------------------------------------------------------------*/
15 #include "gw_console.h"
16 #include "stack-c.h"
17 #include "ConsoleIsWaitingForInput.h"
18 #include "sci_mode.h"
19 #include "Scierror.h"
20 #include "localization.h"
21 #include "sciprint.h"
22 /*--------------------------------------------------------------------------*/
23 int sci_iswaitingforinput(char *fname,unsigned long fname_len)
24 {
25         BOOL res = FALSE;
26         int un = 1, outIndex = 0;
27
28         Rhs = Max(Rhs,0);
29         CheckRhs(0,1);
30         CheckLhs(0,1);
31
32         if (getScilabMode() == SCILAB_STD) 
33         {
34                 res = ConsoleIsWaitingForInput();
35     } 
36         else 
37         {
38                 sciprint(_("%s: Not implemented in this mode.\n"),fname);
39         }
40
41         CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE,&un,&un,&outIndex);
42         *istk(outIndex) = res;
43         
44         LhsVar(1) = Rhs+1;
45         PutLhsVar();
46         return 0;
47 }
48 /*--------------------------------------------------------------------------*/