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	dpavlin	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