add filesep & pathsep functions
[scilab.git] / scilab / modules / fileio / sci_gateway / c / gw_fileio.c
1 /*-----------------------------------------------------------------------------------*/
2 /* INRIA 2006 */
3 /* Allan CORNET */
4 /*-----------------------------------------------------------------------------------*/
5 #include "gw_fileio.h"
6 #include "callFunctionFromGateway.h"
7 #include "stack-c.h"
8 /*-----------------------------------------------------------------------------------*/ 
9 /*  interface function */
10 /*-----------------------------------------------------------------------------------*/ 
11 static gw_generic_table Tab[]={
12         { intsmopen, "mopen"},
13         { intsmputstr, "mputstr"},
14         { intsmclose, "mclose"},
15         { intsmput, "mput"},
16         { intsmget, "mget"},
17         { intsmgetstr, "mgetstr"},
18         { intsmeof, "meof"},
19         { intsmseek, "mseek"},
20         { intsmtell, "mtell"},
21         { intsmclearerr, "mclearerr"},
22         {int_objprintf,"mprintf"},
23         {int_objfprintf,"mfprintf"},
24         {int_objsprintf,"msprintf"},
25         {int_objscanf,"mscanf"},
26         {int_objfscanf,"mfscanf"},
27         {int_objsscanf,"msscanf"},
28         {int_objfscanfMat,"fscanfMat"},
29         {int_objfprintfMat,"fprintfMat"},
30         {int_objnumTokens,"NumTokens"},
31         {intsmerror, "merror"},
32         {C2F(sci_xls_open),"xls_open"},
33         {C2F(sci_xls_read),"xls_read"},
34         {C2F(sci_findfiles),"findfiles"},
35         {C2F(sci_maxfiles),"maxfiles"},
36         {C2F(sci_getdrives),"getdrives"},
37         {C2F(sci_fullpath),"fullpath"},
38         {C2F(sci_deletefile),"deletefile"},
39         {C2F(sci_pathsep),"pathsep"},
40         {C2F(sci_filesep),"filesep"}
41         };
42 /*-----------------------------------------------------------------------------------*/ 
43 int C2F(gw_fileio)(void)
44 {
45         Rhs=Max(0,Rhs);
46         callFunctionFromGateway(Tab);
47         return 0;
48 }
49 /*-----------------------------------------------------------------------------------*/ 
50