linear_algebra plugged.
[scilab.git] / scilab / modules / linear_algebra / sci_gateway / c / gw_linear_algebra2.c
1
2 /*
3  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4  * Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
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 #include <string.h>
15 #include "gw_linear_algebra.h"
16 #include "gw_linear_algebra2.h"
17 #include "callFunctionFromGateway.h"
18 #include "stack-c.h"
19 /*--------------------------------------------------------------------------*/ 
20 #define LINEAR_ALGEBRA2_TAB_SIZE 15
21 static gw_generic_table Tab[LINEAR_ALGEBRA2_TAB_SIZE]={
22         {NULL, ""}, //qr
23         {NULL, ""}, //svd
24         {NULL, ""}, //lsq
25         {NULL, ""}, //spec
26         {NULL, ""}, //inv
27         {NULL, ""}, //rcond
28         {NULL, ""}, //chol
29         {NULL, ""}, //lu
30         {C2F(intslash),"slash"},
31         {C2F(intbackslash),"backslash"},
32         {NULL, ""}, //schur
33         {NULL, ""}, //hess
34         {NULL, ""}, //det
35         {NULL, ""} //balanc
36 };
37 /*--------------------------------------------------------------------------*/ 
38 int gw_linear_algebra2(void)
39 {  
40         Rhs = Max(0, Rhs);
41         callFunctionFromGateway(Tab, SIZE_CURRENT_GENERIC_TABLE(Tab));
42         if (Err <= 0 && C2F(errgst).err1 <= 0) PutLhsVar();
43         return 0;
44 }
45 /*--------------------------------------------------------------------------*/