1998-02-05 16:46:43 +01:00
|
|
|
/* Copyright comment! */
|
|
|
|
%{
|
1998-02-27 04:07:35 +01:00
|
|
|
#include <sys/types.h>
|
1998-03-20 04:08:11 +01:00
|
|
|
#include <limits.h>
|
|
|
|
#if defined(HAVE_STRING_H)
|
|
|
|
#include <string.h>
|
|
|
|
#else
|
|
|
|
#include <strings.h>
|
|
|
|
#endif
|
|
|
|
|
1998-02-05 16:46:43 +01:00
|
|
|
#include "type.h"
|
|
|
|
#include "y.tab.h"
|
|
|
|
|
1998-02-12 15:02:10 +01:00
|
|
|
#include "extern.h"
|
1998-02-10 17:44:17 +01:00
|
|
|
|
1998-03-20 04:08:11 +01:00
|
|
|
struct _yy_buffer { YY_BUFFER_STATE buffer;
|
|
|
|
long lineno;
|
|
|
|
char * filename;
|
|
|
|
struct _yy_buffer * next;
|
|
|
|
} *yy_buffer = NULL;
|
|
|
|
|
1998-02-10 17:44:17 +01:00
|
|
|
#define dbg(arg) if (debugging) fprintf(stderr, "DEBUG, %d: %s\n", yylineno, #arg);
|
1998-02-05 16:46:43 +01:00
|
|
|
%}
|
1998-02-10 17:44:17 +01:00
|
|
|
%option yylineno
|
1998-03-20 04:08:11 +01:00
|
|
|
%s C SQL incl
|
1998-02-05 16:46:43 +01:00
|
|
|
ccomment \/\*([^*]|\*[^/]|\*\*[^/])*\*\/
|
|
|
|
ws ([ \t\n][ \t\n]*|{ccomment})*
|
|
|
|
letter [A-Za-z_]
|
|
|
|
digit [0-9]
|
|
|
|
length {digit}+
|
|
|
|
symbol {letter}({letter}|{digit})*
|
1998-02-19 14:52:17 +01:00
|
|
|
label ({letter}|{digit})*
|
1998-02-05 16:46:43 +01:00
|
|
|
string '[^']*'
|
|
|
|
|
1998-03-20 04:08:11 +01:00
|
|
|
abort [aA][bB][oO][rR][tT]
|
1998-02-05 16:46:43 +01:00
|
|
|
begin [bB][eE][gG][iI][nN]
|
1998-02-19 14:52:17 +01:00
|
|
|
commit [cC][oO][mM][mM][iI][tT]
|
|
|
|
connect [cC][oO][nN][nN][eE][cC][tT]
|
|
|
|
continue [cC][oO][nN][tT][iI][nN][uU][eE]
|
1998-02-05 16:46:43 +01:00
|
|
|
declare [dD][eE][cC][lL][aA][rR][eE]
|
1998-02-19 14:52:17 +01:00
|
|
|
do [dD][oO]
|
|
|
|
end [eE][nN][dD]
|
|
|
|
exec [eE][xX][eE][cC]
|
|
|
|
execute [eE][xX][eE][cC][uU][tT][eE]
|
1998-02-27 13:59:33 +01:00
|
|
|
fetch [fF][eE][tT][cC][hH]
|
1998-02-19 14:52:17 +01:00
|
|
|
found [fF][oO][uU][nN][dD]
|
1998-02-27 13:59:33 +01:00
|
|
|
from [fF][rR][oO][mM]
|
1998-02-24 16:52:13 +01:00
|
|
|
go [gG][oO]
|
1998-02-19 14:52:17 +01:00
|
|
|
goto [gG][oO][tT][oO]
|
|
|
|
immediate [iI][mM][mM][eE][dD][iI][aA][tT][eE]
|
1998-02-05 16:46:43 +01:00
|
|
|
include [iI][nN][cC][lL][uU][dD][eE]
|
1998-02-27 13:59:33 +01:00
|
|
|
in [iI][nN]
|
1998-02-19 14:52:17 +01:00
|
|
|
into [iI][nN][tT][oO]
|
|
|
|
not [nN][oO][tT]
|
1998-02-05 16:46:43 +01:00
|
|
|
open [oO][pP][eE][nN]
|
1998-02-18 02:28:03 +01:00
|
|
|
release [rR][eE][lL][eE][aA][sS][eE]
|
1998-02-05 16:46:43 +01:00
|
|
|
rollback [rR][oO][lL][lL][bB][aA][cC][kK]
|
1998-02-19 14:52:17 +01:00
|
|
|
section [sS][eE][cC][tT][iI][oO][nN]
|
|
|
|
sql [sS][qQ][lL]
|
|
|
|
sqlerror [sS][qQ][lL][eE][rR][rR][oO][rR]
|
|
|
|
sqlprint [sS][qQ][lL][pP][rR][iI][nN][tT]
|
1998-02-24 16:52:13 +01:00
|
|
|
stop [sS][tT][oO][pP]
|
1998-03-20 04:08:11 +01:00
|
|
|
transaction [tT][rR][aA][nN][sS][aA][cC][tT][iI][oO][nN]
|
1998-02-24 16:52:13 +01:00
|
|
|
to [tT][oO]
|
1998-02-19 14:52:17 +01:00
|
|
|
varchar [vV][aA][rR][cC][hH][aA][rR]
|
|
|
|
varchar2 [vV][aA][rR][cC][hH][aA][rR]2
|
|
|
|
whenever [wW][hH][eE][nN][eE][vV][eE][rR]
|
1998-02-18 02:28:03 +01:00
|
|
|
work [wW][oO][rR][kK]
|
1998-03-20 04:08:11 +01:00
|
|
|
vacuum [vV][aA][cC][uU][uU][mM]
|
1998-02-05 16:46:43 +01:00
|
|
|
%%
|
|
|
|
<C>{exec}{ws}{sql} { BEGIN SQL; dbg(SQL_START); return SQL_START; }
|
|
|
|
<SQL>";" { BEGIN C; dbg(SQL_SEMI); return SQL_SEMI; }
|
1998-03-20 04:08:11 +01:00
|
|
|
<SQL>{abort} { dbg(SQL_ABORT); return SQL_ABORT; }
|
1998-02-05 16:46:43 +01:00
|
|
|
<SQL>{begin} { dbg(SQL_BEGIN); return SQL_BEGIN; }
|
|
|
|
<SQL>{end} { dbg(SQL_END); return SQL_END; }
|
|
|
|
<SQL>{declare} { dbg(SQL_DECLARE); return SQL_DECLARE; }
|
1998-02-18 02:28:03 +01:00
|
|
|
<SQL>{execute} { dbg(SQL_EXECUTE); return SQL_EXECUTE; }
|
|
|
|
<SQL>{immediate} { dbg(SQL_IMMEDIATE); return SQL_IMMEDIATE; }
|
1998-02-05 16:46:43 +01:00
|
|
|
<SQL>{section} { dbg(SQL_SECTION); return SQL_SECTION; }
|
|
|
|
<SQL>{connect} { dbg(SQL_CONNECT); return SQL_CONNECT; }
|
|
|
|
<SQL>{open} { dbg(SQL_OPEN); return SQL_OPEN; }
|
|
|
|
<SQL>{commit} { dbg(SQL_COMMIT); return SQL_COMMIT; }
|
1998-02-18 02:28:03 +01:00
|
|
|
<SQL>{release} { dbg(SQL_RELEASE); return SQL_RELEASE; }
|
|
|
|
<SQL>{work} { dbg(SQL_WORK); return SQL_WORK; }
|
1998-02-27 13:59:33 +01:00
|
|
|
<SQL>{fetch} { dbg(SQL_FETCH); return SQL_FETCH; }
|
1998-02-05 16:46:43 +01:00
|
|
|
<SQL>{rollback} { dbg(SQL_ROLLBACK); return SQL_ROLLBACK; }
|
1998-02-19 14:52:17 +01:00
|
|
|
<SQL>{whenever} { dbg(SQL_WHENEVER); return SQL_WHENEVER; }
|
|
|
|
<SQL>{sqlerror} { dbg(SQL_SQLERROR); return SQL_SQLERROR; }
|
|
|
|
<SQL>{sqlprint} { dbg(SQL_SQLPRINT); return SQL_SQLPRINT; }
|
|
|
|
<SQL>{not}{ws}{found} { dbg(SQL_NOT_FOUND); return SQL_NOT_FOUND; }
|
|
|
|
<SQL>{continue} { dbg(SQL_CONTINUE); return SQL_CONTINUE; }
|
1998-02-05 16:46:43 +01:00
|
|
|
<SQL>{into} { dbg(SQL_INTO); return SQL_INTO; }
|
1998-02-27 13:59:33 +01:00
|
|
|
<SQL>{in} { dbg(SQL_IN); return SQL_IN; }
|
1998-02-19 14:52:17 +01:00
|
|
|
<SQL>{goto} { dbg(SQL_GOTO); return SQL_GOTO; }
|
1998-02-24 16:52:13 +01:00
|
|
|
<SQL>{go}{ws}{to} { dbg(SQL_GOTO); return SQL_GOTO; }
|
|
|
|
<SQL>{stop} { dbg(SQL_STOP); return SQL_STOP; }
|
1998-02-19 14:52:17 +01:00
|
|
|
<SQL>{do} { dbg(SQL_DO); return SQL_DO; }
|
1998-02-27 13:59:33 +01:00
|
|
|
<SQL>{from} { dbg(SQL_FROM); return SQL_FROM; }
|
1998-03-20 04:08:11 +01:00
|
|
|
<SQL>{transaction} { dbg(SQL_TRANSACTION); return SQL_TRANSACTION; }
|
|
|
|
<SQL>{vacuum} { dbg(SQL_VACUUM); return SQL_VACUUM; }
|
|
|
|
|
|
|
|
|
|
|
|
<C>{exec}{ws}{sql}{ws}{include} { BEGIN(incl); }
|
|
|
|
<incl>{ws} /* eat the whitespace */
|
|
|
|
<incl>[^ \t\n]+ { /* got the include file name */
|
|
|
|
struct _yy_buffer *yb;
|
|
|
|
struct _include_path *ip;
|
|
|
|
char inc_file[PATH_MAX];
|
|
|
|
|
|
|
|
yb = mm_alloc(sizeof(struct _yy_buffer));
|
|
|
|
|
|
|
|
yb->buffer = YY_CURRENT_BUFFER;
|
|
|
|
yb->lineno = yylineno;
|
|
|
|
yb->filename = input_filename;
|
|
|
|
yb->next = yy_buffer;
|
|
|
|
|
|
|
|
yy_buffer = yb;
|
|
|
|
|
|
|
|
if (yytext[strlen(yytext) - 1] == ';')
|
|
|
|
yytext[strlen(yytext) - 1] = '\0';
|
|
|
|
|
|
|
|
yyin = NULL;
|
|
|
|
for (ip = include_paths; yyin == NULL && ip != NULL; ip = ip->next)
|
|
|
|
{
|
|
|
|
if (strlen(ip->path) + strlen(yytext) + 3 > PATH_MAX)
|
|
|
|
{
|
|
|
|
fprintf(stderr, "Path %s/%s is too long, skipping.\n", ip->path, yytext);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
sprintf (inc_file, "%s/%s", ip->path, yytext);
|
|
|
|
yyin = fopen( inc_file, "r" );
|
|
|
|
if (!yyin)
|
|
|
|
{
|
|
|
|
if (strcmp(inc_file + strlen(inc_file) - 2, ".h"))
|
|
|
|
{
|
|
|
|
strcat(inc_file, ".h");
|
|
|
|
yyin = fopen( inc_file, "r" );
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!yyin)
|
|
|
|
{
|
|
|
|
fprintf(stderr, "Cannot open include file %s\n", yytext);
|
|
|
|
exit(1);
|
|
|
|
}
|
|
|
|
|
|
|
|
input_filename = strdup(inc_file);
|
|
|
|
yy_switch_to_buffer(yy_create_buffer(yyin,YY_BUF_SIZE ));
|
|
|
|
yylineno = 0;
|
|
|
|
|
|
|
|
BEGIN C;
|
|
|
|
}
|
|
|
|
<incl>";" { BEGIN C; }
|
1998-02-05 16:46:43 +01:00
|
|
|
{length} { dbg(S_LENGTH); return S_LENGTH; }
|
|
|
|
|
|
|
|
{varchar} { dbg(S_VARCHAR); return S_VARCHAR; }
|
|
|
|
{varchar2} { dbg(S_VARCHAR2); return S_VARCHAR2; }
|
|
|
|
long { dbg(S_LONG); return S_LONG; }
|
|
|
|
short { dbg(S_SHORT); return S_SHORT; }
|
|
|
|
int { dbg(S_INT); return S_INT; }
|
|
|
|
char { dbg(S_CHAR); return S_CHAR; }
|
|
|
|
float { dbg(S_FLOAT); return S_FLOAT; }
|
|
|
|
double { dbg(S_DOUBLE); return S_DOUBLE; }
|
1998-02-12 15:02:10 +01:00
|
|
|
bool { dbg(S_BOOL); return S_BOOL; }
|
1998-02-10 17:44:17 +01:00
|
|
|
|
1998-02-17 02:48:12 +01:00
|
|
|
static { dbg(S_STATIC); return S_STATIC; }
|
1998-02-19 14:52:17 +01:00
|
|
|
signed { dbg(S_SIGNED); return S_SIGNED; }
|
1998-02-17 02:48:12 +01:00
|
|
|
extern { dbg(S_EXTERN); return S_EXTERN; }
|
|
|
|
auto { dbg(S_AUTO); return S_AUTO; }
|
|
|
|
const { dbg(S_CONST); return S_CONST; }
|
|
|
|
register { dbg(S_REGISTER); return S_REGISTER; }
|
|
|
|
|
|
|
|
struct { dbg(S_STRUCT); return S_STRUCT; }
|
|
|
|
|
1998-02-05 16:46:43 +01:00
|
|
|
{string} { dbg(SQL_STRING); return SQL_STRING; }
|
|
|
|
<SQL>{ws} ;
|
|
|
|
{symbol} { dbg(S_SYMBOL); return S_SYMBOL; }
|
1998-02-19 14:52:17 +01:00
|
|
|
{label} { dbg(S_LABEL); return S_LABEL; }
|
1998-02-05 16:46:43 +01:00
|
|
|
|
|
|
|
<SQL>"!<" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"!>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"!^" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"!|" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"!~" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"!~*" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#<" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#<=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#<>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"#>=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"&&" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"&<" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"&>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"<<" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"<=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"<===>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"<>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"<?>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"===>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"===`" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"=|=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>">=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>">>" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"@@" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"|/" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"||/" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"~*" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
<SQL>"~=" { dbg(S_SYMBOL); return S_SYMBOL; }
|
|
|
|
|
|
|
|
"[" { dbg([); return '['; }
|
|
|
|
"]" { dbg(]); return ']'; }
|
|
|
|
";" { dbg(;); return ';'; }
|
1998-02-18 02:28:03 +01:00
|
|
|
"=" { dbg(=); return '='; }
|
1998-02-05 16:46:43 +01:00
|
|
|
"," { dbg(komma); return ','; }
|
1998-02-19 14:52:17 +01:00
|
|
|
\( { dbg(braceopen); return '('; }
|
|
|
|
\) { dbg(braceclose); return ')'; }
|
1998-02-12 15:02:10 +01:00
|
|
|
\{ { dbg(blockstart); return '{'; }
|
1998-02-19 14:52:17 +01:00
|
|
|
\} { dbg(blockend); return '}'; }
|
1998-02-18 02:28:03 +01:00
|
|
|
\* { dbg(*); return('*'); }
|
1998-02-05 16:46:43 +01:00
|
|
|
|
|
|
|
<SQL>":" { dbg(:); return ':'; }
|
1998-02-27 13:59:33 +01:00
|
|
|
<SQL>"::" { dbg(SQL_CONV); return SQL_CONV; }
|
1998-02-05 16:46:43 +01:00
|
|
|
|
|
|
|
{ws} { ECHO; }
|
|
|
|
. { dbg(.); return S_ANYTHING; }
|
1998-03-20 04:08:11 +01:00
|
|
|
<<EOF>> { if (yy_buffer == NULL)
|
|
|
|
yyterminate();
|
|
|
|
else
|
|
|
|
{
|
|
|
|
struct _yy_buffer *yb = yy_buffer;
|
|
|
|
|
|
|
|
if (yyin != NULL)
|
|
|
|
fclose(yyin);
|
|
|
|
|
|
|
|
yy_delete_buffer( YY_CURRENT_BUFFER );
|
|
|
|
yy_switch_to_buffer(yy_buffer->buffer);
|
|
|
|
|
|
|
|
yylineno = yy_buffer->lineno;
|
|
|
|
|
|
|
|
free(input_filename);
|
|
|
|
input_filename = yy_buffer->filename;
|
|
|
|
|
|
|
|
yy_buffer = yy_buffer->next;
|
|
|
|
free(yb);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1998-02-05 16:46:43 +01:00
|
|
|
%%
|
|
|
|
void
|
1998-02-10 17:44:17 +01:00
|
|
|
lex_init(void)
|
1998-02-05 16:46:43 +01:00
|
|
|
{
|
1998-02-12 15:02:10 +01:00
|
|
|
braces_open = 0;
|
1998-02-05 16:46:43 +01:00
|
|
|
BEGIN C;
|
|
|
|
}
|
|
|
|
|
1998-02-10 17:44:17 +01:00
|
|
|
int yywrap(void)
|
1998-02-05 16:46:43 +01:00
|
|
|
{
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|