1 |
#define SQL_SIZE 3000 |
2 |
#define COL_LIST_SIZE 1000 |
3 |
#define TAB_LIST_SIZE 1000 |
4 |
#define WHERE_CLAUSE_SIZE 1000 |
5 |
#define ORDER_BY_SIZE 1000 |
6 |
#define BUFSIZE 1024 * 50 |
7 |
#define ARGSIZE 1000 |
8 |
|
9 |
int call_perl_connect2client(char *remote, char *port); |
10 |
char *call_perl_get_yyin(int size); |
11 |
int call_perl_send_yyout(char *s); |
12 |
|
13 |
#ifdef LEX_SOURCE_FILE |
14 |
int glb_errflag; |
15 |
|
16 |
int token; |
17 |
|
18 |
struct parsed_sql { |
19 |
char column_list[COL_LIST_SIZE]; |
20 |
char table_list[TAB_LIST_SIZE]; |
21 |
char where_clause[WHERE_CLAUSE_SIZE]; |
22 |
char order_by[ORDER_BY_SIZE]; |
23 |
}; |
24 |
|
25 |
typedef struct parsed_sql Parsed_SQL; |
26 |
|
27 |
Parsed_SQL parsed_sql; |
28 |
|
29 |
void start_save(); |
30 |
void save_str(char *s); |
31 |
int embed_perl_obj_srvr(int argc, char **argv, char **env); |
32 |
void end_perl(); |
33 |
|
34 |
#else |
35 |
extern int glb_errflag; |
36 |
|
37 |
extern int token; |
38 |
|
39 |
struct parsed_sql { |
40 |
char column_list[COL_LIST_SIZE]; |
41 |
char table_list[TAB_LIST_SIZE]; |
42 |
char where_clause[WHERE_CLAUSE_SIZE]; |
43 |
char order_by[ORDER_BY_SIZE]; |
44 |
}; |
45 |
|
46 |
typedef struct parsed_sql Parsed_SQL; |
47 |
|
48 |
extern Parsed_SQL parsed_sql; |
49 |
char *call_perl_like2re(char *word1, char *word2, char *word3, char *word4); |
50 |
char *call_perl_tr_op(char *table, char *word1, char *word2, char *word3); |
51 |
|
52 |
#endif |