1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA - Allan CORNET , Cong WU
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
/*--------------------------------------------------------------------------*/
#include "gw_string.h"
#include "stack-c.h"
#include "MALLOC.h"
#include "callFunctionFromGateway.h"
/*--------------------------------------------------------------------------*/
static gw_generic_table Tab[] =
{
{sci_length,"length"},
{sci_part,"part"},
{sci_string,"string"},
{sci_convstr,"convstr"},
{sci_emptystr,"emptystr"},
{sci_str2code,"str2code"},
{sci_code2str,"code2str"},
{sci_strcat,"strcat"},
{sci_strindex,"strindex"},
{sci_strsubst,"strsubst"},
{sci_ascii,"ascii"},
{sci_grep,"grep"},
{sci_tokens,"tokens"},
{sci_strsplit,"strsplit"},
{sci_stripblanks,"stripblank"},
{sci_strcmp,"strcmp"},
{sci_isletter,"isletter"},
{sci_isdigit,"isdigit"},
{sci_isalphanum,"isalphanum"},
{sci_isascii,"isascii"},
{sci_strcspn,"strcspn"},
{sci_strncpy,"strncpy"},
{sci_strrchr,"strrchr"},
{sci_strchr,"strchr"},
{sci_strstr,"strstr"},
{sci_strrev,"strrev"},
{sci_strtok,"strtok"},
{sci_strspn,"strspn"},
{sci_strtod,"strtod"},
{sci_regexp,"regexp"},
{sci_NumTokens,"NumTokens"}
};
/*--------------------------------------------------------------------------*/
int gw_string(void)
{
if(pvApiCtx == NULL)
{
pvApiCtx = (StrCtx*)MALLOC(sizeof(SciErr));
}
pvApiCtx->pstName = (char*)Tab[Fin-1].name;
callFunctionFromGateway(Tab, SIZE_CURRENT_GENERIC_TABLE(Tab));
return 0;
}
/*--------------------------------------------------------------------------*/
|
