ING_DB
This commit is contained in:
Oliver Lehmann
parent
4f64c97b71
commit
074dc76d34
|
|
@ -0,0 +1,539 @@
|
|||
/* KEY WORDS */
|
||||
%term APPEND CLOSE COMMIT COUNT DELETE DBS EXIT
|
||||
%term GET GOTO INSERT LENGTH OPEN OVER PERMIT
|
||||
%term PRINT REPLACE SCAN USE USER
|
||||
|
||||
/* LOCKING */ /*PL*/
|
||||
%term ABORT IF DEADLK LEVEL MAXLK READLK RL_PG /*PL*/
|
||||
%term TIMEOUT WITH /*PL*/
|
||||
|
||||
/* SEPERATE COMPILING */ /*SC*/
|
||||
%term EXPORT IMPORT /*SC*/
|
||||
|
||||
/* C VAR */
|
||||
%term ALLOC TYPE
|
||||
|
||||
/* PUNCTUATION */
|
||||
%term BGNCMNT COMMA DOM ENDCMNT LBRACE LBRKT LPAREN
|
||||
%term MINUS PLUS RBRACE RBRKT RPAREN SEMICOL STAR
|
||||
|
||||
/* BOUNDS OPERATORS */
|
||||
%term BDOP IS
|
||||
|
||||
/* CONSTANTS */
|
||||
%term ICONST LCONST NAME RCONST SCONST
|
||||
|
||||
%{
|
||||
# include "amx.h"
|
||||
%}
|
||||
|
||||
%%
|
||||
|
||||
%{
|
||||
extern char *name_lookup();
|
||||
extern char *scan();
|
||||
extern int write();
|
||||
%}
|
||||
|
||||
program: dbs stmt_list
|
||||
= {
|
||||
amx();
|
||||
}
|
||||
| expimp /*SC*/
|
||||
= { /*SC*/
|
||||
amx(); /*SC*/
|
||||
} /*SC*/
|
||||
;
|
||||
dbs: DBS uflag bflag name
|
||||
= {
|
||||
if ($1 != (char *) M_SHARE)
|
||||
{
|
||||
clrbit(DB_SHARE, Xlocks);
|
||||
No_locks++;
|
||||
}
|
||||
tmp($4, $2);
|
||||
}
|
||||
| import expimp /*SC*/
|
||||
;
|
||||
expimp: export dbs db_var_list LPAREN rel_list RPAREN /*SC*/
|
||||
; /*SC*/
|
||||
export: EXPORT /*SC*/
|
||||
= { /*SC*/
|
||||
if (!ExpImp) /*SC*/
|
||||
ExpImp = 1; /*SC*/
|
||||
} /*SC*/
|
||||
import: IMPORT SCONST /*SC*/
|
||||
= { /*SC*/
|
||||
import($2); /*SC*/
|
||||
} /*SC*/
|
||||
; /*SC*/
|
||||
rel_list: rel_list COMMA rel /*SC*/
|
||||
| rel /*SC*/
|
||||
; /*SC*/
|
||||
db_var_list: EXPORT var_list /*SC*/
|
||||
| /* empty */ /*SC*/
|
||||
; /*SC*/
|
||||
var_list: var_list db_var /*SC*/
|
||||
| db_var /*SC*/
|
||||
; /*SC*/
|
||||
db_var: db_specifier decl_list SEMICOL /*SC*/
|
||||
= { /*SC*/
|
||||
fprintf(FILE_tmp, ";\n"); /*SC*/
|
||||
Type_spec = opINT; /*SC*/
|
||||
} /*SC*/
|
||||
; /*SC*/
|
||||
db_specifier: TYPE /*SC*/
|
||||
= { /*SC*/
|
||||
if (ExpImp < 0) /*SC*/
|
||||
fprintf(FILE_tmp, "extern "); /*SC*/
|
||||
fprintf(FILE_tmp, "%s\t", TYPE_SPEC[(int) $1]); /*SC*/
|
||||
Type_spec = (int) $1; /*SC*/
|
||||
} /*SC*/
|
||||
; /*SC*/
|
||||
uflag: MINUS NAME
|
||||
= {
|
||||
if (*((char *) $2) != 'u')
|
||||
{
|
||||
amxerror(106, $2);
|
||||
$$ = (char *) 0;
|
||||
}
|
||||
else if (AAlength($2) > MAXNAME + 1)
|
||||
{
|
||||
amxerror(108, $2);
|
||||
$$ = (char *) 0;
|
||||
}
|
||||
else
|
||||
$$ = $2;
|
||||
}
|
||||
| /* empty */
|
||||
= {
|
||||
$$ = (char *) 0;
|
||||
}
|
||||
;
|
||||
bflag: PLUS ICONST
|
||||
= {
|
||||
Xbufs = (int) $2;
|
||||
}
|
||||
| /* empty */
|
||||
;
|
||||
name: NAME
|
||||
= {
|
||||
$$ = name_lookup($1);
|
||||
}
|
||||
;
|
||||
stmt_list: stmt_list stmt
|
||||
| stmt
|
||||
;
|
||||
stmt: declaration
|
||||
| OPEN rel
|
||||
= {
|
||||
w_open();
|
||||
}
|
||||
| CLOSE rel
|
||||
= {
|
||||
w_close();
|
||||
}
|
||||
| USE LPAREN use_list RPAREN
|
||||
= {
|
||||
w_use(M_TE);
|
||||
}
|
||||
| COMMIT
|
||||
= {
|
||||
w_commit();
|
||||
}
|
||||
| append LPAREN dom_assign RPAREN
|
||||
= {
|
||||
end_append();
|
||||
}
|
||||
| get var_assign LBRACE scan_list RBRACE
|
||||
= {
|
||||
end_scan($1, 0);
|
||||
}
|
||||
| retrieve var_assign LBRACE scan_list RBRACE
|
||||
= {
|
||||
end_scan($1, 1);
|
||||
}
|
||||
| GOTO
|
||||
= {
|
||||
scan_goto((int) $1);
|
||||
}
|
||||
| DELETE
|
||||
= {
|
||||
delete();
|
||||
}
|
||||
| replace LPAREN dom_assign RPAREN
|
||||
= {
|
||||
end_replace();
|
||||
}
|
||||
| print LPAREN dom_list RPAREN
|
||||
= {
|
||||
fprintf(FILE_tmp, msg(209));
|
||||
}
|
||||
| COUNT rel c_var
|
||||
= {
|
||||
if (Destination.type == opSTRING)
|
||||
amxerror(110, Destination.c_var);
|
||||
else
|
||||
fprintf(FILE_tmp, msg(62),
|
||||
Destination.c_var, Relation->rel_uniq);
|
||||
}
|
||||
| LENGTH rel c_var
|
||||
= {
|
||||
if (Destination.type == opSTRING)
|
||||
amxerror(197, Destination.c_var);
|
||||
else
|
||||
fprintf(FILE_tmp, msg(157),
|
||||
Destination.c_var, Relation->rel_uniq);
|
||||
}
|
||||
| PERMIT USER
|
||||
= {
|
||||
fprintf(FILE_tmp, msg(60 + (int) $2));
|
||||
}
|
||||
| SEMICOL /* no operation */
|
||||
| ABORT /*PL*/
|
||||
= { /*PL*/
|
||||
w_abort(); /*PL*/
|
||||
} /*PL*/
|
||||
| deadlock LBRACE stmt_list RBRACE /*PL*/
|
||||
= { /*PL*/
|
||||
fprintf(FILE_tmp, msg(209)); /*PL*/
|
||||
} /*PL*/
|
||||
| EXIT
|
||||
= {
|
||||
if (Scan_rel)
|
||||
amxerror(212);
|
||||
else
|
||||
fprintf(FILE_tmp, msg(211));
|
||||
}
|
||||
| error
|
||||
;
|
||||
rel: name
|
||||
= {
|
||||
rel_lookup($1, 0);
|
||||
}
|
||||
;
|
||||
use_list: use_list COMMA use_rel
|
||||
= {
|
||||
w_use(Lock_mode);
|
||||
}
|
||||
| use_rel
|
||||
= {
|
||||
w_use(-Lock_mode);
|
||||
}
|
||||
;
|
||||
use_rel: use_mode rel
|
||||
use_with /*PL*/
|
||||
;
|
||||
use_mode: DBS
|
||||
= {
|
||||
if (!$1)
|
||||
Lock_mode = M_EXCL;
|
||||
else
|
||||
Lock_mode = (int) $1;
|
||||
}
|
||||
| PLUS
|
||||
= {
|
||||
Lock_mode = M_EXCL;
|
||||
}
|
||||
| /* empty */
|
||||
= {
|
||||
Lock_mode = M_SHARE;
|
||||
}
|
||||
;
|
||||
use_with: WITH level readlock maxlocks timeout /*PL*/
|
||||
= { /*PL*/
|
||||
if (!Dead_lock) /*PL*/
|
||||
goto std_lock; /*PL*/
|
||||
} /*PL*/
|
||||
| /* empty */ /*PL*/
|
||||
= { /*PL*/
|
||||
std_lock: /*PL*/
|
||||
Lock_level = M_REL; /*PL*/
|
||||
Read_lock = 0; /*PL*/
|
||||
Max_locks = -1; /*PL*/
|
||||
Time_out = -1; /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
level: LEVEL IS RL_PG /*PL*/
|
||||
= { /*PL*/
|
||||
Lock_level = (int) $3; /*PL*/
|
||||
} /*PL*/
|
||||
| /* empty */ /*PL*/
|
||||
= { /*PL*/
|
||||
Lock_level = M_REL; /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
readlock: READLK IS DBS /*PL*/
|
||||
= { /*PL*/
|
||||
Read_lock = (int) $3; /*PL*/
|
||||
} /*PL*/
|
||||
| /* empty */ /*PL*/
|
||||
= { /*PL*/
|
||||
Read_lock = 0; /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
maxlocks: MAXLK IS ICONST /*PL*/
|
||||
= { /*PL*/
|
||||
Max_locks = (int) $3; /*PL*/
|
||||
} /*PL*/
|
||||
| /* empty */ /*PL*/
|
||||
= { /*PL*/
|
||||
Max_locks = -1; /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
timeout: TIMEOUT IS ICONST /*PL*/
|
||||
= { /*PL*/
|
||||
Time_out = (int) $3; /*PL*/
|
||||
} /*PL*/
|
||||
| /* empty */ /*PL*/
|
||||
= { /*PL*/
|
||||
Time_out = -1; /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
append: APPEND rel
|
||||
= {
|
||||
bgn_append(FALSE);
|
||||
}
|
||||
| APPEND
|
||||
= {
|
||||
bgn_append(TRUE);
|
||||
}
|
||||
;
|
||||
dom_assign: dom_assign COMMA assign
|
||||
| assign
|
||||
;
|
||||
assign: dom IS value
|
||||
= {
|
||||
convert();
|
||||
}
|
||||
;
|
||||
dom: DOM name
|
||||
= {
|
||||
$$ = (char *) att_lookup($2, FALSE);
|
||||
}
|
||||
| DOM ICONST
|
||||
= {
|
||||
$$ = (char *) dom_lookup($2, FALSE);
|
||||
}
|
||||
;
|
||||
value: scan_dom
|
||||
| scan_var
|
||||
| const
|
||||
= {
|
||||
Source.off = C_CONST;
|
||||
Source.c_var = $1;
|
||||
}
|
||||
;
|
||||
scan_dom: DOM name
|
||||
= {
|
||||
$$ = (char *) att_lookup($2, TRUE);
|
||||
}
|
||||
| DOM ICONST
|
||||
= {
|
||||
$$ = (char *) dom_lookup($2, TRUE);
|
||||
}
|
||||
;
|
||||
get: GET rel c_var
|
||||
= {
|
||||
if (Destination.type != opLONG)
|
||||
amxerror(215, Destination.c_var);
|
||||
else
|
||||
{
|
||||
bgn_scan(0);
|
||||
$$ = scan((AMX_REL *) 0, 0);
|
||||
}
|
||||
}
|
||||
;
|
||||
retrieve: over scan qual
|
||||
= {
|
||||
$$ = scan($1, 1);
|
||||
}
|
||||
;
|
||||
over: OVER name
|
||||
= {
|
||||
rel_lookup($2, AMX_INTERNAL);
|
||||
$$ = (char *) Relation;
|
||||
}
|
||||
| /* empty */
|
||||
= {
|
||||
$$ = (char *) 0;
|
||||
}
|
||||
;
|
||||
scan: SCAN rel
|
||||
= {
|
||||
bgn_scan(1);
|
||||
}
|
||||
;
|
||||
qual: qual COMMA expr
|
||||
| expr
|
||||
| /* empty */
|
||||
;
|
||||
expr: dom relop value
|
||||
= {
|
||||
qual((int) $1, (int) $2);
|
||||
}
|
||||
;
|
||||
relop: BDOP
|
||||
| IS
|
||||
;
|
||||
var_assign: LPAREN c_var_assign RPAREN
|
||||
| /* empty */
|
||||
;
|
||||
c_var_assign: c_var_assign COMMA c_assign
|
||||
| c_assign
|
||||
;
|
||||
c_assign: c_var IS scan_dom
|
||||
= {
|
||||
convert();
|
||||
}
|
||||
| c_var
|
||||
= {
|
||||
if (Destination.type != opLONG)
|
||||
amxerror(215, Destination.c_var);
|
||||
else
|
||||
fprintf(FILE_tmp, msg(217), Destination.c_var);
|
||||
}
|
||||
;
|
||||
scan_list: stmt_list
|
||||
| /* empty */
|
||||
;
|
||||
replace: REPLACE
|
||||
= {
|
||||
bgn_replace();
|
||||
}
|
||||
;
|
||||
deadlock: IF LPAREN DEADLK RPAREN /*PL*/
|
||||
= { /*PL*/
|
||||
fprintf(FILE_tmp, msg(83)); /*PL*/
|
||||
fprintf(FILE_tmp, msg(208)); /*PL*/
|
||||
} /*PL*/
|
||||
; /*PL*/
|
||||
print: PRINT
|
||||
= {
|
||||
fprintf(FILE_tmp, msg(208));
|
||||
}
|
||||
;
|
||||
dom_list: dom_list COMMA scan_dom
|
||||
= {
|
||||
w_print((int) $3);
|
||||
}
|
||||
| scan_dom
|
||||
= {
|
||||
w_print((int) $1);
|
||||
}
|
||||
| /* empty */
|
||||
= {
|
||||
w_print(0);
|
||||
}
|
||||
;
|
||||
const: ICONST
|
||||
= {
|
||||
Source.type = opINT;
|
||||
Source.len = sizeof (short);
|
||||
}
|
||||
| LCONST
|
||||
= {
|
||||
Source.type = opLONG;
|
||||
Source.len = sizeof (long);
|
||||
}
|
||||
| RCONST
|
||||
= {
|
||||
Source.type = opDOUBLE;
|
||||
Source.len = sizeof (double);
|
||||
}
|
||||
| SCONST
|
||||
= {
|
||||
Source.type = opSTRING;
|
||||
Source.len = AAlength($1);
|
||||
}
|
||||
;
|
||||
/* C VARIABLE DECLARATION */
|
||||
declaration: decl_specifier decl_list SEMICOL
|
||||
= {
|
||||
fprintf(FILE_tmp, ";\n");
|
||||
Type_spec = opINT;
|
||||
}
|
||||
;
|
||||
decl_specifier: type_specifier
|
||||
| sc_specifier
|
||||
| type_specifier sc_specifier
|
||||
| sc_specifier type_specifier
|
||||
;
|
||||
type_specifier: TYPE
|
||||
= {
|
||||
fprintf(FILE_tmp, "%s\t", TYPE_SPEC[(int) $1]);
|
||||
Type_spec = (int) $1;
|
||||
}
|
||||
;
|
||||
sc_specifier: ALLOC
|
||||
= {
|
||||
fprintf(FILE_tmp, "%s\t", SC_SPEC[(int) $1]);
|
||||
}
|
||||
;
|
||||
decl_list: declarator
|
||||
| declarator comma decl_list
|
||||
;
|
||||
comma: COMMA
|
||||
= {
|
||||
fprintf(FILE_tmp, ", ");
|
||||
}
|
||||
;
|
||||
declarator: NAME
|
||||
= {
|
||||
if (Type_spec == opSTRING)
|
||||
amxerror(112, $1);
|
||||
else
|
||||
{
|
||||
ctbl($1, Type_spec);
|
||||
fprintf(FILE_tmp, "%s", $1);
|
||||
}
|
||||
}
|
||||
| STAR NAME
|
||||
= {
|
||||
if (Type_spec != opSTRING)
|
||||
amxerror(114, TYPE_SPEC[Type_spec], $2);
|
||||
else
|
||||
{
|
||||
ctbl($2, opSTRING);
|
||||
fprintf(FILE_tmp, "*%s", $2);
|
||||
}
|
||||
}
|
||||
| lbrkt blob RBRKT
|
||||
= {
|
||||
ctbl($1, opSTRING);
|
||||
putc(']', FILE_tmp);
|
||||
}
|
||||
;
|
||||
lbrkt: NAME LBRKT
|
||||
= {
|
||||
if (Type_spec != opSTRING)
|
||||
amxerror(116, TYPE_SPEC[Type_spec], $1);
|
||||
else
|
||||
fprintf(FILE_tmp, "%s[", $1);
|
||||
}
|
||||
;
|
||||
blob: NAME
|
||||
= {
|
||||
fprintf(FILE_tmp, "%s", $1);
|
||||
}
|
||||
| ICONST
|
||||
= {
|
||||
fprintf(FILE_tmp, "%d", (int) $1);
|
||||
}
|
||||
;
|
||||
c_var: NAME
|
||||
= {
|
||||
decl($1, FALSE);
|
||||
}
|
||||
;
|
||||
scan_var: NAME
|
||||
= {
|
||||
decl($1, TRUE);
|
||||
}
|
||||
;
|
||||
|
||||
|
||||
%%
|
||||
|
||||
|
||||
# include "tables.y"
|
||||
Loading…
Reference in New Issue