* Bug #12606 fixed - Overloads for grand were not standard.
[scilab.git] / scilab / modules / randlib / sci_gateway / c / gw_randlib.c
1
2 /*
3  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4  * Copyright (C) 2008 - INRIA
5  *
6  * This file must be used under the terms of the CeCILL.
7  * This source file is licensed as described in the file COPYING, which
8  * you should have received as part of this distribution.  The terms
9  * are also available at
10  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11  *
12  */
13  
14 /*--------------------------------------------------------------------------*/
15 /* INRIA 2006 */
16 /* Allan CORNET */
17 /*--------------------------------------------------------------------------*/
18 #include <string.h>
19 #include "gw_randlib.h"
20 #include "api_scilab.h"
21 #include "MALLOC.h"
22 #include "callFunctionFromGateway.h"
23 /*--------------------------------------------------------------------------*/
24 static gw_generic_table Tab[]={ 
25         {sci_Rand, "grand"}
26 };
27 /*--------------------------------------------------------------------------*/
28 int gw_randlib(void)
29 {
30         Rhs = Max(0, Rhs);
31
32     if(pvApiCtx == NULL)
33         {
34                 pvApiCtx = (StrCtx*)MALLOC(sizeof(StrCtx));
35         }
36
37         pvApiCtx->pstName = (char*)Tab[Fin-1].name;
38         callFunctionFromGateway(Tab,SIZE_CURRENT_GENERIC_TABLE(Tab));
39         return 0;
40 }
41 /*--------------------------------------------------------------------------*/