vdw/trunk/obj_srvr.h

#define SQL_SIZE               3000
#define COL_LIST_SIZE          1000
#define TAB_LIST_SIZE          1000
#define WHERE_CLAUSE_SIZE      1000
#define ORDER_BY_SIZE          1000
#define BUFSIZE                1024 * 50
#define ARGSIZE                1000

int call_perl_connect2client(char *remote, char *port);
char *call_perl_get_yyin(int size);
int call_perl_send_yyout(char *s);

#ifdef LEX_SOURCE_FILE
int glb_errflag;

int token;

struct parsed_sql {
    char column_list[COL_LIST_SIZE];
    char table_list[TAB_LIST_SIZE];
    char where_clause[WHERE_CLAUSE_SIZE];
    char order_by[ORDER_BY_SIZE];
};

typedef struct parsed_sql Parsed_SQL;

Parsed_SQL parsed_sql;

void start_save();
void save_str(char *s);
int embed_perl_obj_srvr(int argc, char **argv, char **env);
void end_perl();

#else
extern int glb_errflag;

extern int token;

struct parsed_sql {
    char column_list[COL_LIST_SIZE];
    char table_list[TAB_LIST_SIZE];
    char where_clause[WHERE_CLAUSE_SIZE];
    char order_by[ORDER_BY_SIZE];
};

typedef struct parsed_sql Parsed_SQL;

extern Parsed_SQL parsed_sql;
char *call_perl_like2re(char *word1, char *word2, char *word3, char *word4);
char *call_perl_tr_op(char *table, char *word1, char *word2, char *word3);

#endif
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