* Bug 14425 fixed - xpause() set obsolete, merged in sleep(). sleep(,'s') implemented
[scilab.git] / scilab / modules / time / sci_gateway / c / sci_xpause.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA - Allan CORNET
4  *
5  * Copyright (C) 2012 - 2016 - Scilab Enterprises
6  *
7  * This file is hereby licensed under the terms of the GNU GPL v2.0,
8  * pursuant to article 5.3.4 of the CeCILL v.2.1.
9  * This file was originally licensed under the terms of the CeCILL v2.1,
10  * and continues to be available under such terms.
11  * For more information, see the COPYING file which you should have received
12  * along with this program.
13  *
14  */
15
16 /*--------------------------------------------------------------------------*/
17 #ifdef _MSC_VER
18 #include <Windows.h>
19 #endif
20 #include "machine.h"
21 #ifdef HAVE_USLEEP
22 #include <unistd.h>
23 #endif
24 #include "gw_time.h"
25 #include "api_scilab.h"
26 #include "Scierror.h"
27 #include "localization.h"
28 /*--------------------------------------------------------------------------*/
29 int sci_xpause(char *fname, void* pvApiCtx)
30 {
31
32     sciprint(_("%s: Feature %s is obsolete and will be permanently removed in Scilab %s\n"), _("Warning"), fname, "6.1");
33     sciprint(_("%s: Please use %s instead.\n"), _("Warning"), "sleep()");
34
35     SciErr sciErr;
36     int m1 = 0, n1 = 0, sec = 0;
37     int * p1_in_address = NULL;
38     double * pDblReal = NULL;
39
40     CheckLhs(0, 1);
41     CheckRhs(1, 1);
42
43     if (Rhs == 1)
44     {
45         sciErr = getVarAddressFromPosition(pvApiCtx, 1, &p1_in_address);
46         sciErr = getMatrixOfDouble(pvApiCtx, p1_in_address, &m1, &n1, &pDblReal);
47
48         if (isScalar(pvApiCtx, p1_in_address) == 0)
49         {
50             Scierror(999, _("%s: Wrong type for input argument #%d: A real scalar expected.\n"), fname, 1);
51             return 0;
52         }
53
54         sec = (int)  * pDblReal;
55
56         if (sec <= 0)
57         {
58             Scierror(999, _("%s: Wrong values for input argument #%d: Non-negative integers expected.\n"), fname, 1);
59             return 0;
60         }
61 #ifdef _MSC_VER
62         {
63             int ms = (sec) / 1000; /** time is specified in milliseconds in scilab**/
64             if (ms > 0)
65             {
66                 Sleep(ms);    /* Number of milliseconds to sleep. */
67             }
68         }
69 #else
70         {
71             unsigned useconds;
72             useconds = (unsigned) sec;
73             if (useconds != 0)
74 #ifdef HAVE_USLEEP
75             {
76                 usleep(useconds);
77             }
78 #else
79 #ifdef HAVE_SLEEP
80             {
81                 sleep(useconds);
82             }
83 #endif
84 #endif
85         }
86 #endif
87     }
88
89     LhsVar(1) = 0;
90     PutLhsVar();
91
92     return 0;
93 }
94 /*--------------------------------------------------------------------------*/
95