1998-02-05 16:46:43 +01:00
|
|
|
/* Copyright comment! */
|
|
|
|
%{
|
1998-02-27 04:07:35 +01:00
|
|
|
#include <sys/types.h>
|
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
|
|
|
|
|
|
|
#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-02-05 16:46:43 +01:00
|
|
|
%s C SQL
|
|
|
|
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 '[^']*'
|
|
|
|
|
|
|
|
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]
|
|
|
|
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-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; }
|
|
|
|
<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>{include} { dbg(SQL_INCLUDE); return SQL_INCLUDE; }
|
|
|
|
<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-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; }
|
|
|
|
%%
|
|
|
|
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;
|
|
|
|
}
|
|
|
|
|